Listing of file='COLMBA.BAS;01' on disk='vmedia/demos-sector.ccvf'
100 REM 110 REM SPACE SHUTTLE DRAWING 120 REM BY D. NIVEN 4/81 125 PRINT 126 PLOT 27,88,14,3,12,31:PRINT "> > > COLUMBIA < < <" 127 FOR K= 1TO 60 128 IF K= 9OR K= 18OR K= 27OR K= 36OR K= 45OR K= 54OR K= 63THEN 230 130 PLOT 6,K 132 FOR J= 0TO 29:PLOT 3,0,J,11:NEXT J 135 RESTORE 1000 140 PLOT 2 150 FOR I= 1TO 300 160 READ X,Y 170 IF X= 255THEN PLOT 255:GOTO 140 180 IF X< 0THEN PLOT 255:GOTO 220 185 IF X> 127THEN PLOT 255,6,Y:GOTO 140 190 PLOT X,Y 195 IF I= 1THEN PLOT 242 200 NEXT I 220 FOR M= 1TO 100:NEXT M 230 NEXT K 235 PLOT 6,1,12:GOTO 126 240 END 1000 DATA 0,36,3,33,8,31,18,32,32,34,39,36,43,36,47,36 1010 DATA 64,31,86,22,114,9,116,8,120,8,123,10,124,12 1020 DATA 125,14,124,17,123,21,122,24,121,27,120,29,117,37 1030 DATA 108,49,102,57,98,61,83,69,69,78,55,86,53,88 1040 DATA 49,91,46,93,41,99,38,102,23,125,18,127,14,127 1050 DATA 23,98,26,95,32,91,47,84,45,87,41,94,38,102,255,255 1060 DATA 32,91,18,127,255,255 1070 DATA 71,76,68,89,63,91,62,92,60,93,53,88,55,86 1080 DATA 62,92,255,255 1090 DATA 3,33,24,61,21,63,0,36,255,255 1100 DATA 21,63,21,69,23,76,24,84,25,85,26,87,32,91,90,57 1110 DATA 87,51,86,46,84,37,92,31,102,27,112,22,115,22 1120 DATA 118,23,120,26,120,29,255,255 1130 DATA 84,37,69,48,52,59,38,68,23,76,255,255 1140 DATA 23,98,20,94,17,90,15,84,15,77,18,72,21,69 1150 DATA 21,63,24,61,56,46,65,39,86,22,255,255 1160 DATA 84,37,86,46,87,51,90,57,95,60,98,61,255,255 1170 DATA 69,48,71,53,73,60,77,66,79,68,83,69,255,255 1180 DATA 52,59,53,65,56,70,60,75,64,77,69,78,255,255 1190 DATA 38,68,39,75,42,82,47,84,53,85,59,84,255,255 1200 DATA 41,94,46,93,255,255 1210 DATA 93,43,93,40,94,39,95,39,95,43,93,43,255,255 1220 DATA 97,43,97,39,99,39,98,43,97,43,255,255 1230 DATA 99,43,101,40,103,42,102,45,100,44,99,43,255,255 1240 DATA 104,47,105,45,106,48,105,49,104,47,255,255 1250 DATA 105,51,106,49,106,50,105,52,105,51,255,255 1260 DATA -1,-1