I've had a lot of visitors but few comments! Let me hear from you! Send Gene an email!

The two programs below will play the game of Star Trek. The main program originally appeared in the Feb/Mar 1980 PPC Journal (V7N2) on page 43 by John Rausch. Thanks to him wherever he is today! This version of Star Trek is different from most in that it is designed to have a SEPARATE Klingon Battle Logic Program. That means that although I've provided my own Klingon Battle Program below (Label KL), if you don't like it, think it's too easy, too hard, etc., you can program your own. In fact, if you do, please send it to me to include here. If you provide logic in the label "EL", then you can have both sides play against each other. One way to do so would be to get rid of the 0, RTN after the EL label in the second program.

The program is fairly straight forward. The main program is 458 bytes long as written. The subprograms for battle logic (Labels EL and KL) total another 53 bytes. The program uses registers 0-7.

Register 0 is the total number of commands per turn (defaulted to 2 commands per turn). Register 1 is the number of commands left in this turn for the current player. Register 2 is the range in thousands of kilometers between the two ships. Register 3 is the damage to the active ship (the ship who's turn it currently is). Register 4 is the damage to the inactive ship. Register 5 is the evade percent for the active ship. Register 6 is the evade percent for the inactive ship. Register 7 holds the random number seed.Commands are :

1 - Attack 2 - Disengage 3 - Evade 4 - Fire Phasers 5 - Repair 6 - StatusEach command uses one of your two available actions during your turn.

Key: See: XEQ "STAR" SEED? 0.123456789 R/S RANGE 13K *KLINGON* ATTACK RANGE 11K ATTACK RANGE 1K *ENTERPRISE* CMD? 4 R/S PHASER UNITS 23 DAMAGE 23 CMD? 4 R/S PHASER UNITS 8 DAMAGE 31 *KLINGON* PHASER UNITS 21 DAMAGE 21 PHASER UNITS 27 DAMAGE 48 *ENTERPRISE* CMD? 4 R/S PHASER UNITS 13 DAMAGE 44 CMD? 4 R/S PHASER UNITS 15 DAMAGE 59 *KLINGON* PHASER UNITS 29 DAMAGE 77 PHASER UNITS 36 DAMAGE 113 DESTROYED He got me. Perhaps you can do better?

Line & Instruction 01 LBL "STAR" 02 FIX 0 03 CF 29 04 EREG 01 05 "SEED?" 06 PROMPT 07 X=0? 08 PI 09 STO 07 10 CF 22 11 2 12 STO 00 13 LBL 14 14 CF 02 15 CF 03 16 CF 04 17 CF 05 18 CLE 19 1 20 STO 01 21 30 22 XEQ 99 23 % 24 10 25 + 26 GTO 12 27 LBL 00 28 FS? 05 29 XEQ "KL" 30 FC? 05 31 XEQ "EL" 32 GTO IND X 33 LBL 00 34 "CMD?" 35 LBL 13 36 PROMPT 37 FC?C 22 38 GTO 13 39 X < 0? 40 GTO 13 41 6 42 X < Y? 43 GTO 13 44 GTO IND Y 45 LBL 01 46 "ATTACK" 47 AVIEW 48 RCL 02 49 10 50 RCL 03 51 20 52 / 53 - 54 STO Z 55 - 56 X > Y? 57 GTO 12 58 RCL 02 59 XEQ 99 60 % 61 - 62 X < Y? 63 X <> Y 64 GTO 12 65 LBL 02 66 "DISENGAGE" 67 AVIEW 68 RCL 02 69 10 70 RCL 03 71 20 72 / 73 - 74 + 75 LBL 12 76 RND 77 STO 02 78 "RANGE " 79 ARCLX 80 ->"K" 81 GTO 11 82 LBL 03 83 "EVADE" 84 AVIEW 85 XEQ 99 86 2 87 / 88 RND 89 ST+5 90 "PROB " 91 ARCL 05 92 ->"%" 93 GTO 11 94 LBL 04 95 "PHASER" 96 AVIEW 97 "OUT OF RANGE" 98 10 99 RCL 02 100 X > Y? 101 GTO 11 102 "INOPERATIVE" 103 79 104 RCL 03 105 X > Y? 106 GTO 11 107 RCL 06 108 X=0? 109 GTO 15 110 "EVADED" 111 XEQ 99 112 RND 113 X < Y? 114 GTO 11 115 LBL 15 116 44 117 RCL 02 118 4 119 * 120 - 121 XEQ 99 122 % 123 RND 124 ST+ 04 125 RCL 04 126 GTO 15 127 LBL 05 128 "REPAIR" 129 AVIEW 130 XEQ 99 131 5 132 / 133 RND 134 ST- 03 135 RCL 03 136 X < 0? 137 CLX 138 STO 03 139 LBL 15 140 "UNITS " 141 ARCL Y 142 AVIEW 143 PSE 144 "DAMAGE " 145 ARCL X 146 GTO 11 147 LBL 06 148 "STATUS" 149 AVIEW 150 PSE 151 "DMG " 152 ARCL 03 153 ->"/" 154 ARCL 04 155 AVIEW 156 PSE 157 "EV% " 158 ARCL 05 159 ->"/" 160 ARCL 06 161 AVIEW 162 1 163 ST+ 01 164 RCL 02 165 GTO 12 166 LBL 11 167 AVIEW 168 1 E2 169 RCL 04 170 X < Y? 171 GTO 15 172 PSE 173 "DESTROYED" 174 AVIEW 175 GTO 14 176 LBL 15 177 CF IND 01 178 DSE 01 179 GTO 15 180 PSE 181 FC?C 05 182 SF 05 183 FC? 05 184 "*ENTERPRISE*" 185 FS? 05 186 "*KLINGON*" 187 AVIEW 188 RCL 03 189 X<> 04 190 STO 03 191 RCL 05 192 STO 06 193 CLX 194 STO 05 195 RCL 00 196 STO 01 197 LBL 15 198 SF IND 01 199 GTO 00 200 LBL 99 201 RCL 07 202 997 203 * 204 FRC 205 STO 07 206 1 E2 207 * 208 END Line & Instruction 01 LBL "EL" 02 0 03 RTN 04 LBL "KL" 05 RCL 02 06 6 07 X<=Y? 08 GTO 12 09 RCL 03 10 80 11 X<=Y? 12 GTO 02 13 LBL 04 14 4 15 RTN 16 LBL 12 17 RCL 03 18 60 19 X<=Y? 20 GTO 10 21 LBL 01 22 1 23 RTN 24 LBL 10 25 RUP 26 13 27 X>Y? 28 GTO 02 29 LBL 05 30 5 31 RTN 32 LBL 02 33 2 34 END

Visitors since 6/8/97