Compucolor.org – Virtual Media

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