Compucolor.org – Virtual Media

Listing of file='LIFE.BAS;02' on disk='vmedia/games2-sector.ccvf'

100 GOSUB  60000
110 PRINT CALL (0)
120 END
60000 REM
60010 TM= 38976
60090 FOR N= 1TO 400:READ A:IF A> 255THEN N= 420:GOTO 60140
60100 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60160:GOTO 60140
60110 POKE TM+ N,A
60140 NEXT
60145 PRINT "MC IN"
60150 AD= 33283:DA= TM+ 1:GOSUB 60160:RETURN
60160 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60170 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60180 DATA 197,213,229,245,205,36,0,194,-16
60190 DATA 241,225,209,193,201,0,0,0,33,126
60200 DATA 111,17,0,0,68,77,10,254,100,194
60210 DATA -34,19,125,198,2,79,124,206,0
60220 DATA 71,10,254,100,194,-49,19,125,198
60230 DATA 4,79,124,206,0,71,10,254,100,194
60240 DATA -64,19,125,198,128,79,124,206,0
60250 DATA 71,10,254,100,194,-79,19,125,198
60260 DATA 132,79,124,206,0,71,10,254,100,194
60270 DATA -94,19,125,198,0,79,124,206,1
60280 DATA 71,10,254,100,194,-109,19,125,198
60290 DATA 2,79,124,206,1,71,10,254,100,194
60300 DATA -124,19,125,198,4,79,124,206,1
60310 DATA 71,10,254,100,194,-139,19,0,0
60320 DATA 125,198,130,79,124,206,0,71,10,87
60330 DATA 123,254,3,194,-217,22,100,195,-227
60340 DATA 0,0,0,0,0,124,254,127,194
60350 DATA -182,125,254,124,194,-182,195,-190
60360 DATA 35,35,195,-22,0,0,0,1
60370 DATA 0,112,17,16,164,26,2,3,3,19
60380 DATA 19,120,254,128,194,-196,121,254,0
60390 DATA 194,-196,195,-5,254,2,202,-227
60400 DATA  22,32,0,0,0,125,198,146,79
60410 DATA  124,206,52,71,122,2,195,-167,260