'===========================================================================
' Subject: WRITE WINDOWS BITMAPS (.BMP)      Date: 11-23-96 (19:16)       
' Author:  Dave Shea                         Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: GRAPHICS.ABC
'===========================================================================
'Well, I dunno if anyone's looking for it, but I finally wrote a routine
'that writes Windows bitmaps. This'll take whatever's on your screen
'(Screen 13), and write a fully-usable Windows bitmap out of it. Try 'er
'out.

' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'   WRITEBMP.BAS   by   Dave Shea
'   Released to Public Domain
'   on October 29th, 1996. No
'   Warantees expressed or
'   implied.
' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

CLS : SCREEN 13: DEFINT X-Y
DIM Header AS INTEGER

INPUT "Output File? ", File$
OPEN File$ FOR OUTPUT AS #1

FOR a = 1 TO 320
 LINE (a, 1)-(a, 200), a
NEXT

FOR a = 1 TO 54
 READ Header
 PRINT #1, CHR$(Header);
NEXT

FOR a = 0 TO 255
 OUT &H3C7, a
  Red = INP(&H3C9) * 4
  Green = INP(&H3C9) * 4
  Blue = INP(&H3C9) * 4

 PRINT #1, CHR$(Blue) + CHR$(Green) + CHR$(Red) + CHR$(0);
NEXT

FOR y = 199 TO 0 STEP -1
 FOR x = 0 TO 319
  Pix = POINT(x, y)
  PSET (x, y), 0
  PRINT #1, CHR$(Pix);
 NEXT
NEXT

CLOSE

DATA   66,  77,  54, 254,   0,   0,   0,   0,   0,   0,  54,   4
DATA    0,   0,  40,   0,   0,   0,  64,   1,   0,   0, 200,   0
DATA    0,   0,   1,   0,   8,   0,   0,   0,   0,   0,   0,   0
DATA    0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
DATA    0,   0,   0,   0,   0,   0