swj ** star war program **j ** PRODUCT OF EACA INTERNATIONAL LTD. **j ** ALL RIGHTS RESERVED. **jj : 200: AZ"k G(7,7), Q$(7,7),EK(7,7),A(6),B(6),MP(7,7)HkK6: B1: S74: KN7: BN2: SN75ok " *** WELCOME ON BOARD ***"}k( Y0 7k2 X0 7k<G(X,Y)0kF XkP YkQ: " FASTEN YOUR SEAT-BELT"lR " WE WILL BE IN SPACE WITHIN A FEW SECONDS !"lZ S10 SldSX(8)1+lnSY(8)1Ylx G(SX,SY)5 100 : G(SX,SY)G(SX,SY)1bl S1l::: " WE ARE ";((300));",000,000 MILES FROM EARTH !"l B10 BlBX(8)1lBY(8)1l G(BX,BY)10 150 : G(BX,BY)G(BX,BY)10m B1m K10 K#mKX(8)11mKY(8)1am G(KX,KY)70 200 : G(KX,KY)G(KX,KY)30mA(K1)KX:B(K1)KY:EK(A(K1),B(K1))80m K1mX10: Y10:QX0:QY0mXX(64)1mYY(64)1m :: "IF YOU NEED INSTRUCTIONS, TYPE IN 7 .":n 2300: 2500n 22002n"E0450:D035:M03Wn,X5X1:Y5Y1: 2060: 1400: 3500jn KN0 4500n @52,"COMMAND ";: CD:n CD0 CD7 400n CD 600,1000,1200,1500,1800,5000,6000n: "WHERE ARE WE HEADING ?"o: "VECTOR X-COORDINATE ";XX/o "VECTOR Y-COORDINATE ";YYAo 2300: 2500Lo 3600oo 2200: XRX1 YRY1 472o 3800:: "VOYAGE COMPLETED."o 1400: 4000:X5X1:Y5Y1: 2060: 601o 660: 3500: 400o 601:X5X1:Y5Y1: 2060: 660!p 3800:: "VOYAGE COMPLETED.": 14003p 4000: 3500=p 400MpX 601: 642[pY Y0 7ipb X0 7yplQ$(X,Y)" "pv Xp YppX5X1:Y5Y1: 2060pQ$(QX,QY)"<*>"p 660: 840p K20 720p K31 K2pKX(8)1qKY(8)18q Q$(KX,KY) " " 680 : Q$(KX,KY)"+O+"Aq K3Rq B20 780bq B31 B2pqBX(8)1~qBY(8)1q Q$(BX,BY) " " 740 : Q$(BX,BY)">=<"q B3q  S20 831q S31 S2q SX(8)1q*SY(8)1$r4 Q$(SX,SY) " " 800 : Q$(SX,SY)" * "-r> S33r?ArH:: 950TrR Y7 0 1ar\ Y;"!";orf X0 7rp X44)Q$(X,Y);rz Xr 35) "!"r Yr 950r " 0 1 2 3 4 5 6 7"r 1440r 3500r 400&s " +---+---+---+---+---+---+---+---+",sFs Y2Y11 Y11 1esF20: Y20 Y27 F21ps 2000{s 2010s X2X11 X11sF10: X20 X27 F11s$ F10 F20 2020 : C$" "s. "! ";C$;" ";s8 X2tB "!": 2010 tL Y2tV 2000JtW "LONG RANGE SCAN ON QUADRANT:";X1;",";Y1t` 601:X5X1:Y5Y1: 2060:Q$(QX,QY)"<*>": 660: 400t: K20 4060t "LASER BEAM READY."t: "TOTAL ENERGY AVAILABLE:";E0t E0100 1350u: "ENTER TARGET LOCATION IN THE SECTOR."7u " X-COORDINATE: ";XTTu " Y-COORDINATE: ";YTu XT 0 XT 7 YT 0 YT 7 1212u: "HOW MANY UNITS DO YOU WANT TO FIRE ";E1u E10 4300u E1E0 1210v Q$(XT,YT)"+O+" 1270 : 1340 v 400@vE0E0E1: 3620:E1E1(((X1XT)(Y1YT))2)_vSX10: 1441: SX10 400hv XSXvKEEK(A(X),B(X)): KE E1 1310 : 1330v 400vEK(A(X),B(X))EK(A(KN1),B(KN1)):A(X)A(KN1):B(X)B(KN1),w(KNKN1:G(X1,Y1)G(X1,Y1)30: 4400: @ 840, "KLINGON DESTROYED.":gw2EK(A(X),B(X))EK(A(X),B(X))E1: "KLINGON DAMAGED !":w<E0E0E1: 3620: " * YOU MISSED !! *":wF: "WARNING : YOU MAY RUN OUT OF ENERGY."wP "DO YOU STILL WANT TO FIRE ";A$xZ A$"YES" A$"Y" 1220%xd A$"NO" A$"N" 4000xn 1360Hxx: "CONDITION : ";ix K20 1430 : "GREEN"oxx " ** RED **"xSX10: 1441: 1470x X0 KN1x X1A(X) Y1B(X) SXXx Xxx SX10 1491yEL(20): EL7 EL76yE0E0EL:EK(A(SX),B(SX))EK(A(SX),B(SX))ELVy EK(A(SX),B(SX))0 4600y " ";EL;"UNITS OF PHASER DAMAGED BY KLINGON."yy: M00 4200 : K20 4060yR50:M0M01y QX5 R17 : R16y QY5 R27 : R26z" QX2 R30 : R311z, QY2 R40 : R41Az6 YR3 R1Qz@ XR4 R2szJ Q$(X,Y)"+O+" R50 1630~zT 1680z^R51zh 4400: @ 840,"KLINGON DESTROYED."ziSX10: 1441: SX10 1680{jXSX:EK(A(X),B(X))EK(A(KN1),B(KN1)):A(X)A(KN1):B(X)B(KN1) {rKNKN19{G(X1,Y1)G(X1,Y1)30A{ XI{ Ym{ R50 " ** YOU MISSED !"w{ 400{:: " *** ENTERPRISE DATA BASE SYSTEM ***"{N: " -- SHIP STATUS UPDATE --"{X: " REMAINING KLINGONS :";KN|b: " REMAINING STARDATES:";D05|l: " REMAINING STARBASES:";BNY|v: " REMAINING MISSILES :";M0||: " REMAINING ENERGY :";E0| 400| "+---------+---------+---------+":| "! ! ! !":|X5X2:Y5Y2|MP(X5,Y5)1} 2060 }C$(K2)(B2)(S2)%}8} K20:B20:S20P} G(X5,Y5)0 2150`}SAG(X5,Y5)z}  G(X5,Y5)15 2100}*G(X5,Y5)G(X5,Y5)30:K2K21: 2080}4 G(X5,Y5)5 2120}>G(X5,Y5)G(X5,Y5)10:B2B21: 2100}H G(X5,Y5)0 2140#~RG(X5,Y5)G(X5,Y5)1:S2S21: 21203~\G(X5,Y5)SA9~fU~XRX1:X1X1X6:QXQXX7q~YRY1:Y1Y1Y6:QYQYY7~ QX8 2260~ QX0 2280~ QY8 2270~ QY0 2290~ X10 X17 Y10 Y17 3000~~QXQX8:X1X11:QYQY8:Y1Y11:*QXQX8:X1X11:@QYQY8:Y1Y11:Z XX0 N11 : N10lC10:XX(XX)z X1 8 XXXX8 XX0 2360$ C1C11. 23708 XXXX8B XX8 2390L XV XX8 D0D01W D0D0C1: N11 2420` X6C1:X7XXj (t C1C13~ XXXX9 S YY0 N21 : N20e C10:YY(YY)s Y1 8 YYYY8 YY0 2570 C1C11 2580 YYYY8Ȁ YY8 2600Ѐ Y( YY8 D0D01) D0D0C1: N21 26302 Y6C1:Y7YY< !F C1C1,P YYYY2Z S : "OUT OF GALAXY": 3720:{ " --- OUR PRESENT LOCATION ---" " QUADRANT:";X1;",";Y1; " SECTOR :";QX;","QYȁ MP(X1,Y1)1΁ E0E0(XX)(YY)$ E00 3700 . D00 37108/t "OUT OF ENERGY": 3720:]~ "SPENT TOO MANY DAYS IN SPACE": 3720:: "THERE ARE ONLY";KN;"KLINGONS REMAIN": Q$(QX,QY)"+O+" 3850ǂ Q$(QX,QY)" * " 3860 Q$(QX,QY)">=<" 3870  "COLLISION WITH A KLINGON !":KNKN1: 3720:G "COLLISION WITH A STAR !": 3720:t "COLLISION WITH A STARBASE !": 3720: QX10 Q$(QX1,QY)">=<" 4020ʃ QX17 Q$(QX1,QY)">=<" 4020 QY10 Q$(QX,QY1)">=<" 4020  QY17 Q$(QX,QY1)">=<" 4020&@: " -- DOCKED --"PE0450:M03qBNBN1:G(X1,Y1)G(X1,Y1)10w "NOTHING TO SHOOT AT !": 400h: "NO MORE MISSILE.": 400ڄ "INVALID INPUT !": 4000: X1 8: @ 464, " ** ** BOOM ** **";: K1 50:[2 @464, " ": K1 50: K,X4 @ 464, " ** ** BOOM ** **":: "MISSION ACCOMPLISHED."ƅ: "YOU DID A GREAT JOB !":SX10: 1441: SX10 400XSX: 1310: "( KLINGON'S ENERGY USED UP. )": 400K: "STAR SHIP ENTERPRISE LOG RECORD.":V 5140i Y7 0 1v Y;"!"; X0 7 MP(X,Y)0 5100X5X:Y5Y: 2060: 2040Ȇ X74)C$;І Xކ 59)"!" Y  51402  " 0 1 2 3 4 5 6 7"=  3500G  400 " +------+------+------+------+------+------+------+------+"Çp: " * SPACE SHIP OPERATION INSTRUCTIONS:"z " RADAR PATTERNS :-" " SPACE SHIP KLINGON STAR BASE STAR"Q " <*> +O+ >=< *"n " COMMANDS :-" " 0. MOVE THE SPACE SHIP." " 1. SHORT RANGE SCAN."ӈ " 2. LONG RANGE SCAN." " 3. SHOOT A KLINGON WITH LASER BEAM."2 " 4. SHOOT A KLINGON WITH A MISSILE."\ " 5. SPACE SHIP CURRENT STATUS." " 6. SPACE SHIP TRAVEL RECORD." " 7. SPACE SHIP OPERATION INSTRUCTIONS." "SHIP MOTION: X - AXIS CONTROLS HORIZONTAL MOTION."/ " Y - AXIS CONTROLS VERTICAL MOTION."9 400