Compucolor.org – Virtual Media

Listing of file='BASTST.BAS;03' on disk='vmedia/taylor_8-sector.ccvf'

10 PLOT 27,4:PRINT "RUN RUNLNK":PLOT 27,27
20 CLEAR 100
30 DATA 220,0,0,150,1,0,0,0,-1,0,8,-1,1
35 DATA 220,0,40,190,1,0,0,0,-1,0,4,-1,2
40 DATA 0,0,0,30,0,0,0,0,-1,4,4,-1,32
100 M1= 12* 16* 256+ 36
110 M2= M1+ 13:M3= M2+ 13
120 X= M1:GOSUB 400
130 X= M2:GOSUB 400
140 X= M3:RESTORE 40:GOSUB 400
199 END
200 FOR X= M1TO M1+ 38:PRINT PEEK (X);:NEXT
210 GOTO 200
399 END
400 FOR Z= 0TO 12
410 READ A:IF A< 0THEN 430
420 POKE X,A
430 X= X+ 1
440 NEXT
450 A= CALL (10* 256)
460 RETURN