QuickBASIC Example of Graphics Output to Disk and Printer (42979)

MORE INFORMATION

1. Apple ImageWriter II, using ImageWriter driver Version 2.7
2. Apple LaserWriter II NTX, using LaserWriter driver Version 5.2

' The output window must be defined large enough for the image, or
' else printer output will truncate to the size of the window:
WINDOW 1,,(1,1)-(510,750)
PICTURE ON  ' Turns on recording of a picture
  WIDTH 255
  SHOWPEN   ' Lets you see picture as you draw and record it.
  TEXTFONT 5 : TEXTSIZE 12  ' Font 5 is Venice if installed.
  PRINT "This draws a big X on a full printer page"
  LINE (1,1)-(500,740)
  LINE (500,1)-(1,740)
PICTURE OFF
temp$=PICTURE$   ' 32K is largest allowed image string.

REM  This section writes the image string to a sequential file.
OPEN "imagefile" FOR OUTPUT AS #1
PRINT #1,temp$;
CLOSE
TEMP$=""   ' Clears the string which stores the image in memory.

REM  This section retrieves the image from the disk file "imagefile"
OPEN "imagefile" FOR INPUT AS #2
b$=INPUT$(LOF(2),2)   ' Input all bytes into a string, b$
CLOSE
CLS          ' Clear the screen
PICTURE,b$   ' Redraw stored image

REM  This section writes the retrieved image to the printer:
OPEN "LPT1:PROMPT" FOR OUTPUT AS #3
  ' At the printer prompt, click normal or sideways printing, etc.
  WINDOW OUTPUT #3  ' Redirects subsequent screen output to device #3
  PICTURE,B$        ' Draw the picture.
CLOSE               ' Picture is sent to printer after you CLOSE #3.