strtrk.bas

smallbasic for linux

3380 IF (Q1=K1) AND (Q2=K2) THEN PRINT"You arrived in time! Starbase saved!"
3390 KA=0:GOTO 710
3400 IF SD<>1 THEN 4230 ELSE 5320
3410 GOTO 710
3420 GOSUB 3660
3430 GOTO 2680
3440 PRINT"You have screwed up once too often !"
3450 PRINT"Off to the Vulcan torture camps !!"
3460 IF T<= 0 THEN 2630 ELSE 3560
3470 PRINT"You will be executed at sunrise"
3480 GOTO 3560
3490 PRINT"You will be put to death for your incompetence"
3500 GOTO 3560
3510 PRINT"You will be confined to your quarters until"
3520 PRINT"Vulcan's moons become tourist traps !!"
3530 IF T<=0 THEN 2630 ELSE 3560
3540 PRINT"Imbecile !! We hope you consider suicide!"
3550 IF T<=0 THEN 2630 ELSE 3560
3560 L=(U-K9)*10+((U-K9)*500/T)-100*(Y-B9)
3570 IF (E<=0) OR (S<0) THEN L=L-200
3580 IF K9=0 THEN L=L+(R9*100)
3590 PRINT:PRINT
3600 PRINT"Your mission rating is: ";L
3610 PRINT:PRINT:PRINT:PRINT:PRINT
3620 GOSUB 5450
3640 GOTO 5460
3650 GOTO 2630
3660 PRINT
3670 PRINT"             O9O"
3680 PRINT"  135         .        O45"
3690 PRINT"       .      .      ."
3700 PRINT"          .   .   ."
3710 PRINT"18O .  .  .   E   .  .  .OOO       WARP-COMPASS"
3720 PRINT"          .   .   ."
3730 PRINT"       .      .      ."
3740 PRINT"  225         .        315"
3750 PRINT"             27O"
3760 PRINT
3770 RETURN
3780 XX=INT(RND(2)*10)+1
3790 RETURN
3800 PRINT:IF X4>12 THEN 3900
3810 PRINT"Command Central advises that your ranking-";X4;"-is in the expert"
3820 PRINT"category. Be advised that if you are not properly qualified"
3830 PRINT"your chances of avoiding failure are nil."
3840 PRINT
3850 PRINT"Do you wish reassignment to a less hazardous mission (Y or N)"
3860 INPUT AN$
3870 IF LEFT$(AN$,1)="Y"THEN 130
3880 IF LEFT$(AN$,1)="y" THEN 130
3890 GOTO 240
3900 PRINT"You have requested a suicide mission":GOTO 3840
3910 PRINT"--COMMUNICATIONS ACTIVE--"
3920 PRINT
3930 GOSUB 3780
3940 PD=XX
3950 GOSUB 3780
3960 PE=XX
3970 GOSUB 3780
3980 PF=XX
3990 GOSUB 3780
4000 PG=XX
4010 PH=PD*10+PE
4020 PJ=PF*10+PG
4030 IF PH=PJ THEN 2830
4040 KP=1:IF (PD=PE) OR (PF=PG) THEN 4050 ELSE 4070
4050 PRINT"Sunspots block transmission at : ":GOTO 610
4060 PRINT"Move elsewhere and try again":PRINT:GOTO 820
4070 PRINT"Authorized frequencies":PRINT
4080 PRINT"Federation Command Base = ";PH
4090 PRINT"Klingon Command Central = ";PJ
4100 PRINT
4110 INPUT"Communication on channel",XF
4120 IF XF=PH THEN 4340
4130 IF XF=PJ THEN 4630
4140 PRINT
4150 PRINT AR$;"ALERT !!"
4160 PRINT"Attempted communication on unauthorized frequency"
4170 PRINT
4180 PRINT"While security check is conducted on enterprise"
4190 GOSUB 3780:A=XX
4200 GOSUB 3780:I=(XX/2)+(X4/7)
4210 PRINT"Your ";D$(A);" will be inoperative for ";I;" units of startime"
4220 D(A)=D(A)-I:GOTO 710
4230 PRINT
4240 PRINT"Security Control advises that no authorization has been"
4250 PRINT"given to activate Self- Destruct system."
4260 PRINT"Proceed with assigned mission":PRINT:GOTO 2690
4270 PRINT
4280 PRINT"Be advised, your mission progress factor is ";PR
4290 GOSUB 3780
4300 TF=(XX*X4)/1.6:IF TF<10 THEN TF=TF+10
4310 PRINT" The tolerance factor for this mission is [+/-] ";TF;" percent"
4320 PRINT
4330 RETURN
4340 ON SGN(XM)+2 GOTO 4350,4390,4410
4350 IF ABS(XM)>(TF*1.5)THEN 4470
4360 IF ABS(XM)>TF THEN 4440
4370 PRINT:PRINT"Captain, you are behind schedule - Let's go !!"
4380 GOTO 710
4390 PRINT:PRINT"You are exactly on computed schedule; Proceed with mission"
4400 GOTO 710
4410 IF XM>TF THEN 4560:IF XM>(TF*1.5)THEN 4590
4420 PRINT:PRINT"You are ahead of computed schedule, keep up the good work !!"
4430 GOTO 710
4440 PRINT:PRINT"You are behind schedule and out of tolerance factor !!"
4450 PRINT"Command Control projects failure...you may surrender to enemy"
4460 EQ=1:SD=1:GOTO 3910
4470 YY=AC^X4
4490 PRINT AR$;"---------COMPUTER PROJECTION----------":PRINT
4500 PRINT"Projected likelihood of success for your mission =";YY;"percent"
4510 PRINT"We have auto activated Self-Destruct system on your vessel"
4520 PRINT"Goodbye, Captain.............":PRINT
4530 PRINT"End of message from Federation Command":PRINT:PRINT
4540 GOSUB 5450
4550 GOTO 5320
4560 PRINT:PRINT"You are ahead of schedule and beyond tolerance factor"
4570 PRINT"Call Klingon leaders and request their surrender":KQ=1
4580 PRINT:GOTO 3910
4590 PRINT AR$;"Message from Command base"
4600 PRINT:PRINT"Enemy has surrendered to Federation Command !!"
4610 PRINT:PRINT:PRINT:PRINT
4620 GOTO 2650
4630 IF KQ=1 THEN 4880:IF EQ=1 THEN 4660
4640 ON SGN(XM)+2 GOTO 4650,4710,4760
4650 IF ABS(XM)<=TF THEN 4710
4660 PRINT:PRINT"Klingon command on frequency"
4670 PRINT"Naturally, we are pleased that you are conceding, Captain"
4680 PRINT"We are presently boarding your craft"
4690 PRINT:PRINT"Here is a message from your leaders-":PRINT:GOSUB 5450
4700 GOTO 2610
4710 GOSUB 3780
4720 IF XX<=5 THEN 4750
4730 PRINT:PRINT"Message from Klingon Command...."
4740 PRINT"Eat Phaser Death, Federation dogs!!":GOTO 4840
4750 PRINT:PRINT"We'll talk with our weapons, Earth-swine !!":GOTO 4840
4760 GOSUB 3780
4770 AQ=INT((XX+1)/2)
4780 ON AQ GOTO 4730,4750,4790,4790,4760
4790 GF=TF*1.5
4800 IF XM>GF THEN 4880
4810 IF XM>TF THEN 4850
4820 PRINT:PRINT"Captain, despite your slight advantage, you are no match for"
4830 PRINT"the glorious Klingon Fleet"
4840 PRINT TAB(25);"End of message from Klingon Command":GOTO 710
4850 GOSUB 3780
4860 IF XX<=5 THEN PRINT" Klingon command to Enterprise..":GOTO 4750
4870 GOTO 4890
4880 REM PRINT CHR$(26)
4890 PRINT:PRINT"Message from Klingon leaders..."
4900 PRINT:PRINT"We concede the war, Sir, congratulations !!":GOTO 3610
4910 AV=INT(X4/2)+1:DR=-1
4920 IF TEC<AV THEN 4940
4930 IF C$<>"D" THEN 4980 ELSE 5000
4940 AU=AV-TEC:IF AU=1 THEN KF$="" ELSE KF$="s"
4950 PRINT:PRINT"Damage Repair inactive !!"
4960 PRINT"Requires ";AU;" more recharge unit ";KF$
4970 PRINT:GOTO 710
4980 PRINT:PRINT AR$;"You must be docked at Starbase for Damage Repair !!"
4990 PRINT:GOTO 710
5000 PRINT
5010 PRINT:FOR A=1 TO 10
5020 IF D(A)<0 THEN PRINT TAB(10)A;TAB(20)D$(A);TAB(40)"damaged"
5030 NEXT A
5040 PRINT:PRINT"If no damage indicated above, answer with 0 (ZERO)"
5050 INPUT "Which one to repair",A
5060 IF (A<1) OR (A>10) THEN PRINT AR$;:GOTO 710
5070 IF D(A)<0 THEN 5090
5080 PRINT:PRINT D$(A);"        not damaged !!":GOTO 5050
5090 PRINT:PRINT TAB(20)D$(A);"-- repaired":PRINT
5100 D(A)=0:TEC=0:GOTO 710
5110 PRINT:PRINT AR$;"Nothing damaged at present":GOTO 710
5120 PRINT
5130 GOSUB 4310
5140 PRINT"Initial mission progress factor was ";PR
5150 PRINT"Current mission progress factor is  ";MR
5160 IF XM<0 THEN PW$=" worsened " ELSE PW$=" improved "
5170 PRINT
5180 PRINT"Your combat situation has ";PW$;" by a factor of ";XM;" percent"
5190 IF ABS(XM)>=TF THEN EG$=" not " ELSE EG$=" "
5200 IF EG$=" " THEN EH$="" ELSE EH$=AR$
5210 PRINT EH$;"Your progress is ";EG$;" within tolerance for this mission"
5220 PRINT
5230 IF EG$=" not " THEN 5240 ELSE 2680
5240 IF XM<0 THEN 5250 ELSE 5290
5250 PRINT:SD=1:KD=0
5260 PRINT"Captain, Command Central projects defeat by enemy. You are now"
5270 PRINT"authorized to surrender or to activate Self-Destruct system"
5280 GOTO 2680
5290 PRINT:SD=0:KD=1
5300 PRINT"Captain, Federation Command projects success for your mission."
5310 GOTO 4560
5320 REM PRINT CHR$(26)
5330 GOSUB 5440
5340 PRINT"Self Destruct System activated"
5350 PRINT:PRINT:PRINT:GOSUB 5440
5360 PRINT"COUNTDOWN BEGUN !":PRINT:PRINT
5370 PRINT TAB(25)"FIVE":PRINT:GOSUB 5440
5380 PRINT TAB(20)"FOUR":PRINT:GOSUB 5440
5390 PRINT TAB(15)"THREE":PRINT:GOSUB 5440
5400 PRINT TAB(10)"TWO":PRINT:GOSUB 5440
5410 PRINT TAB(5)"ONE":PRINT:GOSUB 5440
5420 PRINT"ZERO":GOSUB 5440
5430 GOTO 5460
5440 FOR I=1 TO 50:A=A+1:NEXT I:RETURN
5450 FOR I=1 TO 1200:A=A+1:NEXT I:RETURN
5460 GOTO 6910
5470 REM INTRODUCTION TO GAME. R.SCHRADER, 1/12/83
5480 REM WITH ADDITIONS AND CORRECTIONS BY V. STAPEL
5490 PRINT:PRINT:PRINT:PRINT
5500 PRINT "                    SPACE - THE FINAL FRONTIER!":PRINT
5510 PRINT "    THESE ARE THE VOYAGES OF THE STARSHIP ENTERPISE.  THE MISSION: "
5520 PRINT "    TO SEEK NEW LIFE AND NEW CIVILIZATIONS; TO BOLDLY GO WHERE NO"
5530 PRINT "                      MAN HAS GONE BEFORE.":PRINT:PRINT:PRINT:PRINT
5540 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT "Do you need instructions",Q9$
5550 IF LEFT$(Q9$,1)="N" THEN RETURN
5560 IF LEFT$(Q9$,1)="n" THEN RETURN
5570 PRINT "        **********    WELCOME TO STARTREK    **********":PRINT
5580 PRINT "    You are in control of the Starship Entrprise. Your mission"
5590 PRINT "will be to rid the galaxy of Klingons."
5600 PRINT "    The known galaxy is mapped into 64 quadrants (8 X 8). Each"
5610 PRINT "quadrant is composed of 64 sectors (also 8 X 8)."
5620 PRINT "    A map of the galaxy, as represented by your on-board Com-"
5630 PRINT "puter, looks like this:":PRINT
5640 FOR Q8=1 TO 3:PRINT "      ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8
5650             PRINT "      ??? ??? ??? ??? 316 ??? ??? ???"
5660 FOR Q8=1 TO 4:PRINT "      ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8
5670 PRINT
5680 PRINT "The question marks represent unexplored quadrants. The 3-digit"
5690 PRINT "numbers encode information about quadrants. The first digit"
5700 PRINT "tells how many Klingons are in the quadrant; the second, how"
5710 PRINT "many friendly bases; the third, how many stars."
5720 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8$:PRINT
5730 PRINT "    When you are in a quadrant, it will be displayed as:"
5740 PRINT:PRINT
5750 PRINT "     . . . . . . . ."
5760 PRINT "     . K . . . . * ."
5770 PRINT "     . . . . . . . ."
5780 PRINT "     * . . * . . . ."
5790 PRINT "     . . . . . E . ."
5800 PRINT "     . . . K . . . B"
5810 PRINT "     . * K . . . . ."
5820 PRINT "     . . . * . . . *"
5830 PRINT:PRINT
5840 PRINT "The Klingons are represented by 'K', stars by '*', Your ship by"
5850 PRINT "an 'E', bases by 'B', and empty sectors by '.'"
5860 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8$:PRINT
5870 PRINT "    In your pursuit of Klingons, you will have a large number of"
5880 PRINT "units of energy. These can by used to move the ship, to defend"
5890 PRINT "the ship, or to fire at Klingons. In executing any of the afore-"
5900 PRINT "mentioned functions, energy is expended. If you ever run out of"
5910 PRINT "energy, you will be immobile and defenseless.":PRINT:PRINT
5920 PRINT "    A SUMMARY OF TOP LEVEL COMMANDS FOLLOWS:"
5930 PRINT
5940 PRINT "---> LIST TOP LEVEL COMMANDS  (Activated by a '0')"
5950 PRINT "     This will list the commands you have available to you in"
5960 PRINT "     response to `COMMAND?'."
5970 PRINT
5980 PRINT "---> WARP  (Activated by entering a '1')"
5990 PRINT "     WARP moves the starship. Upon entering the command, you"
6000 PRINT "     will be asked for a direction of travel ( 0 to 360 degrees,"
6010 PRINT "     0 is right, 90 is up, etc), and the warp speed."
6020 PRINT 
6030 PRINT "---> SHORT-RANGE SCAN  (Activated by a '2')"
6040 PRINT "     Displays the local quadrant."
6050 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8$
6070 PRINT "---> LONG-RANGE SCAN  ('3')"
6080 PRINT "     Displays information about your quadrant and it's eight"
6090 PRINT "     immediate neighbors:":PRINT
6100 PRINT "          103 008 104           (Numbers are interprteted"
6110 PRINT "          203 316 004            like on a galactic map)"
6120 PRINT "          106 505 207":PRINT
6130 PRINT "     The computer updates your galactic map after every "
6140 PRINT "     Long-Range scan."
6150 PRINT 
6160 PRINT "---> PHASERS  ('4')"
6170 PRINT "     Computer-controlled high energy beams are fired at all"
6180 PRINT "     Klingons in the quadrant."
6190 PRINT 
6200 PRINT "---> PHOTON TORPEDOES  ('5')"
6210 PRINT "     One of ten Torpedoes can be fired at a Klingon. They must"
6220 PRINT "     be manually aimed."
6230 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8$
6240 PRINT 
6250 PRINT "---> SHIELDS  ('6')"
6260 PRINT "     As the Klingons have weapons like yours, your ship has"
6270 PRINT "     shields to protect it. This command controls the energy"
6280 PRINT "     in the shields."
6290 PRINT 
6300 PRINT "---> DAMAGE CONTROL  ('7')"
6310 PRINT "     Enables you to check the operational status of any of the"
6320 PRINT "     ship's functions. "
6330 PRINT
6340 PRINT "---> COMPUTER  ('8')"
6350 PRINT "     Accesses the on-board Computer. (See the list of computer"
6360 PRINT "     commands at the end of this list.)"
6370 PRINT
6380 PRINT "---> DAMAGE REPAIR  ('9')"
6390 PRINT "     This will allow you to repair damage to the Enterprise"
6400 PRINT "     if you are docked at a Starbase."
6410 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8$
6420 PRINT:PRINT "LIST OF COMPUTER COMMANDS"
6430 PRINT "   These are the options available to you in response"
6440 PRINT "to `Computer on---COMMAND?'":PRINT:PRINT
6450 PRINT "---> `0' Lists available commands from the Computer.":PRINT
6460 PRINT "---> GALACTIC MEMORY MAP   (`1')"
6470 PRINT "     This option lists all quadrants that the Enterprise has"
6480 PRINT "     been to or has seen through a Long-Range Scan.":PRINT
6490 PRINT "---> GENERAL STATUS REPORT   (`2')"
6500 PRINT "     This will list the number of Klingons, Stardates and"
6510 PRINT "     Starbases left, as well as the state of repair of all"
6520 PRINT "     devices on the ship.":PRINT
6530 PRINT "---> PHOTON TRAJECTORY   (`3')"
6540 PRINT "     This will assist in telling the Captain what direction"
6550 PRINT "     to aim the Photon Torpedoes.":PRINT
6560 INPUT "HIT RETURN TO CONTINUE";Q8$
6570 PRINT "---> NEW MISSION   (`4')"
6580 PRINT "     This is to be used on the first couple of turns to abort"
6590 PRINT "     a mission that is too much (or too little) for the" 
6600 PRINT "     player's experience or skill.":PRINT
6610 PRINT "---> PRESENT POSITION   (`5')"
6620 PRINT "     If your Short-Range Scanners are out, this will give your"
6630 PRINT "     present position, but NOT what is in the quadrant.":PRINT
6640 PRINT "---> SELF-DESTRUCT   (`6')"
6650 PRINT "     If Security Control authorizes it, you may destroy the"
6660 PRINT "     Enterprise to avoid take-over by the Klingons.":PRINT
6670 PRINT "---> WARP-COMPASS   (`7')"
6680 PRINT "     With the Enterprise in the middle, this will help deter-"         
6690 PRINT "     mine direction for movement and Photon Trajectory.":PRINT
6700 PRINT "---> MISSION PROGRESS REPORT   (`8')"
6710 PRINT "     This gives the Initial and Current Progress Factors as "
6720 PRINT "     well as the tolerance factor for this mission.":PRINT
6730 INPUT "HIT RETURN TO CONTINUE";Q8$
6740 PRINT "---> EXIT COMPUTER   (`9')"
6750 PRINT "     This returns you to the top level of commands."
6760 PRINT 
6770 PRINT 
6780 PRINT "   Some free advice for beginners:"                       
6790 PRINT "      1) Put enery in the shields before warping."        
6800 PRINT "      2) When in doubt, consult the Computer (COMMAND 8)" 
6810 PRINT "      3) Choose a low Security Clearance and a low Rank." 
6820 PRINT                                                            
6830 INPUT "HIT RETURN TO START";Q8$
6850 RETURN                                                           
6860 PRINT "  Amount to transfer from Shields";: INPUT Q8             
6870 IF (Q8<0) OR (Q8>S) THEN GOTO 6860                                   
6880 S=S-Q8:E=E+Q8:PRINT                                              
6890 PRINT E;" units of energy now - Try again."                      
6900 RETURN                                                           
'6910 RESET