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