Compucolor.org – Virtual Media

Listing of file='NCC2.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,18,16
3120 PRINT "USS.ENTERPRISE"
3125 FOR L2= 1TO 200:NEXT
3150 PLOT 3,9,7
3160 PRINT "N.C.C. 718"
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