L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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 ~(` d ֠z# u`&/ FEW EXTRA SECTORS OUT7&0 DISK STORAGE SPACE. =&1AGRAM CALLED 'BEE+%% WARY', WITH (LIMITEDG%& TRS-80) GRAPHICS INFO`%' STORED IN STRINGS.f%(%) PERHAPS THIS METHOD%* COULD BE USED TO%+ SAVE LO-RES PICTURES%, IN TEXT FILES INSTEAD%- OF BINARY FILES.&. THIS WOULD SQUEEZE A$ A QUICKIE LO-RES/$ JOB OF ANIMATING AE$ ROULETTE WHEEL.]$ THE MOVING OF THEw$ BLACK AND RED SPOTS$ IS DONE BY PRINTING$ TEXT STRINGS ON THE$  GRAPHICS PAGE.$!$" THIS TRICK WAS$# INSPIRED BY A TRS-80%$ PROROUGH #  1400 FIND OUT IF YOU5# WON SOMETHING.M# IF A NUMBER WINS,e# (AT 35 TO 1!) THE# SCREEN CHANGES INTO# GRAPHICS AND BEEPS.## IF THE PLAYER HAS NO# MONEY, S/HE IS IG-# NORED.## LINES 1600-1790 DONES 780-790 IS'" THE MOST USED. ITB" DOES ALL THE WORK IN[" FINDING OUT IF THEs" PLAYER HAS ENOUGH" MONEY." (IT ALSO DOES A NO-NO" IT SOMETIMES HAS TO"  POP A SUBROUTINE OFF"  OF THE STACK!)" #  LINES 1170 THYES, THE PLAYER+! IS ASKED THE CATAGORY1!K! THE FOLLOWING LINESe! FIGURE OUT WHAT THE! PLAYER WANTS TO BET! ON. IT ALSO CHECKS! TO SEE IF THE MONEY! THE PLAYER HAS IS! ENOUGH.!! THE SUBROUTINE AT" LIE PLAYER HAS'  ANY MONEY TO BET. IF@  NOT, THE PLAYER ISZ  OUT OF THE GAME ANDl  IS SKIPPED.r   LINE 630 ASKS IF THE  PLAYER WANTS TO  PLACE A BET. IF NOT  ,THE PLAYER INDEX 'N'  IS INCREMENTED. ! IF UCTIONS # THAT REMIND THE USER? WHAT TO TYPE TO PLACEY A BET (AND WHAT THEj ODDS ARE).p LINES 610-620 SET UP A WINDOW AND SHOW THE PLAYER HOW MUCH MONEY S/HE HAS. LINE 620 ALSO CHECKS  IF THS 110-480 CONTAIN* DATA FOR THE WHEELE IN THE CORRECT ORDERKf LINES 490-540 SET UP{ ALL THE ARRAYS LINE 550 CALLS A SUB- ROUTINE TO ZERO THE BET MATRICIES. LINES 570-605 SET UP SCREEN INSTR17:10:A$;:D1100:7DPX(16336)(16336)TN15:Q11,31:4:Q10,31kX10:17:B$;:QQ1bQ8āD1100::1840kl::11:"NOBODY'S GOT ANY MONEY LEFT!"v:"PLEASE COME TO THE ROULETTE TABLE AGAIN!" LINE0:1840::570:*A1C:D1SP1DJ15:((1)8)10,31ePX(16336)(16336)}4:((0)8)10,3110:17:A$:D1SPD:10:17:B$15:((1)821),31PX(16336)(16336)4:((0)8)21,31&: 0( ( ( ( ( ( ( "(TA047:4:0,39A:B^5:31,338:31,3329Yh29,337:29,3330fr8,2934x|14:25,321917,212718,2031SP1:C25:1760SP10:C15:1760SP25:C10:1760SP50:C7:1760SP75:C5:1760Q21)Q1)Q3)LPQ1Q2Q35B;" ON NUMBER ";LPKNU(N,LP)B::625QH(N)0:L(N)0:E(N)0:O(N)0::R(N)0:B(N)0"A02:C(N,A)0:G(N,A)0:NU(N,A)0:,A337:NU(N,A)0:6@:16302,0JA$" ( ( ( ( ( ( ( ( ( (":B$"( ( ( $:M(N)M(N)G(N,V)3D:NAME$(N);", YOUR TOTAL MONEY IS ";M(N):bM(N)(M(N)):M(N)01440|"HIT ANY KEY...":A$610:"FROM ?";Q1"TO ?";Q2"STEP ?";Q3"BET ON EACH ?";BBB(((Q21)Q1)Q3):780 BB(((QWON $";L(N);" ON LOW":M(N)M(N)L(N)252V(CO$)1D<V11370WFC(N,V)01370PNAME$(N);" WON $";C(N,V)2;" ON":"COLUMN";CO$:M(N)M(N)C(N,V)3ZV(G$)1dV11410nG(N,V)01410xNAME$(N);" WON $";G(N,V)2;" ON":"GROUP ";G);" WON $";E(N);" ON EVEN":M(N)M(N)E(N)2GO(N)0EO$"ODD"1290~NAME$(N);" WON $";O(N);" ON ODD":M(N)M(N)O(N)2 H(N)0HL$"HIGH"1310NAME$(N);" WON $";H(N);" ON HIGH":M(N)M(N)H(N)2L(N)0HL$"LOW"1330&(NAME$(N);" 02,0:16304,0:BB130::16303,0:.NU$IR(N)0C$"RED"1230NAME$(N);" WON $";R(N);" ON RED":M(N)M(N)R(N)2B(N)0C$"BLACK"1250NAME$(N);" WON $";B(N);" ON BLACK":M(N)M(N)B(N)2E(N)0EO$"EVEN"1270+NAME$(NHL$"H"ĺ"HIGH":HL$"HIGH"8jHL$"L"ĺ"LOW":HL$"LOW"Yt32,0:33,40:34,10:35,24:d~N1P}NU(N,(NU$))01210NAME$(N);" WON $";NU(N,(NU$))35;" ON NUMBER ";:M(N)M(N)NU(N,(NU$))36NU$"37"ĺ"00":1210%AA110:"";:163";NU$:"COLOR IS ";C$8CO$"0"ĺ"************":1060M"COLUMN : ";CO$o$G$"0"ĺ"************":1080."GROUP : ";G$8EO$"0"ĺ"************"BEO$"E"ĺ"EVEN":EO$"EVEN"LEO$"O"ĺ"ODD":EO$"ODD"VHL$"0"ĺ"************"` " ";A$;'B:780:NU(N,V)B:620E32,0:33,40:34,8:35,2318:10::::"HIT 'S' TO START THE WHEEL! ";:A$A$"S"ĉ:1600S1((1)38)1:NU$,C$,CO$,G$,EO$,HL$:32,18:33,22:34,0:35,9:"NUMBER IS 0zV(A$)1S:"NUMBER OF DOLLARS ON":"GROUP #";V1;:B:780:G(N,V)B:620|:"ON WHAT NUMBER (1-36, 0, 00)";A$A$"00"A$"37"V(A$)V(V)V37V0ĺ"WHAT?":620"NUMBER OF DOLLARS ON NUMBER";A$"37"ĺ" 00";:980::620M(N)M(N)B:2 "COLUMN? (1-3)":A$P*A$"1"A$"2"A$"3"830b4"WHAT?":620p>V(A$)1vHR"NUMBER OF DOLLARS ON":"COLUMN #";V1;:B:780:C(N,V)B:620\"GROUP? (1-3)":A$fA$"1"A$"2"A$"3"890p"WHAT?":62A$"C"800A$"G"860ZA$"R"ė:"NUMBER OF DOLLARS ON RED?";B:780:R(N)B:620A$"B"ė:"NUMBER OF DOLLARS ON BLACK?";B:780:B(N)B:620A$"N"910650 BM(N)B0ĺ"YOU DO NOT HAVE ENOUGH TO BET THAT":"AMOUNT.":D1500:D60AA$"H"ė:"NUMBER OF DOLLARS ON HIGH?";B:780:H(N)B:620A$"L"ė:"NUMBER OF DOLLARS ON LOW?";B:780:L(N)B:620A$"E"ė:"NUMBER OF DOLLARS ON EVEN?";B:780:E(N)B:620A$"O"ė:"NUMBER OF DOLLARS ON ODD?";B:780:O(N)B:620 FL1c:FL01900&gN1P:1560,l<qM(N)0650kv32,18:33,22:34,0:35,9::"MONEY=";M(N){32,0:33,40:34,10:35,24::NAME$(N);", WOULD YOU LIKE TO PLACE A BET?":A$A$"N"660N:990:"CATAGORY?":A$A$"X"14":"(L)OW":"(E)VEN":"(O)DD":"(C)OLUMN":"(G)ROUP":"(R)ED":"(B)LACK":"(N)UMBER"f D33,30:32,10 N:" 1 - 1":" 1 - 1":" 1 - 1":" 1 - 1":" 2 - 1":" 2 - 1":" 1 - 1":" 1 - 1":"35 - 1" X34,10:32,0:33,40 ]bFL0:Q1P:M(Q)0FL,1,E,L 27,RED,1,3,O,H; :12:"HOW MANY PLAYERS?";PN NAME$(P),M(P) H(P),L(P),E(P),O(P),C(P,2),G(P,2),R(P),B(P),NU(P,37) N1P:M(N)500 :11:"PLAYER ";N:13:1:"NAME?";NAME$(N) &1560:ZERO BETS 0:570:610T ::"(H)IGHLACK,1,1,E,L h16,RED,1,2,E,L6 r33,BLACK,3,3,O,HJ |21,RED,3,2,O,H_ 6,BLACK,3,1,E,Ls 18,RED,3,2,E,L 31,BLACK,1,3,O,H 19,RED,1,2,O,H 8,BLACK,2,1,E,L 12,RED,3,1,E,L 29,BLACK,2,3,O,H 25,RED,1,3,O,H 10,BLACK,120,BLACK,2,2,E,H& 7,RED,1,1,O,L< 11,BLACK,2,1,O,LP 30,RED,3,3,E,Hf 26,BLACK,2,3,E,Hy 9,RED,3,1,O,L "28,BLACK,1,3,E,H ,0,GREEN,0,0,0,0 62,BLACK,2,1,E,L @14,RED,2,2,E,L J35,BLACK,2,3,O,H T23,RED,2,2,O,H ^4,B d n00,GREEN,0,0,0,0- x1,RED,1,1,O,LC 13,BLACK,1,2,O,LW 36,RED,3,3,E,Hm 24,BLACK,3,2,E,H 3,RED,3,1,O,L 15,BLACK,3,1,O,L 34,RED,1,3,E,H 22,BLACK,1,2,E,H 5,RED,2,1,O,L 17,BLACK,2,2,O,L 32,RED,2,3,E,H > **********************9* *U* ROULETTE *q(* BY *2* L. GUST *<* *F**********************P:1070:1:1:A18:" ":ZA11000:A                   8888888888||  HHH &%$p %I1P 1%  ȅf fмжСhhh`H H &h`H &I1h`H &1h` G me@` @ )jjjj) j)jj)`  ff `HH hh` bG[ M6%o P a(ԠԠ)[qqY[]UVWX dedeMdeM"Y6[oPa()GP%a()GhoPbGP%b6G0oP a()GP%a()GoP bG\P%e(UV'WX6 2de 7de<MFde KdePMZYxq6}qqUVWX6 deq/?rqq\deq/?rqq\a(٠Ԡή)_] qLq<q<UVFWcq/?r`%qq/?r`%qdeqq\#deqq\qqY d٠Ҡ)G\`$fUVWYz_/d2eoPa(íҭӭȠ)Gd2e qUVW deMq a()G MYUVWY KM6o Pa(Ϯˬ)o P `$dqqoPa(ԠƠ̡)G_n oP*q1?r1?r4`2%a(ԡ)G,>`2d%a(٠ġ)G,H`d%a(Ԡ)G+R`%a(q1?r1?r`%q\`3$,`.?r$`X$ `X$qq q`%q `$d_,oPa(ĠƠ١)G6_ a(Š)GPa(̠)Z_dq82?rrgUVW Y#iq882?rrr nqsq`%q xqq`%q M+deddeddeM+qA qqq \ Mqq\ !a()G#Ld6?e(qdqd2q` q<qqAqq Fde KM6/Poa(ڮ̮Ԯ̮)$Uo     )da(٠)na() occcpa(٠Ġ)qa(Ԡ)ra(Ġ̠)sa()xQ M6cc% a(ϠԠӠנǬ)a(àԠ) a(ΠŠӠĩ)(c 2a(ЮЮĠЮ) <a(ŠĠӠ) Fa(͠ҠӠԠͿ) Pa(ԬĠŠ͠)Za(ά  ԠĠЍĠЮĠЮĠЮͺͺ΍ 5 4 *** SUBROUTINE TO GET 2 RANDOM NUMBERSG Z((1)151)Z W((1)151)` f QIT"/ " HE WILL BE REPLACED IN THE "N " MAZE RANDOMLY. T  "IF THE TWONKY ABSORBS YOU...YOU LOSE"  "IF YOU LAND ON THE OBJECTIVE SQUARE," " YOU WIN."  " G O O D L U C K ! !"  25 TO ALL TRAPS EVEN WALLS" 1 " YOU CAN:"7 d "MOVE ONE SQUARE AT A TIME TO FIND THE" " OBJECTIVE OR ESCAPE FROM THE " " TWONKY." "SHOOT AT THE TWONKY ONE DIRECTION AT A" " TIME. IF THE TWONKY IS HS UP A NEW MAZE AND"9 " ALL THAT'S IN IT (1)."f "MONSTER CALLED TWONKY THAT CHASES YOU" " AND WILL ABSORB YOU IF THE " " DISTANCE IT IS FROM YOU FALLS" " BELOW 2 UNITS. TWONKY IS ALSO" " IMMUNE"+` "CANNOT SEE... YOU MUST GET TO THE "Te "OBJECTIVE SQUARE AND BE SET FREE."Zj uo " HAZARDS INCLUDE:"t "SQUARES YOU CANNOT GO INTO (30)."y "SQUARE THAT THROW YOU RANDOMLY AROUND"~ " THE MAZE (22)." "A SQUARE THAT SET8 100*B "THIS IS THE GAME OF TWONKY."RG "YOU HAVE LANDED ON THE PLANET OF"L "TWINKY AND ITS KING (KONG: THEIR KING"Q "IS KING KONG) HAS CAPTURED YOU. HE HAS"V "PUT YOU IN A MAZE THAT IS 15 * 15"[ "UNITS LONG. YOU ARE IN THE DARK ANDE R2710\A(Z,W)02130,fA(Z,W)55pX2Z>zY2WY *** PLACE THE TWONKYc2710wA(Z,W)02190A(Z,W)6X1ZY1W "DO YOU WANT INSTRUCTIONS (Y/N)"; Q$ Q$"N"2700$ Q$"Y"2310. ::ONSI1222710-A(Z,W)01980:A(Z,W)3AIb *** PLACE THE SPECIAL TRAPl2710A(Z,W)02030A(Z,W)4  *** PLACE THE PLAYER2710 A(Z,W)02070*A(Z,W)14XZ>YWH *** PLACE THE OBJECTIV *** 3=RELOCATIONS, 4=SUPER TRAPBD *** 5=OBJECTIVE, 6=TWONKY[N *** 0=EMPTY SPACESpX *** CLEAR MAZE}[B0115]B1115bA(B0,B1)0eB1gB0vI1302710A(Z,W)01920A(Z,W)2I *** PLACE RELOCATI X1Z1Y1Z2,"TWONKY MOVES...."61450CD2210Ij"> > > SCHLOORP !!! < < < ""THE TWONKY JUST ABSORBED YOU!!"20);"Y O U L O S E "850& *** SET UP NEW MAZE ROUTINE0 *** 1=PLAYER, 2=BLOCKED SPACES":" UNITS AWAY."4" *** TWONKY LOGICB,D21790L6Z2Y1V@Z1X1eJXX11680tTXX11700^YY11660hZ2Y11r1710|Z2Y111710Z1X111710Z1X11A(X1,Y1)R9R9A(Z1,Z2)A(Z1,Z2)61370nA(Z,W)6X1Z$Y1W.145081570b PRINT TWONKY AND OBJECTIVE DISTANCEh"THE TWONKY IS ";D((((X1X)2(Y1Y)2)))D;" UNITS AWAY.""THE OBJECTIVE IS ";D1(((X2X)2(Y2Y)2))D1;"FIZZLE..."$"SHOT LEFT MAZE."8"SHOT MISSED."B1430XA(R1,R2)21330h "BLAST!!!"}"YOU HIT WALL.""SHOT MISSED."(14302A(R1,R2)61160<"OUCH!!"F"TWONKY RETREATS."PA(R1,R2)R9Z2710dA(Z,W)0"1090210S10"S21,11405$S10>.S21H81140RBS11[LS20eV1140n`S11wjS20tR1X~R2YR1R1S1R2R2S2"Z A P --";R111240R1151240R211240R21512401280 (Y/N)"; pQ$ zQ$"Y"1600 Q$"N"27509 870[  *** HE LANDED ON THE TWONKY| "YOU LANDED ON THE TWONKY!" 1790  *** SHOOT ROUTINE "WHICH WAY (F/B/R/L)"; Q$ Q$"F"1030 Q$"B"1060 Q$"R"1120Q$"LLL, SUPRE TRAPD "YOU HIT THE SUPER TRAP!! YOU GET A NEW MAZE!!"N 1830X 1430h  HE WON!n * 4"I DON'T BELIEVE IT BUT YOU WON THE GAME!" >"YOU GOT TO THE OBJECTIVE BEFORE" H" THE TWONKY GOT YOU!" R \ f"TRY AGAIN v BLOCKED SPACE ROUTINE: "THAT SPACE IS BLOCKED."D 1430_  RELOCATION ROUTINE "YOU'VE BEEN R E L O C A T E D !!!" 2710 A(Z,W)2540 A(Z,W)0680 A(Z,W)1 A(X,Y)0 XZ YW 1430  CHANGE A"THAT MOVE TAKES YOU OUT OF THE MAZE."@ "MOVE NOT ALLOWED."J 1430x (A(X5,Y5)1)550,620,630,660,760,800,920 & EMPTY SPACE 0A(X,Y)0 :A(X5,Y5)1 DXX5 NYY5 X"MOVE ALLOWED." b1430 l IMPOSSIBLE TO GET HERE340 ,Q$"B"370# 6Q$"L"4003 @Q$"R"430< J210F TX5XR ^Y5Y1[ h460e rX5Xq |Y5Y1z 460 X5X1 Y5Y 460 X5X1 Y5Y 460 X51510 X515510 Y51510 YR15510 540' g 24);"TWONKY"::"22500A(15,15):R90D1830s"-------------------------------------":}1450:"MOVE OR SHOOT (M/S)";Q8$Q8$"M"270Q8$"S"950210"WHICH WAY (F/B/R/L)";Q$ "Q$"F"              7 4:X641730DNG: ";P43$3&"NOT IN YET":70*3:3&N507020J30N607020X3:E1E1500c3DTT.5r3NTT053403X"POWER GENERATED"3b17303l"IMPOSSIBLE UNDER RED ALERT"3v173033X61103X71103S(X6,X7);X74);4XO DAMAGING TO THE FEDERATION TO WIN."A2"CALL IT A DRAW..."K25650m2:"CONGRATUALTIONS, CAPTAIN"2"THE KLINGONS HAVE BEEN DESTROYED, AND"2"THE ROMULANS HAVE FLED, MAKING THIS A"2"GREAT VICTORY FOR THE FEDERATION!!!"3"RATI"PHASER BANKS EXAUSTED, TAPPING WARP ENGINES"<1hE4E4E3E1rE30Y1|E1E11E41.66b1E41h1n11P4P4(TT9)21P41056001"EVEN THOUGH THE KLINGONS HAVE BEEN"1"DESTROYED, AND THE ROMULANS HAVE FLED,"&2"YOU HAVE BEEN TOOU HAVE BEEN DEFEATED, ";N2;" KLINGONS"P0"AND ";N3;" ROMULANS REMAIN ***"V0\0~0"DRAWING POWER FOR SHIELDS"0Q8Q8E410"E41.5E354600,"TAPPING PHASER BANKS"06E3E31E41.250@E410J0TE41.51E1E35340/1^)2/E4E4X1/Q9Q9X1P/X1;" UNIT HIT ON SHIELD ";((0)4)1;" FROM"Z/5210a/Iq/E105340/((Q8E4)Q8)100;" PERCENT DAMAGE."/Q9E45330/"CAPTAIN, WE CANNOT WITHSTAND ANOTHER BARRAGE!!"//'0"*** Y(I,3);" UNIT HIT ON SHIELD ";((0)4)1;" FROM"\.Z"ROMULAN AT SECTOR ";R(I,1);"-";R(I,2)k.dE405232u.n5380.pE44005240.r"SHIELD ";((1)4)1;" BUCKLING!!".x"SHIELDS HOLDING AT ";E4.5300/X2R(I,2):X1R(I,3)(D(R(I,1))3:X1K(I,3)(D(K(I,1))3)2(-Q9Q9X1[-X1;" UNIT HIT ON SHIELD ";((0)4)1;" FROM"e- 5050l-I{-N605310-(I1N6--C$"GREEN"-2R(I,3)05300-7C$"RED"-<X2R(I,2):D(R(I,1))35260-FE4E4R(I,3)-KQ9Q9R(I,3)0.PR,Q9Q9K(I,3)H,K(I,3);" UNIT HIT ON SHIELD ";((0)4)1;" FROM"t,"KLINGON AT SECTOR ";K(I,1);"-";K(I,2),E405075,5380,E44005080,"SHIELD ";((1)4)1;" BUCKLING!!","SHIELDS HOLDING AT ";E4,5140-X2K(I,2)R -- RECALL LONG RANGE SENSOR INFO"-+Q17303+VJ+`C$"DOCKED"4985u+j"STARBASE SHIELDS PROTECT ENTERPRISE"{+t+yQ90+~N505150+I1N5+C$"GREEN"+K(I,3)05140+C$"RED"+X2K(I,2):D(K(I,1))35100,E4E4K(I,3)- INPULSE MANEUVER"6*"L -- LONG RANGE SENSOR SCAN"Z*"S -- SHORT RANGE SENSOR SCAN"s*"PH - FIRE PHASERS"*$"PT - FIRE PHOTONS"*."A -- ALLOCATE POWER"*8"C -- LIST OF COMMANDS"*B"G -- GENERATE POWER"*G"Q -- QUIT THE GAME"#+L"E1E24720/)\"INSUFFICIENT POWER AVAILABLE"9)f1730F)pE1E1X3P)z4760`)X3E34700m)E3E3X3)X214770,4800)E3E3X3)4820)E4E4X3)Q8Q8X3)"TRANSFER COMPLETE")1730))"W -- WARP MANEUVER"*"I -4530( ALLOCATE POWER>("TAKE POWER FROM DEVICE: ";X1M(X101730v("AND ALLOCATE POWER TO DEVICE: ";X2(X201730( X2X14650("IMPOSSIBLE, CAPTAIN"( 1730(*X234630(4"UNITS TO TRANSFER: ";X3(HX14690,4740 )R44909'&" ROMULAN AT SECTOR ";X3;"-";X4;" DESTROYED"F'0P4P4.5R':I1N6g'DR(I,1)X34480|'NR(I,2)X44480'XR(I,3)0'bG(Q1,Q2)G(Q1,Q2)1000'lN3N31'v4490'I'Q(X3,X4)1'4950'1730'"TORPEDO MISSED"(S(Q1,Q2)S(Q1,Q2)100#&N2N212&N205530<&4490C&IM&4550o&"SIR, WHAT HAVE YOU DONE??"|&P4P430&"*** STARBASE AT SECTOR ";X3;"-";X4;"DESTROYED ****"&G(Q1,Q2)G(Q1,Q2)10&N1N11&N40&C4"GREEN"'"TORPEDO ABSORBED BY STAR - DISRUPTION SLIGHT"B%JP4P4(1)2L%T4530%^" KLINGON AT SECTOR ";X3;"-";X4;" DESTROYED"%hP4P41%rI1N5%|K(I,1)X34290%K(I,2)X44290%K(I,3)0%G(Q1,Q2)G(Q1,Q2)100%S(Q1,Q2)04260&$XXX1:YYX2 $X.545501$X10.54550@$Y.54550Q$Y10.54550{$" ";(X100)100;"-";(Y100)100;$X3(X.5)$X4(Y.5)$"Q(X3,X4)4040,4160,4040,4310,4190,4390,4140$,"TORPEDO ABSORBED BY BLACK HOLE"$645501%@CK REPORTS ";X1;"UNITS ENERGY WASTED.",#6#24950@#<1730F#FT#PP03950n#Z"TORPEDOS ECPENDED"x#d1730#n"COURSE: ";C#C11730#C91730#2750#XS1#YS2#C$"DOCKED"4030#PP1#"TORPEDO AWAY, TRACK:"T HIT ON ROMULAN AT SECTOR ";R(I,1);"-";R(I,2)C"~R(I,3)R(I,3)X1L"X10V"3810\""X2R(I,2):X2R(I,3)(D(R(I,1))3)2"X1X23790"X1X1X2"3620"X2R(I,2):X1X1(D(R(I,1))3)2"3700"I"X1103840&#"MR. SPO! X2R(I,2):D(R(I,1))33740%!9!X1R(I,3)3700J!X1X1R(I,3)!$" ROMULAN AT SECTOR ";R(I,1);"-";R(I,2);" DESTROYED"!.P4P4.5!8R(I,3)0!BQ(R(I,1),R(I,2))1!LN3N31!VG(Q1,Q2)G(Q1,Q2)1000!`N6N61!j3810."tX1;" UNI-";K(I,2) f K(I,3)K(I,3)X1' p X101 z 38407 ` X2K(I,2):X2K(I,3)(D(K(I,1))3)2p X1X23510} X1X1X2 3340 X2K(I,2):X1X1(D(K(I,1))3)2 3420 3279 X103840 N603820 I1N6 R(I,3)03810NGON AT SECTOR ";K(I,1);"-";K(I,2);" DESTROYED"; P4P41H K(I,3)0_* Q(K(I,1),K(I,2))1k4 N2N21z> N205530H G(Q1,Q2)G(Q1,Q2)100I S(Q1,Q2)03410J S(Q1,Q2)S(Q1,Q2)100R 3530 \ X1;" UNIT HIT ON KLINGON AT SECTOR ";K(I,1);" N503550 X80! X91007 I1N5:X2K(I,2)Q (D(K(I,1)))X93286e K(I,3)03286x X8I:X2K(I,2) X9D(K(I,1)) I X803540 IX8:X2K(I,2) D(K(I,1))33460  X1K(I,3)3420 X1X1K(I,3)/ " KLI503180N N6031802X "TARGETS UNAVAILABLE"<b 1730sl "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE ";E3v "UNITS TO FIRE: ";X1 E3X13240 "INSUFFICIENT POWER AVAILABLE" 1730 X111730 "PHASERS FIRING" E3E3X1 10 X2113040 X2X2107 X3(G(X1,X2)1000)Y N(JQ22)(G(X1,X2))X31000p S(X1,X2)N(JQ22)w J 6);": ";N(1);15);": ";N(2);24);": ";N(3);33);":" " --+--------+--------+--------+--"& I0 1730: D NFOR":"QUADRANT ";Q1;"-";Q2JT " --+--------+--------+--------+-- KEY"y^ " : : : : K B S"h IQ11Q11r X1I| JQ21Q21 X2J X102980 X1X110 X1113000 X1X110 X203020 X2X2Ƞ Q211810 Q2Q210" 810( A X1((C1).785398)Y X2((C1).785398)_ e r X1R(1) X2R(1) Q(X1,X2)12790  " T(T)(0)72880, "ION STORM PREVENTS SCAN"6 1730@ "LONG RANGE SENSOR SCAN 2570 S1S110 Q1Q11' 25306 S202610C S2S210O Q2Q21Y( 2570i2 S2112650v< S2S210F Q2Q21P 2610Z QUADRANT ADJUSTMENTd Q102680n Q1Q110x Q1112700 Q1Q110 Q202720 Q2Q210 SH TO DOCK ";A$). A$"Y"A$"YES"2390?B B81:B91:F91IL 2450YV C$"DOCKED"c` S1X6mj S2X7vt F91~ 810 F91:B81:B91 I S1(S1.5) S2(S2.5)  S102530 S1S110 Q1Q11 2490 S1111.52440S110.52440+S2.52440=S210.52440MX6(S1.5)]X7(S2.5)sQ(X6,X7)72310"THE ENTERPRISE HAS BEEN ABSORBED BY A BLACK HOLE ****"5340 ((X6B9).5)12450 ((X7B8).5)12450 "DO YOU WI5(W8) E27.5X52090D"INSUFFICIENT POWER FOR MOVEMENT"N 1730_*E2E27.5X5r4E1E1350(W)>TT(W)1.5HRQ(S1,S2)1\C$"MOVING"fTT05340pXS1zYS22750I1X5S1S1X1S2S2X2 S FACTOR: ";WNW11730(XW817306bX5(W8)IlE12X52070XvE1E12X5eTT(W)xE1E1325(W)2130"COURSE: ";CC11730C91730"IMPULSE FACTOR: ";WWW10W.21730W.91730X 1710%"KLINGONS LEFT ";N2,I>"=========="R"COMMAND: ";A$^I111qA$D$(I)1790xI4840I1800,1950,3130,3910,6940,2840,1450,4840,4570,7040,5340"COURSE: ";C&C117300C91730 :"WARPT ";Q1;"-";Q2"1710B,"SECTOR ";S1;"-";S2L61710h@"WARP ENGINES AT ";E1rJ1710T"IMPULSE POWER ";E2^1710h"PHASER BANKS ";E3r1710|"SHIELDS AT ";E41710"PHOTON TORPEDOS ";PC$"GREEN"E1153400"=========="<I110HJ110\Q$(Q(I,J));"";cJn" ";I1520,1540,1560,1580,1600,1620,1640,1660,1680,1700"STARDATE ";T1710"CONDITION ";C$1710"QUADRANN501280N601290)4950/ >N401350UC$"DOCKED"1350^(P13i2E2300s<1440FN501370PN601390ZC$"RED"d1440nE13991430x"ENERGY LOW, SOUNDING YELLOW ALERT"C$"YELLOW"GPTP14402)X2=F911100+BR(I,3)175(0)51:LQ(X1,X2)6AVIP`N701170\jI1N7ft2790u~Q(X1,X2)2|IN401230F9112302790Q(X1,X2)4B9X1B8X2G(Q1,Q2)(G(Q1,Q2))12602790Q(X1,X2)7RED ALERT **"5"SENSORS SHOW ";N5;" KLINGONS";CN52953M"S";V"."bI1N5l2790zK(I,1)X1K(I,2)X2F911010K(I,3)175(0)51Q(X1,X2)5IN601120I1N6$2790.R(I,1)X18R(I,N5((G(Q1,Q2))100)N610ARN4((G(Q1,Q2))10)N6100N510i\N7(G(Q1,Q2))N61000N5100N410fI1110:J1110:Q(I1,J1)1:J1:I1Q(S1,S2)3F91930Q(B9,B8)4N501030"DEFLECTOR SCREENS ACTIVATING":15);"**  ";:763 "S";@ " HAVE SURVIVED THE INITIAL ASSAULT. "; "YOU HAVE UNTIL STARDATE ";T0;" TO DEFEAT THE INVADERS. "; "AND REMEMBER, DO NOT HIT ANY BLACK HOLES!!" 190  * 4N205530 >N6((G(Q1,Q2))1000)H720 IR(1) JR(1)0 G(I,J)G(I,J)109 N11A 75r :"CAPTAIN, STARFLEET COMMAND REPORTS THAT" N2;" KLINGONS HAVE PENETRATED FEDERATION" "SPACE. THEY ARE ASSISTED BY ROMULAN" "FORCES. ONLY ";N1;" STARBASE"; N12ĺ"30 (1).97530 N41/ N7(R(1)1)< N1N1N4J &N53620Y 0X1(0)40j :X14.25590v DN6N61 NX115.25610 XN6N61 bN3N3N6 lG(I,J)N61000N5100N410N7 v(0).45650 G(I,J)G(I,J).1 J:I N10:P40 JI110 TJ110, ^X1(1)50? hN40:N50:N60O rX1.08390[ |N5N51k X1.28410w N5N51 X11.28430 N5N51 X13.28450 N5N51 X113.28470 N5N51 N236490 N50 N2N2N5 N1255000)) D(X1)((S1X1)2(S2X2)2)C R(X1)((X1)10)1d T9T0(603(R(1)5)):TT9p E11250{ E2300 E32000 Q81250:E41250 P13 B81:B91 Q1R(1) Q2R(1) "S1R(1) ,S2R(1) @N10:N20:N30:F90,; Q(10,10),G(10,10),K(5,3),R(2,3),Q$(7),S(10,10)["INSTRUCTIONS (Y,N) ?";A$u(A$"Y"A$"YES"5670FI17:Q$(I):Id".","*",E,B,K,R,DnD$(11)xI111:D$(I):I W,I,PH,PT,G,L,S,C,A,R,Q T0((1)20000)10((1)              :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------Q( 7:"CHEYENNE * WY * USA * 82009":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND AAA" X112 1:X1:A$; X:" ";:Z125:Z:X JOY AND USE."6 6:"-- PLEASE, SEND 3A A COPY --":c "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpd3A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$  =============="+( NOTES >+)======================R+*ROUTINE 50000 +, 'RUN 50000' MAKES INSTRUCTIONS EASY TO CHANGE +2ROUTINE 60000 +4 'GOSUB 60000' LISTS THE INSTRUCTIONS ONLY CE BE WITH YOU !!!"*ڝ255:/*䝁I11000:I:*20000@*Oñ\*PÉ::33,33:40000,40999b*րo*`:40000u*e*======================* WRITTEN BY P. CUMMUTA* 750 BEECHWOOD* LAKE ZURICH IL 60047* 312-438-5129 +========POINT FOR A HIT OR REFLECTION AND 2 POINTS FOR ALL OTHER TURNS. ";)ҝ"WHEN THE FINAL GUESS IS MADE, 5 POINTS ARE ADDED TO THE SCORE FOR EVERY UNFOUND OBJECT.)ӝNN%3:20820)ԝ::"GOOD LUCK..........")՝NN%1:20820)֝100:*؝"MAY THE FOR THE PLAYER IS SATISFIED WITH THE"W("TRIAL POINTS, 'GUESS' IS ENTERED. THEN THE ";("COMPUTER CHECKS ALL THE TRIAL POINTS";("AGAINST THE HIDING PLACES."(:"HIT ANY KEY FOR INSTRUCTIONS ON SCORING"(ϝANS$:C)Н"THE COMPUTER COUNTS 1 z#?Xdz   Ю Š  ˭Ӡˠ. ٠ɠ ԠԠ ԠԠҠ Р Ю Ю ΠŠŠɠΠŠŠɠԠɠ٠ɠ ŠŠɠ ҠȠ% Š̠Ϡ ̠Ϯà!Šˠ.ͫ  ̠ ŠɠΠǠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpr$V`$jq8rq .qB8q.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r_V%BUVWq.?6?rYqqLq6!Vghfghqq_ `UVWPq.?6, _'&_]ԠԠ٠ˠ;q`x$q6qUVWq.?6?rY'q`$`q82?rr9`%q`"%q"flmnf`$`%lmnq_$&`$$`"%l               P*U*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U``@P*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U`@1@P*L3O?NsOsLgyg9U`~P*U*U*U*U*U*U*U*U*U*U*U``P*?`<P*U*U*U*U**U*U*U*U*U``P*y|?&bDr$ j ght qqq~ UVWYq _ c`$  a@E(ӡ) q _  a@E(ӡ) q0 oa('%q[#`'%q`'%q[`'%q[#`'%q`%q[`%q[#`%q`%q[`%q[fqqq q \z `=>r$  gh$ q*Ld"e4q q q >qHqqqRf\lm'nlm'n'fij'kij'k'pM6a()_zq82?rVr_ `%q[#`%q`'%q[`ϠǠҠӠǠӠ)Jca(ӠŠӠŠϠΧԠŠРΠŠԠ١)"oS(ԠΠϠ)&@ N@"rN@"rM6o:S(Ϡ̠ŠĠ)&@S(ĠϠ̠ŠŠ)&@ qqӠӠ̠ŠҠϠ)ca(ǠȠΠ٠ά)ua(ŠΠ٠ŠϠӠŠĠĠŠҠ)ca(ŠӠŠĠ٠̨Ġ̨)aca(ŠԠӠϠРҠȠ͠Ǡ`%lmnq_"+`$"`"%lm'nq_""Y,q_6fgho_ @S(ҠŠٯΩ)&@J`@*#r9()%QTa(ŠӬ)E@E()^R@h`@*#r9()$Pr_ M6Xa(qq2fghqq/?xrq6q/?rfgh5q`$6P`%bE(ӠԠ)/`%a(Ԡ̬)E@E()cUVWd0q82?rr`%q`"%q"flmnf`$,S(ҠϠ)'`$[a(ĮҮ)_(d"efUVW'lm'nYGUVW"XPb Gflm'nfUVW'XlmnYZBPa(Š)ccd"eqqqq:()$+ZUVW'f8 rlm'nY8dd"ecccUVWoPbGY)nd"eoca(Ġ)G\:xqa(Πˠ)G\qa(Ġˠ)G\q)a(Š)G\qa(̠)G\_ŠŠӠϠŠͮ);ccd2e?Pa(Ԡ٠٠ϠΠ)d2e"`.?6@r$d6?eLcjfUVW'ij'kYUVW-rq/?rf-rijk'a()E@*#rGYUqca(C@"r-rq-rq -rq -rq -rq-rq-rq-rq@p()LM6oa(ҠԠӠϠӠ)a(Ƞɠ̠ŠЩ)=a(ΠŠԠҠ)a(ΠŠ͠ƠӮ)+ca(vYYqqf\%a(ӠՠΡ)UVWY_ a(ϠӠԇ)_%a(ՠԠĠŠΡ)_Aqqghghghgh[O4rD4 rD4rD4rfqq\-q=>rf qq\&qq_ 0d6?e:qqf \Dq qN`$!XUVWUVWb`$vr =>r$r r`%q`%q`%q` %q &q/? r`%q`%q`%q` %q /`=>r $qq_q2?rq.?6@r`$0q2?r`$Wg/? rh/? rYTq/? r^q/? rh`%q )roPa(Ϡ)G` %a()Gb|`$$`=ر>ٱr $qرqٱf\qqf \ رqٱq qq&q/? )"oS(ԠΠϠ)&@LM6d"eq2?rUVW Yq2?r"رqٱqq,fq/?rE6UVWlm&nlm&n#ij"kij"k#Y@q/?r f.JUVΠԠ٠̠ŠĠ٠ŠҮ)`ca(ŠǠΠӠĠ٠ΠŠĠӠĠ٠̨Ġ̨)Mca(ŠΠӠנŠĠĠӠŠ)$a(Ԡ٠٠ϠŠŠӠϠŠΠŠҠԠǠԮ)Xca(ӠӠĠ٠Ǡ̠ƠŠӠǠŠή)Sca(ŠϠůŠЬ٠ŠŠŠΠӠΠΠŠ):a( $d`- 8rr $ndq6q_Kn`$`- 8rr $x`- 8r r $xqq6_$a()a(ŠΠԠա)UVWY_  M6gca(ŠԠƠӠUVWUVWghYZqqY(qq-2- 8rrq- 8rr<[GF` $Z`- 8rr $P`- 8rr $ZPqq_KZ`$n`- 8rr`$`$F`$Z`$nG` $F`- 8rr $`- 8rr $Fqqfqq UVWqq f_UVWUVWghYZfұrmn8r8_ B\Lf"Vi8rjk8r`_ j\tf~i8rjk_ =qUVWq.?6?r.?6?r.?6?r.?6?rY[a(ՠΡ) a()Ga(Ž)F__  q6q! `- 8rr $ _R  qq6 `- 8rr $B _R  qq `- 8rr $j _R  \ fl8rmn_ \$f".l8_ > qqH `- 8rr $ (R qqUVW\ qqf f`p UVWUVWghYZf UVWUVWghYZqqz Y qq ` $qq/? rflmn'3 q qqqq" q.?6@r`$ d6?e q\q `$ `<()r$>  `<()r$  `<()r$ * `<()r$  4 \&K86ĺ"EXCELLENT --- GOOD REASONING":5700K85ĺ"YOU ARE ABNORMAL --- YOU SHOULD HAVE BEEN A COMPUTER --- OR ARE YOU?":/D" THIS IS A WORD GAME ---- I WILL TELL YOU MY WAY TO SPELL THE WORD, AND THEN YOU TELL ME YOURS. YOU WILL BE GI:490< :(5):(5):N$;"'S SCORE IS ";N;" MY SCORE IS ";MI T0:139 ZMN:KNZ100:"YOUR CORRECT ANSWERS WERE : ";N ::: "YOU MISSED :";ZN :::"YOUR AVERAGE IS : ";K;" %" K50570 K71ĺ"BETTER THAN AVERAGE":570-BILE,TIRED,CHURCH,CREAM,TABLEZ  RADIO,DONKEY,REDWOOD,CANDLE,CANDY,BRICK,HAMMER,TEACHER CHEMISTRY,ENVELOPE,TENNIS,BEHIND,TECHNOLOGY,SWIMMER,PENCIL,MOUNTAIN,ZEBRA,"999"  23:1:"DO YOU WANT ANOTHER WORD? (Y OR N) ";:X$ X$"N"ė:(10)OT YET --- TRY AGAIN ";N$:Y12500:Y:::140H Y11000:Y::(8) "SORRY -- BUT YOU WERE GIVEN 3 TRIES AND MISSED -----":MM1 ::"THE CORRECT WORD WAS .... ";R$(I):21:1:"PRESS ANY KEY TO CONTINUE... ";:AN$:450  TOP,HOUSE,AUTOMO 290 "(13):14):C$" ";) ,LL10 6O: @TT1N J:::::::o ^10);N$;" THIS IS TRY # ";T h23:1:"WELL, WHAT'S YOUR GUESS .......";M$ rM$R$(I)NN1::(10):(5):"YOU'RE RIGHT !!! GOOD WORK ";N$:4500 |T3ė:8::8:"N"139 I I(H(0)1)+ T$R$(I)7 L(T$)B O1LL GG1Y G1210k P(L(1)1) A$T$:P(L(1)1) C$(A$,P,1) P1260 LP0T$(T$,P1):280 T$(T$,P1)(T$,LP):280 LP0L2 T$(T$,LP)` -10:17:"ANAGRAM":Z12000:Z: *********** * * * ANAGRAM * * * * AL LAST * * * *********** ZY11500:Ydn::::sR$(50)x580{I125~R$(I)HH1 R$(I)"999Ҡ)R'cca(Ԡ)a()a(Π)a(Π)'a()'oa(ȠŠ)3'q.?6@r`$'d6?e_'Q͠٠)Pa()GP(a()G'Pa()Pa()d'd2e?ccP a()P a(РҠŠӠŠΠԠӠ)P a() 'd2e' UVW Y A'M6oP a(ЮЮ̮ŮӺ)o a(a(РР̠)Pa(РՠҠɠ)Wj'Pa(РǠϠ )Pa(̠ŠǠҠ)Ot'Pa(ŠԠҠ)Pa(ӠҠ);~'Pa(a()GPa()GPa()GP!a()?8'a()GPa()GP a()GPa()GPa()GP!a()@B'a()GPa()GPa()GP a()GPa()GPa()GAL'Pa()GPa()GPa()GP!a()GP'a()V'd2ecR`'2`-r-r%[qgha()G-rq-rq ['d2e?KM6J'oPa()GP a()GPa()GPa()GP!a()U$'a()GPa()GP a()GP a()GPa()GPa()GPa()GP!a()@.'a()GP X ca(ՠԠԠΠ)FE(Ӡ)G`%a(ԩ)` %a(ĩ)U` %a(ũ)`%a(ҩ)`%a(٠Ω)UVWY_ :(`%[f`%f--rrijk[=qUVW`<@*rr%Y` $-rqq]\(`$`%qYq_dfqUVW-rq-rq\2Y`$ fUVWUVW\2YZ_ҠӠҠҠ)a(נӠҠŠĠ)'a(ԠΠϠԠӠ)Ghq$qP bGfij'kqUVW-rq\(YqsUVW q.?6@r`$d6?e6"GUARD",A(4),B(4),@"GUARD",A(5),B(5)6J9999ATR16P^S(R)A(R)WhRbrN16q|P(N)B(N)xNK1150S(6)A(6)P(6)B(6)1693S(6)A(6)P(6)B(6)1700H2940"THESE ARE THE FINAL RESULT%"BOX SCORE-UCLA VS. DEPAUL"+1D"UCLA ";A(6)W"DEPAUL";B(6)]c~"INDIVIDUAL SCORING:"" UCLA DEPAUL""CENTER",A(1),B(1)""FORWARD",A(2),B(2),"FORWARD",A(3),B(3)END OF THE FIRST HALF":.sKA(6)A(6)1700]x"WOULD YOU LIKE TO PLAY THE SECOND HALF?""TYPE IN 1 FOR YES AND 2 FOR NO"LL21423L2143020501420L11620"THESE ARE THE FINAL RESULTS"LA AND THE PLAYER IS FOULED. THE FREE THROW IS GOOD"GA(6)A(6)3Q9000\ TT1mA(M)A(M)3v310"FOULED-1 SHOT"("THE FREE THROW IS GOOD"2A(6)A(6)1<TT1P9000ZA(M)A(M)1d310n9020o:"THE LA"TT1$890?."MISSED SHOT-REBOUND DEPAUL"J8TT1SB330_`I(1)pjI.281240tI.681310~1190"THE PLAYER IS FOULED""THE FREE THROW IS MISSED-REBOUND DEPAUL"TT13206"BASKET-UCHB(Y)B(Y)1"\T10013903f"UCLA BALL"=p9010PzM(5(1))1\H(1)mH.291070~H.541030H.721120"BASKET UCLA"A(6)A(6)29000TT1A(M)A(M)2310"MISSED SHOT- REBOUND UCUCLA"TT1860I"BASKET- DEPAUL AND THERE IS A FOUL"g"THE FREE THROW IS GOOD"xB(6)B(6)39000TT1B(Y)B(Y)3860 "FOULED-1 SHOT""THE FREE THROW IS GOOD" TT1*B(6)B(6)1>90009000 TT1# B(Y)B(Y)2, 860N "MISSED SHOT-REBOUND DEPAUL"Y TT1_ h 340 "MISSED SHOT-REBOUND UCLA" &TT1 0 :860 XF(1) bF.25710 lF.68780 v670 "FREE THROW MISSED-""REBOUND TO SHOOT THE BALL "Q cM15:N15:S(16336):O15:O:N:MW g^ hYk iY5363y jY5365 k2090 l360 m p9010 rE(1) |E.33540 E.53500 E.7600 "BASKET-DEPAUL" B(6)B(6)2 R BETWEEN 1 AND 10" D( D102837 D10290A 2070J 280^ "F(10(1))1d 'r ,FD860x 6 ;T1001390 @"DEPAUL'S BALL" J TT1001390 ] ^351 _" WHICH PLAYER DO YOU WANT "# `" EN YOU HAVE THE BALL, TYPE"= 7)"IN A NUMBER FROM 1 TO 5"[ 7)"FOR A PLAYER WHERE:"y 7)"1=CENTER, 2=FORWARD" 7)"3=FORWARD, 4=GUARD" 7)"5=GUARD" 7)"THIS HALF WILL BEGIN WITH" 7)"A JUMP BALL. PICK A" 7)"NUMBE7)"BASKETBALL GAME"8 7)"BETWEEN DEPAUL (YOU) AND"Z 7)"UCLA (ME, THE COMPUTER)"` 7)"DO YOU NEED INSTRUCTIONS?" 7)"TYPE 1 FOR YES AND 2 FOR NO" : Z Z2193 Z2200 2050 190 Z2250 7)"WH  ::: S(100)%B(100)1A(100)=(P(100)F2K0Q<J16]FA(J)0dPJoZU16{dB(U)0nUxT0K0160250A(6)0607)"BASKETBALL BY KEVIN CONRAD":7)"THIS IS A SIMULATION OF A"       BY PAUL RAYMER PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121 ZVEN 3 CHANCES TO FIGURE OUT THE CORRECT WORD."lN:" AFTER THE THIRD TRY I WILL GIVE YOU YOUR SCORE."X:::6):"WHAT IS YOUR NAME .... ? ";N$b:7:6);"OK, ";N$;" HERE IS YOUR WORD ...":Q11000:Ql_ MODESTLY ENHANCED 0 21:23:WD;" ":23:WSG 0:1:1:655,100:6200,75:680,50U T0BN1f DD(T)255 BD(T)BD(T)DD:BD(T)360BD(T)BD(T)360 BD(T)0BD(T)BD(T)360 PFT300 (16384)128400 A(16384):16368,0 A202FS(IR:";BD(1):"JIB";14);"WIND SPD:";WS;32);"JIB"X iPF2(16384)155Ĺ16368,0::25{ nWSWS((1)3)1:WS10WS10 pWS40WS40 x6:3:WD5.625:5261,20 WDWD((1)5)2:WD360WDWD360 WD0WDWD360 7:WD5.625:5261,2"S$"2"42 +BN(S$)! -1:4 .6:0,0:62454B 2T0BN1 <FS(T)1:BS(T)1:BR(T)32:Y(T)130T20:X(T)40T20:BD(T)90:BC(T)7T3 FBC(T):32:1X(T),Y(T) P Z3:WD5.625:5261,200 d:21:"DIR:";BD(0);14);"WIND DIR:";WD;32);"D C.1980 MARK PELCZARSKI' 900:232,0:233,28BU4oBS(1),BR(1),FS(1),BD(1),X(1),Y(1),BC(1)#S$(3):S$(1)"JIB ":S$(2)"GENOA ":S$(3)"SPINNAKER"(PF2:WD((1)360):WS((1)11)20 *:21:"1 OR 2 SAILBOATS? ";:S$:S$"1      W. CHRISTOPHER( z THE GAME OF BOGGLEI0"HIT SPACE BAR TO START NEXT ROUND";1 4900; 2500^ \AV01V08:A:H01:9);:Ad y $X$:X$(3)ė: X$" "4900  PA03:B03 V0A2:H0B2 (B%(A,B)64); |B,A: 22:1::40);:22:1:: pBRUCEA03:B03)  I%(1)16:R%(I%)3100@ R%(I%)1:J%(1)6V B%(A,B)C%(I%,J%)_ H B,Ai 5200s (7) tI0T:J1T0:J,I I13:(7);:I <4700 5600 "HIT SPACE BAR TO VIEW BOARD FOR SCORING" h4900:5200 5600' L","P","E","U","S","T"4 4 "M","R","O","A","S","H"R  "N","P","H","S","E","I"p  "O","E","D","N","W","S" ` "P","C","A","E","M","D" ::V08:H016 ( :4700 R%(I)=0 MEANS AVAILABLE R%(I)=1 MEANS USED T I015:R%(I)0:I ,"A","I"&  "D","N","Z","V","A","E"D  "E","U","K","L","G","Y"b x "F","R","B","X","I","O"  "G","N","T","V","E","I" @ "H","F","Y","E","I","E"  "I","U","G","R","L","W"  "J","B","O","A","Q","M" l "K","T","U","O","N","D"  ")dB%(3,3),C%(15,5),R%(15)1I015:J05J,X$:C%(I,J)(X$)64SJ,I]::wX2:14:"B O G G L E"5:1:"ENTER TIME LIMIT IN SECONDS:";T T0829 "A","E","S","C","R","L" "B","L","Y","T","A","I" L "C","T","O","A"  R: ' LEEN 1 AND 10":6*"PICK A NUMBER BETWEEN 1 AND 5":(#:P110:S(16336):P::K19001:"UCLA ";A(6),"DEPAUL ";B(6):9002)#"UCLA ";A(6)S(6),"DEPAUL ";B(6)P(6)*#:2#:100:" A S H O T":255::<#R1100:S(16336):L"*"CENTER",S(1)A(1),P(1)B(1)M"FORWARD",S(2)A(2),P(2)B(2)p"FORWARD",S(3)A(3),P(3)B(3)&"GUARD",S(4)A(4),P(4)B(4)0"GUARD",S(5)A(5),P(5)B(5):9999"PICK A NUMBER BETWEEN 1 AND 2" "PICK A NUMBER BETWS"""BOX SCORE-UCLA VS DEPAUL"7:" HALF"V" #1 #2 TOTAL":\"UCLA ";S(6);"-";A(6);6);S(6)A(6)"DEPAUL ";P(6);"-";B(6);6);P(6)B(6)"INDIVIDUAL SCORING"" UCLA DEPAU"'L' FOR LEFT, 'U' FOR UP, AND"H "'D' FOR DOWN. DO NOT HIT RETURN!"N { "THE OBJECT IS FOR YOU (THE GREEN DOT)" L"TO GET TO THE DOOR ON THE RIGHT SIDE" "BEFORE THE DRAGON (RED DOT) EATS" "YOU." x"BEWARE!!!!!!!!! SOMETIMES THE  d:9362"WELCOME TO THE DRAGON'S MAZE!"],"YOU MAY WATCH WHILE I BUILD A MAZE,""BUT WHEN IT'S COMPLETE, I'LL ERASE""THE PICTURE. THEN YOU'LL ONLY SEE THE WALLS AS YOU BUMP INTO THEM."X"TO MOVE, YOU HIT 'R' FOR RIGHT,"      3SWWWW7W/A%AEEEEE)SW7SWWW3+A3333%!A-33WWWW7WOE!AEEEE%)SWWSWWW3O!!EA%E!E-S7EWS7WW+!EEA%E!!)3333S733+!!!A%!!!)333WWW73+!AEEEEE!)3WWWWWWW/EEEEEEEEMWWWWWWWWO" LEE%!!)3333WW7SOE%AE%!!!)33333W7SOA%A%!!!! )3333337S+" "!!!!!!!!IW3333333+!!!!!!!AMWW333333+!!!!!!AEMWWW33373+!!A%!AEEMWWWW7W73+!!AEE%EEMWW73WW73+!!AEE%!EMW73WWW33+!!!AEE%!M73WWW333+!!!!AEE%)3WWW3333+!!!!!AEE-WWW33333+" "<<,MW" "!EEAE%%!))33333333+!!AEE!!!)333SWW33+!!!AEE!!)33SWW333+!!!!AEE!)3SWWW333+!!!AEEEE)SWW7SW33+!!AE%!EE-WW73WWW3+!AEEE%!EMW73WWWWW+AEEEEE%!M73WWWWWWO"5 "!%!!!!!!)3333333S+A%!!!!!!)3333333SOE%!!!!!!)WWWWWWWWOE%AEEEEE-3WWWWW7SOE%AEEEE%)33WWWW7SOE%AEEE%!)333WWW7SOE%AL,((S$,V,1))24jLL1:V0tL,0:LL1:~ "!AEEEEEE)WWWWWWWW+EEEEEEEEM33333373+!!A!!!!!)WWWWWW73+!!AEEEEE-3WWWWW73+!!AEEEE%)33WWWW73+!!AEEE%!)333WWW73+!!AEE%!!)3333WW73+!!AE%!!!)33333W73+!!A%!!!!)33333373+" "!!!! !! !!)33333333+!!!!!!!!"-"TROUBLE. THE 'ESC' KEY LETS YOU MOVE"R"BOTH BOATS BACK TO THE START."cL71687181oV:L,VvL 6,0,14,0,177,0,84,1,247,1,154,2,160,2T161100$T.24:12:"";:S$:LS$VV1(S$)`FOR THE BLACK SAILBOAT AND"K"PADDLE 1. THE DIAL CONTROLS THE RUDDER,";|"AND THE BUTTON ALLOWS YOU TO CHANGE YOUR";"SAIL. IF YOUR BOAT IS SHOWN IN RED,""YOUR SAIL IS INAPPROPRIATE FOR THE WIND""CONDITIONS AND WOULD NORMALLY CAUSER; JUST SIT"="BACK AND SAIL. OR IF YOU WISH, CHALLENGE";k"A FRIEND TO A RACE AROUND THE ISLANDS.":" THE INFORMATION AT THE LOWER LEFT""WILL BE FOR THE WHITE SAILBOAT AND""PADDLE 0. THE INFORMATION AT THE LOWER""RIGHT IS 4T>105,:" CARIBBEAN CRUISING "V:" (OR 'PATHWAYS THROUGH THE RUM')":" DON'T WORRY ABOUT FLASHING SCREENS,""OBSTRUSIVE SOUND EFFECTS, OR BEING SHIP-""WRECKED. YOU DON'T HAVE TO BLAST ANY" "OPPONENTS OUT OF THE WATEBS(T)2:BR(T)32:800?DD180DD225BS(T)1:BR(T)48:800iDD225DD270BS(T)4:BR(T)48:800DD270DD315BS(T)3:BR(T)48:800BS(T)4:BR(T)0 BR(T):BC(T):BS(T)(XN),(YN)*X(T)XN:Y(T)YN/21:5T31:(BD(T));" "153YN6YN6&XN273XN2735XN6XN6]6:BR(T):1:BS(T)(X(T)),(Y(T))oDDBD(T)22.5DD360DD45BS(T)3:BR(T)0:800DD45DD90BS(T)2:BR(T)16:800DD90DD135BS(T)1:BR(T)32:800DD35135DD1800FS(T)25200WS35SP0:BC(T)5:600FDD140SP0:600fDD90SP8100DD2SP:600|SP(DD300.7)SP&FS(T)1SPSP.8XDDBD(T)90:DD360DDDD360bDDDD3.14180lXNX(T)(DD)SPvYNY(T)(DD)SPYN153YN(S) SPINNAKER";+ T23:T0Ė12:"<-":400> ^26:"->":400c DD(WDBD(T)):DD180DD360DDt SP(WS35)U FS(T)0SP0:600 FS(T)3500 WS30SP0:BC(T)5:600 DD90SP0:600 DD45SP.9SP:600SP1800DD2SP:60T)1:260! A199FS(T)2:2609 A211FS(T)3:260B 400X 23:12:" ";} PF2:22:T311:S$(FS(T)):400 ,PF2(T16287)128400 6FS(T)0:PFT:22:T311:"DOWN":BC(T)7T3 @23:15:"CHOOSE SAIL" J" (J)JIB, (G)GENOA X"ENTER "Y" TO TRY AGAIN"+d:936P"WELCOME TO THE DRAGON'S MAZE!"{,"YOU MAY WATCH WHILE I BUILD A MAZE,""BUT WHEN IT'S COMPLETE, I'LL ERASE""THE PICTURE. THEN YOU'LL ONLY SEE THE WALLS AS YOU BUMP INTO THEM." X"TO MOVE,     YE" H?A115300`;DX1:DY0:13600-;SY113200J(A$>A$"NO"2700>"B7Ix7SXSXDX:SYSYDYA7T(SX13(SY1))T(SX13(SY1))1G@8X8SY1314900u9T(SX13(SY1))914800l9M(SX13(SY1))101149009DX0:DY1:136004:SX115300:T(SX13(SY1))915200:B10:R1MOD(M(SX13(SY1)1)):R3003SX131450013T(SX13(SY1))913500]X4B10:R1MOD(M(SX13(SY1))):R114500k4DX1:DY0r 505RX3SX2:RY3SY25I13:RXRXDX:RYRYDYL606K01:L01:QXK,QYL:L,K:RD:K01:L01:RXK,RYL:L,K:QXRX:QYRY.3(X1),3X3YD/7800`/SS1:I120:A(16336)(16336)(16336)(16336):I:o 0"YOU WIN"p012200:12200:122000"SCORE=";S381158001 COMPUTE MOVE FOR DRAGON2XSX13200d2YSY145002XSX14900,3YSY152))10111400'8900)<(DX0:DY1I(M(X13(Y1))10111800S)8900^h)12200e)6z0*3(Y1),3Y3X*7800*12200\+6+3(Y1),3Y3(X1)$,7800,12200,6P-3(X1),3X3(Y1)-7800.12200|.6FXDX:FYFYDY#0e#K01:L01:HXK,HYL:L,K:4:K01:L01:FXK,FYL:L,K:HXFX:HYFYlT$I~$XXDX:YYDY%X13YWY12300%7800%DX1:DY0H&B10:R1MOD(M(X13(Y1)1)):R111000&8900'DX0:DY1t'M(X13(Y700@K(16384):K1288000-16368,0F K2108700: CHAR R_l K2049700: CHAR Ly K21310000: CHAR U4!K19610300: CHAR D!12200:7800!DX1:DY0`"B10:R1MOD(M(X13(Y1))):R110600"FX3X2:FY3Y2:I13(#FX9?XX1:Y(13(1))1:4:K01:L01:3X2K,3Y2L:L,KUHX3X2:HY3Y2n  PICK SPOT FOR DOORWY(13(1))10:3WY2,3WY139LSX13:SYWYQX3SX2:QY3SY2RD1: SET COLOR FOR DRAGONx12800SXXSYY151 3Y2,3Y13X!p3600.U4400K8M(K13)M(K13)10:YY1f3X2,3X13Y:3600X(13(1))1:Y(13(1))1dM(X13(Y1))06400CC1:3600,12200:"THE MAZE IS READY":60,390:0,3939:0,390:0,3930 0DR(4(1))! DR049000 DR15300? \DR25700N DR36100[ $R4400q M(K)M(K)1:XX1 3Y2,3Y13(X1) P3600 D4400 M(K)M(K)10:YY1 |3X2,3X13(Y1) 3600 DL4400M(K1)M(K1)1:XX169:M(I)11:I7 X(13(1))1:Y(13(1))1:C169E C16700z tR0:D0:L0:U0:KX13(Y1):M(K)(M(K)):CC1 X13RM(K1)0 <Y13DM(K13)0 X1LM(K1)0 Y1UM(K13)0 hQRDLU (Q3(10(1))2)Q0640N'T GET" "THROUGH IT!)"" - ` A$(3)M "TYPE 'GO' TO BEGIN ";:A$a ( M(169):T(169)j :6 936:"DRAGON MAZE" T I0393:0,39I:0,39I:I 0  S1000 MOD(A)((AB(AB))B.05)(AB) I1169:T(I)0:I H I1DRAGON"5 "GETS REAL MAD, AND CLIMBS OVER A WALL."c @"BUT MOST OF THE TIME, HE CAN'T GO OVER" "AND HAS TO GO AROUND."  l"(HINT: YOU CAN OFTEN TELL WHERE A WALL" "IS, EVEN BEFORE YOU CAN SEE IT, BY" 4"THE FACT THAT THE DRAGON CA          T YOU!"%="ENTER 'Y' TO TRY AGAIN"->A$F>(A$,1,1)"N"2700Q>"BYE"WH?115300$:T(SX13(SY1))915200R:B10:R1MOD(M(SX13(SY1)1)):R115300h`;DX1:DY0:13600x;SY113200(2XSX14900N,3YSY15300_3SX1314500|3T(SX13(SY1))913500X4B10:R1MOD(M(SX13(SY1))):R1145004DX1:DY0 505RX3SX2:RY3SY25I13:RXRXDX:RYRYDYL60I6K7800,12200,6/P-3(X1),3X3(Y1)9-7800D.12200K|.6`.3(X1),3X3YjD/7800/SS1:I120:A(16336)(16336)(16336)(16336):I: 0"YOU WIN"p012200:12200:122000"SCORE=";S381158001 COMPUTE M(Y1)1)):R111000&8900-'DX0:DY1<B'Y211400\t'M(X13(Y2))10111400f'8900t<(DX0:DY1(M(X13(Y1))10111800)8900h)12200)60*3(Y1),3Y3X*7800*12200\+6+3(Y1),3Y3(X1)$,R110600&"FX3X2:FY3Y2:I13<(#FXFXDX:FYFYDYC#0#K01:L01:HXK,HYL:L,K:4:K01:L01:FXK,FYL:L,K:HXFX:HYFYT$I$XXDX:YYDY%X13YWY12300%7800%DX1:DY0&X211000H&B10:R1MOD(M(X13SXXSYY15700128000SXXSYY15700L@K(16384):K1288000Z16368,0s K2108700: CHAR Rl K2049700: CHAR L K21310000: CHAR U4!K19610300: CHAR D!12200:8000!DX1:DY0 `"B10:R1MOD(M(X13(Y1))):0,3939:0,390:0,3939WXX1:Y(13(1))1:4:K01:L01:3X2K,3Y2L:L,KmHX3X2:HY3Y2  PICK SPOT FOR DOORWY(13(1))10:3WY2,3WY139LSX13:SYWYQX3SX2:QY3SY2RD1: SET COLOR FOR DRAGONxM(K1)M(K1)1:XX1/ 3Y2,3Y13X9p3600FU4400c8M(K13)M(K13)10:YY1~3X2,3X13Y:3600X(13(1))1:Y(13(1))1dM(X13(Y1))06400CC1:3600,12200:"THE MAZE IS READY":60,390:3(10(1))2)Q06400* 0DR(4(1))9 DR04900H DR15300W \DR25700f DR36100s $R4400 M(K)M(K)1:XX1 3Y2,3Y13(X1) P3600 D4400 M(K)M(K)10:YY1 |3X2,3X13(Y1) 3600DL44001169:T(I)0:I' H I1169:M(I)11:IO X(13(1))1:Y(13(1))1:C169] C16700 tR0:D0:L0:U0:KX13(Y1):M(K)(M(K)):CC1 X13RM(K1)0 <Y13DM(K13)0 X1LM(K1)0 Y1UM(K13)0 hQRDLU (QFACT THAT THE DRAGON CAN'T GET"3 "THROUGH IT!)"9 D ` A$(3)e "HIT 'RETURN' TO BEGIN":A$y ( M(169):T(169) :6 936:"DRAGON MAZE" T I0393:0,39I:0,39I:I 0  S1000 MOD(A)((AB(AB))B.05)(AB) I!!!!!!!! SOMETIMES THE DRAGON"L "GETS REAL MAD, AND CLIMBS OVER A WALL."z @"BUT MOST OF THE TIME, HE CAN'T GO OVER" "AND HAS TO GO AROUND."  l"(HINT: YOU CAN OFTEN TELL WHERE A WALL" "IS, EVEN BEFORE YOU CAN SEE IT, BY" 4"THE YOU HIT 'R' FOR RIGHT,"= "'L' FOR LEFT, 'U' FOR UP, AND"f "'D' FOR DOWN. DO NOT HIT RETURN!"l  "THE OBJECT IS FOR YOU (THE GREEN DOT)" L"TO GET TO THE DOOR ON THE RIGHT SIDE" "BEFORE THE DRAGON (RED DOT) EATS YOU." x"BEWARE!;M(S2);" MEN"D17002W TO MOVE CANNON BALLS[X"FROM CANNON ";C2:" TO CANNON ";C3i[C20205w]C30205b"HOW MANY CANNON BALLS ";X:X0205lXC(C2)ĺ"THERE ARE ONLY ";C(C2);" CANNON BALLS THERE"vXC(C2)610C(C2)C(C2)X";NN0205&D(10(D.3))10M"FROM WHERE ";S1:" TO WHERE ";S2`S10S20205M(S1)Nĺ"YOU DON'T HAVE THAT MANY MEN"!M(S1)N530&M(S1)M(S1)N:M(S2)M(S2)N 0"SIDE ";S1;" NOW HAS ";M(S1);" MEN AND SIDE ";S2;" NOW HAS "K(Q)R2430#I(S1)I(S1)K(Q)M"YOU HAVE KILLED ";K(Q);" INDIANS":mI(1)I(2)I(3)I(4)01620tQ~1210 TO MOVE MEN"DO YOU WANT TO MOVE MEN (1) OR CANNON BALLS (2) ";MM0205M2600"HOW MANY MEN ? :410T5(S1)T5(S1)1,T5(S1)21170zM(S1);" MEN, ";B;" BULLETS, ";I(S1);" INDIANS, ";F(S1);" FEET FROM FORT""HOW MANY ROUNDS ";R:XM(S1)10:RX1200RB1205BBRK(Q)((1)(.65R))1K(Q)I(S1)K(Q)I(S1):450OTS KILLED ";K(Q);" INDIANS"::)470b"YOU DON'T HAVE ANY CANNON BALLS LEFT ON THAT SIDE"k470"YOU DON'T HAVE ANY BODY ON THAT SIDE TO FIRE"470 FOR RIFFLES"WHICH SIDE ";S1:S10205S11S14ĺ"NOT THAT MANY SIDES"HOW MANY CANNON BALLS ";:K1:K10309UYC(C2)K1ĺ"YOU DON'T HAVE THAT MANY":340z^ 1 CANNON BALL KILLS 15 INDIANSaK(Q)15K1cI(C2)0I(C2)0eI(C2)K(Q)0K(Q)I(C2)hC(C2)C(C2)K1:IIK(Q):I(C2)I(C2)K(Q):C1C1K1 |"THOSE SH";Q26"CANNON (1) OR RIFFLES (2) ";:A:A0205?@A2400WE FOR CANNON ATTACKJ"WHICH CANNON ";:C2:C20309:C(C2)0395MC(C2)0395OM(C2)0398QM(C2);" MEN, ";C(C2);" BALLS, ";I(C2);" INDIANS, "F(C2);" FEET FROM FORT"&T"S1S62203X14:T5(X)0:XUS300,500,700,1800,1750,1850t 1=ATTACK 2=MOVE 3=STATUS, FOR ATTACK12"HOW MANY SIDES DO YOU WANT TO ATTACK? ";P:P411903D(10(D.3))104Q1P5"THIS IS ATTACK NO. )"WHAT'S YOUR LAST NAME ? ";N$2700T:I(1)I(2)I(3)I(4)11620cD01520"1=ATTACK 2=MOVE MEN/CANNON BALLS 3=STATUS REPORT 4=SURRENDER 5=NEW GAME 6=LIST OF COMMANDS""WHAT IS YOUR COMMAND GENERAL ";N$S %"HIT RETURN TO CONTINUE ";B$+["(4) THIS COMMAND ALLOWS YOU TO SURRENDER"a"(5) THIS COMMAND ALLOWS YOU TO START A NEW GAME""(6) THIS COMMAND PRINTS A CONCISE LIST OF COMMANDS. THIS ALSO DOESN'T USE UP ANY COMMANDS." A STATIS REPORT WHICH SHOWS THE NUMBER OF INDIANS, MEN AND CANNON BALLS AS WELL AS THEIR LOCATION."; " THIS ALSO SHOWS THE DISTANCE THE INDIANS ARE AWAY FROM THE FORT AND THE AMOUNT OF AMMUNITION LEFT. THIS DOESN'T USE UP ANY OF YOUR 10 COMMANDS."RE THAN ONCE DURING AN ATTACK."% x "(2) THIS COMMAND ALLOWS YOU TO MOVE MEN OR CANNON BALLS FROM ONE SIDE TO ANOTHER. REMEMBER, WHEN YOU MOVE YOUR MEN THE INDIANS ARE GOING TO MOVE CLOSER TO THE FORT." e "(3) THIS COMMAND ALLOWS YOU TO GETOUNDS OF AMMO.";2 a"HIT RETURN TO CONTINUE ";B$8 dS g"YOUR COMMANDS ARE: "Y h i"(1) THIS COMMAND ALLOWS YOU TO ATTACK THE INDIANS. IN A SINGLE TURN YOU MAY ATTACK 1-4 SIDES WITH EITHER RIFFLES OR CANNONS. YOU MAY NOT ATTACK THE SAME SIDE MOAVE THE WEST FROM THE INDIANS. THERE ARE 1600 INDIANS SPLIT UP SO THAT 400 INDIANS ARE ON EACH SIDE. YOU HAVE 120 MEN PLACED SO THAT THERE ARE 30 MEN ON EACH SIDE"; _" THERE IS ONE CANNON PER SIDE AND EACH HAS 5 CANNON BALLS. YOU ALSO START WITH 2300 R% (7);"INSTRUCTIONS FOR **FORT**"+ 2 7"YOU ARE THE GENERAL OF F-TROOP AND THE HECKAWEE INDIANS ARE ON THE WARPATH. YOU MUST HOLD THE FORT FOR 3 DAYS (10 COMMANDS). IN ORDER FOR THE SEVENTEENTH CAVALRY TO ARRIVE WITH"; K" RE-INFORCEMENTS TO S C M140:I1600:C4:D3:B2300:C(1)5:C(2)5:C(3)5:C(4)5:C120N DE0.3M(1)30:M(2)30:M(3)30:M(4)30:I(1)400:I(2)400:I(3)400I(4)400:F(1)150:F(2)150:F(3)150:F(4)150"DO YOU WANT INSTRUCTIONS (Y/N) ? ";B$ #B$"N"195 A346 (B$(346),U$(346)52I1A:B$(I):Ia<"INSTRUCTIONS (Y/N) ":A$:A$"Y"230" F"THIS IS A GAME OF 'GEOGRAPHY'. ONE PLAYER NAMES A GEOGRAPHICAL LOCATION. THE OTHER PLAYER MUST NAME A LOCATION WHOSE FIRST LETTER IS THE SAME AS THE LAS        5%X*R THE FORT AND YOU HAVE GIVEN THEM A CHANCE TO TAKE OVER THE WEST."e$" P.S. YOU'VE BEEN SCALPED"o$1750~$9 COMMANDS$:"(1) ATTACK (2) MOVE MEN/CANNON BALLS (3) STATUS REPORT (4) SURRENDER (5) NEW GAME (6) LIST OF COMMANDS"$?$S%X20P10:X#205## FOR NEW GAME]#"O.K. CHICKEN.....YOUR NEW GAME STARTS IN A MINUTE."g#1760#"GOOD JOB GENERAL. YOUR NEW GAME STARTS IN A FEW SECONDS"#10# SURRENDERC$"YOU YELLOW BELLIED SAP SUCKER!!! THE INDIANS HAVE TAKEN OVE"",1755"6D"@"YOU LOST ALL YOUR MEN. GO TAKE A SHOWER."N"O1750w"T"YOU KILLED ALL THE INDIANS.":1530"^1750" DETERMINES DISTANCE OF INDIANS"X14"H((1)50)1"F(X)F(X)H"P12:I(X)11730"F(X)11300#)I(2)I(3)I(4)11620&!P121730-!X6!205L! POSSIBLE ENDING!"WAIT A MINUTE.......HERE COMES THE CAVALRY TO THE RESCUE!!! YOU HELD THE FORT FROM THE INDIANS AND SAVED THE WEST. "!1560!"YOU HELD THE FORT AND SAVED THE WEST."IANS ON SIDE ";X;" HAVE BEEN PUSHED OUT"; }I(X)0I(X)0o "THERE ";I(X);" INDIANS ON THAT SIDE":F(X)150 F(X)1F(X)0 1485 "THE INDIANS HAVE COME IN SIDE ";X I(X)1F(X)0 "THE INDIANS ARE ";F(X);" FEET FROM FORT "!I(1NDIANS IN THE FORT4ZP((1)I(X))1:PP.5:PP4NdT14:M(T)(M(T)P)aiM(T)0M(T)0hjTkM(1)M(2)M(3)M(4)01600nT14:" THERE ARE NOW ";M(T);" MEN ON SIDE ";TqM(1)M(2)M(3)M(4)01600sT( xI(X)I(X)10:" THE INDI(X)1F(X)0F(X)01300(1485e"THE INDIANS ARE COMING INTO THE FORT ON SIDE ";X;" !!"zP((1)M(X))1(M(X)M(X)P:I(X)I(X)(P2)2I(X)151400FM(X)0:"ALL THE MEN ON SIDE ";X;" HAVE BEEN KILLED"P"THERE ARE ";I(X);" ISIDE NO. ";X;/M(X)0ĺ"LOST ";S3(X);" MEN"CM(X)M(X)S3(X)VM(X)0M(X)0vM(1)M(2)M(3)M(4)11590I(X)11495 F5S3(X)8:K(X)172F(X)F(X)40 F(X)F(X)F5 H((1)50)1 I(X)11495M(X)0F(X)F(X)H AT MANY ROUNDS":420F"YOU DON'T HAVE THAT MANY BULLETS LEFT":410^ FOR INDIAN ATTACKiX14zM(X)01285I(X)11495O(I(X)M(X))S3(X)((1)O)1S3(X)(S3(X)5)S3(X)1S3(X)0S3(X)M(X)S3(X)M(X) "R5);:X131:"*";:X&W" "5\19);I(3)Da19);F(3)ec"HIT RETURN TO CONTINUE";B$nf205"YOU ALREADY SHOT ON THAT SIDE":410"YOU CAN'T ATTACK THAT MANY SIDES":306"WHAT'S YOUR LAST NAME ? ";N$"YOU DON'T HAVE TH);"*";20);C(1);35);"*".*5);"*";35);"*"4-/1);F(2);5);"*";8);M(2);11);C(2);17);"F-TROOP";29);C(4);31);M(4);35);"*";37);F(4)41);I(2);5);"*";35);"*";37);I(4)>5);"*";20);C(3);35);"*"H5);"*";19);M(3);35);"*"M24);M(X);35);C(X):X=3);"TOTALS";14);I;23);M;34);C1m"YOU HAVE ";B;" BULLETS, ";D;" DAYS LEFT " : PRINTS LAYOUT FOR THE FORT19);F(1)19);I(1) 5);:X131:"*";:X" "5);"*";19);M(1);35);"*" 5C(C3)C(C3)X205+ FOR STATUS19:R14)"STATUS REPORT"3);"SIDE";13);"INDIANS";23);"MEN";33);"BALLS"II(1)I(2)I(3)I(4)MM(1)M(2)M(3)M(4)X14:I(X)1F(X)0XX145);X;15);I(X);DON","SHANGHAI","OSAKA","MOSCOW","BUENOS AIRES","PARIS","MEXICO CITY","CHICAGO","LOS ANGELES"8 "CALCUTTA","PEKING","SAO PAULO","BOMBAY","DJAKARTA","SEOUL","RIO DE JANEIRO","CAIRO","PHILADELPHIA","DETROIT","HONG KONG","BERLIN","LENINGRAD","MANILA","NEW,"TOGO","TRINIDAD","TUNISIA","UNION OF SOVIET SOCIALIST REPUBLICS","WALES","ZAIRE","YEMEN","ZAMBIA","UPPER VOLTA","URUGUAY","VATICAN CITY","VENEZUELA","UNITED KINGDOM"] "NORTH VIETNAM","SOUTH VIETNAM","RUSSIA","UNITED STATES","YUGOSLAVIA","TOKYO","LONR","RHODESIA","RUMANIA","RWANDA","SAUDI ARABIA"," "SCOTLAND","SENGAL","SIERRA LEONE","SINGAPORE","SOMALIA","SOUTH AFRICA","SOUTH AMERICA","NORTH AMERICA","SPAIN","SUDAN","SURINAM","SWAZILAND","SWEDEN","SWITZERLAND","SYRIA" "TANZANIA","THAILAND"AYSIA","MALDIVES","MALI","MALTA","MAURITANIA","MAURITIUS","MEXICO","MONGOLIA","MOZAMBIQUE","NEPAL","NETHERLANDS","NEW ZEALAND","NICARAGUA","NIGER"1 "NIGERIA","NORWAY","OMAN","PAKISTAN","PANAMA","PARAGUAY","PERU","PHILIPPINES","POLAND","PORTUGAL","QATA","IVORY COST","IRAN","IRAQ","IRELAND","ISRAEL","ITALY","JAMACIA" "JAPAN","JORDAN","KENYA","SOUTH KOREA","NORTH KOREA","KUWAIT","LAOS","LEBANON","LESOTHO","LIBERIA","LIBYA","LIECHTENSTEIN","LUXEMBOURG","MALAWI","MALAYA" "MALAGASY REPUBLIC","MAL"EUROPE","FIJI","FINLAND","FRANCE","EAST GERMANY","WEST GERMANY","GERMANY","GREAT BRITIAN","GREECE","GREENLAND","PUERTO RICO","ACAPULCO","TAIWAN","QUEENSLAND","SANTA BARBARA"Af "GUYANA","HAITI","HOLLAND","HONDURAS","HUNGRY","ICELAND","INDIA","INDONESIAMBODIA","CANADA","CHILE","NEW ORLEANS","MILWAUKEE","PORTLAND","RENO","SAN JOSE","SAN DIEGO"* "CHINA","CONGO","CUBA","CZECHOSLOVAKIA","DENMARK","ECUADOR","EGYPT","ENGLAND","SAN ANTONIO","SEATTLE","TAMPA BAY","TOLEDO","TUCON","VANCOUVER","NORWAY"H IAMI","TULSA","GREEN BAY" "ATLANTIC CITY","AFRICA","BALTIMORE","CANTON","CINCINNATI","CLEVELAND","ANTARTICA","ASIA","AUSTRALIA","DENVER","EL PASO","FAIRBANKS","FT. WORTH","FRESNO"[  "GARY","HOUSTON","KNOXVILLE","BRAZIL","LOUISVILLE","MEMPHIS","CAINNESOTA","KENTUCKY","TENNESSEE","LOUISIANA","DELAWARE","MARYLAND","ARKANSAS","COLORADO","ARIZONA","WEST VIRGINIA","TEXAS","NEVADA","OKLAHOMA" "WYOMING","MISSOURI","ALASKA","HAWAII","ILLINOIS","BUFFALO","DALLAS","LAS VEGAS","OAKLAND","KANSAS CITY","MOUTH CAROLINA","RHODE ISLAND","UTAH","INDIANA" "NORTH CAROLINA","VIRGINIA","SOUTH DAKOTA","OHIO","OREGON","NEW MEXICO","NORTH DAKOTA","WISCONSIN","MICHIGAN","IDAHO","CALIFORNIA","MISSISSIPPI","KANSAS","NEBRASKA","IOWA" "WASHINGTON","MONTANA","M:(B$(E),1)R$620 DI1U5NB$(E)U$(I)620<XIbbB$(E):"YOU L O S E ! ! ":515ilErq510.v "NEW YORK","NEW JERSEY","PENNSYLVANIA","CONNECTICUT","ALABAMA","VERMONT","NEW HAMPSHIRE","MAINE","FLORIDA","MASSACHUSETTS","GEORGIA","SU B$(E)U$(I)480 I; B$(E):UU1:U$(U)B$(E)R R$(B$(E),1):255Y Ef G1510w HG:G1:410 "Y O U W I N ! ! !"  "TRY AGAIN (Y/N) "; A$:A$"Y"230 1350 & *** CHALLENGE SUBROUTINE *** 0E1AH ***":260 ,E1U) 6A$U$(E)330J @"*** ALREADY USED ***":260Q JE\ TE1Ao ^A$B$(E)370x h390 rE |"*** ILLEGAL WORD ***":260 R$(A$,1):UU1:U$(U)A$ G(A(0)1):HA EGH (B$(E),1)R$480 I1R WILL PRINT A POSSIBLE RESPONCE AND YOU LOSE."b U0:C0:"DO YOU WANT TO GO FIRST (Y/N) ";:A$t :A$"N"250 C1:260 R$((26(0)65)):400 C0 A$:C1300 A$"CHALLENGE"550 (A$,1)R$300 ""*** LETTERS DON'T MATCWORD HAS ALREADY BEEN USED OR THE WORD ISN'T IN THE COMPUTER'S MEMORY. "j "HIT RETURN TO CONTINUE ";A$/ "IF YOU CAN'T THINK OF A WORD YOU MAY TYPE 'CHALLENGE'. IF YOU'VE REALLY EXHAUSTED ALL POSSIBLE RESPONSES THEN YOU'V