image of READY prompt

Wang2200.org

Listing of file='STARINST' on disk='vmedia/games.wvd.zip'

# Sector 10, program filename = 'STARINST'
0010 INPUT "1=CRT 2=PRINTER",X
   : IF X=1 THEN 100
   : SELECT PRINT 215
0100 REM "****PROGRAM SIMULATES TV PROGRAM STARTREK"
0110 REM "****WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING"
0180 PRINT HEX(03);TAB(23);"**** STAR TREK ****"
   : PRINT
5820 PRINT TAB(27);"INSTRUCTIONS"
5821 PRINT
   : PRINT "THE GALAXY IS DIVIDED INTO AN 8,8 QUADRANT GRID, EACH QUADRANT"
5822 PRINT "OF WHICH IS IN TURN DIVIDED INTO AN 8,8 SECTOR GRID."
5823 PRINT
   : PRINT "THE CAST OF CHARACTERS IS AS FOLLOWS:"
5830 PRINT "<*>= ENTERPRISE"
5840 PRINT "+++ = KLINGON"
5850 PRINT ">!< = STARBASE"
   : PRINT " * = STAR"
5851 PRINT
5855 GOSUB 7000
5866 DEFFN'0
5870 PRINT  "COMMAND 0 = WARP ENGINE CONTROL:"
5880 PRINT "COURSE IS IN A CIRCULAR NUMERICAL 4  3  2"
5890 PRINT "VECTOR ARRANGEMENT AS SHOWN.       ";
   : PRINT HEX(5C);HEX(20);HEX(5E);HEX(20);HEX(2F)
5900 PRINT " INTEGER AND REAL VALUES MAY BE     ";
   : PRINT HEX(5C);HEX(5E);HEX(2F)
5910 PRINT "USED. THEREFORE COURSE 1.5 IS    5 ----- 1"
5920 PRINT "HALF WAY BETWEEN 1 AND 2.           ";
   : PRINT HEX(2F);HEX(5E);HEX(5C)
5930 PRINT "                                   ";
   : PRINT HEX(2F);HEX(20);HEX(5E);HEX(20);HEX(5C)
5940 PRINT " A VECTOR OF 9 IS UNDEFINED,BUT   6  7  8"
5950 PRINT "VALUES MAY APPROACH 9."
5960 PRINT "COURSE"
5970 PRINT "ONE WARP FACTOR IS THE SIZE OF"
5980 PRINT "ONE QUADRANT. THEREFORE TO GET"
5990 PRINT "FROM QUADRANT 6,5 TO 5,5 YOU WOULD"
6000 PRINT "USE COURSE 3.  WARP FACTOR 1"
6005 GOSUB 7000
6009 DEFFN'1
6010 PRINT "COMMAND 1 = SHORT RANGE SENSOR SCAN"
6020 PRINT "PRINT THE QUADRANT YOU ARE CURRENTLY IN. INCLUDING"
6030 PRINT "STARS, KLINGONS, STARBASES, AND THE ENTERPRISE, ALONG"
6040 PRINT "WITH OTHER PERTINATE INFORMATION."
6045 GOSUB 7000
6050 DEFFN'2
   : PRINT "COMMAND 2 = LONG RANGE SENSOR SCAN"
6060 PRINT "SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE"
6070 PRINT "OF THE ENTERPRISE IN THE MIDDLE OF THE SCAN. THE SCAN"
6080 PRINT "IS CODED INTHE FORM XXX WHERE THE UNITS DIGITS IS THE"
6090 PRINT "NUMBER OF STARS, THE TENS DIGIT IS THE NUMBER OF STAR-"
6100 PRINT "BASES.  THE HUNDREDS DIGIT IS THE NUMBER OF KLINGONS."
6105 GOSUB 7000
6110 DEFFN'3
   : PRINT "COMMAND 3 = PHASER CONTROL"
6120 PRINT "ALLOWS YOU TO DESTROY A KLINGON BY HITTING HIM WITH"
6130 PRINT "SUITABLY LARGE NUMBERS OF ENERGY UNITS TO DEPLETE HIS"
6140 PRINT "SHIELD POWER.  KEEP IN MIND THAT WHEN YOU SHOOT AT HIM,"
6150 PRINT "HE GONNA SHOOT AT YOU , T00!"
6155 GOSUB 7000
6160 PRINT
   : PRINT "COMMAND 4 = PHOTON TORPEDO CONTROL"
6170 PRINT "COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL"
6180 PRINT "IF YOU HIT THE KLINGON , HE IS DESTROYED AND CANNOT FIRE"
6190 PRINT "BACK AT YOU. IF YOU MISS, YOU ARE SUBJECT TO HIS"
6200 PRINT "PHASER FIRE"
6210 PRINT
   : PRINT "NOTE: THE LIBRARY COMPUTER(COMMAND 7) HAS AN OPTION"
6220 PRINT "TO COMPUTE TORPEDO TRAJECTORY FOR YOU(OPTION 2)"
6225 GOSUB 7000
6230 DEFFN'5
   : PRINT "COMMAND 5 = SHIELD CONTROL"
6240 PRINT "DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO SHIELDS"
6250 PRINT "ENERGY IS TAKEN FORM TOTAL SHIP'S ENERGY."
6251 PRINT "NOTE: THAT TOTAL ENERGY INCLUDES SHIELD ENERGY."
6255 GOSUB 7000
6260 DEFFN'6
   : PRINT "COMMAND 6 = DAMAGE CONTROL REPORT"
6270 PRINT "GIVES STATE OF REPAIRS OF ALL DEVICES. A STATE OF REPAIR"
6280 PRINT "LESS THAN ZERO SHOWS THAT THE DEVICE IS TEMP0RARALY"
6290 PRINT "DAMAGED"
6295 GOSUB 7000
6300 DEFFN'7
   : PRINT "COMMAND 7 = LIBRARY COMPUTER"
6310 PRINT "THE LIBRARY COM0UTER CONTAINS THREE OPTIONS:"
6320 PRINT "   OPTION 0 = CUMULATIVE GALACTIC RECORD"
6330 PRINT "WHICH SHOWS COMPUTER MEMORY OF THE RESULTS"
6340 PRINT "OF ALL PREVIOUS LONG RANGE SENSOR SCANS"
6350 PRINT "   OPTION 1 = STATUS REPORT"
6360 PRINT "WHICH SHOWS NUMBER OF KLINGONS, STARDATES,"
6370 PRINT "AND STARBASES LEFT."
6380 PRINT "   OPTION 2 = PHOTON TORPEDO DATA"
6390 PRINT "GIVES TRAJECTORY AND DISTANCE BETWEEN THE"
6400 PRINT "ENTERPRISE AND ALL KLINGONS IN YOUR QUADRANT"
   : PRINT
   : PRINT
   : PRINT
6510 INPUT "END OF INSTRUCTIONS EXEC TO GO BACK TO THE MENU",Z9
   : GOSUB '14
7000 IF H=1THEN 7010
   : INPUT Z
   : PRINT HEX(03)
   : RETURN
7010 PRINT
   : PRINT
   : RETURN
9998 END
9999 DEFFN'14
   : LOAD DC T"GAME"