' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(D  Ӳ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`7000  :Y:X:"#":&"3,A1110Q6A(A1,1)XA(A1,2)YC118(A(A1,1)X)2(A(A1,2)Y)2ĭA(A1,3)0A(A1,3)1:V1A1:A(A1,5)1I11@A17200"YOU ARE ORBITTING STAR ";V1A112000:A1:"TAKING ON ";A(V1,A1110"A(A1,1):A(A1,2):"*"*A10:7000@S:Y:X:" ":YZcd7300unK1193Y11xK1218Y11K1136X11K1149X11XXX1:YYY1X0X1X40X39Y0Y1Y21Y20FF10BA(A1,1)((1)39)13LA(A1,2)((1)20)1JVA(A1,4)((1)20)R`A1jjA(((1)10)1,5)1rtX1~Y1:F15X10:Y10C10V10I10:A1120" "A1""5590A1(A$)3(A$)L3(A$)L45590=3600G5500M[pL11:L23tzM$(1)"INSTRUCTIONS"M$(2)"GAME"M$(3)"EXIT"T113X1110:Y1110A(X1,Y1)0Y1:X1.8A111XY:X(1):A1:A1111 X(H(A,1)):1600:A:A# WUGCCQ8:X1:Y10:1600:"YOU ARE THE WINNER!":A13000:AD UGCCQ:X1:Y10:1600:"YOU LOSE":A125:X1:Y1:1600:2000:Av  A19:X(H(A,1)):Y(H(A,2)):1600:" " S113220 1800:H(A,1)H(A,1)RA1:(H(A,1))W1GA:S1 W Y1H3100 b 3300:3400* d A110:A4 l 3150: v \ X1:Y2:1600:"TANK ";C;" "x Y4:1600:K;" HITS "~ XX2:YY2:O1:2400:1600:" ":O0:2400 > H XX1:YY1:1600:"0" XX1:YY1:1600:" ":XX2:YY2:1600:" "LE 1-90 ";:2300:1600:" "Q D A((Q$)):A1A903130q H X5(A58)1.2:Y5(A58)3{ N 3500 X X4X4X5:X1(X4):Y5Y5.1:Y4Y4Y5:Y1(Y4) Z X1WX1W \ Y11Y11 ^ Y1HY1H _ X1X2Y1Y2KK1:2000:3100 `1:1600:2000:A 11:X1W3180' D XX1:YY1:1600:"*"M N Y1H5ĭX114X115BS11:3190W b 3100y l BB1:X14B:YH5:1600:"0" n X11:Y1H5 o 2000 p X2:Y2:1600:"SCORE = ";B1 t 3100 v X5:Y5:1600:"LOSE LOSE LOSE LOSE" A125:X1:YA$(A128) 2 16368,0 ' A$- C 1500:X11:Y1H5c X1W:YY11:1600:"-":X B1:X15:YY1:1600:"0" X1:1600:"*"   XX1:YY1:1600:" " $ Y1H5Y1Y11:3120 & 2600:A$""İ1800:Y1Y1(RA(H9)) 0 X1XOU ARE THE *, WHEN YOU GET NEAR TO THE"T "FIRST BARREL, PRESS ANY KEY AND THE *"u "WILL JUMP, SOMTIMES HIGH!" "THE JUMP GETS LONGER TILL YOU FAIL."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  ( A(16384):A$"":A127İ1900 M$  RA(1)% b: lM$(A$,S,FS1)@ I ""O *W Q$] V h ` O0ĝs j O1Ğy 1500:O1:2400 "BARREL JUMP BY U.T.S." O0:2400 :"INSTRUCTIONS": "JUMP AS MANY BARRELS AS YOU CAN."' "Y d1000n2500%xA$"Q"900/300093100C,3200L100`1500:O1:2400}"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6@X:Y A$S$:S1:FZ:     + ( A(16384):A$"":A127A$(A128)9 2 16368,0? G A$M W 1500o X9(W2):Y9(H2)} X11:Y1H X41:Y4H   1800:X2(RAX9)X9:Y2H  3000 & 3200:CC1:C113190 0 3300 2 34003 : X1:Y8:1600:"ANGS":* "THIS GAME IS VERY HARD TO WIN."V "YOU MUST TRY TO HIT THE TANK ON THE " "RIGHT, WITH THE ROCKET LAUNCHED FROM" "THE LEFT." "YOU ENTER THE ANGLE, 0 TO 90 DEGREES."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700   6 @X:Y 7 A$S$:S1:FZ:1900? M$E Q RA(1)W bl lM$(A$,S,FS1)r { "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "ROCKET LAUNCH BY U.T.S." O0:2400 :"INSTRUCTION d1000n2500%xA$"Q"900/300093100i,X1:YH3:1600:"END OF GAME":A14000:Ar1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0C1:K0xS$" " 00:A  "100 v + A$T$(N1):S1:FD:1900:B$M$] C$"":DW1A$S$:S1:FW(D1):1900:C$M$r T$(N1)B$"#"C$x  X1:Y1:1600:" WELL DONE YOU ARE FREE " A13000:A> H X1:Y1:1600:" YOU ARE LOST! "R A125:X2:Y2:1600:20110 A$"Z"Y1L2Y1Y11:N 1600:" ":A$"S"3153DP 3100XQ L1Y11:L2Y11R A$T$(Y1):SX11:FX11:1900:M$" "3190S L10Y11T L221L220V Y120:XX1:SX1:A$T$(Y):FX1:1900:1600:M$:Y:X1X11:X1W1S11:3190b 3800:RA.1A20N1A1:3200: RA.9A1N1A1:3200D A:DN 1500 Y120:X1:S1:F1:A$T$(Y):1900:1600:M$:XW1:SW1:FW:1900:1600:M$ Y X12:Y11 L11:L220  XX1:YY1:1600:"*"& 2600:A$"Q"Y1L1Y1YM$:A120:T$(A)C$:AT A120:1800:RA.2A$T$(A):S2:FW:1900:T$(A)"#"M$ A:D1W1:A120:FD:SD:A$T$(A):1900:M$" "3070 1800:RA.02RA.299ĭA1N1A1:3200 RA.298RA.7N1A:3200 RA.7A20N1A1:3200 1NEL SYSTEM."/  "ANY KEY TO PLAY, Q TO EXIT"H  X1:Y22:1600:2700N  w ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:"WE ARE DIGGING OUR WAY OUT, BUT YOU":"MUST WAIT FOR A MINUTE!" A$S$:S1:FW:1900:C$A #."2 "YOU WILL FAIL IF YOU PRESS S WHEN THE"O "* IS NOT NEXT TO A #."z "ONCE YOU HAVE STARTED, YOU MAY ONLY" "MOVE UP OR DOWN ONE SQUARE, IF YOU COME" "TO A DEAD END: BAD LUCK!!" "YOU WIN IF YOU REACH THE END OF THE " "TUN "YOUR POSITION IS SHOWN WITH A *. AT THE"X "BEGINING OF THE GAME YOU MAY CHOOSE" "THE TUNNEL YOU WISH TO FOLLOW BY MOVING" "THE STAR: Q=UP Z=DOWN. PRESS S TO" "SEE THE NEXT PART OF THE CAVE." "PASSABLE TUNNELS ARE SHOWN WITH  6 @X:Y 1 A$S$:S1:FZ:19009 M$? K RA(1)Q bf lM$(A$,S,FS1)l u ""{ * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "TUNNEL ESCAPE BY U.T.S." O0:2400 :"INSTRUCTIONS":-  T$(20)d1000!n25001xA$"Q"900;3000E3100Z,S11İ3300:100o6S10İ3400:100x1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "      10  V  X1:YH:1600:M$:1600:"BET HOW MUCH ";:2300:Q((Q$)):Q1QC3100 & 1600:M$:1600:"ON WHICH HORSE, 1-9 ";:2300:U((Q$)):U1U93110 ( X1:YH1:1600:M$ * YH:1600:Q;" POUNDS ON HORSE NO. ";U 0 3200:S103120>: X1X114 " O1:2400:XX1:YY1:1600:" ":O0:2400: J s 1500:O1:2400:XW1:Y1H:1600:" ":Y:O0:2400 A19:H(A,1)1:H(A,2)A21:A A19:XH(A,1):YH(A,2):1600:A:A X1:YH1:1600:"FUNDS = ";C A$S$:S1:FW:1900 SY KEY TO PLAY, Q TO EXIT"3  X1:Y22:1600:27009  b ( A(16384):A$"":A127A$(A128)p 2 16368,0v ~ A$ XX1:YY1:1600:" " 2600:A$"Q"Y11Y1Y11  A$"Z"Y1HY1Y11  A$"I"X11X1X11  A$"P"X1WS. YOU START WITH 50"B "POUNDS, AND YOU CAN BET AS MUCH OF IT"q "AS YOU LIKE ON ANY HORSE. THEN THE RACE" "IS RUN. IF YOU WIN YOU GET ODDS OF 8-1" "IF YOU LOSE THEN YOU LOSE YOUR BET." "SEE HOW LONG YOU CAN KEEP YOUR MONEY!"  "AN  A$S$:S1:FZ:1900& M$, 8 RA(1)> bS lM$(A$,S,FS1)Y b ""h *p Q$v V ` O0ĝ j O1Ğ 1500:O1:2400 "DERBY DASH BY U.T.S." O0:2400 :"INSTRUCTIONS": "THERE ARE 9 HORSE% H(10,2)d1000"n25002xA$"Q"900<3000F3100S,C0100\200p1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0C50xS$" "6 @X:Y O1:2400:XX1:YY1:1600:" ":O0:24001YX1:Y6:1600:K;" CHARGES LEFT "|Y8:1600:"SUBMARINE ";C;" "$Y10:1600:J;" HITS "j W3210D<P13:34P:10:" ":N(P)03920yF34P:2:"ROW ";P;" ";:G1N(P):"*";:G:PPZ1:4:"YOU ";J1:1:23:"ME ";I1 ; N1N1X3750"N1N1X)C\21:"MY MOVE ";N1;" FROM ROW ";P:A12500:A21:" "N(P)N(P)N1N(1)N(2)N(3)03850I1I11:1900:11:13:"I WIN":A12500:A:100 3900(2(X2) C/ S(1)S(2)S(3)S(4)03615: P13K N(P)03590a N1(N(P)(0)1)k 3770r P} C14 .S(C)03650 8C BP13 LB(P,C)13680 VP `N10 jCC4 tS(C)03750 ~X2(4C)B(P,C)03740 " N(P)N(P)N1: N(1)N(2)N(3)0İ3900:3370m 1900:11:13:"YOU WIN":J1J11:P122500:Pv  100 * P13 > XN(P) H C411 R Y(X2) \ B(P,C)X2Y f XY p C z P C14 XB(1,C)B(2,C)B(3,C) S(C)X 21:"WHICH ROW?"( 2200:K$""3220D K(K$):K49K513210 P(K$):21:" " 21:"ROW ";P;" HOW MANY ?" N1:N11N1N(P)3210 22:" " 21:" "G$"Q"1600  % ""< :"END OF GAME":B d K(16384):G$"":K1281890t G$(K128) b16368,0: l  "" * 41900  1800:K$G$  : 1900 D P13:N(P)(10(1))6:P v 3900 "THERE ARE THREE ROWS OF STARS."F "YOU MAY TAKE ANY NUMBER OF"e "STARS FROM ANY ONE ROW." "THE PLAYER TO TAKE THE LAST" "STAR, OR STARS, WINS THE GAME." ,1600 6 @20:"GAME OR QUIT" J"ENTER G OR Q" T1800 hG$"GZN(3),B(3,4),S(4)!d1000+n1500;pG$"Q"980Dr130Nx1600X2100b3130l1700rB1:2000R0:X240:Y160:Y10$S1300:F12000:R115000"NIM BY U.T.S.":"INSTRUCTIONS"$     600:"0"] D Y2Y3ĭX3X21X3X23CC1:3500:3300:XX3:YY3:1600:" ":JJ1:2000:3100g N 3110m v XX2:YY2:1600:O1:2400:" ":O0:2400 XX2:YY2:1600:" " > H O1:2400 R XX1:YY1:1600:"###":O0:2400 +Y34  3600# C11C10:3190B $ 1800:A1(RA2000)1:AL % 3400g & 3200:A150:A:3300 * XX3:YY3:1600:" " 0 X2X21:X2W2CC1:3500:3100 : 2600:A$""Y34KK1:Y35 @ Y34Y3Y31:Y3HY3H B Y34XX11:YY3:16384):A$"":A127A$(A128), 2 16368,02 : A$@ 1500:A$S$:S1:FW:1900:B$M$:A13:O1:2400:X1:YA:1600:B$:A O0:2400 X9(W2):Y9(H2) C1:K10   1800:X1(RA(X92))X91:Y13:X21:Y2H1  X3X11:+ "THE SHIP IS AT THE TOP OF THE SCREEN"@ "SHOWN BY ###."c "SUBMARINES MOVE UNDERNEATH." "RELEASE DEPTH CHARGE BY PRESSING ANY" "KEY. POINTS FOR HITTING SUB."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700   ( A(1  6 @X:Y 5 A$S$:S1:FZ:1900= M$C O RA(1)U bj lM$(A$,S,FS1)p y "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "SUBMARINES BY U.T.S." O0:2400 :"INSTRUCTIONS": d1000n2500%xA$"Q"900/300093100C"3600s,X1:YH1:1600:"END OF GAME":A13000:A|1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" " OU WIN":2000:A E X3:Y3:1600:"SORRY YOU LOSE THIS TIME!"j A120:X10:Y10:1600:2000:Ap> AV XX1:YY1:1600:" "9X 2600:A$"Q"Y11Y1Y11SZ A$"Z"Y1HY1Y11m\ A$"I"X11X1X11^ A$"P"X1WX1X11` XX1:YY1:1600:"*"b A110:S(A,1)XS(A,2)YS21d Av  A1100:X3:Y3:1600:"YOU WIN YOU WIN Y-  S30:A110:XG(A,1):YG(A,2):X031506 S31 & X5(X1X):Y5(Y1Y):1600:" ":XXX5:YYY5:G(A,1)X:G(A,2)Y:B110:XS(B,1)YS(B,2)G(A,1)0:2000:S11 0 B:S11S10:3150 : XX1YY1S21 D O1:2400:1600:"G":O0:2400N AAW)1:1800:Y(RAH)1:1600:"G":G(A,1)X:G(A,2)Y:1800:X(RAW)1:1800:Y(RAH)1:1600:"S":S(A,1)X:S(A,2)Y:A:O0:2400 1800:X1(RAW)1:1800:Y1(RAH)1:XX1:YY1:1600:"*" A110:S(A,1)X1S(A,2)Y1S21 A:S213000  HIDE BEHIND SPONGS!"B "YOU ARE * Q=UP Z=DOWN I=LEFT P=RIGHT."e  "ANY KEY TO PLAY, Q TO EXIT"~  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:S20 O1:2400:A110:1800:X(RNS":2 "YOU ARE TRAPPED IN A FORCE FIELD WITH"S "10 SPONGS AND 10 GULPERS!"~ "GULPERS CAN MOVE, BUT SPONGS CAN'T." "GULPERS CAN EAT YOU, SPONGS CAN EAT YOU" "AND GULPERS." "THIS GAME IS VIRTUALLY IMPOSSIBLE TO" "WIN. TRY TO    6 @X:Y" : A$S$:S1:FZ:1900B M$H T RA(1)Z bo lM$(A$,S,FS1)u ~ "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "FORCE FIELD BY U.T.S." O0:2400 :"INSTRUCTIOr G(10,2),S(10,2) d1000*n2500:xA$"Q"900D3000N3100c,S21İ3300:100x6S30İ3200:1002101500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0 xS$" "     A)3190 N A P 1500" l 3100( v G 1500:"WIN WIN WIN WIN":i "YOU HAVE A PERFECT MEMORY!"z A12500:A 1500:"LOSE LOSE LOSE LOSE"  A125:X5:Y5:1600:2000:A > W)(RA9)1:A  /  CC1:C51S11:3190m & A1C:X2:Y10:1600:"NUMBER ";A;" IN SEQUENCE:";" " 0 X10:Y14:1600:N(A):B11000:B:1600:" ":A : A1C:1500:X1:Y1:1600:"WHAT WAS NUMBER ";A;" ";:2300 D N((Q$)):NN(ELL THE COMPUTER WHAT"C "THE NUMBERS WERE. SEE HOW FAR YOU CAN"O "GET."r  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:C0 A150:1800:N(AOUR MEMORY? TRY TO": "REMEMBER A SEQUENCE OF NUMBERS."i "10 IS FAIR, 20 IS GOOD, 30 IS VERY GOOD" "40 IS UNUSUAL, 50 IS BRILLIANT!" "YOU WILL BE ASKED TO REMEMBER A SET OF" "NUMBERS THAT WILL SLOWLY GET LONGER," "THEN YOU MUST T @X:Y & A$S$:S1:FZ:1900. M$4 @ RA(1)F b[ lM$(A$,S,FS1)a j ""p *x Q$~ V ` O0ĝ j O1Ğ 1500:O1:2400 "GHOSTS BY U.T.S." O0:2400 :"INSTRUCTIONS": "HOW GOOD IS Y  N(50)d1000 n25000xA$"Q"900:3000D3100T,S11İ3200d6S10İ3300m1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6r X2:YH3:1600:" ":1600:"SCORE = ";TTJv  X2:Y2:1600:S11ĺ"YOU CRASHED INTO THE COMPUTER!" S12ĺ"TUT TUT! OVERTAKING ON THE INSIDE!" A120:X4:Y4:1600:2000:A A12500:A B"Q"Y1Y92% 8 1800:RA.05Y2Y929 9 RA.95Y2Y92K : X50TTTT1] < X51TTTT1u D X2X2X5:X21X2W b O1:2400:XX1:YY1:1600:"Y":XX2:YY2:1600:"C":O0:2400 l X1X2Y1Y2S11 n X1X2Y2Y1S12 p X1X2Y1Y2TTTT10DW:1600:"-":X:Y! O1:2400l Y1Y92:X110:Y2Y92:X2W2:XX1:YY1:1600:"Y":XX2:YY2:1600:"C"z O0:2400 X51   2600 & XX1:YY1:1600:" ":XX2:YY2:1600:" " 0 A$"I"X50 2 A$"P"X51 4 A$"Z"Y1Y92 6 A$INTS FOR GOING FAST, LOSE POINTS"8 "FOR GOING SLOW."[  "ANY KEY TO PLAY, Q TO EXIT"t  X1:Y22:1600:2700z  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ TT0:1500 X9(W2):Y9(H2):YY94Y944:X1OU ARE"0 "THE CAR Y, THE COMPUTER IS CAR C."T "THE TOP LANE IS INSIDE LANE." "10 POINTS FOR OVERTAKING IN THE OUTSIDE" "LANE. Q MOVES CAR TO INSIDE LANE, Z " "MOVES CAR TO OUTSIDE LANE." "I=SLOW DOWN P=SPEED UP."! "MORE POS$:S1:FZ:1900 M$ * RA(1)0 bE lM$(A$,S,FS1)K T ""Z *b Q$h V s ` O0ĝ~ j O1Ğ 1500:O1:2400 "MOTORWAY BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOU ARE ON A TWO LANE MOTORWAY. Y d1000n2500%xA$"Q"900/300093100N,S10İ3200:100W210k1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6@X:Y A$     A1*P 31 GOSUB8ZA1L1L2QdT1)A1;" = ";M$(A1)YnA1_o 32 GOSUBN$"-+*# "M$(A1)" #*+-"| 34 GOSUB290020T17T1)"PRESS 'RETURN' ONLY TO EXIT"10"";A$A$4814$ZZ04940#.ZZ14960,8ZZ06B4630?LZZ1IV4630R`ZZ2\j4630bth~x 29 GOSUBA2(A$)A205090A11A2A3((A$,A1,1))A364A391ĞA397A3122ĺ(A3);A396A3123ĺ(A332);122ĺZ$;pA$A$Z$z+ZZ1ZZ054630G(A$)14830Y(36)04790c4812k40v(37)" ";40(37)A$(A$,(A$)1)4630A$(A$,(A$)1)(36)" ";(36)4630A$""  28 GOSUB A$"" Z$: (Z$)8(A$)04610L *(Z$)84760_ 4(Z$)134980r >(Z$)274900 HZZ04700 R(Z$)64(Z$)91Z$((Z$)32) \ZZ0Ğ ^ZA(Z$) _ZA65ZA90ĝ `ZA96ZA123ĺ(ZA32); fZA97ZA A1(A$) S10" A10S11( 9  18 GOSUBX N1$"### OUT OF RANGE ###"b .4200l 04500v 83000| j < 21 GOSUB F3400 PS11İ3500  h 24 GOSUB rN2$N$ |N$N1$ 2900 N$N2$  ""  RETURN";A$   (  13 GOSUBO & N$"ACTIVATING DISK DRIVE: "(D9)X 0 T15b : 2900h v x 14 GOSUB N$"TURN ON YOUR PRINTER NOW" T18 2900 3000 H 16 GOSUB R 3100 \ 2000 f 2100 p A$ z 2300 5D16ĺ10)"0 0"'&'10010,: Y5:2700) 20:8:"BUCKETS SO FAR ";W1/ 5 G C12003090\ C10:W1W53090 F1F11:F1:1::"#######################################"  W5W1: B1:X539X5390 Y55Y510ĭX54X510S11R Y55Y510ĭX522X528S11c F1Y5S12 X59X523ĭY54Y511S11 X516Y516S11 X523X527ĭY55Y510ĭS21W1W11:C94:S20 X55X59ĭY55Y510C92:S21 XX5:Y:2700  Y:X:' C92ĺ"X"6 C93ĺ" "< B Q Y:X:" "m 7 X514X518ĭY57S11s J } T 2800 V C1C11 ^ 1800:G$"Q"Y5Y51:Y51Y51 h G$"Z"Y5Y51:Y521Y521 r G$"I"X5X51:X51X51| G$"P"X5X5G$(K128) b16368,0:! l' 3 ""9 *C 41900I X ( C96:1900} 2 Y821:X14:2700:X18:2700:Y < Y115:X16:2700:Y F X52318:Y5105:Y:X::" "::Y:X P Y510:X9:2700:X23:2700:Y x XX5:YY5:C92HT") "YOU LOSE BY BEING BURNED OR BY"E "RUNNING INTO A WALL."O ,1600U 6m @20:"GAME OR QUIT" J"ENTER G OR Q" T1800 hG$"G"G$"Q"1600   "" :"END OF GAME":  K(16384):G$"":K1281890  "YOU MUST GO TO THE ROOM ON THE "K "RIGHT TO GET WATER, TO PUT OUT"n "THE FIRE IN THE ROOM ON THE"{ "LEFT." "EACH TIME YOU FILL THE BUCKET," "YOUR SCORE INCREASES." "YOU WIN WITH 10 BUCKETS." "Q=UP Z=DOWN I=LEFT P=RIG OUT THE FIRE!":A12500:A:100+ ,30004 210> 1700D R B1:2000f R0:X240:Y160v H124:W132 S10:X510:Y514 F122 C10 $W10 .S21 8W50  1900 "INFERNO BY U.T.S.": "INSTRUCTIONS" % d1000n1500%pG$"Q"980.r1308x1600B2100L2600V2900S11İ1900:11:6:"YOU RAN INTO A WALL!":A12500:A:100S12İ1900:11:6:"YOU HAVE BEEN BURNED!":A12500:A:100! W110İ1900:11:6:"YOU HAVE PUT     D"15000 L'WW1+ V'D1((W)5.999991)N `'D14D15D16ĺ10)"0 0"Z j'D11ĺr t'D12D13ĺ10)"0"x ~' 'D11D13D15ĺ10)" 0" 'D12D14ĺ 'D16ĺ10)"0 0" ' 'D11ĺ 'D12D13ĺ10)" 0"'D14D1."+ 0"WHEN THE GAME IS OVER - TYPE END."5 24000; <O  PAUSING GOSUBU  "PAUSING. PRESS RETURN TO CONTINUE:" 1200  ' PROGRAM PROPER SECTION. ' $'"PRESS RETURN TO THROW DIE. END TO EXIT." .' 8'1200 B'A$"EN)"DIE THROWER INSTRUCTIONS."A 10)"========================="K 1600 "ANY GAME THAT REQUIRES THE THROWING OF A SINGLE DIE" "CAN BE ASSISTED BY THIS PROGRAM." "SIMPLY KEEP PRESSING RETURN EACH TIME YOU WANT A NEW &"THROW OF THE DIEER YES OR NO. RE-INPUT:" * 14003 A31= 1590F A30L 6j @ QUATER PAGE CLEAR GOSUBv JA114| T ^A1 h  INSTRUCTIONS GOSUB  "WOULD YOU LIKE INSTRUCTIONS ?"  1400 A303900 1600 10A$  ,  A$ AS A NUMERAL GOSUB6 1200C (A3(A$)Z 2A$"0"A301390` < F"NUMBERS ONLY PLEASE. RE-INPUT:" P Z1300 n x A$ AS AN ANSWER GOSUB 1200 A$"YES"1490 A$"NO"1510  "PLEASE ANSW.)( HEADING AND INSTRUCTIONS SECTION.321600K<10)"DIE THROWER."cF10)"============"mP1600wZ1700d CONTROL SECTION.n1010x10000 GOSUB SECTION. INITIALISE GOSUB A$ AS A STRING GOSUB      )A1)<)"KLINGON FIRING **##==--$$^^^ THE END!!"^)"YOU HAVE BEEN DESTROYED!!!"d)j: A1:1600:TTTT1:"TIME = ";TTLP :X2:Y2:1600:"SUCCESSFUL MISSIONS = ";JkX X(X1):Y(Y1):1600:"+"b XX9YY9S12v WX3X9X1:Y3Y9Y1:ZX32Y32:X2X25X3Z:Y2Y25Y3ZM 0 X1X1X2:Y1Y1Y2a : X11X11:S11u < X1WX1W:S11 > Y11Y11:S11 @ Y1HY1H:S11 D 2600:A$"Q"Y2Y21 F A$"Z"Y2Y21 H A$"I"X2X21 J A$"P"X2X21N X2:YH127A$(A128) 2 16368,0$ , A$2 < 1500E TT0r X9(W2):Y9(H2):XX9:YY9:1600:"0" X20:Y20:1800:X1(WRA)1:1800:Y1(RAH)1:X1W3X12W3ĭY9H3Y12H33020 XX1:YY1:1600:"+"   1600:" "7 & S TO THE"3 "CRAFTS SPEED BY PRESSING THE KEYS:"Y "I=LEFT P=RIGHT Q=UP Z=DOWN." "FAILURE IF YOU HIT PLANET, FAILURE IF" "YOU GO OFF THE SCANNER."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700   ( A(16384):A$"":AORBITTER BY U.T.S."! O0:24009 :"INSTRUCTIONS":e "SEE HOW MANY SUCCESSFUL MISSIONS YOU" "CAN MAKE. YOU ARE + THE PLANET IS 0" "YOU MUST ORBIT FOR 30 TIME UNITS FOR A" "SUCCESSFUL MISSION." "YOU CAN MAKE SLIGHT ADJUSTMENT0:J07 xS$" "= C I 6S @X:YY q A$S$:S1:FZ:1900y M$  RA(1) b lM$(A$,S,FS1)  "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 " d1000n2500%xA$"Q"900/300093100g,S10āA120:X1:Y1:1600:2000:A:1006TT30JJ1:XX95:YY9:1600:"MISSION SUCCESS":A12500:A:2002101500:O1:2400"END OF GAME":O0:2400 W39:H23:S1  Z3((R.5)Z2)4' PROGRAM PROPER SECTION.>B'4400HL'4300Rt'4500`~'L6(A3)j'5000t<(5300~n(5400(5600)S1010100)S1114990)h)A1110r)A2160|)4200)R.5ĺ"#";)R.5ĺ" ";)A2)ING'"WHAT CHANGE CAPTAIN: X,Y,Z ?"5L$,M$,N$;HX2(L$)UY2(M$)bZ2(N$)rX1X1(X2) Y1Y1(Y2)Z1Z1(Z2)2Z9Z91<Z91S12F4200PX3X3((R.5)X2)U4200ZY3Y3((R.5)Y2)d4200nZ3NGON FIRING #* DAMAGE REPORT:"-A112505A1;E4200nR.5ĺ"ENERGY LOSS = ";(R1000)10x4200R.5ĺ15)"IMPULSE ENGINES ONLY"T0ĺ15)"WARP POWER REDUCED TO ";Z9TZ9Z9T$Z91S128Z916890 WARP **"F712000F7!+4200?X1X1(R.5)W8LX1(X1)V4200jY1Y1(R.5)W8wY1(Y1)4200 Z1Z1(R.5)W8Z1(Z1)f6450p CAN KLINGON FIREz4200R.563004200T(R4)"*# KLI>Z9Z9(A380)&DR175A305800,NVX"WELL DONE. KLINGON SHIP DESTROYED."_bS11elov4200"LAYING IN COURSE FOR STARBASE ";(R30)6890"** KLINGON SHIP NOT DESTROYED **""** TAKING EVASIVE ACTION4200P1R1205 WARP AND PHASERS GOSUBED106000UD2196000dD376000"********** PHASERS LOCKED ON **********""WHAT POWER ?"&13000A3056602A3100ĺ"TOO HIGH. RE-INPUT:"4A31005660:4200P1)"*";4900(A1#24800-<46003F9X PRINT ENT POSITION GOSUB"ENTERPRISE: X =";X1;" Y =";Y1;" Z =";Z1 PRINT KLINGON POSITION GOSUB""KLINGON: X =";X3;" Y =";Y3;" Z =";Z3r| STAR OR NOT GOSUB!$ CLOSE AND OPEN GOSUB+.4800584700;~S VISUAL SCAN GOSUBYc4600m4700zA1115D105140D2195140Q1(Z1Z38)A1Q1ĺY3Y119)"##";A1Q1515051405500P11P138ĺb4200lZ1((R.5)W9)!< ENT TO KLINGON GOSUBOD1((X1X3))bD2((Y1Y3))uD3((Z1Z3)){ BAR GOSUB"#######################################"R\ OPEN GOSUBf"#"; CLOSE GOSUB39)"#"S OUT"* Z1001Z100ĺ"NOT VERY CLOSE"L Z101Z10ĺ"GETTING CLOSER"m Z11Z1ĺ"PRETTY DAM GOOD" Z1ĺ"YOU ARE INCREDIBLE!" A120:X1:Y1:1600:2000:A W36003130 ( K0o 0 ZY1H1:XX1:YZ:1600:" ":YZ1:1600:O1:2400:" ":O0:2400:Z:X1X11:X103180 : X1:Y2:1600:"TEMPERATURE = ";C:X19:1600:"TIME = ";B N 3100 l v 1500 Y11:X5:1600 Z(BL) Z1000ĺ"MILE8 1500:O1:2400:X120:Y5:1600:" ":X:O0:2400S 1800:C(RA60)1:B0a QRA601 X1:YH1:1600:"TEMPERATURE=";C;" HOW LONG ";:2300:1600:A$S$:S1:FW:1900:M$:L((Q$)):L13072  X120:Y15   KKQ2 BB1 & K"PIECE OF ICE. YOU MUST GUESS HOW LONG"D "IT WILL TAKE TO MELT."s "THERE IS A RULE, SEE IF YOU CAN SPOT IT"  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1900 M$  RA(1)% b: lM$(A$,S,FS1)@ I ""O *W Q$] V h ` O0ĝs j O1Ğy 1500:O1:2400 "THIN ICE BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOU ARE TOLD THE TEMPERATURE AROUND A"'  d1000n2500%xA$"Q"900/300093100C3200L100`1500:O1:2400}"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6@X:Y A$S$:S1:FZ:  h RANDOM NUMBER GOSUB'|R(1)-I INITIAL KLINGON GOSUBS4200gX3((R.5)W9)q4200Y3((R.5)W9)4200Z3((R.5)W9)&0 INITIAL ENT GOSUB:4200DX1((R.5)W9)N4200XY1((R.5)W9)T BE DESTROYED.">"KLINGONS CAN FIRE ANYTIME SO LOOK OUT!"O"GOOD LUCK"Y24000_<s PAUSING GOSUBy"PAUSING. PRESS RETURN TO CONTINUE:"1200 ANOTHER GAME GOSUB"WOULD YOU LIKE ANOTHER GAME ?"1400^ORS, YOU MUST FIRST"B N"GET THE KLINGONS ON THE SCANNER. TO DO"m X"THIS: YOUR X CO-ORDINATE MUST MATCH" b"THEIRS, YOUR Y MUST BE LESS THAN 19" l"DIFFERENT AND YOUR Z WITHIN 7." "YOU MUST USE ENOUGH POWER WITH PHASORS,""OR THEY WON7M OF THIS GAME IS TO DESTROY"; "THE KLINGON SPACESHIP."h "KLINGONS ARE NOT STUPID! WHEN YOU TRY" &"TO TRACK THEM THROUGH SPACE, THEY WILL " 0"KEEP MOVING TO A NEW POSITION." :"HOWEVER, YOU HAVE THE BETTER SHIP. " D"TO FIRE YOUR PHAS QUATER PAGE CLEAR GOSUB& JA113, T4 ^A1: hS  INSTRUCTIONS GOSUBY ~ "WOULD YOU LIKE INSTRUCTIONS ?"  1400 A303900  5)"STARTREK-1 INSTRUCTIONS:" 5)"========================" 1600 "THE AIA301390 <7 F"NUMBERS ONLY PLEASE. RE-INPUT:"= PG Z1300M ni x A$ AS AN ANSWER GOSUBs 1200 A$"YES"1490 A$"NO"1510  "PLEASE ANSWER YES OR NO. RE-INPUT:"  1400 A31 1590 A30 6 @B W9100 W810 W715* Z9100 [ "PLEASE INPUT A NUMBER, ANY NUMBER ?"e $1300n .WA3w BS10 LR9(A3)   A$ AS A STRING GOSUB  A$    A$ AS A NUMERAL GOSUB 1200 (A3(A$) 2A$"0"l DIMENSIONS SECTION.C( HEADING AND INSTRUCTIONS SECTION.I2`<10)"STARTREK-1."wF10)"***********"P1600Z1700d CONTROL SECTION.n1010100004100A31100 GOSUB SECTION.  INITIALISE GOSU                 b O1:2400:XX1:YY1:1600:" ":XX2:YY2:1600:" ":O0:2400r d X8:Y2:1600:"MEN OUT = ";B;" SCORE = ";J f B103190 l 3100 v P 2600:A$"Q"Y2L1Y2Y216 0 A$"Z"Y2L2Y2Y21~ : 1800:Y9(H2)((.5RA)17):X15ĭY1Y2JJ1:X120:Y1Y9:3160 D X13ĭY1(H2)2Y1(H2)2BB1:Y1Y9:X120:3160 F X11X120:Y1Y9:3160 L X120X119:3160 N X1X12 X @  - ( A(16384):A$"":A127A$(A128); 2 16368,0A I A$O 1500:X2:Y(H2)1(H2)1:1600:"O":Y X24:Y2(H2):L1(H2)8:L2(H2)8 X120:Y1(H2) B0   XX2:YY2:1600:" "::XX1:YY1:1600:" " &TRUCTIONS":6 "YOU CONTROL THE BAT: Q=UP Z=DOWN."X "ONE RUN IF YOU HIT A BALL."{ "NO RUNS IF YOU MISS A BALL." "MAN OUT IF BALL HITS WICKET." "GAME OVER WHEN TEN MEN OUT."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700 "   6% @X:Y+ C A$S$:S1:FZ:1900K M$Q ] RA(1)c bx lM$(A$,S,FS1)~  "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "OLD BONES BY U.T.S." O0:2400 :"INS d1000n2500%xA$"Q"900/3000931001500:X16:Y10:1600:"ALL MEN OUT":A120:X1:Y1:1600:2000:A1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0 xS$"  113 23  T1)  3  " ENTER CHOICE";9 " C , 2600M 6 2700S J c T 11 GOSUBi V s ^ 2400y h r T1(41(N$))2 | T1)N$ 2400 12 GOSUB 23 T113 T1) " PRESS` 6 GOSUB t A x "U.T.S. U.T.S."G z M \ 7 GOSUBd A$q A1(A$)w  ( 8 GOSUB 2 A$ < A1(A$) 9 GOSUB S10 A1L1A1L22790 S11 3600 10 GOSUB TX1D(A,2)Y1D(A,3)0(P D(A,3)1S21@R A:S20S11:3190WX TTTT1:TT03190Z X(TT4)1:YH:1600:" ":1600:TT4(TT4)İ2000l 3100v  YH:X1W:1600:" ":X YH:X1(TT4):1600:O1:2400:" ":O0:2400:X W3200 S10  ,  XX1:YY1:1600:" "K & 2600:A$"Q"Y11Y1Y11f 0 A$"Z"Y1H2Y1Y11 2 A$"I"X11X1X11 4 A$"P"X1WX1X11 : O1:2400:XX1:YY1:1600:" ":O0:2400 D X1:YH1:1600:"SCORE = ";CN S20:A15:D(A,1)а1600:2700  : ( A(16384):A$"":A127A$(A128)H 2 16368,0N V A$\ 1500:X11:Y11:1800:TT(RA100)10 A15:1800:D(A,1)(RAW)1:1800:D(A,2)(RA(H2))1:D(A,3)1:A A15:XD(A,1):YD(A,2):1600:"*":A "DYNAMITE TO MAKE IT SAFE. TIME IS"Q "RUNNING OUT THOUGH, THE FUSE IS AT THE"~ "BOTTOM OF THE SCREEN. SCORE INCREASES" "EACH TIME YOU MAKE THE EXPLOSIVE SAFE!" "Q=UP Z=DOWN I=LEFT P=RIGHT."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22: ` O0ĝ j O1Ğ / 1500:O1:2400I "DYNAMITE BY U.T.S."W O0:2400o :"INSTRUCTIONS": "YOU MUST EXTINGUISH THE FUSES OF 5 LOTS" "OF DYNAMITE. YOU ARE THE WHITE SQUARE," "THE DYNAMITE IS SHOWN *. MOVE ONTO THE"# "END OF GAME":O0:2400 4 W39:H23:S10:J0< C0m xS$" "s y  6 @X:Y  A$S$:S1:FZ:1900 M$  RA(1) b lM$(A$,S,FS1)  "" * Q$ V  d1000n2500%xA$"Q"900/300093100,S11X10:Y10:1600:"THE DYNAMITE IS SAFE!":2000:A13000:A:CC1:2006S10O1:2400:X1W:2000:Y1H:1600:" ":Y:X:O0:24002600:26001001500:O1:2400         ###"G*"";H*X3I*:N*10)"MISSILE DESTROYED"WP*10)"#################"]R*T*"ENEMY HAS LAUNCHED ANOTHER MISSILE."X*A111500:A1b*10100: A0)"+++ DESTROYED +++")X3$)B)11)"YOUR SCORE = ";Z95H)p)5)"WOULD YOU LIKE ANOTHER GAME ?"z)20))1400)A3014990)1600*100000*Z9Z91:*T1100(Z95)D*E*X316:X41200F*X4:"### PHASERS FIRING10 <(5000n(M1M1A35((D1D1M15(T1T110;(A(G(M(S(\(L11e(L22k({)T1010700,)6)(D1)510800@)(D1)510192):"*$#+= DIRECT HIT ON YOUR SHIP =+#$*"))X316:X4150)X4)1ILE APPROACHING:-"'9'5)((D1)10)10;" TO ";D$?'g'"TIME TO IMPACT = ";T1;" SECONDS."m'("THE HELM AWAITS YOUR COMMAND." ("PORT IS NEGATIVE, STARBOARD IS POSITIVE"("MAXIMUM FACTOR IS 10 EACH WAY:"(((L2102(L1LE BEARING GOSUBDJ"MISSILE BEARING = ";((D1)10)10;" DEGREES"Jh' PROGRAM PROPER SECTION.s'T1100|$'Z90t'WW1~'D1((W).5)179'M10'D1010190'D$"STARBOARD"'10192'D$"PORT"''"SENSORS DETECT MISSF+-H+"YOU HAVE ALLREADY TRIED THAT ONE!"3K+>M+IND11FR+A1V\+CH$(A5)LE$\+h)"r)"SORRY BUT YOU HAVE BEEN"(|)8)"HANGED! ">)S)"THE WORD WAS:"Y)c)6200m)6730s** CHECK PREV ENTRIES GOSUB+IND10 +IND20*+A11404+LE$CH$(A1)IND2111075>+11090C+"BEGGING YOUR PARDON BUT")" " .'A1t'A1110'~'A21109'X$(A2,A1)" "A'A2I'A1O'r) SCAFFOLD PRINT CONTROL GOSUB )G11G210 )G12G210 )G13G26)G14G21)A11G2")T$,X,Y,)X$(X,Y)T$6)A1@)G11010990J)7016,"I",10,5,"I",10,4,"I",10,3,"I",10,2,"I",10,1Sx# "=",5,1,"=",6,1,"=",7,1,"=",8,1j# "=",9,1,"=",10,1# "!",6,2,"!",6,3# "O",6,4# "U",6,5# "(",5,5,")",7,5# "H",6,6' INITIALISE GOSUB'A1140$'GES$(A1)" ")'CH$(A1# "THIS IS YOUR LAST CHANCE TO ")*F4"TO BEAT THE HANGMAN!!"L@`(# SCAFFOLD DATA+# "-",10,10,"-",9,10,"-",8,10,"-",7,10,"-",6,10-# "-",5,10,"-",4,10,"-",3,10,"-",2,10,"-",1,102# "I",10,10,"I",10,9,"I",10,8,"I",10,7-7#"I",10,6OLD GOSUBb10500!hY1110.lX1110Bv10)X$(X1,Y1);JX1PXY1^h5400xG158000G197200G1108000"YOU CAN MAKE ONLY ";10G1;" INCORRECT""GUESSES BEFORE YOU ARE HANGED"8000U HAVE CHEATED "<""THE HANGMAN'S NOOSE THIS TIME "B,g6"AND GOT YOUR OPPONENT'S WORD."m@J"WOULD YOU LIKE ANOTHER GAME?"T4500^REP$"YES"90hREP$"NO"ij|"WHAT DOES ";REP$;" MEAN?"6730N X DRAW SCAFF A$(I)I68 PRINT OF THE WORD GOSUBABI1LQL10)A$(I);XVI^[d]j` GUESS CORRECT GOSUB"YOU GUESSED CORRECTLY!""**********************"5400A6L6990"WELL DONE! YOP NUMBER INPUT GOSUB"ZREP$0dL(REP$)6S GUESSES ACHIEVED GOSUB\A60bm"J1L}$SPA$(J)"#"'GES$(J)" "SPA$(J)GES$(J),10)SPA$(J);1SPA$(J)"#"A6A616J;@p INPUT WORD GOSUBzI1L HE IS HANGED AS SHOWN BY THE"$'N,"DISPLAY.THE WORD CAN BE ANY LENGTH"T1p6"UP TO 40 CHARACTERS."v@J"THE HANGMAN WISHES YOU GOOD LUCK!"T INPUT YES/NO REP$ GOSUBREP$ CLEAR SCREEN GOSUB INSTRUCTIONS GOSUB : 5)"HANGMAN INSTRUCTIONS."Z 5)"*********************"`  "THE GAME OF HANGMAN REQUIRES TWO"  "PLAYERS.ONE TO THINK UP & ENTER A WORD"  "THE OTHER TO TRY AND GUESS THE WORD" ""BEFORE IND11410 IND10$ J1L7 LE$A$(J)444@ 450R GES$(J)A$(J)] IND11d Jv IND11İ6400 IND11400 G1G11  ZZ1400 ZZ "YOU GUESSED WRONG!" "******************"  7000 400  TREP$"NO"265 W8 Y"WHAT DOES ";REP$;" MEAN?"> [G \320Q ^5000p h"START GUESSING LETTERS!" r"***********************" | "THE WORD IS ";L;" LETTERS LONG."  "WHAT IS YOUR LETTER?" A5A51 LE$ 11000 NOT LOOKING." 10000 % K " ENTER THE NUMBER OF LETTERS :"W 5200: "TYPE IN EACH LETTER THEN RETURN THEN " "THE NEXT LETTER."  6000 , 66200 @"IS YOUR WORD SPELT CORRECTLY?" J4500 OREP$"YES"350DO YOU REQUIRE INSTRUCTIONS?"# ; "REPLY YES OR NO."E 4500[ REP$"YES"İ4000o REP$"YES"250 REP$"NO"245 250 "WHAT DOES ";REP$;" MEAN?" 220 "ENTER YOUR WORD NOW BUT MAKE SURE"  "THAT YOUR OPPONENT IS] A$(40),GES$(40)'(X(10),Y(10)6<X$(10,10)CPCH$(40)QUSPA$(40)ZZG10c\A60l_A50rad HANGMAN :DATABANK1979n ALL RIGHTS RESERVED.500010)"THE GAME OF HANGMAN."10)"********************" "          000 < PAUSING GOSUB#N"PAUSING. PRESS RETURN TO CONTINUE:"X1200^ A$ WITH LIMITS CHECK GOSUB1300A3L2A3L15100"MUST BE WITHIN ";L1;" TO ";L2;" RE-INPUT:"5020@ MISSITARGET ANGLE IS LESS THAN 5 DEG."L l"FOR THE FIRST MISSILE- YOU HAVE 100"y v"SECONDS TO DESTROY IT. THIS GOES DOWN" "BY 5 SECONDS FOR EACH MISSILE." "THE TEST IS TO SEE HOW LONG YOU CAN " "SURVIVE!! GOOD LUCK, YOU'LL NEED IT!!"24WORKING SO YOU CAN FIGHT BACK."L &"THE ENEMY IS LAUNCHING MISSILES WHICH"{ 0"YOU MUST DESTROY BEFORE THEY REACH YOU," :"OR BE DESTROYED YOURSELF." D"YOU CAN ROTATE YOUR CRAFT TO PORT OR" N"STARBOARD, BUT YOU CAN ONLY FIRE WHEN"! X"THE 00  A303900 @ 5)"INSTRUCTIONS FOR PHASER:"c 5)"========================"m 1600 "THE ENGINES OF YOUR SPACE-SHIP HAVE" "FAILED. YOU ARE UNDER ATTACK FROM ENEMY" "STARSHIPS. HOWEVER, YOUR PHASERS ARE" "STILL A$"NO"1510 > "PLEASE ANSWER YES OR NO. RE-INPUT:"D N 1400W A31a 1590j A30p 6 @ QUATER PAGE CLEAR GOSUB JA113 T ^A1 h  INSTRUCTIONS GOSUB  "WOULD YOU LIKE INSTRUCTIONS ?"  14  A$ AS A STRING GOSUB ( A$. 4 P  A$ AS A NUMERAL GOSUBZ 1200g (A3(A$)~ 2A$"0"A301390 < F"NUMBERS ONLY PLEASE. RE-INPUT:" P Z1300 n x A$ AS AN ANSWER GOSUB 1200 A$"YES"1490   DIMENSIONS SECTION.C( HEADING AND INSTRUCTIONS SECTION.M21600S4j<10)"SPACE WARS."F10)"==========="P1600Z1700d CONTROL SECTION.n101010000 GOSUB SECTION. INITIALISE GOSUB  1500:NKX(W2)3:Y(H2):1600:"YOU LOSE":A120:X3:Y3:1600:2000:A:3290c F1F19B X(W2)9:Y(H2):1600:"YOU WIN, FUNDS NOW ";F1:A11000:A 512:1800:X2(1.2RA):1800:Y2(1.4RA)? 0 XX1:YY1:1600:A^ : X(X1):Y(Y1):1600:" "} D X1X1X2:Y2Y2.3:Y1Y1Y2 L X(X1):Y(Y1) N X1X1 P YH5YH5 Q Y1Y1 R 1600:A V YH53130 X XX9X9X:NA l A v U 0:3040 1600:M$E F1F1B:X13:Y1:1600:" ":1600:F1S X1:YH2 1600:"WHICH SKIER, 1 TO 9 ";:2300:K((Q$)):K1K9İ2000:3060 1600:M$ X1:YH2:1600:"BET = ";B;" ON SKIER NUMBER ";K   A19( & X1W:Y1H$"":A127A$(A128)% 2 16368,0+ 3 A$9  A$S$:S1:FW:1900:1500:O1:2400:X1:YH4:1600:M$:O0:2400 X990:N0 X5:Y1:1600:"FUNDS = ";F1 X1:YH2:1600:"BET HOW MUCH 1 TO ";F1;" ";:2300:B((Q$)):B1BF1İ200. YOU PLACE A BET ON"A "THE ONE THAT YOU THINK WILL JUMP THE"R "FURTHEST." "YOU START WITH 50 POUNDS, YOU MAY BET"  "AS MUCH AS YOU LIKE UP TO YOUR FUNDS."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700   ( A(16384):A  A$S$:S1:FZ:1900& M$, 8 RA(1)> bS lM$(A$,S,FS1)Y b ""h *p Q$v V ` O0ĝ j O1Ğ 1500:O1:2400 "SKI-JUMP BY U.T.S." O0:2400 :"INSTRUCTIONS": "THERE ARE 9 JUMPERS d1000n2500%xA$"Q"900/300093100C3200R,F10200[100o1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0F150xS$" "6 @X:Y     )10600*B1+8 +"ALL FUEL USED! YOU CRASH!!">+H+WW1N+u+"WOULD YOU LIKE ANOTHER FLIGHT ?"{++1400+A3110000: AU LANDED IN ESSEX!"6J)X13ĺ"YOU LANDED IN SURREY!"^T)Y10X10ĺ"SAFE LANDING CAPTAIN."s^)X10Y1011200h)A111000r)A1|)A1110~)"";)"CRASH *** CRASH *** CRASH *** CRASH")A1)11200)"YOU HAVE STALLED")YSTEMS NORMAL."+F(S11ĺ"ENGINE FAILURE"MP(S11ĺ10)"HALF POWER ONLY."Yn(2)TH;ex(9)ST;q(15)SP("ANY CHANGES CAPTAIN ? (YES OR NO).";(1400(A31İ4600(11000)6)Y15ĺ"YOU LANDED IN SCOTLAND!"@)Y15Y11ĺ"YO0V'S3((W)20) t'B11200y'S3B1S11F~'SPSPST10SP10V'SPSPTHT1h'SP25010700x'ST010160'Y1Y1ST3'X1X1SP300'Y1010500'X1010500'4100'T1105S1 ("THROTLE STICK SPEED ";<(S10ĺ"ALL S00$"WHAT STICK CHANGES ?".1300EA310A3104800OSTA3Y4600_}' PROGRAM PROPER SECTION.'S10$'X1((W)10)30.'Y1203'WW18'TH((W)10)='WW1B'ST((W)20)10G'WW1L'SP((W)100)45 "1 = THROTTLE."-"2 = STICK."D "3 = RADAR PLOT."J*l4"PLEASE INPUT YOUR CHOICE ?"r>|H1300RA31A334600\(A3)4710,4800,4890fp"WHAT THROTTLE SETTING ?"z1300A30A3104710THA346A12011X(A1(A))(X0X12""!";Oh(Y1)A1X1XĺX1)"#";nr(Y1)A1(X1)XĺX)"#";|(Y1)A1(X1)X4320X)",";(Y1)A1X1XĺX1)"#";0A1:A1140D"-";NA1 CHANGES GOSUBENSATE FOR YOUR FAULTY"& X"ENGINE."K b"RADAR PLOTS NOTHING UNDER 50'"r l"AT LOW AIRSPEEDS YOU MAY STALL."| 24000 4 <  PAUSING GOSUB  "PAUSING. PRESS RETURN TO CONTINUE:" 1200   RADAR PLOT GOSUB  "YOU MUST MAKE A FORCED LANDING AT "7 0"HEATHROW."c 2"YOU HAVE ONLY THE RADAR PLOT OF YOUR" 4"POSITION, AND THE OPTIMUM DESCENT LINE" :"SHOWN. YOU MUST SET THE CONTROLS SUCH" D"THAT YOU FOLLOW THE LINE TO IT'S BASE." N"YOU MUST COMP00  A303900! 1600E 10)"JET FLIGHT INSTRUCTIONS:"i 10)"************************"s 1600 "YOU ARE THE CAPTAIN OF A JET AIRCRAFT." "THERE IS A PROBLEM WITH YOUR ENGINES," "ONE OF THEM MAY CUT OUT AT ANY MINUTE!"& &A$"NO"1510 > "PLEASE ANSWER YES OR NO. RE-INPUT:"D N 1400W A31a 1590j A30p 6 @ QUATER PAGE CLEAR GOSUB JA113 T ^A1 h  INSTRUCTIONS GOSUB  "WOULD YOU LIKE INSTRUCTIONS ?"  14W56 &  A$ AS A STRING GOSUB. A$4 P  A$ AS A NUMERAL GOSUBZ 1200g (A3(A$)~ 2A$"0"A301390 < F"NUMBERS ONLY PLEASE. RE-INPUT:" P Z1300 n x A$ AS AN ANSWER GOSUB 1200 A$"YES"1490   DIMENSIONS SECTION.C( HEADING AND INSTRUCTIONS SECTION.I2`<10)"JET FLIGHT."wF10)"***********"P1600Z1700d CONTROL SECTION.n101010000 GOSUB SECTION. INITIALISE GOSUBA0.5236     010050+10010: !0(S6010900!(Z95104001 (V1110400F((A31S5010180P(7000Z(7100d(7300t(L1110900(L21İ6200(L2110400h)7700)11000*6800*B1\+f+"WOULD YOU LIKE ME TO SHUFFLE ?"p+z+1400+A30 ! DEALER LOSES GOSUB /YO1YO115(L2"COMPUTER LOSES:"R<\F6900bP' PROGRAM PROPER SECTION.'5000B'B1110V'Z90`'Z80j'S50t'Z40'6200'6200'6100'6100'6300'6400(6601R+ DEALER WIN LOSE OR DEAL GOSUB4L10=L20YZ82Z42N(2)21L11hL117690wV117690M11Z5LM21Z4VN(M2)217550`J(M1)167540jN(M2)J(M1)L11tL21~M2M1Z95Z85L21L1v6000C1B CHECKING FOR DEALER'S ACES GOSUBKZ41XD11Z8mT(D1)1Z4Z41uD1D11Z4N(D1)0H11Z8 Q1T(H1)Q110Q110 N(D1)N(D1)Q1*H14N(D1)N(D1)(D11)10>N(D1)HD1CO11 )"YOU LOSE I'M AFRAID!"/96900?V SCOREBOARD GOSUB\z"COMPUTER YOU"3)CO1;19)YO1&0X DEALER'S CARD PRINT GOSUB Z\"MY CARDS ARE:-"^bC11Z8lP1D(C1))15J(D1)22S51%J(D1)22S61-D1<S606790KZ956790gZ92Z52J(2)21V11vV116790|"WOULD YOU LIKE ANOTHER CARD ?""1400,A30S50ĺ"YOU CAN'T STICK!"6 PLAYER LOSES GOSUBCOD1)1Z5Z51(D1"2D11Z5.7J(D1)0;<H11Z9H>Q1T(H1)Y@Q110Q110lFJ(D1)J(D1)Q1tPH1ZJ(D1)J(D1)(D11)10_J(D1)dD1 IS PLAYER ALLOWED TO STICK GOSUBS50S60V10D11Z5J(D1OMPUTER A CARD GOSUB BZ8Z81/LD(Z8)P(1)9V5500?`` PLAYER'S CARDS PRINT GOSUBf~"YOUR CARDS ARE:-"C11Z9P1Y(C1)6000C1 CHECKING FOR PLAYER'S ACE GOSUB Z51D11Z9 T(A1151P(A1)P(A11)"A1/P(52)T15Lp CARD PRINT GOSUB`zP9((P11)13)rN9P1(P913)|20)N$(N9);" OF ";P$(P9)T(C1)N9 DEAL PLAYER A CARD GOSUBZ9Z91Y(Z9)P(1)55008 DEAL C0 SHUFFLE GOSUB-"SHUFFLING.":A1152FP(A1)0NA1[A1152eWW1xF((W)521)P(F)05200P(F)A15300PFF1ZF53FF52d5070A1| SHIFTING DOWN 1 GOSUBT1P(1)D"YOU CANNOT STICK UNDER 16 WITHOUT A FIVE CARD TRICK.\ N"ACES COUNT AS ONE OR ELEVEN."b l v"YOU WILL HAVE TO WORK HARD TO" "BEAT THE COMPUTER!!" 24000 <  PAUSING GOSUB  "PAUSING. PRESS RETURN TO CONTINUE:"120 INSTRUCTIONS:"0 10)"*********************": 1600f "A PONTOON (ACE & ROYAL OR ACE & TEN)" "BEATS EVERTHING ELSE." "ONLY A PONTOON BEATS A 5 CARD TRICK." &"THE COMPUTER ONLY PAYS HIGHER SCORES," 0"A HAND OVER 21 GOES BUST."8 NO. RE-INPUT:" ! 1400* A314 1590= A30C 6a @ QUATER PAGE CLEAR GOSUBm JA113s T{ ^A1 h  INSTRUCTIONS GOSUB  "WOULD YOU LIKE INSTRUCTIONS ?"  1400 A303900 1600 10)"PONTOON #  A$ AS A NUMERAL GOSUB- 1200: (A3(A$)Q 2A$"0"A301390W <~ F"NUMBERS ONLY PLEASE. RE-INPUT:" P Z1300 n x A$ AS AN ANSWER GOSUB 1200 A$"YES"1490 A$"NO"1510  "PLEASE ANSWER YES OR103 P$(A1) A1& A11132 $N$(A1): .A1e 8 "HEARTS","DIAMONDS","CLUBS","SPADES" B "ACE","TWO","THREE","FOUR","FIVE","SIX","SEVEN" L "EIGHT","NINE","TEN","JACK","QUEEN","KING"   A$ AS A STRING GOSUB  A$  DIMENSIONS SECTION.-P(52),N$(13)U( HEADING AND INSTRUCTIONS SECTION._21600s<10)"PONTOON."F10)"========"P1600Z1700d CONTROL SECTION.n101010000 GOSUB SECTION. INITIALISE GOSUB A     z#?ŠȠ ӠԠȠӠ ˠŠ Š ŠҠ٠  ȠӠŠ ԠԠŠӠ ˭Ϡ Ӡ ٠ŠĠ ͠ ̠ ̠Р ŠРҠ- ΠɠР Π ĠӠ ΠŠ Ҡ Š ҠǠҠàǠΠˠŠΠ ӠӠ"ӠӲŠҠàˠŠΠҠǠԠˠU SHOULD KEEP YOUR AVERAGE AS"JpN"LOW AS POSSIBLE. IF IT GETS TO HIGH "jzN"YOUR GAME WILL BE ENDED."pNN"RIGHT ARROW.....STARTS SHIP"N"A.....STARTS MISSILE"N:"KEEP TRYING......"Q3000Q100R6100R6200&R6300 (R6384)616368,07 N:"SPACE-SHIP BY U.T.S."=*NT4N"INSTRUCTIONS:":>N"THE SPACE-SHIP WILL START AT THE LEFT"HN"OF THE SCREEN. YOUR MISSILE WILL BE AT"RN"THE BOTTOM."\N"YOU MUST GET BOTH TO COLLIDE TO GAIN A"fN"POINT. YO:X10 .88:X:" "*B20:Y:" "0:6700KK1193Y11\K1149X11qXXX1:X39B1YYY1:Y0B1Y8X20W1W1W1W11:PP1B1PP18:X:" "20:Y:" "",K1(1A$""5590A1(A$)8(A$)L3(A$)L45590B3600L5500R`pL11:L23yzM$(1)"INSTRUCTIONS"M$(2)"GAME"M$(3)"EXIT"T113"YOUR AVERAGE IS ";PW1;" AFTER ";PX1:Y23B0W0Y1032); A1/P 31 GOSUB=ZA1L1L2VdT1)A1;" = ";M$(A1)^nA1dt 32 GOSUBN$"-+*# "M$(A1)" #*+-"| 34 GOSUB290020T17T1)"PRESS 'RETURN' ONLY TO EXIT"10"";A$  4814$ZZ04940(.ZZ1496018ZZ0;B4630DLZZ1NV4630W`ZZ2aj4630gtm~} 29 GOSUBA2(A$)A205090A11A2A3((A$,A1,1))A364A391ĞA397A3122ĺ(A3);A396A3123ĺ(A397ZA122ĺZ$;pA$A$Z$!z0ZZ1ZZ0:4630L(A$)14830^(36)04790h4812p40{(37)" ";40(37)A$(A$,(A$)1)4630A$(A$,(A$)1)(36)" ";(36)4630A$""  28 GOSUB A$""% Z$? (Z$)8(A$)04610Q *(Z$)84760d 4(Z$)134980w >(Z$)274900 HZZ04700 R(Z$)64(Z$)91Z$((Z$)32) \ZZ0Ğ ^ZA(Z$) _ZA65ZA90ĝ `ZA96ZA123ĺ(ZA32);fZA00 A1(A$) S10' A10S11- >  18 GOSUB] N1$"### OUT OF RANGE ###"g .4200q 04500{ 83000 j < 21 GOSUB F3400 PS11İ3500  h 24 GOSUB rN2$N$ |N$N1$ 2900 N$N2$  "" PRESS RETURN";A$   -  13 GOSUBT & N$"ACTIVATING DISK DRIVE: "(D9)] 0 T15g : 2900m v } 14 GOSUB N$"TURN ON YOUR PRINTER NOW" T18 2900 3000 H 16 GOSUB R 3100 \ 2000 f 2100 p A$ z 23 T113 23  T1)!  8  " ENTER CHOICE";> " H , 2600R 6 2700X J h T 11 GOSUBn V x ^ 2400~ h r T1(41(N$))2 | T1)N$ 2400 12 GOSUB 23 T113 T1)  "  ` 6 GOSUB t F x "U.T.S. U.T.S."L z R a 7 GOSUBi A$v A1(A$)|  ( 8 GOSUB 2 A$ < A1(A$) 9 GOSUB S10 A1L1A1L22790 S11 3600 10 GOSUB@ d1000x29006000)5200362800A@S11100K^5300YA13970A120000,21000,22000,23000,24000,25000,26000,27000,28000,970"" 1 GOSUBD$""D91N$"SPACE-SHIP"Z0P0:W10      W121000*RPW19100),RB12100030R6600>:R21010II(1,1)9:I(1,2)11:I(2,1)10:I(2,2)11:I(3,1)11:I(3,2)11C^YY1:XX17:1600:" "d^ W* *#"&B$(20)"# ######*#*###### #"GB$(21)"#* * * * * * * * *#"hB$(22)"###################"Y122:A119:XA7:A$B$(Y):SA:FA:1900:1600M$"#"O1:2400:" ":O0:2400:4066M$A:YX110:Y117S10M10=B$(12)"#### # ##### # ####"?B$(13)" #*#* * * *#*# "`B$(14)"#### # ##### # ####"B$(15)"#* * * * # * * * *#"B$(16)"# ##*###*#*###*## #"B$(17)"#* # * * * * # *#"B$(18)"##*#*#*#####*#*#*##"B$(19)"#* * # * # * # B$(4)"#*## ### # ### ##*#";B$(5)"# * * * * * * * * #"[B$(6)"#*## # ##### # ##*#"{B$(7)"# * *#* *#* *#* * #"B$(8)"#### ### # ### ####"B$(9)" #*#* * * *#*# "B$(10)"#### # ##### # ####"B$(11)" * *# #* * "E: SCORE = ";S14 A120:X1:YH1:1600:2000:A:e1500:X10:Y10:1600:"O.K. YOU WIN!"A1150:X1:YH1:1600:2000:Aj1500B$(1)"###################"B$(2)"#* * * * # * * * *#"B$(3)"# ##*###*#*###*## #"X5:1900:M$"#"Y5Y5Y6:3340W A$B$(Y5):SX5X6:FX5X6:1900:M$"#"X5X5X6a 3340 A$B$(Y5):SX5X6:FX5X6:1900:M$"#"X5X5X6:3340 A$B$(Y5Y6):SX5:FX5:1900:M$"#"Y5Y5Y6 >  1500:X10:Y10:1600:"YOU LOSXX57:YY5:1600:"*":32108 XX57:YY5:1600:" "J S1510İ3100f 3300:X1X5Y1Y5M11 XX57:YY5:1600:O1:2400:"&":O0:2400 I(D,1)X5:I(D,2)Y5:D  X6(X1X5):Y6(Y1Y5) 1800:RA.53334! A$B$(Y5Y6):SX5:F:S1:FX11:1900:V$M$:SX1:FX1:1900:W$M$:SX11:F19:1900:X$M$:W$"*"S1S110:B$(Y1)V$" "X$:2000 X1:Y1:1600:"SCORE":Y3:1600:S1   S1100((D1)200)Y59 v  D13:X5I(D,1):Y5I(D,2):A$B$(Y5):SX5:FX5:1900:M$"*"Y91:A$B$(Y1Y9):SX1:FX1:1900:M$"#"2890j  Q$"Z"Y91:A$B$(Y1Y9):SX1:FX1:1900:M$"#"2890 X12X91X118:2890  X118X91X12:2890  X1X1X9:Y1Y1Y9 J T XX17:YY1:1600:O1:2400:"+":O0:2400 m A$B$(Y1):Y22:1600:2700  @ ( A(16384):Q$"":A127Q$(A128)N 2 16368,0T \ A$b v 2600:X90:Y90 Q$"I"X91:A$B$(Y1):SX1X9:FX1X9:1900:M$"#"2890 Q$"P"X91:A$B$(Y1):SX1X9:FX1X9:1900:M$"#"2890/ Q$"Q"ER BY U.T.S." O0:24003 :"INSTRUCTIONS":_ "YOU MUST EAT ALL OF THE STARS IN THE" "MAZE. I=LEFT P=RIGHT Q=UP Z=DOWN." "BEWARE OF EVIL ATTACKERS, THEY CAN GET" "YOU AFTER SCORE OF 100!"  "ANY KEY TO PLAY, Q TO EXIT"  X1 xS$" "5 ; A 6K @X:YQ i A$S$:S1:FZ:1900q M$w  RA(1) b lM$(A$,S,FS1)  "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "MAZE EATf  B$(22),C$(19),I(3,2)%d1000/n2500?xA$"Q"900I4000S4100]2800g2900q3000{3200M11İ3500:100S1890İ3600:1002101500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0/      * Q$ V  ` O0ĝ* j O1Ğ0 D 1500:O1:2400] "PLANETS BY U.T.S."k O0:2400 :"INSTRUCTIONS": "THERE ARE 4 PLANETS SHOWN THUS EG. *230" "THE * SHOWS THE PLANET POSITION, THE" "NUMBER IS ITS WEIGHT. YOUR":O0:2400 ( W39:H23:S10:J0I D(1)W7:D(2)H:D(3)1000000Q C0 xS$" "   6 @X:Y  A$S$:S1:FZ:1900 M$  RA(1) b lM$(A$,S,FS1)  ""  P(4,3)d1000!n25001xA$"Q"900;3000E3100,S10X10:Y10:1600:"SHIP DESTROYED!":A125:X5:Y5:1600:2000:A6S11Y10:X10:1600:"SAFE ORBIT: WELL DONE":A14000:A1001500:O1:2400 "END OF GAME1S11 ^ I B5Y51:C1C11:5:9:" ":5:9:"OVERTAKES ";C1i Y515(1).2Y5Y51z Y515İ2900 Y5:X5:"*" I15:15:T(I):" ":T(I)T(I)1:T(I)39T(I)1 15:T(I):"#":I J  T I15:T(I)X5T(I)X5  1800:K$G$ * ( X52:Y5154 F 1900u P IY5121:I:"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":I Z I110:T(I)((1)20)10:15:T(I):"#":I d Y5:X5:"*" Y5:X5:" " X5X52:X539X51M 1800:Y515G$""Y" ,1600 6) @20:"GAME OR QUIT"= J"ENTER G OR Q"G T1800a hG$"G"G$"Q"1600g m x "" :"END OF GAME":  K(16384):G$"":K1281890 G$(K128) b16368,0: l  "" * 41900C10 S10 Y10 ( 1900D "OVERTAKE BY U.T.S.":X "INSTRUCTIONS"^  "SEE HOW LONG YOU CAN KEEP GOING!" "YOU ARE THE 'STAR CAR'." "PRESS ANY KEY TO OVERTAKE." "YOU HAVE NO CONTROL OVER THE" "OVERTAKE TIME. ZT(10)d1000 n15000pG$"Q"9809r130Cx1600M2100W2600a2700k2800yS11600210X1900:10:13:"YOU HAVE CRASHED!":A12500:A:1001700B1:2000R0:X240:Y160H124:W132 0:M$:Y= X8:YH:1600:"YOU HAVE SURVIVED ";J;" ATTACKS"C   X1:YH6:1600:"HOW MANY LASERS":YH4:1600:2300:(Q$)0İ1600:M$:3100 & K((Q$)):(CK)10S11 0 S10JJ1 v AY, Q TO EXIT"(  X1:Y22:1600:2300.  G C0:1800:LRA:1500 O1:2400:X1:YH9:1600:" ENEMY SHIP ALERT ENEMY SHIP ALERT ":O0:2400 Y1H10:X1W:1800:RALCC1:1600:"O" X:Y A$S$:S1:FW:1900:X1:Y1H10:1602400 :"INSTRUCTIONS":G "THE ENEMY SHIPS WILL APPEAR ON THE"u "RADAR PLOT, YOU MUST ESTIMATE HOW MANY" "ARE ATTACKING. IF YOUR GUESS IS WITHIN" "10 OF THE CORRECT NUMBER YOU WILL" "SURVIVE, OTHERWISE.....!"  "ANY KEY TO PL "  & 60 @X:Y6 N A$S$:S1:FZ:1900V M$\ h RA(1)n b lM$(A$,S,FS1)  "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "GALACTIC ATTACK BY U.T.S." O0: d1000n2500%xQ$"Q"900/300093100S11İ1500:X7:Y10:1600:"YOU SURVIVED ";J;" ATTACKS":A110:2000:A:1002001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0 xS$"     UT THE ANGLE THAT YOU"AD"WISH TO MOVE THE CUE BALL, THEN THE"oN"FORCE THAT YOU WANT IT TO TRAVEL WITH,"X"0.1 TO 120 IS THE RANGE: 120 IS VERY"b"FAST, AND IS EQUIVELENT TO 3 TIMES UP"l"AND DOWN THE TABLE."v"THE SCORE WILL BE GIVE****************************"# R "AFTER THE INSTRUCTIONS YOU WILL SEE THE" "FAMILIAR SNOOKER TABLE READY TO PLAY." "ANGLES FOR EACH BALL RELATIVE TO THE" &"CUE BALL WILL BE PRINTED UNDERNEATH" 0"THE TABLE.":"NEXT YOU MUST INPA31 1590 A30 6< @ QUATER PAGE CLEAR GOSUBH JA113N TV ^A1\ hu  INSTRUCTIONS GOSUB{  "WOULD YOU LIKE INSTRUCTIONS ?"  1400  A303900  4)"DATABANK SNOOKER INSTRUCTIONS:" 4)"** 1200 (A3(A$), 2A$"0"A3013902 <Y F"NUMBERS ONLY PLEASE. RE-INPUT:"_ Pi Z1300o n x A$ AS AN ANSWER GOSUB 1200 A$"YES"1490 A$"NO"1510  "PLEASE ANSWER YES OR NO. RE-INPUT:"  1400 ,3) X 1 `A1215+ jT(A1,3)T(1,3)3 tA1A ~A11622S T(A1,3)A114[ A1g A118s B$(A1){ A1  "R","Y","G","N","U","P","B","W"    A$ AS A STRING GOSUB  A$    A$ AS A NUMERAL GOSUBN.  INITIALISE GOSUB" S12+ U208 A1122D A212R T(A1,A2)Z A2p T(A1,1)T(A1,1)1x $A1 8 28,8,29,7,29,8,29,9,30,7,30,8,30,9,31,7 B 31,8,31,9,32,6,32,7,32,8,32,9,32,10,9,4 L 9,12,9,8,20,8,27,8,36,8,8,10 VT(1C+T(22,7)L(15,22)'#D(22)O( HEADING AND INSTRUCTIONS SECTION.U2r<10)"DATABANK SNOOKER."F10)"================="P1600Z1700d CONTROL SECTION.n101010000,9200^A31100  GOSUB SECTIO     :1600:"A":FF1' YH6S11:3390; Y1S21:3390E4 3310K> 0(T10)FF2 & 3200- 0 T0S11:3190E : 2600:A$""İ3300Y D S21S113190c l 3100i v X1:Y1:1600:M$:1600:"FUEL STATUS = ";F X25:1600:"SCORE = ";J FFR:X1:YH6 X1:1600:M$ F0YY2 YY1:X20 ( A(16384):A$"":A127A$(A128)5 2 16368,0; C A$I s 1800:T(RA100)40:1800:R(RA10) 1500:A$S$:S1:F39:1900:O1:2400:YH5:X1:1600:M$:O0:2400 X20:YH6:1600:"A" F0:S20  2600    TT1:T1H."% "PRESS ANY KEY TO TAKE-OFF."S  "YOU SURVIVE FOR ANOTHER MISSION IF YOU"| "CAN FLY TO THE TOP OF THE SCREEN."  "YOU HAVE AN UNKNOWN QUANTITY OF RESERVE"  "FUEL TOO."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  '" O0:2400' :"INSTRUCTIONS":R "YOUR CRAFT IS LOADING FUEL, BUT THE"y "PLANET MAY EXPLODE AT ANY TIME." "YOU MUST DECIDE HOW LONG TO WAIT BEFORE" "YOU TAKE-OFF. IF YOU DON'T HAVE ENOUGH" "FUEL, YOUR CRAFT WILL FALL AND CRAS "& , 2 6< @X:YB Z A$S$:S1:FZ:1900b M$h t RA(1)z b lM$(A$,S,FS1)  "" * Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "SPACE MISSION BY U.T.S.M d1000n2500%xA$"Q"900/300093100S11āA1100:1800:X(RAW)1:1800:Y(RAH)1:1600:"#":A:100S10JJ1:2002001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0 xS$"      HN"OF THE SURFACE."DRN"YOU MUST LAND VERY SLOWLY, AND EXACTLY"i\N"ON TARGET, OR YOU WILL CRASH."ofNpN"A.....MAIN JET ON"zN"Z.....MAIN JET OFF"N"LEFT ARROW.....RETRO LEFT"N"RIGHT ARROW.....RETRO RIGHT" N"SPACE BAR.....CANCEL1 77:X,190X14,189X7,180X10,186X,187G&1:""Z0A112000:A1`NgX1bA1110:A21200:A2l"":A1 N:"LUNAR LANDER BY U.T.S."*N4N"INSTRUCTIONS:":>N"LAND THE CRAFT ONLY ON THE FLAT PARTS"!X2,Y97X7,Y94X12,Y97>M11ēX7,Y94X7,Y91D"U,K1(16384)c616368,0iX3(X8):X4((X14)8)1C0:L0Y50:A1X3X4M(A1)Y5Y5M(A1)YY5C1:6890YY5X4X32ĭM(X3)M(X4)M(X3)M(X31)K1218M10#K1136V114(K1149V11E2K1160V10R<V2V2V1bFM2M2.8M1sPXX(V210)RX0X0TX265X265VYY(M210):Y177Y177Zd7n6600Y9191YX,Y9X4,Y914X10,Y914X14,Y915,22,12,18,9,15,5,14,8,1,12,12,12,15,43M(0)10BX30:Y177Z$V20:M20:M10:V10`.i8:7B0,191M(0)7,191M(1)LA1033VA187,191M(A11)(A11)87,191M(A12)`A1066006700 K1193M115590A1(A$)0(A$)L3(A$)L45590:3600D5500JXpL11:L23qzM$(1)"INSTRUCTIONS"M$(2)"GAME"M$(3)"EXIT"T113:A1135M(A1)A1'5,20,15,27,17,3,7,7,7,28,23,4,7,19,23,14,16,29,29,29, A1'P 31 GOSUB5ZA1L1L2NdT1)A1;" = ";M$(A1)VnA1\l 32 GOSUBN$"-+*# "M$(A1)" #*+-"| 34 GOSUB290020T17T1)"PRESS 'RETURN' ONLY TO EXIT"10"";A$A$""14$ZZ04940 .ZZ14960)8ZZ03B4630<LZZ1FV4630O`ZZ2Yj4630_te~u 29 GOSUBA2(A$)A205090A11A2A3((A$,A1,1))A364A391ĞA397A3122ĺ(A3);A396A3123ĺ(A332);2ĺZ$;pA$A$Z$z(ZZ1ZZ024630D(A$)14830V(36)04790`4812h40s(37)}" ";40(37)A$(A$,(A$)1)4630A$(A$,(A$)1)(36)" ";(36)4630A$""48 28 GOSUB A$"" Z$7 (Z$)8(A$)04610I *(Z$)84760\ 4(Z$)134980o >(Z$)274900 HZZ04700 R(Z$)64(Z$)91Z$((Z$)32) \ZZ0Ğ ^ZA(Z$) _ZA65ZA90ĝ `ZA96ZA123ĺ(ZA32);fZA97ZA121(A$) S10 A10S11% 6  18 GOSUBU N1$"### OUT OF RANGE ###"_ .4200i 04500s 83000y j < 21 GOSUB F3400 PS11İ3500  h 24 GOSUB rN2$N$ |N$N1$ 2900 N$N2$  ""  ETURN";A$   %  13 GOSUBL & N$"ACTIVATING DISK DRIVE: "(D9)U 0 T15_ : 2900e v u 14 GOSUB N$"TURN ON YOUR PRINTER NOW" T18 2900 3000 H 16 GOSUB R 3100 \ 2000 f 2100 p A$ z 2300 A3 23  T1)  0  " ENTER CHOICE";6 " @ , 2600J 6 2700P J ` T 11 GOSUBf V p ^ 2400v h r T1(41(N$))2 | T1)N$ 2400 12 GOSUB 23 T113 T1) " PRESS R 6 GOSUB t > x "U.T.S. U.T.S."D z J Y 7 GOSUBa A$n A1(A$)t  ( 8 GOSUB 2 A$ < A1(A$) 9 GOSUB S10 A1L1A1L22790 S11 3600 10 GOSUB T11 ZM(35)d1000 x2900*600045200>62800L@S11100V^5300dA13970A120000,21000,22000,23000,24000,25000,26000,27000,28000,970"" 1 GOSUBD$""D91N$"LUNAR LANDER" `      T(A1,4)90T(A1,4)2706636<T(A2,1)T(A1,1).256970F6640dT(A2,1)T(A1,1).256970T(A1,4)180T(A2,2)T(A1,2).256970T(A1,4)180T(A2,2)T(A1,2).256970T(A2,1)06970T(A2,5)06970X5T(A2,1)T(A1,1)Y500# CLEAR L MATRIX GOSUB0 M1115DL(M1,0)06480VM20L(M1,0)e(L(M1,M2)0m2M2uPM1{Zd WHICH PLAYER PRINT GOSUBn"PLAYER ";S1;" "; BALL IN MOTION GOSUBS21B10E1100A2122300 tF1A3~<"CUE BALL STRUCK AND ROLLING"_"###########################"ek NUMERAL WITH LIMITS CHECK GOSUB1300A3L16340A3L26390"MUST BE WITHIN LIMITS";L1;"TO";L2;". RE-INPUT:"63ER ANGLE FOR CUE BALL "; LA$3MA$"REP"Q41?NQ41ėNPQ416290[QA3(A$)sRA30A33606230S"LIMITS- 0 TO 360. RE-INPUT:";U6220VD1A3XA30A$"0"6210[`"PLEASE INPUT FORCE ?"bL1.1dL2120j61,4)*T(A1,4)360T(A1,4)T(A1,4)360MT(A1,4)0T(A1,4)T(A1,4)360W6100zT(A1,1)T(A1,1)T(A1,5)(T(A1,4)57.3)T(A1,2)T(A1,2)T(A1,5)(T(A1,4)57.3)T(A1,5)0A1S215258.8 ANGLE AND FORCE GOSUBB"ENTCOULD BE A CUSHION.EU10&F96006HU116100UNT(A1,1)1T(A1,2)1İ7400vXT(A1,2)15T(A1,1)38İ7400T(A1,1)1T(A1,4)180T(A1,4)T(A1,1)38T(A1,4)540T(A1,4)T(A1,2)1T(A1,4)360T(A1,4)T(A1,2)15T(A1,4)360T(A)RF(D7)!T(A1,5)T(A1,5)RF<T(A1,1)38T(A1,1)38U T(A1,1)1T(A1,1)1p T(A1,2)15T(A1,2)15T(A1,2)1T(A1,2)1 POCKETS GALORE.&T(A1,2)2İ72000T(A1,2)14İ72002T(A1,1)0T(A1,5)0:T(A1,5)06100D C9(D7)"C90C90.00001/C8(D7)DC80C80.00001kRX((19.1(C8)(19T(A1,1)))C8)RY((7.6(C9)(7.5T(A1,2)))C9)RYRXRFRYRXRYRFRXRFT(A1,5)RFT(A1,5)T(A1,1)T(A1,1)RF(D7) T(A1,2)T(A1,257.3))(D6).T(B1,5)T(B1,5)(D6)T(A1,5)PT(A1,5)T(A1,5)T(A1,5)(D6)vT(B1,4)360T(B1,4)T(B1,4)360T(B1,4)0T(B1,4)T(B1,4)360T(A1,4)360T(A1,4)T(A1,4)360T(A1,4)0T(A1,4)T(A1,4)3606100D7T(A1,4)57.3,5)6010(S40S4T(B1,3)3)A122S5T(B1,3)=*9500d,T(A1,1)T(A1,1)Q2(T(A1,4)57.3)6T(A1,2)T(A1,2)Q2(T(A1,4)57.3)JT(A1,5)T(A1,5)Q2rQ50Q50.0001|D6(Q3Q5)T(B1,4)T(A1,4)D657.3 T(A1,4)T(A1,4)(90(D6S1F!P MOVING BALLS GOSUB0dT(22,4)D1?xT(22,5)F1H|S90QS50ZS40cS20pA1122T(A1,5)061006600B105600Q1T(B1,7)57.3Q3(Q1)T(B1,6) Q5(1.001Q32)"Q2T(B1,6)(Q1)Q5'Q2T(A1\M3fV2404950"pV1V24M31L(M1,0)PT(L(M1,M3),1)V24790lV2)B$(T(L(M1,M3),3));tM3|$M2VM11M115ĺ39)"*"`M11M115ĺ39)"!"tM1~ LEVEL BALLS GOSUB CHANGE PLAYER GOSUBS130bM11511'lM11M115ĺ"*";?vM11M115ĺ"!";SL(M1,0)04950hL(M1,0)1İ9800|L(M1,0)14950V10M21L(M1,0)V240M31L(M1,0) T(L(M1,M3),1)V24700*T(L(M1,M3),1)V147004V2T(L(M1,M3),1)< PAUSING GOSUBH"PAUSING. PRESS RETURN TO CONTINUE:"R1200Xp BOARD PRINT GOSUBz430064400@4300 SIDEBARS GOSUB"**-----------------*-----------------**"&0 MIDDLE GOSUB:970N AFTER EACH GO,"?"AND THE COMPUTER WILL TELL YOU WHAT IT"k"IS DOING AFTER YOU HIT THE CUE BALL.""THE RULES ARE MUCH THE SAME AS NORMAL""SNOOKER, BALLS WILL BE REPLACED ON THE""TABLE IF ACCIDENTALLY POCKETED."240004L RETROS"N!N"GOOD LUCK!"+Q30004Q100@R:6100JR6200TR6300^&R6400h(R6800~*RC1İ6900:219820R6500:RL1İ7000:21982U21020UU100,1)T(22,1)"%"Y5T(A3,2)T(22,2),%"7000H%"T(A3,1)0A$"R"8810\%"T(A3,1)08881n%"Q2Q210:Q31{%"Q241ĺ%"Q241Q21%"Q2)A$;"=";(D510)10;%"A$"R"A3158890%"A3A31%"8850%"%"Q308810%# &# ANOTHER 61İ21700$!)$! ANGLES PRINT GOSUB3$L"88009$V"Q$`" INFORMATION GOSUBZ$b"6)r$j""R,N,Y,G,U,P,B, ";z$k"A$$l"A30$m"Q30$n"Q40$~"Q117$"B$(Q1)A$A3Q1$"Q1$"Q29$"A308810$"A3A314$"A315A31 %"X5T(A3OSUB #v E70# S32İ8400-# E718390=# S32İ8500C# [# MUST BE RED GOSUBl# S41İ20400~# S41İ20500#*!#4! MUST BE A COLOUR GOSUB#>!S41İ21500#z!S41İ8600#!#! COLOUR STRUCK FIRST GOSUB#!S60İ21600 $!SLL HIT GOSUB"HV94"J9900/"TS91İ81005"L" BALLS BACK GOSUB["S908290h"A81S9z"D(A8)18250"A7114D(A8)"X6"Y6"X6X61"T(14D(A8),1)X6"T(14D(A8),2)Y6" A7" ": A8"b #l BALL HIT G));" BOUNCES ON CUSHION ";.!T(A1,1)1ĺ"3"C!T(A1,1)38ĺ"1"W!T(A1,2)1ĺ"4"l!T(A1,2)15ĺ"2"r!B!L SCORE GOSUB!N!VV90!~S40İ8000!S40İ8300!!8)!"PLAYER 1 =";P(1);" PLAYER 2 =";P(2)!6 "@ NO BA18T(A1,1)21İ7300- >T(A1,1)37İ73003 zI  BALL DOWN GOSUBW T(A1,1)0e T(A1,2)0 B$(T(A1,3));" BALL DOWN." S9S91 D(S9)T(A1,3)   BOUNCY BOUNCY GOSUB T(A1,3)1ĺ"A "; T(A1,3)1ĺ"THE ";!B$(T(A1,3nC80C80.00001"pR5(X5C8)1vD5D557.3EX50D5180D5^X50Y50D5360D5d~ ANGLE BETWEEN GOSUBD9D5T(A1,4)D9180D9360D9D9180D9D9360  POCKETS CHECK GOSUB*T(A1,1)2İ7300 4T(A1,1)T(A2,2)T(A1,2)"7000#,710080Q6R5(D957.3)L6(Q6).996970_8(D9)906970n@T(A2,6)R5}JT(A2,7)D9TR5E1B1A2^R5E1E1R5:A2NX CARTESIAN TO POLAR GOSUBbX50X50.0001gD5(Y5X5)lC8(D5)"":S2:FW:A$B$:1900:R$M$:3650TXWR$"":S1:FW1:A$B$:1900:L$M$:3650$S1:FX1:A$B$:1900:L$M$:SX1:FW:1900:R$M$BB$L$" "R$jX"YOUR MISSILES ARE A LITTLE UNSTABLE!" $ > # H XX21:YH4:1600:"A"2 R 1600:" "\ \ YY1:1800:XX(5(RA11)):X1X1i f XWXW z 1600:"A":YBİ3600 Y13490 3410 1600:" ": A$B$:SX2:FX22:1900:M$" "S11 S11İ2000:2000 #X1L$:XX1:1600:"***" v " 2600C X16:Y1:1600:"SCORE = ";J\ A$"I"X11X1X11w A$"P"X1W2X1X11 3100 A$" "İ3400 3300 BH3İ3500:S113290 BH3290 3200  X1:YB:1600:E$:BB1:YB:1600:B  . ( A(16384):A$"":A127A$(A128)< 2 16368,0B J A$P B$"#######################################" 1500:X1:Y1:1600:B$:B1 X119:3100 A$S$:S1:F39:1900 E$M$   XX2:YH3:1600:" " & X2X1EEN"' "YOUR SHIP IS AT THE BOTTOM."D " I = LEFT P = RIGHT"l "PRESS SPACE-BAR TO FIRE MISSILE." "YOU MUST KNOCK A HOLE IN THE PLASMA, AND" "THEN FLY THROUGH IT TO SURVIVE."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700A$S$:S1:FZ:1900 M$! - RA(1)3 bH lM$(A$,S,FS1)N W ""] *e Q$k V v ` O0ĝ j O1Ğ 1500:O1:2400 "PLASMA-BOLT BY U.T.S." O0:2400 :"INSTRUCTIONS": "PLASMA STARTS AT TOP OF SCR d1000n2500%xA$"Q"900/300093200GS11100QJJ1Z200n1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6@X:Y      "  K(X1,Y1)0Z$"**GREEN**";"**STARDATE**";3278TA V*"CONDITION:";Z$\4w>"QUADRANT:";Y11;X11}CH"SECTOR ";Y5;X5MR"***STATUS***"W\"KLINGONS : ";K1f"STARDATES: ";Tp"STARBASES: ";B1 z"TORPED870 v2960A(X5,Y5)17.X1X91970?Y1Y91970I2570O[A118gA218vA(A1,A2)1~A2A111402960A(X5,Y5)17E1E125TT1W222002570K(X1,Y1)0Z$"**RED**X1X11XX511710&X5X5X7Y5Y11820HY5Y81780R1850\YY8hY1Y11yYY5817801850YY8&Y1Y110YY511820:Y5Y5YDX11X1101890NC$"SPACE"X3190bY11Y1101910l1ORS. I.E 7,-8""A(X5,Y5)1',Y9Y116X9X1:@Y,XCAXXWJE1E1(X)(Y)nT"**WARP FACTOR**"v^W2|`a50cTT1(W220)hX5X11710rX5X81670|1740XX8X1X11XX5816701740XX8 T1xL2L211340(A10DA)"-* SHORT RANGE *-"JT1120`X418q"+";37)"+"{A$""Y418A$A$(D$,A(X4,Y4),4)Y4X4;" ";A$;" ";X4X41120"INPUT HORIZ./VERTICAL VECT1340L2S(K1,Y1)!T113+1340;L2B(X1,Y1)DT15N1340]X501330lY501330vT117L21X9X1 Y9Y1X5K1Y5L1(13402<L20ıF740PKK1ZLL1dA(K,L)11350nA(K,L)" " Y21090*"+ ";E$;"... +"41090<X2HX2X21R1070X$y."+++++++++++++++++++++++++"8B"+";25)"+"V`"++++1+++2+++3+++4+++5+++6+++7+++8++++"jtL2K(X1,Y1)~K57040(1)K(X1,X2)T19E$E$"..."(B(X2,Y2)0E$E$"B"BS(X2,Y2)0E$E$"S"\K(X2,Y2)0E$E$"K"kQ(X2,Y2)1X21X210960970Y21Y210980E$E$"INF"983B(X2,Y2)0E$E$" "S(X2,Y2)0E$E$" "K(X2,Y2)0E$E$240,50670YY8#WW15K(8(1))2CK10740MWW1_L(8(1))2mL10760s yA5A)"-+ LONG RANGE +-"X10840 740*X1K4Y1LH1070pX2X11X11uE$""zY2Y11Y11P1 :PB1600 D740/ NB(K,L)B(K,L)1= XPK1630F b740Z lK(K,L)K(K,L)1h vPS1670q 740 S(K,L)S(K,L)1 560  "INPUT COMMAND ?" C C0670 C93230 C9670C790,1420,1560,2050,2370,2720,3"AS FAST AS POSSIBLE." ? "PAUSING. PRESS RETURN:";G A$M S [ 50a g s A118 A218 A(A1,A2)1 A2 "A1 A$" " D$" ### * <*>" S1,B1,K1,E1,E2,T,K5  75,3,7,600,3,15,100 0P A "' "VECTOR:SECTORS HORIZONTALLY"D 7)"SECTORS VERTICALLY"o "NEGATIVE ENTRY GIVES MOTION TO LEFT" "OR DOWN." "THE WARP FACTOR MUST ALSO BE ENTERED" "THERE IS A TIME LIMIT TO THE GAME" "AND IT IS TO YOUR ADVANTAGE TO BE" OF GALAXY ALREADY SCANNED"> Z"8 LIST OF COMMANDS AVAILABLE"T _"9 END THE GAME"Z ` aA99ĺ"TEN SECOND WAIT PLEASE!" d n x }"ON ENTERING COMMAND CODE 3" "THE GUIDANCE COMPUTER REQUESTS" "DIRECTIONS. THESE ARE ENTERED ASSE";12)"<*>" - .110" 2F 4"-+*# COMMANDS AVAILABLE #*+-"L 6e 7"1 LONG RANGE SCAN" <"2 SHORT RANGE SCAN" A"3 MOVE THE ENTERPRISE" F"4 STATUS AND POSITION REPORT" K"5 FIRE PHASERS" P"6 FIRE PHOTON TORPEDO" U"7 MAP 4K(10,10),S(10,10),B(10,10),A$(3),B$(3),A(8,8):CA99k "THE SYMBOLS USED IN THIS PROGRAM"8)"LONG RANGE";24)"SHORT RANGE""STAR";12)"S";29)"*""KLINGON";12)"K";29)"###""STARBASE";12)"B";29)"" #"ENTERPRI          )90T(A1,4)270U11*N+*N ONE GOSUBM*NT(A1,4)180T(A1,4)360U11S*BOb*LO 15 GOSUB*VOT(A1,4)0T(A1,4)180U11*O*O IS A RED GOSUB*OS91İ20600*OS91İ20700*OS90S30* P*P IS NOT A RED GOSUB*PS90İ21300)' PROGRAM PROPER SECTION.&)`'51000)t'4100;)~'22800K)'U2114990U)'6500_)'8700i)(6200y)(Q4110100)(5200)h)7500))S3010080)0*10100):) N ONE GOSUB)*NT(A1,4)90T(A1,4)270U11)zN)N 38 GOSUB*NT(A1,4),L(T(M1,2),0)1)M14(&L(T(M1,2),0)L(T(M1,2),0)1<( &M1B(>&^(H& PRINTING BALLS GOSUB g(R&M31{(\&V2T(L(M1,1),1)(&V2)B$(T(L(M1,M3),3));(&(& N AWAY GOSUB(&V94V94(&V98V94(&P(3S1)P(3S1)V9(&S30(&8100(''% ROLLING CUSHION GOSUB2'%T(A1,1)1İ20000I'%T(A1,1)38İ20100_'%T(A1,2)1İ20200v'%T(A1,2)15İ20300|'%'% DATA SORT GOSUB'%6400'%M1122'%T(M1,1)(T(M1,1)0.5)'&T(M1,2)(T(M1,2)0.5)'&T(M1,2)09760( &L(T(M1,2GAME GOSUB/&#"WOULD YOU LIKE ANOTHER GAME ?"9&$1400?&J$c&% BALL COLLIDES WITH BALL GOSUBy& %T(A1,3)1ĺ"A ";&"%T(A1,3)1ĺ"THE ";&&%B$(T(A1,3));" COLLIDES WITH ";&0%T(B1,3)1ĺ"A ";&:%T(B1,3)1ĺ"THE ";&D%B$(T(B1,3));"."'v%! D11X1D21Y133006! Q(D11,D21)1X$X$"*"U! Q(D11,D21)1X$X$" "_! 3310m! X$X$"#"{! X$X$" "! D2! D1;" ";X$;" ";D1! D1! 3350! ! "***1*2*3*4*5*6*7*8***"! !* !4 A1 b 2200 l 0 v "YOU HAVE RUN OUT OF "C$Y "THE LOG PRIOR TO YOUR DESTRUCTION"q "WAS AS FOLLOWS:-" Z$"DEAD" 2070 3370 :"* = AREA ALREADY SCANNED" "# =PRESENT POSITION " 3350 D118 X$" " D218SION AVOIDED***" X5X5P8# 8& E1E1(K9W2)10`0 "***ALERT***ALERT***ALERT***ALERT"5 "ENTERPRISE COLLIDED WITH ";C$7 "DAMAGE REQUIRED ";(K9W2)109 "ENERGY UNITS FOR REPAIRS."D A(X5,Y5)93170N K1K11 X K(X1,Y1)K(X1,Y1)E COMPUTER REPORTS IMMINENT "9 "COLLISION WITH A ";C$a "EVASIVE ACTION BEING IMPLEMENTED"p K9(1)10 K9W2103110 J50 P8221 X5P80X5P883060 A(X5P8,Y5)1J5P8 P8 J503080 3110 "***COLLIKING EVASIVE ACTION."@ 2530%J /T 24308^ L21Ah T19Kr 1340Z| A(Z1,Z2)1` } A(X5,Y5)1A(X5,Y5)5ı A(X5,Y5)17C$"BASE" A(X5,Y5)9C$"KLINGON" A(X5,Y5)13C$"STAR" 5)"***COLLISION WARNING***" "GUIDANC"BATTLE COMPUTER HAS LAUNCHED TORPEDO-"6 E202770P "NO TORPEDOES LEFT."V \ h E2E21q T19{ 2310 R(Z1X5)(Z2Y5) E720(R(1)) E722840 2480 T19 2310 A(Z1,Z2)1  "KLINGON CRUISER TA26602 Y512630+< A(X5,Y51)52660:F Y582650QP A(X5,Y51)52660WZ bd E1500kn E23x B(X1,Y1)B(X1,Y1)1 B1B11 "SUCCESSFULLY DOCKED WITH STARBASE." "ENTERPRISE FULLY REFUELED."  K(X1,Y1)0ı' E20ĺ1  2200 $ E1E1(K55)RL "BATTLE COMPUTER REPORTS KLINGON "c "RETURNING FIRE." K5(5R);"UNITS OF DAMAGE TO " "THE ENTERPRISES' SHIELD'S." 2910  X582590 A(X51,Y5)52660 X512610( A(X51,Y5)5LAST." V C` C1ı$j E1E1C.t 22007~ T19A 2310Y R(Z1X5)(Z2Y5)g K5K5CRv K502530 A(Z1,Z2)1 K(X1,Y1)K(X1,Y1)1  "-*-*-KLINGON SHIP DESTROYED-*-*-"  "ONLY ";K11;" KLINGONS TO GO" K1K1HE EVIL KLINGONS."3230( Z1184 Z218G A(Z1,Z2)T1ıO$ Z2W. Z1`0 Z18i2 Z28o8 B K(X1,Y1)0ıL "**PHASERS LOCKED ON TARGET**"Q "BATTLE COMPUTER REQUESTS"S "NO. OF ENERGY UNITS TO FIRE "T "IN THE PHASER BOES: ";E26"ENERGY: ";E1;" UNITS ";E1600100;" %"<BRE102240aT02260qK102280wC$"ENERGY"3190C$"TIME"3190"CONGRATULATIONS YOU HAVE SAVED""THE UNIVERSE FROM THE CLUTCHES""OF TX ONE COLOUR GOSUB2X21000+2XV9S9162X21000?2XS31E2Ya2Y REDS LEFT CHECK GOSUBj2YS60w2$YM11152.YT(M1,1)0S6128YM12BYS60S322jY2tY NO REDS NONE DOWN GOSUB 2~YE602YM116212YT(M1,3)S422960 3YT(M1,9) 1W81001WS31 1W21000&1WC1W REDS AND COLOURS GOSUBL1WE60Y1WM11S9o1XD(M1)1E6E611 XD(M1)V9V9D(M1)1XM11 XD(1)1İ99001*XD(1)1İ226001>X1HX FIRST A COLOUR GOSUB1\XE61İ99001fXE61İ227001X2hV210000rVD(S9)7U21#0|VS32)0VK0V REDS LEFT COLOUR DOWN GOSUBg0VD(S9)1D(S9)8İ209000VD(S9)1D(S9)8İ224000W0W REDS LEFT N DOWN GOSUB0&WT(22,1)0İ2250000WT(22,1)0İ219000vW0W SCORE A COLOUR GOSUB 1WV9D(S22,1)0İ21900/U0/U WHITE ONLY DOWN GOSUB:/UV9S5D/U9900J/Ui/U IS IT RIGHT COLOUR GOSUBr/UE60~/UV9D(1)/VM11614D(S9)/VT(M1,1)0E61/VM1/"VE61İ21100/,VE60İ22100/JV/TV RIGHT COLOUR GOSUB/^VV9D(S9)0.TS90İ9900 .TS90İ21400&.VT?.`T NO REDS LEFT GOSUBP.jTS91İ21800a.tTS91İ21400r.~TS90İ22900x.T.T REDS LEFT GOSUB.TS91İ22200.TS91İ22300.TS90S30.U.(U ONE COLOUR DOWN GOSUB.SS44V9S4u-HS9900{-S-S FOUL AND N BALLS DOWN GOSUB-SM11S9-SD(M1)V9D(M1)8V9D(M1)-SM1-S21100-S-S RED NOT COLOUR GOSUB REDS DOWN GOSUB ,JQV9S9&,TQ21000/,hQS328,rQE71>,QZ,Q ONE COLOUR DOWN GOSUBg,QV9D(S9)w,QV98V9S5,Q9900,Q,R SCORE PLUS GOSUB,:RP(S1)P(S1)V9,bR,lR COLOURS DOWN GOSUB,vRT(22,1)0İ20930,RT(22,1)0İ21200-+(PS90İ21400+nP0+xP ONE BALL DOWN GOSUBC+PD(1)1İ20800W+PD(1)1İ20900]+P+P MORE THAN 1 BALL DOWN GOSUB+PE10+PM11S9+PD(M1)1E11+PD(M1)8D(M1)V9V9D(M1)+QM1+QE10İ20800+QE11İ21100+6Q,@Q N  A15000:A R1%J @T XX(S1200):X0X5V^ YY(Y1):Y0Y5gh Y160Y160m 'K(16384):G$"":K12810090'G$(K128)j'16368,0: S15Y1(R11000)158 d S1100Y15:YY20:Y0Y5M n F1F1(R11000)b p F10F10:R10h X35X25ĭY6S13002750 2790 10:10:"SAFE LANDING" A15000:A R1 X5Y52890 10:11:"CRASH CRASH"";F1  2:"R.P.M...";R1 V { ` Y7191((YY1)(1Y1)):X,191(YY1)X10,Y7X12,Y74X9,Y72X2,Y7(2Y1)X,Y7Y1 ( 10000:G$"Q"Y15Y1Y11 2 G$"Z"Y15Y1Y11 < G$"I"R10R1R11000 F G$"M"R125000R1R11000 Z S1 :"END OF GAME": ' 10000- b3 l9 E ""K *U 41900[ >a h 7 10,19135,19138,18713,18710,191 36,18932,189  1:1:A14:A:10:" ":A 1:2:"SPEED...";S1  2:"FUEL.... DOWN" " Z......NOSE UP"9 " I......LOWER R.P.M."V " M......HIGHER R.P.M." :"CRASH/LAND STATUS GIVEN AT END OF FLIGHT" ,1600 6 @20:"GAME OR QUIT" J"ENTER G OR Q" T1800 hG$"G"G$"Q"1600   "" $S1300:F12000:R115000 & : "INSTRUCTIONS"@ e "THE NOSE OF THE AIRCRAFT MUST" "TOUCHDOWN ON THE END OF THE" "RUNWAY."  "STALL AT SPEEDS LESS THAN 100." "LANDING SPEED LESS THAN 300."  " Q......NOSE d1000n1500%pG$"Q"980.r1308x1600B2100L2200V2300f0:2400:7p2600z290024002700R11002800R11001501700B1:2000R0:X240:Y160:Y10     ZA(10,10)d1000#x2900-600075200A62800O@S11100Y^5300gA13970A120000,21000,22000,23000,24000,25000,26000,27000,28000,970"" 1 GOSUBD$""D91N$"SPACE SEARCH"    X(X5):Y(Y5):1600:"0"1o C100S11:3190Ap 3200:3160Gv y A14:XP(A,1):YP(A,2):1600:"*";P(A,3):A  W" "3150D 3100"N X5X1:Y5Y1AX X(X5):Y(Y5):1600:" "gZ CC1:X10:Y1:1600:"TIME = ";Cb A14:X4P(A,1)X5:Y4P(A,2)Y5:R(X42Y42).5:X5X5X410R3:Y5Y5Y410R3:Af X513190h X5W3190j Y513190l Y5H3190nB))1:B:A= A14:XP(A,1):YP(A,2):1600:"*";P(A,3):AK X11:Y11Q  p  XX1:YY1:1600:" ":2600 & A$"Q"Y11Y1Y11 ( A$"Z"Y1HY1Y11 * A$"I"X11X1X11 , A$"P"X1WX1X11 0 XX1:YY1:1600:"0" 2 3200: A$CAN SURVIVE FOR 100 TIME"B "UNITS, YOU WIN, IF NOT, YOU LOSE!"e  "ANY KEY TO PLAY, Q TO EXIT"~  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:A14:B13 1800:P(A,B)(RAD( CRAFT IS"8 "SHOWN AS 0. INITIALLY YOU MAY PUT YOUR"a "CRAFT WHERE YOU LIKE: Q=UP Z=DOWN" "I=LEFT P=RIGHT. WHEN YOU THINK YOU ARE" "IN A SAFE PLACE, PRESS THE SPACE BAR." "YOUR CRAFT IS NOW UNDER GRAVITY OF THE" "PLANETS. IF IT 1)0E613YM1"3YE61V9S423YE61İ9900;3YS30A3Y A600:" "5X O1:2400:XX2:YY2:1600:" ":O0:2400Jb Y2Y1J0:II1Xd J63190f X3:Y3:1600:K$:1600:"SCORE = ";I:XW12:1600:"MISSES = ";Jl 3100v :O0:2400:XX2:YY2:1600:" "> & A$"I"X1X11:X11X11] 0 A$"P"X1X11:X1WX1Wy 6 X22X2W1X3X3(1) 8 Y22Y2H1Y3Y3(1) : X2X2X3:Y2Y2Y3 < Y2Y1X2X1Y3Y3(1):Y2Y2Y3:JJ1:XW2:YH2:1600:2000N XX1:YY1:1W:1600:" ":Y* X1:Y(H2):1600:B$W X2(W2):Y2(H4):XX2:YY2:1600:" "e O0:2400 X1(W2):Y1(H2):XX1:YY1:1600:" " X31:Y31 I0  A$K$:S1:F35:1900:K$M$  2600    2600:O1:2400:XX1:YY1:1600:"#":1600:2700  ; ( A(16384):A$"":A127A$(A128)I 2 16368,0O W A$] B$"#######################################" A$S$:S1:F39:1900:K$M$ O1:2400:X1:Y1:1600:K$:YH:1600:K$ Y2H1:X1:1600:" ":X THE PUC THROUGH THE"5 "GATE IN THE MIDDLE LINE."a "YOU ARE ALLOWED 5 MISSES. YOUR SCORE" "INCREASES EACH TIME THE PUC GOES" "THROUGH THE GATE." "I MOVES THE GATE LEFT, P MOVES RIGHT."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22  A$S$:S1:FZ:1900& M$, 8 RA(1)> bS lM$(A$,S,FS1)Y b ""h *p Q$v V ` O0ĝ j O1Ğ 1500:O1:2400 "ATTACKER BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOU MUST TRY TO GET d1000n2500%xA$"Q"900/300093100\,X3:Y5:1600:A120:2000:Ae100y1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6 @X:Y      d1000n2500%xA$"Q"900/300093100I,S11İ3300Y6S10İ3400b100v1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6@X:Y :P5S1(3)46802 P5S2(3):X5S2(1):Y5S2(2)IHX510X52694690`JY510Y51824690jL3200pR8V3)"PRESS BUTTON TO FIRE MISSILE"'HV4)"--++**##:::::##**++--"N&_0 BLIP GOSUBl:A1130|DT(16336)NA1 PING GOSUBA11A9""A1 BLANKOUT GOSUB0T104640  X5S1(1):Y5S1(2)T7)"AP2. COPYRIGHT @ 1980."$-V367V410_T8)"DATABANK (SOFTWARE SERVICES)"ezT9)"SPACE DOG"T9)"========="V1)"PRESS EITHER PADDLE BUTTON TO PLAY"V2)"YOU CONTROL DIRECTION OF CRAFT"!T53)G1(0);BT63)G1(1)'J42001L4300WT(16287)127(16286)1274190aV4180g^m`h HASH LINE GOSUBr|"#######################################" BLURB GOSUBT916T86:V13:V24T79794050Y50Y51914050(X5,Y50A1:4400FA91T1P4500Z4400cA91m4500vQ11G1(T1)G1(T1)1 SCORE GOSUB"4200$T59&T624,T5)"PLAYER 1";6T6)"PLAYER 2"8 @2< SHIP 2 DONE GOSUB2FX4S2(1):Y4S2(2)<P4000BV BLOW UP GOSUB`4600g7qJ125~A1115T(16336)A1A1150T(16336)X1J1((1).5)Y1J1((1).5)X5X4X1:Y5Y4Y1X50X52Q113690(LS2(1)X1:S2(2)Y1:S2(3)P1.jFt IS SHIP HIT GOSUBOvC57^|T103720~(S1(1)X7)C5(S1(2)Y7)C5İ3800T113790(S2(1)X7)C5(S2(2)Y7)C5İ3900 SHIP 1 DONE GOSUB X4S1(1):Y4S1(2)4000913500 7 X7,Y7# X8X7- Y8Y77 3700F Q113590P 3550V l  TWO SHIPS GOSUB X1S1(1):Y1S1(2):P1S1(3):T10 $3400 &Q113690 .S1(1)X1:S1(2)Y1:S1(3)P1 8X1S2(1):Y1S2(2):P1S2(3) :T11 B3400 D300 3500 $ FIRE GOSUB- X806 Y80@ Y7Y1J X7X1T F1T1o (16287F1)1283590y C410 X9((C2)C4) Y9((C2)C4) 0 T(16336) X7,Y7 X7X7X9 Y7Y7Y9 X70X72793500 Y70Y71* 3200 >  H MOVE GOSUB( R X2X12 \ Y2Y1< f P2P1V p P1P1((T1)128)128f z C2P13.392o | C37 X1X1((C2)C3) Y1Y1((C2)C3) X10X1X1279 X1279X1X1279 Y10Y1Y1191 Y1191Y1Y1191 3100 3b 3200 v  PLOT GOSUB( C1.5Q X5,Y5X5(10(P5)),Y5(10(P5)) X5,Y5X5(10(P5C1)),Y5(10(P5C1)) PLOT NEW GOSUB U14 7U1T1 Y110Y11813390  X110X12693390 X5X1  Y5Y1 P5P1 79,00,0 0A1180% 1X1(1)2795 2Y1(1)191F 3(7(1)1)Q 4X1,Y1Y 6A1b 8Q10h Bv L GOSUB-2| V  A1 1700  CLEAR OLD GOSUB & X210X22693190 0 Y210Y21813190 : 0 D Y5Y2 N X5X2 X P5P2 q d4100n1000x3600-zQ111006120@1100FT GOSUB-1[7f16384lxA112S1(A1)((1)279) S2(A1)((1)192) S3(A1)6.284(1)A10,00,1910,191279,191$279,191279,0 .2      d1000n2500%xA$"Q"900/300093100,S10X10:Y10:1600:"YOU LOSE!":A125:X1:Y1:1600:2000:A6S11X1:Y1:1600:2000:X10:Y10:1600:"O.K. YOU WIN!":A14000:A>S11CC1@S11S10:200100 15"""""""1600:"DIAL POSITION = ";C;" "I X2:Y4:1600:"DOOR NO. ";Q;" "O ~ X1:YH4:1600:"YOU HAVE BEEN CAUGHT!!!" A125:X6:Y6:1600:2000:A> H X1:YH4:1600:"YOU HAVE OPENED THE SAFE":2000:2000R A12500:A W(PC):3200:C < CP& > CK31600 N 3100H X Z0:QQ1:Q43190V Z Q2KK2d \ Q3KK3l ^ C1v ` 3200 a 2000 b 3100 v X1:Y10:1600:B$ Y10:X1:S1:F((CK)2)1:A$S$:1900:1600:O1:2400:M$:O0:2400! X2:Y2:C1:1800:K1(RA50)1:1800:K2(RA50)1:1800:K3(RA50)1:KK1P Q1:Z0Z 3200x A$S$:S1:FW:1900:B$M$~   ZZ1:Z6S11:3190 & X1:YH5:1600:"TURN TO ";:2300:1600:B$ ( P((Q$)):P1P513110 / PC3110 : CCPHORT YOU ARE NEAR THE"B "NUMBER, WHEN IT IS LONG YOU ARE NOT."h "YOU HAVE 5 TRIES AT EACH DOOR."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ D 1500:G TO OPEN A SAFE."? "THERE ARE THREE DOORS TO BE OPENED IN"m "TURN. THE DIAL HAS A RANGE OF 1 TO 50." "IF YOU TURN THE DIAL TO THE CORRECT" "SETTING, THE DOOR WILL OPEN." "THERE IS A LIGHT INDICATOR TO HELP YOU," "WHEN THIS IS S A$S$:S1:FZ:1900# M$) 5 RA(1); bP lM$(A$,S,FS1)V _ ""e *m Q$s V ~ ` O0ĝ j O1Ğ 1500:O1:2400 "SMASH THE WINDOWS BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOU ARE TRYIN3100 v 2A.5K1- : 1800:C3Y3(Y1((Y2RA))K)K < C2X3(X1((X2RA))K)d N XX3:YY3:1600:"Z" X X10:Y3:1600:"SCORE = ";J b X2:YH2:1600:B$:1600:"HOW FAR ";:2300:1600:B$ d D((X1X3)2(Y1Y3)2).5 f (D(Q$))2I1:JJ1l I0 Y31:X311 A$S$:S1:FW5:1900:B$M$7  P  XX3:YY3:1600:" "^ & I13120} ( X2X21:Y2Y21:Y203190 0 1800:C(RA4)1 1 I0 2 C1X3X1X2 4 C2X3X1X2 6 C3Y3Y1Y2 7 C4Y3Y1Y2 8 1800:RA.5K1 9 RDS ON YOU!".  "ANY KEY TO PLAY, Q TO EXIT"G  X1:Y22:1600:2700M  v ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:O1:2400:X(W2):Y(H2):1600:"H":O0:2400 X1(W2):Y1(H2):X2X11:Y2Y11 S SCREEN CENTRE SHOWN BY H."I "A ZION SHIP CAN APPEAR ANYWHERE SHOWN"V "BY Z." "YOU MUST GUESS HOW FAR THE SHIP IS FROM" "YOURS. IF YOU ARE CORRECT, YOUR SCORE" "INCREASES. IF WRONG, THE ZION GETS A " "LITTLE CLOSER UNTIL IT LANX:Y # A$S$:S1:FZ:1900+ M$1 = RA(1)C bX lM$(A$,S,FS1)^ g ""m *u Q${ V ` O0ĝ j O1Ğ 1500:O1:2400 "ZION ATTACK BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOUR SHIP I  d1000n2500%xA$"Q"900/300093100a,XW:Y1:1600:A120:2000:A:100j100~1500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "6 @     00 2 1< 2700F 0-P Q1((1)228)GR (Q12)Q12Q1Q11ST Q3Q31dZ Q3Q5S11sd S112690}x 2700  PLOT GOSUB Q1,20Q1,50 Q1,35Q150,35 Q150,20Q150,50  HIT GOSUB S142890 X11010A11X110A121C10!~ A1' 8 FIRE GOSUBU C10(16287)1282590_ 3700k Q3Q31 X110,161X110,0 1 X110,161X110,0 0 2800 ( ENEMY GOSUB* Q2Q21, Q2Q42690. Q200 S101 44  BOX GOSUB$ X1,Y1X2,Y15 X2,Y1X2,Y2F X2,Y2X1,Y2W X1,Y2X1,Y1] m  WAS GOSUBt  1  X1P2:X2P220:Y1169:Y2179  2200 $ X110,Y18X110,Y1 L 0 V ` AIM GOSUB b C11 j A1B(14)B(15)B(16)t X1B(17)B(10) 2200 A1' S140 Q30: Q410@ U  OUTALISE GOSUB[ a *v 4 POSITION GOSUB >P1((0)255259) H(P12)P12P1P11 RX1P1 \X2P120 fY1169:Y2179 p2200 zP2P1 X110,Y18X110,Y1 $B(13)180 %B(14)27& &B(15)2403 'B(16)40A (B(17)150N )B(18)20Y B16384_ Li VB(1)| `A1B(0)B(11) jB(0),A1B(12),A1 tA1B(13)ĒB(2) ~A1 B(0) A1B(14)B(15)B(16) X1A1 X2A1B(18) Y1B(17) Y2 185 "YOU HAVE WON THE GAME. PRESS BUTTON FOR"R "A NEW GAME CHAMPION!!"_ A8130i 3000s 3100{ A8 2900 Q510 100 2000   INITIALISE GOSUB A1010 B(A1)A1 A1 B(11)191 B(12)279 D2900 FQ510 N100# X- vQ4106 Q30B Q5Q51L 3600\ A2110Q5f 3100n A2| Q50700 2900 S14 100 18 " " " "  B(20)Q510 24000*d10004n2300>x2100H2400R2500`S12400j2600xS11500110Q4Q41Q42600Q2Q41S14Q303000110A2143000&A2 03300!!!!!"(A):SX1:FX1:1900:M$"#"S11&  & RA.3T$(B)T$(B)"#"/ 0 1600:T$(B):YP : 2600:A$"Q"Y1L1Y1Y11m D A$"Z"Y1L14Y1Y11 N XX1:YY1:1600:O1:2400:" ":O0:2400 X 3200:S113190 b JJ1:X(W2)5:Y5:1600:"SCORE = ";J l 3100 v AY1L11:A$T$ A$ M 1500:L1(H2)2:XW10:YL12:1600:O1:2400:" ":O0:2400a X1W10:Y1L12 A$S$:S1:FW:1900:B$M$ A15:T$(A)B$:A   X1:YL1L14:1600:B$:1800:BYL11:A$T$(B):S2:FW:1900:T$(B)M$:RA.3T$(B)T$(B)" "YOU ARE THE WHITE SQUARE. YOU MUST NOT"< "LAND ON A #. "\ "TRY TO GET A HIGH SCORE."} "Q FOR UP Z FOR DOWN."  "ANY KEY TO PLAY, Q TO EXIT"  X1:Y22:1600:2700  ( A(16384):A$"":A127A$(A128) 2 16368,0  6 @X:Y + A$S$:S1:FZ:19003 M$9 E RA(1)K b` lM$(A$,S,FS1)f o ""u *} Q$ V ` O0ĝ j O1Ğ 1500:O1:2400 "IVASIVE ACTION BY U.T.S." O0:2400 :"INSTRUCTIONS":' "(  T$(5)d1000 n25000xA$"Q"900:3000D3100i,A120:XW1:Y1:1600:2000:Ar1001500:O1:2400"END OF GAME":O0:2400W39:H23:S10:J0xS$" "      162006S(6)013880#$616300..61498098617000DB614980O:15900U:i: CLEAR B GOSUBu:A113:A213:B(A1,A2)0:A2:A1:: ROTATING B GOSUB;A113;C(3,A1)B(A1,1);C(4A1,3)B(3,A1) $;C(1,4A1980 4 COMPUTER HAS FIFTH GO:34S(3)413800C4S(3)S(3)1N516010Y 516200k5S(6)013620v 516300*51498045B(2,2)013650>5B(2,2)4H514980R517000\5149805 COMPUTERS OTHER GOES:5S(3)S(3)16160106316300314980'3B(2,2)11328043B(3,1)4?314980\3B(1,2)0B(2,3)113350{3B(1,2)0B(3,2)1133203B(3,2)0133003B(3,2)43149803B(3,1)43149804T(4)1133504B(1,1)4414980&4B(1,3)44140,3 COMPUTER HAS THIRD GO:1.3S(3)213170A13S(3)S(3)1c63B(1,2)B(1,3)B(2,3)113140p@3B(2,3)4{J314980T3B(3,2)4^314980r3 COMPUTER HAS FOURTH GO:|3S(3)3135403S(3)S(3)13160103162003S(6)0132502,2)42S(3)S(3)1!214980?2 COMPUTER STARTS SECOND:R2S(3)113100b2S(3)S(3)1v2B(2,2)1130902ZZ3B(2,2)42ZZ3B(1,1)1B(1,1)42ZZ3B(1,1)1B(1,3)4214980"3ZZ3B(1,1)4$3ZZ3B(1,2)4'314982S(2)02A$"NO"12890 2@(2"ANSWER YES OR NO PLEASE:"F22Q<2S(1)1\F212890gP2S(2)1mZ2d2 COMPUTERS GO GOSUBi215600n2S(3)013000s2S(4)((Z6)3.999)t2S(5)((Z6)1.999)u215600x2ZZ3B(1,1)4z2ZZ3B(ANOTHER:"/012130) 0A(A1,A2)1/0Fp0 VALIDATION GOSUBVz0A1((A$))k0A10A1412490v0S(1)1|081 SQUARE TAKEN GOSUBB1S(1)0V1A(A1,A2)012790j1S(1)112 YES OR NO GOSUB2S(1)0 2A$"YES"12880 l/S(1)0v/A1$,A2$$/A$A1$//12400U/S(1)1ĺ"OUT OF RANGE: RE-INPUT"g/S(1)112130r/A$A2$}/S(1)0/12400/A1((A1$))/A2((A2$))/S(1)0/12600/S(1)112300/ /"THAT SQUARE HAS BEEN TAKEN. TRY REFLECTION FACTORS GOSUB#*+15400L\+B(1,1)B(1,2)B(1,3)B(2,2)111200\f+S(4)S(4)1gp+15100r+11100+B(1,3)111990+S(5)1+15300V,S(5)011500`,15300.D/ YOUR GO GOSUBI/S(3)S(3)1N/X/"YOUR GO:-"b/ A$ A$"YES"10000  SOMEONE HAS WON!6 'O ' BOARD PRINT GOSUB U '` $'20000f Z(l d( ( INITIALISE GOSUB (A113 (A213 (A(A1,A2)0 (A2 (A1 (A118 (S(A1)0 (A1 (Z6Z61 ** ROTATION AND F10000 K16700& PS(8)110007 ZS(8)29990B d12100M n10000X s16700i xS(8)11000z S(8)29990 S(3)91500 12900 10000 16700 S(8)11000 S(8)29990  "STALEMATE: ANOTHER GAME ?"  12100 10000 12900+ 100006 12100A 10000L 16700] S(8)11000n S(8)29990y 12900 10000 16700 S(8)11000 S(8)29990 12100 10000 #16700 (S(8)11000 2S(8)29990 <12900 "PRESS RETURM:-" A$( 26000?  CONTROL SECTION:P S(9)11200[ 10400f 10000l  "WOULD YOU LIKE FIRST GO ?"  A$ $12800 .S(1)11040 8S(2)01130 B12100 L11000 V10000 j12900 t10000=" 1 "COMPUTER O'S AND X'S IS JUST LIKE"^ "THE NORMAL GAME. HOWEVER, YOU MUST BE" "ABLE TO TELL THE COMPUTER YOUR MOVE: "ENTER 1,2 OR 3 THEN A COMMA, THEN" "ANOTHER NUMBER 1-3." "FIRST NUMBER = ROW, SECOND = COLUMN." M! NOUGHTS AND CROSSES GAME.: DIMENSION SECTION:DZ683J2fd INSTRUCTIONS SECTION:lmn"WOULD YOU LIKE INSTRUCTIONS ?"pA$xA$"NO"270"NOUGHTS AND CROSSES INSTRUCTIONS:" "================================          !!! ! ! ! ! !!!!SHIP"$T1)"*******************"*6T1T11XT1)"AP3 COPYRIGHT @ 1980."`10"KEEP FIRING AT SPACESHIP, AFTER EACH""HIT THE GAME WILL SPEED UP.""A LONG SEQUENCE OF MISSES LOSES GAME."T53T5)"PRESS BUTTIN ROUND: ";10Q5: BT26HLT2)"BUT THE GAME NOW GETS HARDER"QNT38uPT3)"PRESS BUTTON TO CONTINUE"{jt HUM GOSUB~A7110I(16336)A7 INSTRUCTIONS GOSUB5T110T1)"DATABANK SPACE- (10Q5)100(10Q4)10' 20:115 "POINTS"; L BASH GOSUBW 9:13n "***************"z A313 13) "* *" A3 13)"***************" WIN GOSUB3400$16.T1128T1)"YOU W LOSE GOSUB 3400! 18* T13Y T1)"YOU LOSE. PRESS BUTTON FOR NEW GAME"_> sH GENERAL GOSUByJ R \ 3200^ _ T111` T1)"DATABANK SPACE-SHIP"b T1)"*******************"f 22p 3200r 3500z 11:15Q1X110Q1502890 S12#J 5T PAUSE GOSUBM^ (16287)1272910eh (16287)1282920k } NOISE GOSUB 3700 3110  PING GOSUB& "";v  HASH GOSUB "#######################################" !e"ENTER CHOICE ";A$&!eA1((A$));!eA11A1326000E!fZZA1K!f X42ĺ"0 0";( SA(A1,A2)4A42ĺ" 0 ";F SA(A1,A2)4A42ĺ"0 0";^ *SA(A1,A2)0ĺ" ";f fSA2l pSt zSA4| SA1 a e e6)"HOW HARD A GAME DO YOU WANT?" e e6)"1 TO 3" e e6)"1 = EASY" e e6)"3 = HARD" eARD GOSUB*NRA113.52:RA1(A1)21200GDR" 0 0 "TNRA5115^XR"0";fbRA5llRvR" 0 0"R21500RA413RA213.5RA2(A2)21250R" 0 ";R21350SA(A1,A2)1A42ĺ"000"; SA(A1,A2)1AA$"NO"169806B16990$TBS(8)2*^BJhB FILL IN FIRST SPACE GOSUB_jBB(3,3)017010llBB(3,3)4wnB17090rBA113|BA213BS(7)117060BB(A1,A2)017060BS(7)1BB(A1,A2)4BA2BA1BS(7)0B  N BIG BOA19)Y1;27)C1A#A169007AT(A1)316900=AIAY1Y11TAS(8)1ZAA"YOU WIN. YOUR SCORE COMPUTER'S SCORE"AA13)Y1;30)C1ABA1 BS(8)116990BB"WOULD YOU LIKE ANOTHER GAME ?"B"BA$,B@S(7)1j@16600!t@B(A3,A2)0)@A21@A3<@S(7)0G@S(6)0M@mT(A1)0>A1>A1134>T(1)T(1)B(1,A1)J>T(2)T(2)B(2,A1)`>T(3)T(3)B(3,A1)v>T(4)T(4)B(A1,1)>T(5)T(5)B(A1,2)>T(6)T(6)B(A1,3)>T(7)T(7)B(A1,A1)?T(8)T(8)B(4A1,A1) ?A1?H? TWO IN A ROW CHECK GOSUB400"=S(4)015800$,=A31S(4)/6=151007@=A3I=S(5)015850T=15300Z=y> B TRANSFORMS TO A GOSUB &>S(5)0159500>15300N>S(4)015990X>A314S(4)b>15100l>A3v>15500>> TOTALING GOSUB>A118 B(A1,2);A1<15200! <9(< COPY A TO B GOSUBE2 .3300)5 X15(X15)Y15(Y15)3190H6 2600:A$"Q"Y11Y1Y11a8 A$"Z"Y1HY1Y11z: A$"I"X11X1X11< A$"P"X1WX1X11> 3200@ X35(X35)Y35(Y35)3150D X5X1X3:Y5Y1Y3F XX3:YY3:1600:" " H X3X3(X5)XX1:YY1:1600:" "> 1800:X2(RAW)1:1800:Y2(RAH)1h 1800:X3(RAW)1:1800:Y3(RAH)1 X5W5:Y5H5:1600:"0" Y:X   2600:A$" "3100 & X1X1X110:3200:3300:X1 0 X1X2:Y1Y2 2 XX3:YY3:1600:"#"4 Z=DOWN I=LEFT P=RIGHT.";  "ANY KEY TO PLAY, Q TO EXIT"T  X1:Y22:1600:2700Z  ( A(16384):A$"":A127A$(A128) 2 16368,0 A$ 1500:X9(W2):Y9(H2) X11:Y1Y9 XW1:Y1H:1600:O1:2400:" ":Y ERE ON"4 "THE SCREEN. AN ALLIEN CRAFT WILL THEN"` "TRY TO CATCH YOU, IF IT DOES YOU ARE" "DEAD! IF YOU OR THE ALLIEN MOVE ONTO" "ANY OF THE DEATH STARS YOU WILL BE" "ADSORBED! SAFETY IS IN CROSSING THE" "WHITE LINE." "Q=UP* Q$ V  ` O0ĝ' j O1Ğ- A 1500:O1:2400] "BLACK HOLE BY U.T.S."k O0:2400 :"INSTRUCTIONS": "YOU ARE THE WHITE SQUARE, PRESS THE" "SPACE-BAR AND YOU WILL ENTER A BLACK" "HOLE, YOU COULD RE-APPEAR ANYWH00:O1:2400) "END OF GAME":O0:2400/ F W39:H23:S10:J0N C0 xS$" "   6 @X:Y  A$S$:S1:FZ:1900 M$  RA(1) b lM$(A$,S,FS1)  "" ON TO PLAY SPACE-SHIP"%T69DT6)"(GAMES PADDLE NO.1)"N2900T&g0 CLICK GOSUB w:I(16336)}DNI(16336)dQ1:Y21:1600:M$ N03600W X17:Y11:1600:" ":X18:1600:N:2000a 3210o N13570x Y11 3450 1800:Y11(KRA) 3450J1J11:1500:X11:Y11:1600:"O.K. YOU WIN!":A1500:A:100 1500:X9:Y11:1600:"COMPUTER WINS!":I1I11:A120:X1:Y1:1600:2000:A:100 R X17:Y11:1600:" ":X18:1600:N:2000 \ Q((N1)(K1)) f Y1N1Q(K1) p Y103530 z NNY1 X1:Y21:1600:"MY MOVE IS ";Y1:A1300:A X7:1600:"YOU ";J1:X18:Y7:1600:"COMPUTER ";I1[ b X2:Y11:1600:"THE NUMBER IS:- ";N X1:Y21:1600:"YOUR MOVE, HOW MANY ? ";:2300:X1((Q$)) X1KX11İ2000:3210 A$S$:S1:FW:1900:X1:Y21:1600:M$ NNX1  N03410Q Y22:1600:2700  ? ( A(16384):A$"":A127A$(A128)M 2 16368,0S [ A$a k 1500 0 1800:N20(80RA) : 1800:K5(10RA) D X2:Y2:1600:"TAKE AWAY LIMIT IS ";K N X2:Y4:1600:"LAST PERSON TO MOVE, LOSES!"2 X X4:YR TO"3 "SUBTRACT FROM THE NUMBER. YOU CAN TAKE"X "ANYTHING FROM 1 TO THE LIMIT." "EVENTUALLY EITHER YOU OR THE COMPUTER" "WILL TAKE THE LAST NUMBER. WHOEVER" "TAKES THE LAST NUMBER, LOSES!"  "ANY KEY TO PLAY, Q TO EXIT"  X1:1) b lM$(A$,S,FS1)# , ""2 *: Q$@ V K ` O0ĝV j O1Ğ\ p 1500:O1:2400 "BOGGLES BY U.T.S." O0:2400 :"INSTRUCTIONS": "YOU ARE GIVEN A NUMBER AND A LIMIT." "YOU TAKE TURNS WITH THE COMPUTE d1000n2500%xA$"Q"900/3000C1500:O1:2400`"END OF GAME":O0:2400f}W39:H23:S10:J0xS$" "6@X:YA$S$:S1:FZ:1900M$ RA("" " " " " "