0001 REM Source: Robert C. Leedom and David H. Ahl. "Super Star Trek". 0002 REM The Best of Creative Computing Volume I (published 1976). 0003 REM AtariArchives.org. <http://www.atariarchives.org/bcc1/> 0004 REM accessed 2012/1/15. 0005 REM Ported to DEC BASIC-10 by David Meyer <papa@twenex.org>. 0009 REM Version "STINSTX" 1/17/12 0010 REM INSTRUCTIONS FOR "STREK" GAME 0020 REM VERSION "STRINST2" 12/8/74 0030 DIM A$(5) 0040 FOR I=1 TO 0 0050 ON I THEN GOSUB 0240,0360,0540,0640,0720,0780,0860,0910,0960 0060 PRINT 0070 PRINT "(TO CONTINUE, HIT 'RETURN')" 0080 PRINT 0090 INPUT A$ 0100 NEXT I 0110 PRINT " 1. WHEN YOU SEE 'COMMAND ?' PRINTED, ENTER ONE OF THE LEGAL" 0120 PRINT " COMMANDS (NAV,SRS,LRS,PHA,TOR,SHE,DAM,COM, OR XXX)." 0130 PRINT " 2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHORT" 0140 PRINT " LIST OF THE LEGAL COMMANDS PRINTED OUT." 0150 PRINT " 3. SOME COMMANDS REQUIRE YOU TO ENTER DATA. (FOR EXAMPLE, THE" 0160 PRINT " 'NAV' COMMAND COMES BACK WITH 'COURSE (1-9)?'.) IF YOU" 0170 PRINT " TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS), THAT COMMAND" 0180 PRINT " WILL BE ABORTED." 0190 PRINT 0200 PRINT " HIT (CAR RET) TO CONTINUE " 0210 INPUT A$ 0220 CHAIN "STREKX", 250 0230 REM *** EXIT HERE *** 0240 PRINT 0250 PRINT " INSTRUCTIONS FOR ** STAR TREK ** " 0260 PRINT 0270 PRINT " THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID," 0280 PRINT " AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID." 0290 PRINT 0300 PRINT " YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE GALAXY" 0310 PRINT " TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP 'ENTERPRISE';" 0320 PRINT " YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF KLINGON WARSHIPS" 0330 PRINT " WHICH ARE MENACING THE UNITED FEDERATION OF PLANETS." 0340 PRINT 0350 RETURN 0360 PRINT " YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS" 0370 PRINT " CAPTION OF THE STARSHIP:" 0380 PRINT " 'NAV' COMMAND = WARP ENGINE CONTROL --" 0390 PRINT " COURSE IS IN A CIRCULAR NUMERICAL 4 3 2" 0400 PRINT " VECTOR ARRANGEMENT AS SHOWN . . ." 0410 PRINT " INTEGER AND REAL VALUES MAY BE ..." 0420 PRINT " USED. (THUS, COURSE 1.5 IS HALF- 5 ----- 1" 0430 PRINT " WAY BETWEEN 1 AND 2.) ..." 0440 PRINT " . . . " 0450 PRINT " VALUES MAY APPROACH 9.0, WHICH 6 7 8" 0460 PRINT " ITSELF IS EQUIVALENT TO 1.0." 0470 PRINT " COURSE" 0480 PRINT " ONE WARP FACTOR IS THE SIZE OF" 0490 PRINT " ONE QUADRANT. THEREFORE, TO GET" 0500 PRINT " FROM QUADRANT 6,5 TO 5,5, YOU WOULD" 0510 PRINT " USE COURSE 3, WARP FACTOR 1." 0520 RETURN 0530 PRINT " 'SRS' COMMAND = SHORT RANGE SENSOR SCAN" 0540 PRINT " SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT." 0550 PRINT " SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:" 0560 PRINT " (*) = YOUR STARSHIP'S POSITION" 0570 PRINT " +++ = KLINGON BATTLE CRUISER" 0580 PRINT " >!< = FEDERATION STARBASE (REFUEL/REPAIR/RE-ARM HERE!)" 0590 PRINT " * = STAR" 0600 PRINT 0610 RETURN 0620 PRINT " 'LRS' COMMAND = LONG RANGE SENSOR SCAN" 0630 PRINT " SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE" 0640 PRINT " OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAN)" 0650 PRINT " THE SCAN IS CODED IN THE FORM '***'. WHERE THE UNITS DIGIT" 0660 PRINT " IS THE NUMBER OF STARS, TENS DIGIT IS THE NUMBER OF STARBASES," 0670 PRINT " AND HUNDREDS DIGIT IS THE NUMBER OF KLINGONS." 0680 PRINT " EXAMPLE -- 207 = 2 KLINGONS, NO STARBASES, 7 STARS." 0690 RETURN 0700 PRINT "'PHA' COMMAND = PHASER CONTROL" 0710 PRINT " ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY" 0720 PRINT " ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO" 0730 PRINT " DEPLETE THEIR SHIELD POWER. (REMEMBER, KLINGONS HAVE" 0740 PRINT " PHASERS, TOO!)" 0750 RETURN 0760 PRINT "'TOR' COMMAND = PHOTON TORPEDO CONTROL" 0780 PRINT " TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL." 0790 PRINT " IF YOU HIT THE KLINGON VESSEL, HE IS DESTROVED AND" 0800 PRINT " CANNOT FIRE BACK AT YOU. IF YOU MISS, YOU ARE SUBJECT TO" 0810 PRINT " HIS PHASER FIRE." 0820 PRINT " NOTE: THE LIBRARY-COMPUTER ('COM' COMMAND) HAS AN" 0830 PRINT " OPTION TO COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)." 0840 RETURN 0850 PRINT "'SHE' COMMAND = SHIELD CONTROL" 0860 PRINT " DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO SHIELDS." 0870 PRINT " ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE THAT THE" 0880 PRINT " TOTAL ENERGY INCLUDES SHIELD ENERGY." 0890 RETURN 0900 PRINT "'DAM' COMMAND = DAMAGE CONTROL REPORT" 0910 PRINT " GIVES STATE OF REPAIR OF ALL DEVICES, WHERE A NEGATIVE" 0920 PRINT " 'STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY" 0930 PRINT " DAMAGED." 0940 RETURN 0950 PRINT "'COM' COMMAND = LIBRARY-COMPUTER" 0960 PRINT " THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:" 0970 PRINT " OPTION 0 = CUMULATIVE GALACTIC RECORD" 0980 PRINT " WHICH SHOWS COMPUTER MEMORY OF THE RESULTS OF ALL PREVIOUS" 0990 PRINT " LONG RANGE SENSOR SCANS" 1000 PRINT " OPTION 1 = STATUS REPORT" 1010 PRINT " WHICH SHOWS THE NUMBER OF KLINGONS, STARDATES, AND STARBASES" 1020 PRINT " REMAINING IN THE GAME." 1030 PRINT " OPTION 2 = PHOTON TORPEDO DATA" 1040 PRINT " WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE" 1050 PRINT " TO ALL KLINGONS IN YOUR QUADRANT" 1060 PRINT " OPTION 3 = STARBASE NAV DATA" 1070 PRINT " WHICH GIVES DIRECTIONS AND DISTANCE TO ANY STARBASE" 1080 PRINT " WITHIN YOUR QUADRANT" 1090 PRINT " OPTION 4 = DIRECTION/DISTANCE CALCULATOR" 1100 PRINT " WHICH ALLOWS YOU TO ENTER COORDINATES FOR" 1110 PRINT " DIRECTION/DISTANCE CALCULATIONS." 1120 PRINT " OPTION 5 = GALACTIC 'REGION NAME' MAP" 1130 PRINT " WHICH PRINTS THE NAMES OF THE SIXTEEN MAJOR GALACTIC 1150 PRINT " REGIONS REFERRED TO IN THE GAME." 1160 RETURN 1170 END