Listing of file='NCC79.BAS;01' on disk='vmedia/ncc79-sector.ccvf'
5 DIM A(256):PLOT 15,27,11 10 DATA 6,6,12,2,1,116,242,50,105 12 DATA 240,20,65,20,49,20,49,17 14 DATA 129,20,17,129,19,129,20,239 16 DATA 238,6,17,239 18 DATA 153,153,255 19 REM TRAILING FIRE 20 DATA 6,65,2,19,116,242,3,121 21 DATA 253,19,121,242,3,125 24 DATA 255 25 REM YELLOW LINE 26 DATA 6,51,2,8,106,242,41,98,255 28 DATA 6,6,2,24,121,242,72,110,240 30 DATA 67,67,67,19,19,20,49,17 32 DATA 145,52,17,145,52,145,20,49,17 34 DATA 242,51,106,240,25,89,25,17,17,17,17,145,255 35 REM ROCKET 36 DATA 6,14,27,10 37 DATA 3,33,5,2,254,127,15,255,6,48,32 38 DATA 6,14,3,34,4,2,254,55,0,0,8,255,6,6,2,254,17,255 40 DATA 6,14,3,35,4,2,254,49,0,0,128,255,6,6,2,254,1,255 42 DATA 6,6,3,36,4,2,254,14,255,6,14,2,254,241,240,255,6,6,2,254,7,255,27,11 44 DATA 6,14,27,10,3,22,6,2,254,127,15,255,6,48,32 45 DATA 6,6,2,254,17,255,6,14 46 DATA 3,23,5,2,254,55,0,0,8,255 47 DATA 6,6,2,254,17,255,6,14 48 DATA 3,24,5,2,254,49,0,0,128,255,6,6,2,254,1,255,6,14 49 DATA 3,25,5,6,6,32,6,14,2,254,241,240,255,6,6,2,254,7,255,27,11 52 DATA 6,3,2,40,89,242,45,74,240 60 DATA 136,136,136,136 69 REM ROCKET SUPPORT 70 DATA 253 71 DATA 61,93 72 DATA 242,52,74,240 80 DATA 136,136,136,136,255 82 DATA 6,30,3,31,8,2,254,3,16,255 84 DATA 3,20,9,2,254,119,255 90 DATA 6,14,27,10,3,39,15,32,32,32,32,32,32,3,38,16,32,32,32,32,3,40,18,32,32,32,27,11 100 DATA 2,246,42,74,65,75,49,76,44,77,42,78,42,79,43 110 DATA 246,46,81,49,246,57,81,61,246,57,75,65,246,61,76,65,246,63,77,65 120 DATA 250,78,65,79,255 129 REM MAIN HULL 130 DATA 6,6,2,246,44,80,45,246,50,82,56,246,62,80,64 140 DATA 253,73,42,242,63,44,52,48,30,60,69,43 142 DATA 42,54,62,45,51,49,30,60,73,42,240 150 DATA 98,239,238,11,34,50,239,131,34 160 DATA 253,30,73,242,55,73,34,72,55,72 161 DATA 253,30,73,242,59,69,253,57,70,242,75,66,255 163 DATA 2,40,71,242,55,71,255 167 DATA 3,22,13,6,30,2,254,8,0,241,255,6,48,32,32,32 170 DATA 6,55,2,66,56,242,41,63,255,6,5,2,60,70,242,75,77,240 180 DATA 136,136,129,129,129,129,136,136,136,131,131,131,131,255 182 DATA 2,60,69,242,72,69,255 183 DATA 2,60,68,242,70,68,255 188 DATA 3,24,13,6,51,2,254,28,49,51,255 195 DATA 6,6,2,90,68,242,100,66,108,65,90,68,240 197 DATA 132,134,132,132,134,35,132,132,134 198 DATA 134 210 DATA 134,134,132,34,132,50,34,34,132,34,34,34,131,34,34,34,131,34,35,98 215 DATA 72,34 220 DATA 253,83,87,242,94,88,240 229 REM HOLE IN DATA 230 DATA 81,65,65,19,65,65,19,65,19,65,57,56 240 DATA 253,118,86,242,118,82,240 250 DATA 25,24,25,25,24,88,73,255 252 DATA 6,46,3,37,13,2,254,16,51,119,255 260 DATA 6,55,2,76,85,242,79,81,84,78,98,74,113,72,120,73,122,74,124,77,255 270 DATA 6,7,2,246,80,113,85,243 280 DATA 98,102,102,100,70,68,84,68,84,84,85,255 290 DATA 3,57,11,6,54,32,32 295 DATA 3,57,10,6,0,32,32,32 309 REM EARTH 310 DATA 6,6,2,110,1,242,113,1,240 320 DATA 106,72,106,72,106,106,106,34,106,34,106,34,106,34,34,34,106,239 330 DATA 238,9,34,239 340 DATA 166,34,34,34,166,34,166,34,166,34,166,166,166,132,166,132,166,255 600 DATA 6,22,3,55,22,2,254,55,17,255 610 DATA 3,53,23,2,254,0,0,0,0,0,16,255 620 DATA 3,53,24,2,254,15,0,0,0,0,224,255 630 DATA 3,54,25,2,254,0,0,0,0,252,255 640 DATA 3,54,26,2,254,143,0,127,142,255 650 DATA 3,55,27,2,254,206,204,113,119,255 660 DATA 3,57,28,2,254,0,0,0,17,255 670 DATA 3,57,29,2,254,15,0,0,252,255 680 DATA 3,58,30,2,254,0,224,255 690 DATA 6,17,3,57,25,43 695 DATA 6,7,14,3,63,7,46,3,32,11,46,3,1,29,46,3,4,31,46 696 DATA 3,18,30,46,3,26,29,46 700 DATA 3,29,1,46,15,3,24,22,46,3,2,16,46,3,50,18,46,3,10,20,46,3,50,4,46 720 DATA 3,49,19,42,3,5,1,42 998 DATA 3,64,0 999 DATA 239,239 1000 GOSUB 20000 1260 PLOT 6,7,14 1270 PLOT 3,25,1 1280 PRINT "C O M P U C O L O R" 1285 PLOT 15 1290 PLOT 3,10,31 1300 PRINT "THIRD CENTURY AMERICA NEEDS HOME COMPUTERS"; 1320 PLOT 3,61,0 1340 FOR X= 1TO 2000:NEXT :PLOT 6,2,29:LOAD "MENU":RUN 2000 DATA 12,6,3,2,246,1,14,127,255,6,57,2,250,16,28,109,247,2,239,238,5,34,239 2010 DATA 255,3,6,1,6,3,100,101,239 20000 READ X 20010 IF X< > 239THEN PLOT X:GOTO 20000 20020 READ X 20030 IF X= 239THEN RETURN 20035 READ Y:I= - 1 20040 I= I+ 1:READ A(I):IF A(I)< > 239GOTO 20040 20050 FOR X= 1TO Y:FOR J= 0TO I- 1:PLOT A(J):NEXT J,X:GOTO 20000