Compucolor.org – Virtual Media

Listing of file='PPLT.BAS;01' on disk='vmedia/bitmaps-sector.ccvf'

100 PLOT  12,29,18,30,16
110 PRINT  "PAPER TIGER PRINTER PLOTTER PROGRAM":PRINT
120 PRINT  "TYPE: ESC ^ (USER) FOR A HARD-COPY OF THE SCREEN"
130 PRINT  "NOTE - YOU MUST RERUN THIS PROGRAM IF YOU RE-START BASIC"
200 AD =  63231
210 Z =  INT (AD/ 256):POKE  32940,AD- Z* 256:POKE  32941,Z
220 CLEAR  100
230 PLOT  27,4:PRINT  "LOAD PPLT32.LDA":PLOT  27,27
240 POKE  33215,195
250 AD =  63232
260 Z =  INT (AD/ 256):POKE  33216,AD- Z* 256:POKE  33217,Z
300 END