Compucolor.org – Virtual Media

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

100 PLOT 2,63,63,255:COL= 23
110 PLOT 12
120 PLOT 16:POKE 33278,0
130 A= PEEK (33278)
140 IF A= 0GOTO 130
150 IF A< 24AND A> 15THEN COL= A:GOTO 120
160 PLOT 11,COL
170 IF A< 65OR A> 90GOTO 120
180 A$= CHR$ (A):INC= 0
190 IF A$= "X"THEN INC= 1:GOTO 280
200 IF A$= "W"THEN INC= 2:GOTO 280
210 IF A$= "A"THEN INC= 4:GOTO 280
220 IF A$= "Z"THEN INC= 5:GOTO 280
230 IF A$= "Q"THEN INC= 6:GOTO 280
240 IF A$= "D"THEN INC= 8:GOTO 280
250 IF A$= "C"THEN INC= 9:GOTO 280
260 IF A$= "E"THEN INC= 10:GOTO 280
270 IF A$= "S"GOTO 290
280 PLOT 2,251,INC,255:GOTO 120
290 PLOT 17,8
300 INPUT "ENTER FILE NAME > ";N$
310 PLOT 16,8,11,27,4
320 PRINT "SAVE ";N$;".DSP 7000 1000"
330 PLOT 27,27