Listing of file='INTRO.BAS;01' on disk='vmedia/final_frontier_startrek-sector.ccvf'
100 POKE 32940,255:POKE 32941,223 110 CLEAR 100 120 PLOT 27,4:PRINT "LOAD SHIPS.PRG":PLOT 27,27 130 GOTO 160 140 POKE M+ 3,1:POKE M,A:POKE M+ 2,B:X= CALL (0):RETURN 150 POKE M+ 3,6:POKE M,A:POKE M+ 2,B:X= CALL (0):RETURN 160 PLOT 12,3,0,15 170 PRINT "IF YOU HAVE SOUNDWARE, CONNECT IT BEFORE CONTINUING" 180 PLOT 3,0,25:INPUT "PRESS <RETURN> ";X 190 REM 32K STAR TREK INTRODUCTION/GRAPHICS 200 PLOT 12,15,27,24,6,1 210 REM INTRO NOTES 220 PLOT 3,64,0:M= 63737:POKE 33283,0:POKE 33284,249 230 POKE M,50:POKE M+ 1,0:POKE M+ 2,15 240 A= 45:B= 255:GOSUB 150 250 A= 60:B= 200:GOSUB 150 260 A= 51:B= 235:GOSUB 150 270 A= 81:B= 20:GOSUB 150 280 A= 91:B= 60:GOSUB 150 290 PLOT 2,0,127,242,0,127,240 300 FOR I= 1TO 35:PLOT 24:NEXT I:PLOT 255 310 PLOT 2,127,127,242,127,127,240 320 FOR I= 1TO 35:PLOT 65:NEXT I:PLOT 255 330 PLOT 2,63,127,242,63,127,240 340 FOR I= 1TO 50:PLOT 89:NEXT I:PLOT 255 350 PLOT 6,7 360 REM S 370 PLOT 2,8,94,242,3,89,7,85,12,90,16,86,11,81,255 380 REM T 390 PLOT 2,12,98,242,20,106,16,102,24,94,255 400 REM A 410 PLOT 2,32,102,242,24,110,30,116,38,108,255 420 PLOT 2,28,106,242,34,112,255 430 REM R 440 PLOT 2,42,112,242,34,120,39,125,43,121,38,116,255 450 PLOT 2,39,117,242,47,117,255 460 REM T 470 PLOT 2,88,124,242,96,116,92,120,84,112,255 480 REM R 490 PLOT 2,92,104,242,100,112,105,107,101,103,96,108,255 500 PLOT 2,97,107,242,97,99,255 510 REM E 520 PLOT 2,115,97,242,110,102,102,94,107,89,255 530 PLOT 2,107,97,242,110,94,255 540 REM K 550 PLOT 2,112,84,242,120,92,116,88,124,88,116,88,116,80,255 560 PLOT 3,64,0:M= 63737:POKE 33283,0:POKE 33284,249 570 POKE M,50:POKE M+ 1,0:POKE M+ 2,15 580 A= 187:B= 20:GOSUB 140 590 A= 138:B= 1:GOSUB 140 600 A= 103:B= 1:GOSUB 150 610 A= 109:B= 27:GOSUB 140 620 A= 138:B= 6:GOSUB 140 630 A= 165:B= 5:GOSUB 140 640 A= 138:B= 6:GOSUB 140 650 A= 91:B= 85:GOSUB 150 660 A= 91:B= 8:GOSUB 140 670 A= 72:B= 160:GOSUB 150 680 REM LOGO 690 PLOT 3,21,14:PRINT " ````` ` ` ````` " 700 PLOT 3,23,15:PRINT " ` ` ` ` " 710 PLOT 3,23,16:PRINT " ` ````` ```` " 720 PLOT 3,23,17:PRINT " ` ` ` ` " 730 PLOT 3,23,18:PRINT " ` ` ` ````` " 740 PLOT 3,15,20:PRINT " ````` ` ` ` ````` ` " 750 PLOT 3,15,21:PRINT " ` ` `` ` ` ` ` " 760 PLOT 3,15,22:PRINT " ```` ` ` ` ` ````` ` " 770 PLOT 3,15,23:PRINT " ` ` ` `` ` ` ` " 780 PLOT 3,15,24:PRINT " ` ` ` ` ` ` ````` " 790 PLOT 3,6,26:PRINT " ````` ````` ````` ` ` ````` ` ````` ````` " 800 PLOT 3,6,27:PRINT " ` ` ` ` ` `` ` ` ` ` ` ` " 810 PLOT 3,6,28:PRINT " ```` ````` ` ` ` ` ` ` ` ``` ````` " 820 PLOT 3,6,29:PRINT " ` ` ` ` ` ` `` ` ` ` ` ` " 830 PLOT 3,0,30:PRINT " ````` ` ````` ` ` ` ` ````` ` ` ` `` ` ` ` ` ` ` ````` ` ` `` ` ````` " 840 REM LEAD-IN MUSIC 850 PLOT 3,64,0:M= 63737:POKE 33283,0:POKE 33284,249 860 POKE M,50:POKE M+ 1,0:POKE M+ 2,15 870 A= 146:B= 18:GOSUB 140 880 A= 109:B= 5:GOSUB 140 890 A= 81:B= 1:GOSUB 150 900 A= 86:B= 35:GOSUB 140 910 A= 109:B= 11:GOSUB 140 920 A= 130:B= 9:GOSUB 140 930 A= 109:B= 11:GOSUB 140 940 A= 72:B= 100:GOSUB 150 950 A= 72:B= 10:GOSUB 140 960 A= 57:B= 180:GOSUB 150 970 PLOT 12,14,3,21,3:PRINT "SOMEWHERE IN SPACE..." 980 PLOT 15,3,64,0 990 DEF FN R(X)= INT (64* RND (1)) 1000 DEF FN S(X)= INT (28* RND (1)+ 4) 1010 FOR I= 1TO 30 1020 X= FN R(1):Y= FN S(1) 1030 IF Y> = 10AND Y< = 14AND X< = 28GOTO 1020 1040 IF Y> = 19AND Y< = 29AND X> = 20AND X< = 62GOTO 1020 1050 PLOT 3,127,X,Y,7,46 1060 NEXT I 1070 POKE 33282,195:POKE 33283,0:POKE 33284,240 1080 Z= CALL (0) 1090 GOSUB 1830 1100 FOR I= 1TO 6 1110 PLOT 6,1,2,48,70,242,75,39,255 1120 PLOT 6,0,2,48,70,242,75,39,255 1130 FOR J= 1TO 40:NEXT J,I 1140 GOSUB 1830:FOR I= 1TO 6 1150 PLOT 6,6,2,56,48,242,45,70,255 1160 PLOT 6,0,2,56,48,242,45,70,255 1170 FOR J= 1TO 40:NEXT J,I 1180 POKE 33283,160 1190 Z= CALL (0) 1200 GOSUB 1830 1210 POKE 33283,240 1220 POKE 61952,168:POKE 61953,121 1230 Z= CALL (0) 1240 PLOT 12,6,7 1250 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 1260 PLOT 30,6,5,3,6,5 1270 PLOT 101,110,32,97,98,32,123,101,32,32,32 1280 PLOT 123,101,32,101,110,32,112,98,32,116,117,32,97,32,32,32,32 1290 PLOT 123,101,32,123,100,32,116,117,32,112,98,32 1300 PLOT 101,110,32,101,110,32,123,101,32,123,100 1310 PLOT 3,6,6 1320 PLOT 32,97,32,110,111,32,108,127,32,32,32 1330 PLOT 97,32,32,127,108,32,97,115,32,110,111,32,108,127,32,32,32 1340 PLOT 97,32,32,97,124,32,118,119,32,97,115,32 1350 PLOT 32,97,32,127,108,32,108,127,32,97,124 1360 PLOT 29,6,7 1370 PLOT 14,3,30,11:PRINT "BY" 1380 PLOT 6,1,3,23,15:PRINT "RICHARD TAUBOLD" 1390 PLOT 3,29,19:PRINT "AND" 1400 PLOT 3,23,23:PRINT "WILLIAM K. GOSS" 1410 PLOT 15,6,3,3,23,26:PRINT "COPYRIGHT 1982" 1420 REM TREK THEME 1430 PLOT 3,64,0:M= 63737:POKE 33283,0:POKE 33284,249 1440 POKE M,50:POKE M+ 1,0:POKE M+ 2,15 1450 A= 236:B= 13:GOSUB 140 1460 A= 130:B= 200:GOSUB 140 1470 A= 138:B= 1:GOSUB 140 1480 A= 154:B= 1:GOSUB 140 1490 A= 176:B= 1:GOSUB 140 1500 A= 187:B= 1:GOSUB 140 1510 A= 199:B= 53:GOSUB 140 1520 A= 223:B= 6:GOSUB 140 1530 A= 236:B= 13:GOSUB 140 1540 A= 115:B= 200:GOSUB 140 1550 A= 130:B= 2:GOSUB 140 1560 A= 138:B= 2:GOSUB 140 1570 A= 154:B= 2:GOSUB 140 1580 A= 176:B= 1:GOSUB 140 1590 A= 187:B= 56:GOSUB 140 1600 A= 199:B= 7:GOSUB 140 1610 A= 211:B= 28:GOSUB 140 1620 A= 187:B= 8:GOSUB 140 1630 A= 176:B= 9:GOSUB 140 1640 A= 154:B= 10:GOSUB 140 1650 A= 138:B= 11:GOSUB 140 1660 A= 130:B= 11:GOSUB 140 1670 A= 138:B= 11:GOSUB 140 1680 A= 130:B= 11:GOSUB 140 1690 A= 115:B= 52:GOSUB 140 1700 A= 97:B= 1:GOSUB 150 1710 A= 103:B= 1:GOSUB 140 1720 A= 115:B= 100:GOSUB 140 1730 A= 211:B= 200:GOSUB 140:FOR I= 1TO 100:NEXT I 1740 A= 154:B= 200:GOSUB 140 1750 A= 130:B= 200:GOSUB 140 1760 A= 103:B= 255:GOSUB 140 1770 A= 86:B= 1:GOSUB 150 1780 PLOT 12,6,4,2,0,127,242,127,127,255 1790 PLOT 2,0,0,242,127,0,255 1800 PLOT 6,7,3,10,15:INPUT "DO YOU WISH INSTRUCTIONS? ";X$ 1810 PLOT 6,2:IF LEFT$ (X$,1)= "Y"THEN LOAD "TRKINS":RUN 1820 PLOT 12,3,0,15:INPUT "TURN THE DISK OVER AND PRESS <RETURN> ";X$:LOAD "TREK32":RUN 1830 FOR I= 1TO 500:NEXT I:RETURN