Listing of file='SHIP.BAS;01' on disk='vmedia/ncc_16-sector.ccvf'
5 PLOT 12 10 PLOT 27,24 15 PLOT 3,64,0 20 GOTO 1000 100 A= 106 102 B= 95 104 C= 2 106 D= 8 108 E= 49 110 F= 52 112 G= 56 114 H= 30 116 I= 36 118 J= 38 120 K= 44 122 L= 28 124 M= 66 126 N= 68 128 O= 58 130 P= 59 132 Q= 68 134 R= 72 136 S= 54 138 T= 72 140 U= 92 142 V= 98 144 W= 94 146 X= 81 148 Y= 62 150 Z= 123 152 A1= 80 154 A2= 98 156 A3= 92 158 A4= 20 160 A5= 81 162 A6= 80 164 A7= 92 166 A8= 80 170 B1= 70 172 B2= 64 300 PLOT 6,4 310 PLOT 2,D,B,242,E,B,255 320 B= B+ .5 330 IF B> 103THEN 400 340 GOTO 310 400 GOTO 410 410 PLOT 2,H,B,242,J,B1,255 420 H= H+ .5 425 J= J+ .5 430 IF H> I- 1THEN 500 440 GOTO 410 500 GOTO 510 510 PLOT 2,A4,N,242,K,B1,R,T,A5,Q,255 520 T= T- .6 522 B1= B1- .5 525 N= N- .3 527 Q= Q- .3 530 IF T< O- 3THEN 600 540 GOTO 510 600 T= 64 610 PLOT 2,S,T,242,B2,A6+ 7,255 620 B2= B2+ .7 625 S= S+ .3 630 IF S> 60THEN 700 640 GOTO 610 700 GOTO 710 710 PLOT 2,A3,A6,242,A7,A8,255 720 A3= A3- 1.6 721 A6= A6+ .5 724 A7= A7+ 1.6 725 A8= A8+ .5 727 IF A6> 90THEN 800 740 GOTO 710 800 X= 88 810 PLOT 2,Y,X,242,Z,X,255 820 X= X+ .2 821 Y= Y- .2 822 Z= Z+ .2 830 IF X> 93THEN 900 840 GOTO 810 900 Y= 73:Z= 111 910 PLOT 2,Y,X,242,Z,X,255 920 X= X+ .6 921 Y= Y+ 1.6 922 Z= Z- 1.6 930 IF X> 102THEN 3200 940 GOTO 910 1000 PLOT 6,6 1002 G1= 0 1003 PLOT 3,64,0,3,126,0,0,7 1005 C= INT (RND (1)* 11)+ 3+ C:IF C> 62THEN C= 0:GOTO 1015 1010 PRINT SPC( C);".";:GOTO 1005 1015 G1= G1+ 1:IF G1< 16THEN PRINT :GOTO 1005 1020 PLOT 3,0,0 1500 GOTO 100 2000 GOTO 2030 2030 PLOT 3,23,5 2050 PLOT 15 3000 PLOT 6,33 3005 D1= 32 3010 PLOT 3,30,9 3025 PLOT 31 3030 PLOT 58,32 3035 D1= D1+ 2 3040 IF D1> 63THEN 3100 3050 GOTO 3025 3100 GOTO 3440 3105 PLOT 6,33 3110 PLOT 3,20,16 3120 PRINT "U.S.S. ENTERPRISE" 3125 FOR L2= 1TO 200:NEXT 3150 PLOT 3,9,7 3160 PRINT "N.C.C. 1701" 3190 PLOT 6,2 3195 PLOT 8 3198 GOTO 3502 3200 PLOT 6,1 3210 PLOT 3,25,6 3212 PLOT 96 3215 PLOT 3,26,6 3220 PLOT 117 3230 PLOT 3,25,7 3232 PLOT 96 3235 PLOT 3,26,7 3240 PLOT 119 3242 PLOT 8 3245 T1= 0 3246 T2= 103 3247 T3= 7 3248 T4= 103 3250 PLOT 2,T1,T2,242,T3,T4,255 3254 IF T4< 98THEN 3270 3260 T4= T4- .2 3265 GOTO 3250 3270 T1= 3 3275 T4= T4- .2 3278 IF T4< 95THEN 3290 3280 GOTO 3250 3290 GOTO 3345 3300 PLOT 3,41,15 3310 PLOT 30 3320 PLOT 127,116 3325 PLOT 3,41,16 3330 PLOT 101,118 3340 PLOT 29 3341 PLOT 8 3342 GOTO 2000 3345 F1= 20 3346 F2= 68 3347 F3= 27 3348 F4= 68 3349 PLOT 6,4 3350 PLOT 2,F1,F2,242,F3,F4,255 3360 F2= F2- .5 3362 F4= F4- .5 3364 IF F2< 64THEN PLOT 6,0 3365 IF F2< 57THEN 3367 3366 GOTO 3350 3367 PLOT 6,1 3368 F4= 63:F2= 63 3369 PLOT 2,F1,F2,242,F3,F4,255 3370 PLOT 6,4 3373 F4= F4- .1 3374 F2= F2- .1 3380 IF F4< 60THEN 3400 3390 GOTO 3369 3400 PLOT 6,2 3405 PLOT 6,32 3410 PLOT 3,13,17 3411 PLOT 117 3412 PLOT 6,1 3413 PLOT 3,10,15 3414 PLOT 6,32,117 3415 PLOT 3,10,16 3416 PLOT 6,0,119 3419 PLOT 6,1 3420 GOTO 3300 3440 PLOT 6,1 3450 PLOT 3,44,6 3452 PLOT 6,1 3455 PLOT 116 3457 PLOT 6,8 3458 PLOT 32,32 3459 PLOT 6,1 3460 PLOT 117 3490 PLOT 8 3500 GOTO 3105 3502 PLOT 3,64,0,3,126,0,0,7 3505 PLOT 3,45,12 3506 PLOT 6,1 3507 PRINT "vw" 3508 PLOT 6,5 3509 PLOT 3,64,0,3,126,0,0,7 3510 FOR D1= 1TO 100:NEXT 3515 PLOT 6,5 3517 X1= 80+ (INT (RND (1)* 47)) 3518 X2= 0 3519 X1= 127 3520 PLOT 2,92,75,242,X1,X2,255 3530 FOR P1= 1TO 50:NEXT 3540 PLOT 6,0 3550 PLOT 2,92,75,242,X1,X2,255 3553 PLOT 3,64,0,3,126,0,0,7 3555 PLOT 3,45,12 3556 PLOT 6,0 3557 PRINT " " 3558 PLOT 3,64,0,3,126,0,0,7 3560 FOR P2= 1TO 1000:NEXT 3570 GOTO 3502 10000 W= 0 10001 X= 0 10002 Y= 0 10003 Z= 127 10005 PLOT 6,7 10100 PLOT 2,W,X,242,W,Z,255 10150 PLOT 6,7 10200 W= W+ 10 10250 IF W= 60THEN PLOT 6,1 10300 IF W> 127THEN 10500 10400 GOTO 10100 10500 W= 0:Y= 127:Z= 0 10600 PLOT 2,W,X,242,Y,X,255 10650 PLOT 6,7 10700 X= X+ 10 10750 IF X= 60THEN PLOT 6,1 10800 IF X> 127THEN 11000 10900 GOTO 10600 11000 GOTO 100