Compucolor.org – Virtual Media

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

1 CLEAR 200
2 PLOT 27,4:PRINT "LOA BLPRNT.4X BF00":PLOT 27,27
3 PLOT 12,3,64,0,29
4 POKE 33283,0:POKE 33284,191
5 PLOT 27,4:PRINT "LOA MONSTR.IMG":PLOT 27,27
6 INPUT "ENTER IMAGE NUMBER DESIRED :";LD
7 PLOT 12:IF LD< 1OR LD> 26THEN 6
8 XC= (LD- 1)* 300+ 40960
9 PI= 0:POKE 49043,2:POKE 49044,98:REM  POKE START POS
10 YC= CALL (XC)
11 POKE 33283,105:BP= PI- 1:BL= CALL (BP)
12 POKE  33283,0
13 GOTO 6
14 END