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