Listing of file='SSINFO.BAS;01' on disk='vmedia/ncc_7-sector.ccvf'
1 REM ADAPTED FROM AHL'S BASIC COMPUTER GAMES THIRD PRINTING 1979 2 REM CREATIVE COMPUTING 1978. 3 REM RON CAPPADONA PRODUCTIONS 1980. FOR FUN NOT PROFIT. 4 REM ADAPTATION BY RON "CAPPY" CAPPADONA." NOT FOR SALE " 5 REM RON CAPPADONA PRODUCTIONS 1980. 6 REM 820 MANGO AVE. SUNNYVALE,CA. 94087 (408) 733-2382 7 REM ANY USE OF OR SALE OF FOR PROFIT IS ILLEGAL !!!!! 10 REM :"INSTRUCTIONS FOR...SUPER STARTREK" 15 PLOT 12:PRINT " " 20 FOR I= 1TO 6:PRINT :NEXT I 21 PRINT TAB( 18);"******************************" 22 PRINT TAB( 18);"* *" 23 PRINT TAB( 18);"* *" 24 PRINT TAB( 18);"* * * SUPER STARTREK * * *" 25 PRINT TAB( 18);"* *" 26 PRINT TAB( 18);"* *" 27 PRINT TAB( 18);"******************************" 36 FOR I= 1TO 7:PRINT :NEXT I 40 INPUT " DO YOU NEED INSTRUCTIONS ( Y OR N ) ";K$:PLOT 12:IF K$= "N"THEN 700 45 IF K$= "Y"THEN 90 46 IF INP (1)= 7THEN 46 90 PLOT 3,20,3:PRINT "INSTRUCTIONS FOR..." 91 PLOT 3,20,6:PRINT "SUPER STARTREK" 100 PRINT :PRINT :PRINT 105 PRINT "1. WHEN YOU SEE [ COMMAND ? ] PRINTED,ENTER ONE OF THE LEGAL" 110 PRINT :PRINT " COMMANDS ( NAV, SRS, LRS, PHA, TOR, SHE, DAM, COM, OR XXX )." 130 PRINT :PRINT :PRINT "2. IF YOU TYPE IN AN ILLEGAL COMMAND YOU'LL GET A SHORT LIST " 140 PRINT " OF THE LEGAL COMMANDS ." 150 PRINT :PRINT :PRINT "3. SOME COMMANDS REQUIRE THAT YOU ENTER DATA,( FOR EXAMPLE," 160 PRINT " THE NAV COMMAND COMES BACK WITH ' COURSE ( 1-9 ) ? '.) IF " 170 PRINT " YOU TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS) THAT " 180 PRINT " COMMAND WILL BE ABORTED." 190 PRINT 200 PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE ";A:PLOT 12 270 PRINT :PRINT :PRINT "4. THE GALAXY IS DIVIDED INTO AN 8 * 8 QUADRANT GRID," 280 PRINT " & EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 * 8 SECTOR " 285 PRINT " GRID." 290 PRINT :PRINT :PRINT :PRINT "5. YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE" 295 PRINT " GALAXY WHERE YOU WILL BEGIN YOUR TOUR OF DUTY AS COMMANDER" 300 PRINT " OF THE STARSHIP ENTERPRISE ; YOUR MISSION: TO SEEK OUT AND " 305 PRINT " DESTROY THE SQUADRONS OF KLINGON BATTLECRUISERS THAT ARE " 310 PRINT " MENACING THE MEMBERS OF THE UNITED FEDERATION OF PLANETS.":PRINT :PRINT 315 PRINT "6. YOU WILL HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS" 320 PRINT " CAPTAIN OF THE ENTERPRISE:" 325 PRINT :PRINT :PRINT :PRINT " 'NAV'COMMAND = WARP ENGINE CONTROL & NAVIGATIONAL DIRECTION" 330 PRINT " CONTROL; INDICATED BY THE VECTOR ARRANGEMENT " 335 PRINT " SHOWN ON THE FOLLOWING PAGE." 340 PRINT :PRINT :PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";A$:PLOT 12 345 PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 346 PRINT : 350 PRINT :PRINT :PRINT SPC( 4)"COURSE GRID: 4 3 2 " 355 PRINT :PRINT SPC( 22)"* * *":PRINT 360 PRINT SPC( 25)"* * *" 365 PRINT :PRINT SPC( 29)"* * *":PRINT 370 PRINT :PRINT SPC( 18)"5 - - - - * - - - - 1" 375 PRINT :PRINT SPC( 29)"* * *":PRINT 380 PRINT SPC( 25)"* * *":PRINT 385 PRINT SPC( 22)"* * *":PRINT 390 PRINT :PRINT SPC( 18)"6 7 8" 400 PRINT :PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";A$:PLOT 12 405 PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 407 PRINT :PRINT :PRINT " 'NAV' (CONTINUED) 410 PRINT :PRINT :PRINT " YOUR NAVIGATIONAL COMMANDS MAY BE IN THE FORM OF " 415 PRINT " INTERGER & REAL VALUES. FOR EXAMPLE A COURSE OF 1.5 IS " 420 PRINT " HALFWAY BETWEEN 1 AND 2." 425 PRINT :PRINT " ONE WARP FACTOR WILL CAUSE YOUR STARSHIP TO TRAVEL THE" 427 PRINT " DISTANCE OF ONE FULL QUADRANT. A WARP FACTOR OF .5 WILL " 429 PRINT " RESULT IN A MOVE EQUAL TO HALF OF ONE FULL QUADRANT." 430 PRINT " SUCH A MOVE MAY HOWEVER CARRY YOUR SHIP INTO ANOTHER" 432 PRINT " QUADRANT AND PUT YOU IN THE MIDDLE OF A FLEET OF KLINGONS." 433 PRINT " SO BE CAREFUL WITH YOUR NAVIGATION." 434 PRINT :PRINT :PRINT " 'SRS' COMMAND = SHORT RANGE SENSOR SCAN." 435 PRINT :PRINT " YOUR SHORT RANGE SENSORS GIVE YOU A SCAN OF THE" 436 PRINT " QUADRANT YOU ARE CURRENTLY IN." 437 PRINT " THE SYMBOLOGY USED ON YOUR SENSOR SCREEN IS SHOWN" 438 PRINT " ON THE FOLLOWING PAGE." 440 PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";AS:PLOT 12 445 PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 450 PRINT :PRINT :PRINT " SENSOR SCREEN SYMBOLOGY:" 455 PRINT :PRINT :PRINT SPC( 15)" (=< = THE LOCATION OF THE ENTERPRISE." 460 PRINT :PRINT :PRINT SPC( 15)" -+< = KLINGON BATTLE CRUISER" 465 PRINT :PRINT :PRINT SPC( 15)" [*] = FEDERATION STARBASE ( REFULE / REPAIR " 466 PRINT SPC( 22)"AND RE-ARM HERE.)" 467 PRINT :PRINT SPC( 15)" * = A STAR IN THE GALAXY." 468 PRINT :PRINT :PRINT SPC( 10)" A CONDENSED STATUS REPORT WILL ALSO BE PRESENTED." 469 PRINT :PRINT :PRINT SPC( 10)"NOTE:DUE TO VARIOUS ATMOSPHERIC CONDITIONS IN SPACE" 470 PRINT SPC( 15)"THE COLOR OF YOUR STARSHIP, THE KLINGON SHIPS," 471 PRINT SPC( 15)"STARBASES,AND STARS WILL TEND TO CHANGE AS YOU" 472 PRINT SPC( 15)"MOVE FROM ONE POSITION TO ANOTHER." 474 PRINT :PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";A$:PLOT 12 475 PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 480 PRINT :PRINT :PRINT :PRINT " 'LRS' COMMAND = LONG RANGE SENSOR SCAN." 485 PRINT :PRINT " SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH" 486 PRINT SPC( 10)"SIDE OF THE ENTERPRISE ( WHICH IS IN THE MIDDLE OF " 487 PRINT SPC( 10)"THE SCAN.)" 488 PRINT SPC( 10)"THE SCAN IS CODED IN THE FORM -XYZ-,WHERE X = THE 489 PRINT SPC( 10)"NUMBER OF KLINGONS IN THE QUADRANT. Y = THE NUMBER" 490 PRINT SPC( 10)"OF STARBASES IN THE QUADRANT.Z = THE NUMBER OF( * )" 492 PRINT SPC( 10)"STARS IN THE QUADRANT. 493 PRINT :PRINT SPC( 6)"EXAMPLE: 214 = 2 KLINGONS, 1 STARBASE, 4 ( * ) STARS." 495 PRINT :PRINT :PRINT " 'PHA' COMMAND = PHASER CONTROL." 496 PRINT :PRINT SPC( 10)"ALLOWS YOU TO DESTROY KLINGON BATTLE CRUISERS BY" 497 PRINT SPC( 10)"ZAPPING THEM WITH LARGE UNITS OF ENERGY THEREBY" 498 PRINT SPC( 10)"DEPLETING THEIR SHIELDS.( REMEMBER,THE KLINGONS HAVE " 499 PRINT SPC( 10)"PHASERS TOO!!! )" 500 PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";A$:PLOT 12 505 PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 510 PRINT :PRINT :PRINT SPC( 4)"'TOR' COMMAND = PHOTON TORPEDO CONTROL." 515 PRINT :PRINT SPC( 10)"TORPEDO COURSE IS THE SAME AS USED FOR WARP ENGINE" 516 PRINT SPC( 10)"AND NAVIGATIONAL CONTROL. IF YOU HIT THE KLINGON" 517 PRINT SPC( 10)"VESSEL, IT IS DESTROYED AND CANNOT FIRE BACK AT YOU." 518 PRINT SPC( 10)"IF YOU SHOULD MISS, YOU ARE SUBJECT TO PHASER FIRE" 519 PRINT SPC( 10)"FROM THE KLINGON SHIP. IN EITHER CASE, YOU ARE ALSO" 520 PRINT SPC( 10)"SUBJECT TO PHASER FIRE FROM ALL THE OTHER KLINGON " 521 PRINT SPC( 10)"SHIPS THAT ARE IN THE QUADRANT." 525 PRINT :PRINT SPC( 4)"NOTE: THE LIBRARY-COMPUTER('COM'COMMAND ) HAS AN OPTION" 526 PRINT SPC( 10)"TO COMPUTE THE TORPEDO TRAJECTORY FOR YOU.( OPTION 3 )" 530 PRINT :PRINT :PRINT :PRINT SPC( 4)"'SHE' COMMAND = SHIELD CONTROL." 535 PRINT :PRINT SPC( 10)"DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED" 536 PRINT SPC( 10)"TO THE SHEILDS. ENERGY IS TAKEN FROM THE SHIPS TOTAL " 537 PRINT SPC( 10)"ENERGY.NOTE: THE STATUS DISPLAY OF TOTAL ENERGY ALSO" 538 PRINT SPC( 10)"INCLUDES THE ENERGY ASSIGNED TO THE SHIELDS. 539 PRINT SPC( 10)"CAUTION: DO NOT LET ENERGY DROP TO ZERO !!!!!" 540 PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";AS:PLOT 12 545 PRINT :PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 550 PRINT :PRINT :PRINT :PRINT SPC( 4)"'DAM' COMMAND = DAMAGE CONTROL REPORT." 555 PRINT :PRINT SPC( 10)"GIVES A CURRENT REPAIR STATUS ON ALL DEVICES. WHERE " 560 PRINT SPC( 10)"A NEGATIVE STATE OF REPAIR SHOWS IT INDICATES THAT " 565 PRINT SPC( 10)"THE DEVICE IS TEMPORARILY DAMAGED AND MAY NOT BE USED." 570 PRINT :PRINT :PRINT SPC( 4)"'COM' COMMAND = LIBRARY-COMPUTER." 575 PRINT :PRINT SPC( 10)"THE LIBRARY-COMPUTER HAS SEVEN ( 7 ) OPTIONS:":PRINT 577 PRINT SPC( 10)"OPTION 0:LIST OF AVAIABLE OPTIONS.":PRINT 580 PRINT SPC( 10)"OPTION 1: CUMULATIVE GALACTIC RECORD" 585 PRINT SPC( 10)"THIS OPTION SHOWS COMPUTER MEMORY OF THE RESULTS OF " 590 PRINT SPC( 10)"PREVIOUS SHORT AND LONG RANGE SENSOR SCANS" 595 PRINT :PRINT SPC( 10)"OPTION 2: STATUS REPORT" 600 PRINT SPC( 10)"THIS OPTION SHOWS THE NUMBER OF KLINGONS, STARDATES," 605 PRINT SPC( 10)"AND STARBASES REMAINING IN THE GAME." 606 PRINT :PRINT :PRINT :INPUT " HIT ( RETURN ) TO CONTINUE. ";A$:PLOT 12 607 PRINT :PRINT :PRINT "6. (CONTINUED) YOU WILL HAVE THE FOLLOWING COMMANDS..." 610 PRINT :PRINT :PRINT :PRINT SPC( 4)"'COM' OPTION 3: PHOTON TORPEDO DATA" 615 PRINT SPC( 10)"GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE TO" 616 PRINT SPC( 10)"ALL KLINGON BATTLE CRUISERS IN YOUR QUADRANT." 625 PRINT :PRINT SPC( 10)"OPTION 4: STARBASE NAVIGATION DATA" 630 PRINT SPC( 10)"THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY" 635 PRINT SPC( 10)"STARBASE WITHIN YOUR QUADRANT." 640 PRINT :PRINT SPC( 10)"OPTION 5: DIRECTION/DISTANCE CALCULATOR" 645 PRINT SPC( 10)"THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR" 650 PRINT SPC( 10)"DIRECTION/DISTANCE CALCULATIONS." 655 PRINT :PRINT SPC( 10)"OPTION 6: GALACTIC/REGION NAME/MAP" 660 PRINT SPC( 10)"THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR" 665 PRINT SPC( 10)"GALACTIC REGIONS REFERRED TO IN THE GAME." 666 PRINT :PRINT :PRINT :PRINT SPC( 10)"THIS COMPLETES THE INSTRUCTIONS." 667 PRINT :PRINT :INPUT " ARE YOU READY TO BEGIN YOUR MISSION ? ( Y OR N ) ";B$:PLOT 12 668 IF B$= "Y"THEN 700 670 IF B$= "N"THEN 90 700 PRINT " 705 PLOT 3,18,15:PRINT "OK THEN, LETS GET UNDERWAY !!!" 709 LOAD "TREK":RUN