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`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0  :(4);"BRUNMENU" we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::a ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ēJJ1 I(J)I $I' .J13670L 8 - THIS IS THE SINGLE BEST HANDX BB9I(1)^ L V - NO SINGLE BEST HAND SEARCH FOR KEY CARDS ` - CHECK FOR FIVES jC95 tZ1 ~3920  - CHECK FOR EIGHTS C98 Z2 3920! - CJ)M(I1,J)z W(2,J)M(I2,J)0 W(3,J)M(I3,J)C W(4,J)M(I4,J)Q W(5,J)25X Jr - EVALUATE THE HANDz C0 4360 V(Z9,7)P PP9P9P Z9 - FIND ALL HANDS WITH MAX SCORE (P9) J0 I115V(I,7)P93620 1)13330 K R9I H **********************************q ** FIND THE BEST FOUR CARD HAND ** *********************************** P904 Z9115> I1V(Z9,1)H I2V(Z9,2)R I3V(Z9,3)\ I4V(Z9,4)f J14 p W(1,3170 0 R905 : I3C(D 3180/N I:X PPR9@b Kl J1C`v J(J10)J(CJ1)g Jt K1I1 LK1I J(K10)J(L10)3270 XJ(K10) J(K10)J(L10) J(L10)X L K  K1I1  J(K10)J(K1| P0 C13170$ S9152990. PP28 3010I S9313010S PP2l FT2:(C2)2FTC2{ ICFT1 J(I)J(I1)3100 CI13040,3060,3080 PP2 3090 PP4 3090 PP6 I ! RUNS& C2 F2 S1S1P9$ S112113205" S9312880F, F0:C0:S90P6 1450b@ C$"GO"1830lJ 1450T ******************************^ ** CHECK FOR 15 OR 31 ORh ** 2,3,4 OF A KIND AND RUNSr ******************************d J(C)M(I9,4)n P90&x S9M(I9,2)0 2800> Q42610M I9V(B9,1)W 2650d J91K9t I9I(J930) I(I9)P92770 J9 I(M520)I9 J(C)M(I9,4) S9S9M(I9,2) "MY CARD IS THE ";C$(M(I9,1));" S=";S9;" P=";P9 S11211320 2560< "YOU GET 1 POINT FOR LAST CARD"H S2S21Z S21211360` f p CC1| M5M51( C12730, M512730- Q02 QQ1< I9V(B9,Q)F - DON'T PLAY A 5 FIRSTP M(I9,2)52700Z I(M520)I942420 $ 7. "I'LL GIVE YOU 1 POINT FOR LAST CARD"=8 IB S2S21[L S21211360lV C0:S90:G0v` C$""j 1830t G11450~ "GO" G1 1450 F02560  F12530 "I GET 1 POINT FOR LAST CARD" S1S11  p2900zPP9P9P%I(Q)P4I(K930)Q:@NQ62040WCC9aS9H9qK902580C$"GO"2330G12340"I GET 1 POINT FOR LAST CARD"C0:S90S1S11 S11211320 1450 Y53SWWWW7W/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%%!)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): I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4     0 **********0M0610060"YOU ARE DEALING "@06110U0"I AM DEALING "_0M1Mi0Y1Mo00"YOUR CARDS ARE"00Q16:RD(0,Q)0:RD(1,Q)0:Q0 Q5S1:Q50Q5J10 Q1Q50 K(1):Q0S10S1Q50I16 1KJ(52(1))1/JI5900*/ J1D(J,1)I/*" MY CARD IS THE ";C$(J1)a/4D(I,4)D(J,4)6010y/>D(J,4)D(I,4)5980/H"CUT AGAIN "/R5820/\ - COMPUTER DEALS/fM0/p/z - PLAYER DEALS/M1// **********/ ** DEAL **.. ******************6. ** CUT FOR DEAL **O. ******************u."PLEASE CUT FOR DEAL (1 T0 52) "|.I.I15850.I535870."BE SERIOUS NOW! ".5810.I(I)5850.I1D(I,1)."YOUR CARD IS THE ";C$(I1)/ UFFLE THE DECK **.- **********************:-I152E-I(I)0L-&IX-0I152k-:J(52(1))1q-?-DI(J)05690-ND(I,1)J-XD(I,3)((J1)13)1-bD(I,4)J13((J1)13)-lD(I,2)10:D(I,4)10D(I,2)D(I,4)-vI(J)1-ITI ,^L*,h - CHECK FOR A 3 CARD RUN5,rL13G,|DW(L,4)S(1)R,I13b,S(I)S(I)Di,It,I13z,,W(LI1,4)S(I)5600,I, - A 3 CARD RUN,PPS(4),,,L,, **********************- ** SHARD RUN+PPQ(I,6)+#+IB+ - CHECK FOR A 4 CARD RUNM+L12a+DW(L,4)R(1,1)l+I14w+J14+R(I,J)R(I,J)D+J+I+I14+K14+"W(KL1,4)R(I,K)5460+,K+6 - A 4 CARD RUN+@PPR(I,5)+J,15*W(I,4)W(J,4)5140)*KW(I,4);*W(I,4)W(J,4)H* W(J,4)KO*JV*In*( CK FOR 5 CARD RUN*2DW(1,4)Q(1,1)*<I111*FJ15*PQ(I,J)Q(I,J)D*ZJ*dI*nI111*xJ15*W(J,4)Q(I,J)5300*J+ - A 5 C%)B CK FOR PAIRS,3 AND 4 OF A KIND1)LI113<)VJ(I)0C)`IN)jI15[)tJW(I,4)k)~J(J)J(J)1r)I~)I113)J(I)15060,5060,5050,5040,5030)PP6)PP4)PP2)I) SORT HAND INTO ASCENDING ORDER)I15*JI ( CK FOR 4 CARD SUMS OF 15+(I128(JI13E(KJ14R(LK15|(W(I,2)W(J,2)W(K,2)W(L,2)154820(PP2(L(K(J(I( CK 5 CARD SUM FOR 15(S0(I15(SSW(I,2)($I(.S154930)8PP2PP5,' - CHECK FOR 2 CARD SUM S OF 157'I14D'JI15`' W(I,2)W(J,2)154640j'PP2q' Jx'*I'4 CHECK FOR 3 CARD SUMS OF 15'>I13'HJI14'RKJ15'\W(I,2)W(J,2)W(K,2)154720'fPP2'pK'zJ(4460&XPP1&b4470&lIE&v - CHECK FOR A 4 OR 5 CARD FLUSHP&I13k&W(I,3)W(I1,3)4590r&I& - CRIB SCORES ONLY FOR A 5 CARD FLUSH&C04570&PP4&W(4,3)W(5,3)4590&PP1&4590&W(4,3)W(5,3)4590'%)% ******************************N% ** SCORE THE FIVE CARD HAND **s% ******************************% - CHECK FOR A JACK OF THE SAME SUIT AS UP CARD (EXEPT CRIB)%&P0%0C14470%:I14%DW(I,4)114460&NW(I,3)W(5,3) THE ";C$(D(U,1)):380$h0$mUP$C$(D(U,1));$rI14M$|W(5,I)D(U,I)T$Ib$T9W(5,4)h$}$W(5,4)114340$M04310$"2 POINTS FOR ME "$S1S12$S11211360$$"2 POINTS FOR YOU "$S2S22$S21211360I#K14130#9#"Z3720,3760,3800,3840,3880Z#, **************************{#6 ** GENERATE THE UP CARD **#@ **************************#JU(52(1))1#LQ16#NURD(0,Q)URD(1,Q)4170#PQ#T$^384:"THE UP CARD ISHAND WILL BE WHICHEVER HAS MOST OF CARD "C9"5"ZP90A"dI115L"nJ(I)0S"xI^"IIJi"K14y"LV(I(I),K)"M(L,4)C94020"J(I)J(I)1"K"J(I)P9P9J(I)"I"K0"I1J"J(I)P94100"KK1"B9I(I)#HECK FOR SEVENS!C97 !Z3*!3920B! - CHECK FOR JACKSL!C911T!Z4^!3920u! - CHECK FOR ACES~! C91!Z5!3920!( - RANDOMLY CHOOSE A BEST HAND IF WE REACH THIS POINT !2B9(J(1))1!<B9I(B9)!F,"P - BEST SIDE 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);;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)XT YOU!"%="ENTER 'Y' TO TRY AGAIN"->A$F>(A$,1,1)"N"2700Q>"BYE"WH?YE" H?A: 732,0733,40"734,TS-735,BS37X56^;20);T1$(I):6760&6cT1$(I);-6hI76k380i6m" I HAVE ";S1;"- YOU HAVE ";S2;" "o6r6CP(37)1:37,0:T3$:TS0:BS5:6850:6700:6810:6CP(37)1:TS0:BS5:6850:37,0:T3$:6700:6810:7TS5:BS23:6850:37,CP:T3$Q(I,J) 5nJ5xI5I14*5J1565R(I,J)=5JD5IO5I14Y5S(I)`5Ik5I16v5D$(I)}5I555,J051T4$5338456I165;II3II467605@JJ15EJ267455JJ167555T67506YJ36752,3,4,4,08,1,2,3,4,5,05E4 1,1,2,3,6,1,2,2,3,6,1,2,3,3,6,1,2,3,4,4S4 1,2,3,3q4 "1","2","3","4","5","6"4  "A","2","3","4","5","6","7","8"4 "9","10","J","Q","K"4I1154(J1742V(I,J)4<J4FI4PI1114ZJ165d,0,1,3,5,6,2,4,0@3 1,4,5,6,2,3,0,2,3,4,5,1,6,0,2,3,4,6,1,5,0p3 2,3,5,6,1,4,0,2,4,5,6,1,3,0,3,4,5,6,1,2,03 1,1,1,2,3,09,1,1,2,2,3,12,1,1,2,3,3,123 1,1,2,3,4,08,1,2,2,2,3,09,1,2,2,3,3,123 1,2,2,3,4,08,1,2,3,3,3,09,1,2,3,3,4,084 1,RS HAND2VY(I,J)D(L,J) 2`J<2j"(";I;") ";C$(Y(I,1))]2tT1$(I)(I)" = "C$(Y(I,1))s2yC1$(I)C$(Y(I,1))z2~I22 1,2,3,4,5,6,0,1,2,3,5,4,6,0,1,2,3,6,4,5,02 1,2,4,5,3,6,0,1,2,4,6,3,5,0,1,2,5,6,3,4,03 1,3,4,5,2,6,0,1,3,4,6,2,5(52(1))11L(52(1))1-1KL616581Q16V1KRD(0,Q)KRD(1,Q)6165t1LRD(0,Q)LRD(1,Q)6165{1 Q1$RD(0,I)K:RD(1,I)L1%61901&Q16:RD(0,Q),RD(1,Q):Q:1.J1418 - COMPUTERS HAND1BM(I,J)D(K,J)2L - PLAYE RIVER","YOKOHAMA","YUKON TERRITORY","CONTINENTS","COUNTRIES","U.S. STATES","CANADIAN PROVINCES","MAJOR WORLD CITIES","U.S. STATE CAPITOLS","OCEANS AND SEAS"FXOCEAN","ARTIC OCEAN","RED SEA","BLACK SEA"  "MEDITERRANEAN SEA","BERING SEA","NORTH SEA","BALTIC SEA","YELLOW SEA","CARIBBEAN SEA","GULF OF MEXICO","EAST CHINA SEA","HUDSON BAY","SEA OF JAPAN","SOUTH CHINA SEA","XENIA","XANTHUS"( "YALTA","YANGTZE,"RALEIGH","BISMARK","COLUMBUS","OAKLAHOMA CITY","SALEM","HARRISBURGH","PROVIDENCE","COLUMBUS","PIERRE"* "NASHVILLE","AUSTON","SALT LAKE CITY","MONTPELIER","RICHMOND","OLYMPIA","CHARLESON","MADISON","CHEYENNE","PACIFIC OCEAN","ATLANTIC OCEAN","INDIAN TA" "HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS","DES MOINES","TOPEKA","FRANKFORT","BATON ROUGE","AUGUSTA","ANNAPOLIS","LANSING","ST. PAUL","JACKSON","JEFFERSON CITY","HELENA","g "LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE","ALBANY"SBURGH","ATHENS","SINGAPORE","ISTANBUL","VIENNA","BRUSSELS","AMSTERDAM","GLASGOW","HAVANA" "LISBON","WARSAW","COPENHAGEN","STOCKHOLM","PRAGUE","MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO","DENVER","HARTFORD","DOVER","TALLAHASSEE","ATLAN DEHLI"V "BOSTON","KARACHI","MADRID","SAN FRANCISCO","WASHINGTON DC","SYDNEY","ROME","MILAN","SANTIAGO","MONTREAL","LIMA","BARCELONA","MELBOUNE","PITTSBURGH","MANCHESTER"Zt "ST. LOUIS","TORONTO","HAMBURGH","BUDAPEST","CLEVELAND","BANGKOK","JOHANNEDON","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","LON5%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);" IPOINT FOR A"8&n"NORMAL TURN, 'TRY' OR 'GUESS' CAN BE"g&p"ENTERED. 'TRY' IS USED TO GIVE A TRIAL"&r"LOCATION FOR ONE OF THE OBJECTS. AFTER THE Y AND X COORDINATES ARE GIVEN, THE"&t"OBJECT APPEARS ON THE SCREEN. IF AN">'v"OBJECT IS ALREADRY POINTS 1, 3,"d%@"10 AND 12, ARE CAUSED BY THE OBJECTS AT THE BOX BOUNDARIES. THE BEAM CANNOT"%B"ENTER THE BOX NEXT TO AN OBJECT AT"%D"THE BOUNDARY."%F:"HIT ANY KEY FOR FURTHER INSTRUCTIONS.";%HANS$: &l"BESIDES ENTERING AN ENTRY 16 ENTRY POINTS FOLLOW."$3E$4" IN OUT IN OUT IN OUT IN OUT"l$6" 1 REFL 5 HIT 9 4 13 HIT"$8" 2 HIT 6 7 10 REFL 14 15"$:" 3 REFL 7 6 11 HIT 15 14"$<" 4 9 8 HIT 12 REFL 16 HIT"%>:"THE REFLECTIONS AT ENTE"#ANS$:#1#:101# "1 2 3 4":#:7Q#"16 X 5"X#7o#"15 6"v#7# "14 7"#"7#$"13 X 8"#&9#("12 11 10 9"#0:"THE PROGRESS TABLE ENTRIES FOR EACH"$2"OF THE THE BEAM WAS"8""REFLECTED BACK OUT THE ENTRY POINT."c""IF THE BEAM IS NEITHER ABSORBED NOR"""REFLECTED, IT WILL EXIT THE BOX. THEN"""THE EXIT POINT WILL BE LISTED IN THE"""PROGRESS TABLE."#:"HIT ANY KEY FOR A SIMPLIFIED EXAMPLSSIBLE RESULTS : HIT, REFLECTION OR A"U!l"NUMBER FOR THE EXIT POINT FROM THE BOX."!r:"HIT ANY KEY FOR MORE INSTRUCTIONS"!vANS$:!:"A HIT MEANS THAT THE LASER BEAM WAS" ""ABSORBED BY A DIRECT HIT ON AN OBJECT. A REFLECTION MEANS THAT RN' CONSISTS OF ENTERING A"F b"NUMBER FROM 1-32 FOR AN ENTRY POINT"t d"INTO THE 'BLACK BOX'. IN THE PROGRESS" f"TABLE, ON THE RIGHT, AN ENTRY WILL BE" h"MADE. THE ENTRY CONSISTS OF THE ENTRY"&!j"NUMBER AND THE RESULT. THERE ARE THREE POAMS INTO THE BOX AND"@J"OBSERVING EACH RESULT. THE OBJECTS"jL"REFLECT LIGHT AT RIGHT ANGLES JUST"N"BEFORE IT REACHES THEM ALONG ANY PATH"\"ADJACENT TO THEM, BUT THEY WILL ABSORB"^"LIGHT THAT HITS THEM DIRECTLY." `:"A NORMAL 'TUHATCHAMACALLIT"!?INSTRUCTIONS'@]A:"LASER SEARCH";::" IS DERIVED FROM THE GAME"B"BLACK BOX. THIS VERSION CAN BE PLAYED"D"WITH 1-9 HIDDEN OBJECTS (BALLS). THE"F"LOCATION OF THE OBJECTS MUST BE DEDUCED"H"BY FIRING LASER BE8,1,-1,0} 8,1,0,1$} 7,1,0,12} 6,1,0,1@} 5,1,0,1N} 4,1,0,1\} 3,1,0,1j} 2,1,0,1x } 1,1,0,1逃"NICE GOING","SMART GUY"ꀃ"TERRIFIC","BRAIN"뀃"WHAT DO YOU KNOW","GOOD BUDDY"쀃"WAY TO GO","GENIUS"퀃"GOOD JOB","W} 1,7,1,0} 1,8,1,0' } 1,8,0,-16 } 2,8,0,-1E } 3,8,0,-1T } 4,8,0,-1c } 5,8,0,-1r} 6,8,0,-1} 7,8,0,-1} 8,8,0,-1} 8,8,-1,0} 8,7,-1,0} 8,6,-1,0} 8,5,-1,0} 8,4,-1,0} 8,3,-1,0} 8,2,-1,0} vu"#";BH%,(XX),(YY)"uZZZ$JuBALL(BH%,1)(XX):BALL(BH%,2)(YY)]uBH%NB%30030cuuA132:B14:ZE(A,B):B:AuA15:C1$(A),C2$(A):Au} 1,1,1,0} 1,2,1,0} 1,3,1,0} 1,4,1,0} 1,5,1,0} 1,6,1,0  HIDING PLACESR2030020uA18:B18:C14G:u READ SQ(A,B,C)W13:24:"ENTER NUMBER ";:X1:X11X16Ģ13:868:830@X11ė:1300:3000:850AX14İ3400:803CX16İ7615:803H3100:803RS1S2T1WT(N)0S1S2T(N)0:870*EM ";P$;"IES"[+"4. TRADING ";P$;"IES - ALSO ALLOWS LISTING FOR ANY 2 PLAYERS"y-"5. BUY/SELL BUILDINGS"/"6. GET OUT OF JAIL (PAY $50)">4T(N)0ĺO$(N);", YOU ARE IN JAIL (TURN # ";T"); YOU MAY ENTER '6', PAY $50 AND BE FREE - OR 16,3)"1":K$(26,3)"1":K$(36,3)"1"uK$(12,4)"B":K$(14,4)"B":K$(15,4)"B":K$(12,3)"1":K$(14,3)"1":K$(15,3)"1" :L0!N1A"ZO(N,2)#:L0:1300$1:O$(N);W$%:"1. ROLL DICE"'"2. LIST ";P$;"IES" )"3. ";I$;" /REDE2) B1A)"NAME OF PLAYER # ";B;:" ";O$(B):FO(B,1)RO(B,2)Y B  1500,0,1500,0,1500,0,1500,0,1500,0,1500,020::"THE GAME IS ABOUT TO START"::4000#K$(6,4)"A":K$(16,4)"A":K$(26,4)"A":K$(36,4)"A":K$(6,3)"1":K$(:"****************************************"T16:8:"BY DAVID AND ISRAEL FERRI"Z`x NUMBER OF PLAYERS1:"HOW MANY PLAYERS ? (2 TO 6) ";A::A2A6Ģ1:868:760"ENTER PLAYERS' NAMES (MAX. 8 LETTERS)":O$(A),O(A,RAL REPAIRS - PAY $25 FOR EACH HOUSE AND $100 FOR EACH HOTEL"l "GO DIRECTLY TO JAIL - DON'T PASS 'GO' - DON'T COLLECT $200"T1740:: TITLE PAGE4:"****************************************"7:12:"M O N O P O L Y",10TAX OF $15","ADVANCE TO GO - COLLECT $200","ADVANCE TO NEAREST R.R.- PAY OWNER TWICE NORMAL RENT-IF UNOWNED YOU MAY BUY IT">k "ADVANCE TO NEAREST UTILITY - IF UNOWNED YOU MAY BUT IT - IF OWNED THROW DICE AND PAY OWNER 10 TIMES THROW OF DICE","MAKE GENEADVANCE TO NEAREST R.R.- PAY OWNER TWICE NORMAL RENT-IF UNOWNED YOU MAY BUY IT","BUILDING AND LOAN MATURES - COLLECT $150","GO BACK 3 SPACES","GET OUT OF JAIL FREE - KEEP UNTIL USED OR SOLD"{j "ADVANCE TO BOARDWALK","ADVANCE TO ILLINOIS AV.","PAY POOR =============="+( 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 Y SHOWN IN THAT LOCATION IT VANISHES. SO TRIAL POINTS CAN BE"N'x"REMOVED."~'z:"FOR 'TRY' ENTRIES THE Y-COORDINATES OF"'|"THE BOX ARE 1-8 COUNTING FROM THE TOP AND THE";'~" X-COORDINATES ARE 1-8 COUNTING"'"FROM THE LEFT.""(:"WHEN : ";M6:M6M61:M6403350o1 K$(M6,4)O$(N)Ģ(M22):958:"THAT IS ";K$(M6,4);"'S PROPERTY !":4000:33001 K$(M6,15)"0"Ģ(M22):958:"THAT PROPERTY IS UNDEVELOPED !":4000:33001% M7(K$(M6,15)):M7M71:K$(M6,15)(M7)2/ O(N,1)O(N,1)(K,1)O(N,1)(K$(M6,13)):3900'0 3101H0 M1140:K$(M1,15)"0"3340R0 3350Z0 M10 (M22):958:"ALL YOUR ";P$;"IES ARE UNDEVELOPED ! ":4000:33001 (M22):958:"PROPERTY ON WHICH YOU WISH TO SELL (50% PENALTY ON HOUSE VALUE) POS#$(M6,12)"1"Ģ(M24):958:"CAN'T BUILD ON A ";I$;"D ";P$;"Y !":4000:3300X/ X33/ K$(M6,5)K$(M6X,5)((K$(M6,15))(K$(M6X,5)))2Ģ(M24):958:"YOU MUST BUILD EVENLY !":4000:3300/ X/ M7(K$(M6,15)):M7M71:K$(M6,15)(M7)0 O(N YOU WISH TO BUILD (50% PENALTY WHEN YOU SELL) POS# : ";M6:M6M61:M6403305. K$(M6,15)"5"Ģ(M24):958:"YOU MAY NOT BUILD MORE THAN ONE HOTEL !":4000:3300. K$(M6,4)O$(N)Ģ(M24):958:"THAT'S NOT YOUR PROPERTY !":4000:3300L/ K1":O(N,1)O(N,1)(K$(M3,2))2:39002- F0:3200- (M24):958:"BUYING OR SELLING BUILDINGS ? (B/S) (TYPE 'R' TO RETURN TO MENU) ";M5$:M5$"S"3330- M5$"R"ı- M5$"B"3304- 3300- 8000:5100T. (M24):958:"PROPERTY ON WHICH$(N)Ģ(M24):958:K$(M3,3)"0"ĺ"THAT'S NOT YOUR PROPERTY !":4000:3242, K$(M3,12)"1"Ģ(M24):958:"THAT ";P$;"Y IS ALREADY ";I$;"D !":4000:3242, (K$(M3,15))0Ģ(M24):958:"CAN'T ";I$;" A BUILT-:UP ";P$;"Y !":4000:3280$- K$(M3,12)"$;"D !":4000:3242+ (M24):958:"WHICH PROPERTY DO YOU WISH TO MORTGAGE ?(10% INTEREST WHEN YOU REDEEM) POS# : ";M3:M3M31:M3403280+ K$(M3,4)O$(N)Ģ(M24):958:K$(M3,3)"1"ĺ"THAT IS ";K$(M3,4);"'S ";P$;"Y !":4000:3242J, K$(M3,4)O"THAT ";P$;"Y IS NOT ";I$;"D !":4000:3242i* K$(M3,12)"0":O(N,1)O(N,1)((K$(M3,2))21.1.5):3900s* 3200* M1140* K$(M1,4)O$(N)3273* 3275* K$(M1,12)"1"3275* F0:3280* M1+ (M24):958:"ALL YOUR ";P$;"IES ARE ";I8:"WHICH PROPERTY DO YOU WISH TO REDEEM ? (THERE IS 10% INTEREST DUE) POS# : ";M3:M3M31:M3403254) K$(M3,4)O$(N)3282) O(N,1)1.1((K$(M3,2))2)Ģ(M24):"NOT ENOUGH CASH TO REDEEM ";P$;"Y !":4000:3242+* K$(M3,12)"0"Ģ(M24):958:RETURN TO MENU) ";M1$:(M24):958:M1$"M"3270@( M1$"R"ıR( M1$"U"3246\( 3242i( M1140( K$(M1,4)O$(N)3249( 3251( K$(M1,12)"0"3251( F0:3254( M1( (M24):958:Y$;I$;"D ";P$;"IES !":4000:3242h) (M24):95X15M2M21:(M2):31:K$(M1,13):K$(M1,12)"1"Ğ:(M2):31:I$;"D"::3227b' FF(K$(M1,2))2j' M1' (M22):"LEFT TO ";I$;" - TOTAL VALUE =":(M22):36:F' X1533001( (M24):958:"MORTGAGE OR UNMORTGAGE ? (M/U) (TYPE 'R' TO RETURN TO MENU ";:X1$:X20::& 3:27:X13ĺ"MORT.VAL"O& X15ĺ"CST/HSE"\& M24:F0i& M1140& K$(M1,4)O$(N)3217& 3227& M219İ3950& X13M2M21:(M2):31:(K$(M1,2))2:K$(M1,12)"1"Ğ:(M2):31:(K$(M1,2))2::3227L' 2M21:(M2):(M11);:6:K$(M1,1);:19:K$(M1,5);:38:K$(M1,15)g%1 K$(M1,15)"5"Ģ(M2):35:"HOTEL"%2 K$(M1,4)O$(N)3130%5 3145%: X123140%? 3145%D K$(M1,12)"1"Ģ(M2):32::I$;"D":%I M1&N X12Ģ(M21):958::"HIT ANY KEY TO $ C$ 1:P$;"IES ";J$;"ED BY ";O$(N):1:29:"CASH=$";O(N,1)p$! :"POS# ";P$;"Y GROUP";:35:"B'LT"$" M1140:K$(M1,4)O$(N)3108$# 3113$$ M1$% (M25):958::Y$;P$;"Y !"::4000$& $) M24$+ M1140A%0 K$(M1,4)O$(N)M"CASH HOLDINGS":(23A):20:"BOARD POS.":(23A):35:"TURN"R#O(N,2)Z:D1As#O$(D):(D23A):10:O(D,1)#(D23A):20:K$(O(D,2)1,1)#D#(N23A):17:"*":(N23A):38:T## S1(6(1))1:S2(6(1))1:SS1S2$ 4000::2)Z "N"801X"16:868:16:X$"PRESS SPACE BAR TO CONTINUE":X$" "Ğ:X$:q"(16384)1601042"16368,0:(4):868""15:"INTERESTED ? (Y/N) ";:N$:15:868:N$"N"1280"N$"Y"İ6000:1280"1260">#(23A):AWAX COMMCHEST SUBR#A]4000-AbCC1;AcC14C1FAdC$(C)PAg9000ZAl4000tAq(C$(C),3)"ADV"939zAvA  CHANCE SUBRA*HH1:4000A/H17H1A4H$(H):9500A>A 'INCOME TAX' SUBRAO(N,1)2000O(N,1)O(N,1)200%B" RAILROADS = ";K$(Z1,(R35)):R1(K$(Z1,(R35)))b@L11R1R12:"RENT IS DOUBLED TO ";R1:L10l@4000@O(N,1)O(N,1)R1:8:O$(N);B$;O(N,1)@Q1A@K$(Z1,4)O$(Q)O(Q,1)O(Q,1)R1:9:O$(Q);B$;O(Q,1)@"(Q23A):10:O(Q,1);" "@,Q$(Z1,10))I?K$(Z1,15)"5"ĺ"WITH A HOTEL = ";K$(Z1,11):R1(K$(Z1,11))S?6660?K$(Z1,14)"1"ĺ"= ";S10;" (10 X DICE)":R1S10:6660?"= ";S4;" (4 X DICE)":R14S:6660?R30:R263610:K$(R2,4)K$(Z1,4)R3R31?R21@"WITH ";R3;(K$(Z1,6)))J>K$(Z1,15)"1"ĺ"WITH 1 HOUSE = ";K$(Z1,7):R1(K$(Z1,7))>K$(Z1,15)"2"ĺ"WITH 2 HOUSES = ";K$(Z1,8):R1(K$(Z1,8))>K$(Z1,15)"3"ĺ"WITH 3 HOUSES = ";K$(Z1,9):R1(K$(Z1,9)) ?K$(Z1,15)"4"ĺ"WITH 4 HOUSES = ";K$(Z1,10):R1(KK$(Z1,12)"1"Ģ7:P$;"Y ";I$;"D PAY NO RENT":6999c=x8000:6:"RENT ";:6:K$(Z1,5)"UTIL."6610~=}K$(Z1,5)"WHITE"6630=K$(Z1,14)"0"ĺ"= ";K$(Z1,6):R1(K$(Z1,6)) >K$(Z1,14)"1"K$(Z1,15)"0"ĺ"DOUBLE ON MONOPOLY = ";(2(K$(Z1,6))):R1(2$;"3 RR'S = 100":D$;"4 RR'S = 200":"MORTGAGE VALUE = 100"E+ O.::12:" >>> G A M E I S O V E R(4000: M(O$(N);M$;K$(Z1,1);M(O36ĺZ$:X200:10000AM(ZM) BACK 3 SPACES SUBRlM)ZZ3:4000:M)O$(N);M$;K$(Z1,1)M*Z4İ7300M*Z33İ7000M*Z19L0M&*M0* OUT OF JAIL SUBRM:*M* ASSESSMENTM+X140>N +K$(X,4)OL'O$(N);M$;K$(Z1,1)L'2L<( NEAREST RR SUBR?LA(L0:L11MLF(Z7Z15\LP(Z22Z25jLZ(Z36Z5vLd(4000:Ln(O$(N);M$;K$(Z1,1)Lx(Z5ĺZ$;X200:10000L(L( NEAREST UTIL. SUBRL(L0L(O7Z12L(O22Z28L(O36Z12M B"İ10700:+K%(H$(H),4)"GO D"İ7600:JK%(H$(H),3)"GET"İ10800:PK%jK' CHANGE OF CASH SUBRrK'13K'O(N,1)O(N,1)X:O$(N);B$;O(N,1):4000K$'Kt''MOVE TO'SUBRKy'Z0L0K'4000:K'Z0L1:10150K'OZĺZ$:X200:10000$JX%(H$(H),2)"BA"X50:10000:HJb%(H$(H),2)"BU"X150:10000:kJl%(H$(H),1)"P"X15:10000:Jv%(H$(H),1)"T"OZ:Z5:10100:J%(H$(H),12)"ADVANCE TO B"OZ:Z39:10100:J%(H$(H),1)"M"A125:A2100:11000: K%(H$(H),4)"GO50:9300:>I&%(H$(H),13)"ADVANCE TO ST"OZ:Z11:10100:oI0%(H$(H),20)"ADVANCE TO NEAREST R"İ10300:I:%(H$(H),20)"ADVANCE TO NEAREST U"OZ:10400:ID%(H$(H),13)"ADVANCE TO IL"Z24:10100:JN%(H$(H),13)"ADVANCE TO GO"Z0:10100:YOU W"X10:10000:7Hd#(C$(C),1)"I"X100:10000:=Hn#SH#O(N,1)O(N,1)AX^H#B1ArH#O(B,1)O(B,1)XyH$BH$1300H$HT$O(N,1)O(N,1)AXH^$B1AHh$O(B,1)O(B,1)XHr$BH|$1300H$H% CHANCE ACTION I!%(H$(H),2)"EL"X0:10000:.GA#(C$(C),2)"LI"X100:10000:VGF#(C$(C),5)"PAY H"X100:10000:zGK#(C$(C),1)"S"X150:10000:GP#(C$(C),5)"PAY D"X50:10000:GU#(C$(C),1)"B"X200:10000:GZ#(C$(C),1)"A"A140:A2115:11000:H_#(C$(C),5)"3FK$(13,4)K$(29,4)K$(13,14)"1":K$(29,14)"1"9F PF(# COMMCHEST ACTIONrF*#(C$(C),2)"GR"X50:9190:F-#(C$(C),3)"ADV"Z0:X200:10000:10100:F2#(C$(C),5)"GO TO"İ7600:F7#(C$(C),4)"SELL"X45:10000: G<#(C$(C),1)"X"X10(22,14)"1":K$(24,14)"1":K$(25,14)"1"zE|K$(27,4)K$(28,4)K$(28,4)K$(30,4)K$(27,14)"1":K$(28,14)"1":K$(30,14)"1"EK$(32,4)K$(33,4)K$(33,4)K$(35,4)K$(32,14)"1":K$(33,14)"1":K$(35,14)"1"FK$(38,4)K$(40,4)K$(38,14)"1":K$(40,14)"1"(10,4)K$(7,14)"1":K$(9,14)"1":K$(10,14)"1"D^K$(12,4)K$(14,4)K$(14,4)K$(15,4)K$(12,14)"1":K$(14,14)"1":K$(15,14)"1"DhK$(17,4)K$(19,4)K$(19,4)K$(20,4)K$(17,14)"1":K$(19,14)"1":K$(20,14)"1"'ErK$(22,4)K$(24,4)K$(24,4)K$(25,4)K$2C14:X50:10000:T(N)0:"FINE OF $50 IS PAID"("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 "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 -5(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)                 hz#??Xǰ    ŠŠɠ !ҠȠ%"٠ɠI˭Ӡˠ.٠ɠ ΠǠΠŠɠנ1ΠŠŠɠΠŠŠɠԠɠ٠ɠՠ ɠŠŠϠ͠ ̠Šɠ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 AD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               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. ::RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    Q11000:QlI WORD, AND THEN YOU TELL ME YOURS. YOU WILL BE GIVEN 3 CHANCES TO FIGURE OUT THE CORRECT WORD."N" 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 ...":K505702K71ĺ"BETTER THAN AVERAGE":570a&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 THEWANT ANOTHER WORD ? (Y OR N)";X$9 X$"N"ė:(10):490p :(5):(5):N$;"'S SCORE IS ";N;" MY SCORE IS ";M} T0:139 ZMN:KNZ100:"YOUR CORRECT ANSWERS WERE : ";N ::: "YOU MISSED :";ZN :::"YOUR AVERAGE IS : ";K;" %" ED" ,"CHURCH","CREAM","TABLE" m  "RADIO","DONKEY","REDWOOD","CANDLE","CANDY","BRICK","HAMMER","TEACHER"  "CHEMISTRY","ENVELOPE","TENNIS","BEHIND","TECHNOLOGY","SWIMMER","PENCIL","MOUNTAIN","ZEBRA","999"  V12500:V::(10):"DO YOU 450M |T3ė:(8)::8)"NOT YET --- TRY AGAIN ";N$:Y12500:Y:::140e Y11000:Y::(8) "SORRY-BUT YOU WERE GIVEN 3 TRIES AND MISSED -----":MM1 ::::"THE CORRECT WORD WAS .... ";R$(I):450  "TOP","HOUSE","AUTOMOBILE","TIRP0L2 T$(T$,LP)! 2909 "(13):14):C$" ";C ,LL1J 6OT @TT1h J::::::: ^10);N$;" THIS IS TRY # ";T h:::::"WELL WHATS YOUR GUESS .......";M$ rM$R$(I)NN1::(10):(5):"YOU'RE RIGHT !!! GOOD WORK ";N$: HH1 R$(I)"999"139& I8 I(H(0)1)E T$R$(I)Q L(T$)\ O1Lf GG1s G1210 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 L #12);"***************"?12);"* ANAGRAM *"[(12);"* BY *"w212);"* AL LAST *"<12);"* 4-14-80 *"P12);"***************"ZY11500:Ydn::::sR$(50)x580{I125 ~R$(I)     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 DEPAU6"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"        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"     )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 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       J010(20)Z(16336)(16336):J/ I5 ; GV'TS13 0OST UNOCCUPIED SQUARE IN THAT COLUMN":3000<HI12000:IDM:f\"PLAYERS ONE'S NAME ";A$::fA$;"'S OPPONENT'S NAME ?";p"";B$z  *** PRINT A$ WITH SOUND ***  I1(A$) (A$,I,1); (A$,I,1)" "3070(IAGONALLY WHILE PREVENTING YOUR OPPONENT FROM DOING THE SAME ":3000W*I12000:I]+4A$"YOU CAN DROP YOUR CHECKERS INTO ANY ONE OF SEVEN VERICAL COLUMNS IN THE GRID.":30005+>A$"WHEN A CHECKER IS DROPPED, IT WILL SLIDETO THE BOTTOM M2:12:50,63:"*** CONNECTION ***":50,255:34,3b936::"DO YOU NEED INSTRUCTIONS (Y/N)?";Q$~ Q$"Y"Q$"YES"2125936:A$"THE OBJECT OF THIS GAME IS TO CONNECT FOUR OF YOUR CHECKERS IN A ROW EITHER":3000F A$"ACROSS, UP & DOWN OR DN41360(TS1342B((MTS)7(NTS))P1360<<TSFF1380OPN,MUZrd:G$;G$;G$;"YOU WIN ";nP1ĺA$oP2ĺB$x"PLAY AGAIN ";Q$:Q$"N"Q$"NO"170:  *** INSTRUCTIONS ***:93611380M4N41210$TS13DB((MTS)7(NTS))P1210LTSV1380hM4N41260tTS13B((MTS)7(NTS))P1260TS1380M4N41310TS13B((MTS)7(NTS))P1310 TS1380M4 *** TEST FOR WIN ***!PT4ı: NO ONE CAN WIN BEFORE FOURTH TURNbM17:N17xB(M7N)P1360$M41110.TS138B((MTS)7N)P1110BTSL1380VN41160`TS13jB(M7(NTS))P1160tTS~Y0900 Y3YS55$ CL(P)- 860C *Y(YS1)53830O 40:860V >Yf HB(C7YS)Pl Ry \AYY3 f((C1)5)3,((C1)5)6A pA z G$;"COLUMN FULL ... " :P1400:500 G$;G$;G$;"TIME GAME ... ":1400 HECK FOR FULL GRID; 0"WHICH COLUMN ";B$;:C:C1C7560E :936] D700: DROP CHECKERv N1000: TEST FOR WIN X400: DO IT AGAIN   *** DROP CHECKER ***  Y1 B(C7Y)0760 YY1:Y8760 740 YY1:YSY  P1 TF0TT1A T25TF1920: CHECK FOR FULL GRIDj "WHICH COLUMN ";A$;:C:C1C7460t 936 700: DROP CHECKER 1000: TEST FOR WIN   *** PLAYER TWO'S MOVE ***  P2 TF1TT1 &T25TF0920: C :936 15! I23755 2,37I:2,37I< Ih " 1 2 3 4 5 6 7"s 34,21 I056:B(I)0: CL(1)7:CL(2)13 T0: TURN COUNTER (2)1TF1 TF1500   *** PLAYER ONE'S MOVE *** IGH NC 27609 *, * (919)-781-4229 *I * *f ***********************l d n *** INITIALIZE *** x }B(56),CL(2) Q$(10),A$(150),B$(10) G$"": CTRL-G 2000: INSTRUCTIONS SET UP GRID & MATRIXI  ***********************= * *[ * CONNECTIONS *y * * * BY: CHIP ANDERSON * * 9/12/79 * * * * 404 VERNON TERR. * * RALE     F0:C0:S901450&K90:P90/C9C9CC1CH9S9KQ0UQQ1`I(Q)0o QI12200~QI22200 M502120*J91M54QI(20J9)2200>J9HH9M(Q,2)312200RK9K91\S9H9M(Q,2)fJ(C)M(Q,4)kN" 1490&M542000+0Y542460>:C$"GO"1450DDRNF21940wX"YOU GET 1 POINT FOR LAST CARD"}blS2S21vS21211360F0:C0:S901450"I GET 1 POINT FOR LAST CARD"S1S11S11211320,1));" S=";S9;" P=";PF1)S2S2P36800ES21211360VS9311830kF0:C0:S90:G0u1830"YOU DISCARDED THAT CARD - TRY AGAIN"1490"ALREADY PLAYED - TRY AGAIN"1490"THAT TOTALS MORE THAN 31 - TRY AGAII31770"C6I41770&,Y50162026J1Y5G@I(10J)C61790NJJfTS9Y(C6,2)311810x^S9S9Y(C6,2)hY5Y51rI(10Y5)C6|CC1J(C)Y(C6,4)T1$(C6)" PLAYED "2900"YOU PLAYED THE ";C$(Y(C6D ** ' **********************-HY50:M50:C0:S90:G0VM01830fY541480uM5424601830"YOUR PLAY "C$C$"GO"1830C616C$D$(C6)1560C6"INVALID PLAY"1490C6 210(.2"I WIN ";S1;" TO ";S24<>F1390DP`Z"YOU WIN ";S2;" TO "S1fdn"WANT ANOTHER GAME (Y/N) ";UP$pUP$"Y"150stI16uT1$(I)T2$:Iv6800:x ********************** ** PLAY OF THE HANj"MY CARDS ARE"t%~K142LW(K,1)=C$(L)DKRW(5,4)T9ZC0d4360pS1S1PS11211320P;" POINTS"X1590,800 1295 "I HAVE ";S1;" POINTS - YOU HAVE ";S2;" POINTS"1396&"NOT WITH THAT HAND! - TRY AGAIN"/920<S2S2P9NS21211360\D01060hS1S1Dn"MUGGINS FOR ";D;" POINTS"S11211320$X11070,590,1280.K148LV(B9,K)BJ14LW(K,J)M(L,J)VJ`K164II3880>II4880*HJ14<RW(K,J)Y(I,J)C\JMfKK1TpIbzW(5,4)T9jC0t4360384:"UP CARD IS ";UP$:3801396Q16T1$(Q)C1$(Q):Q6800"HOW MANY POINTS ";P9DPP9D0980 CARDS ARE" X bI14, lC$(C(I,1))3 vI> I14I J14[ W(I,J)C(I,J)b Ji Iq C1 W(5,4)T9 4360  X1730,780  P;" POINTS" S1S1P S11211320 1280 X13 920 K1*IM(I1,J) C(2,J)M(I2,J). C(3,J)Y(I3,J)A C(4,J)Y(I4,J)H Jd  - GENERATE THE UPCARDn 4150  - PLAY OF THE HAND 1410 M0560 "YOU SCORE FIRST " X11 &800 0"I SCORE FIRST " :X12 D1070 N"THE CRIB- DISCARDS I1V(B9,5)( I2V(B9,6). "J ,"YOUR DISCARDS ";I3,I4X @I31340f JI37360y T"NOW REALLY " ^300 h(I3)I3340 rI4I3340 |I41340 I46340 I4(I4)340 6800  - CRIB J14 C(1,J)< - SHUFFLE THE DECK THEN CUT FOR DEAL - LOW CARD DEALSF 5630P 5790r - SHUFFLE THE DECK AND DEAL| 5630 6050 - FIND THE BEST FOUR CARDS - DISCARD THE OTHER TWO :"I'M LOOKING AT MY HAND AND THINKING..." 3350  %T4$" YOUR CARDS ARE "; (I113C 2C$Z <T$C$" OF SPADES"g FC$(I)T$ PT$C$" OF DIAMONDS " ZC$(I13)T$ dT$C$" OF HEARTS" nC$(I26)T$ xT$C$" OF CLUBS " C$(I39)T$ I S10:S205/#:11:5:"I AM SHUFFLING..."Y D(52,4),C$(52),I(52),W(5,4),M(6,4),Y(6,4),C(4,4)D$(6),V(15,7),Q(11,6),R(4,5),S(4),J(52)T1$(6),C1$(6),RD(1,6)6430#T2$" "$T3$" "/                 115300`;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"'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,"      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!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,     ";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          R","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'VE WON. OTHERWISE THE COMPUTET LETTER OF THE PRECEEDING WORD. "y Z"YOU WILL PLAY AGAINST THE COMPUTER. ONLY THE FOLLOWING CATEGORIES WILL BE USED:" :I17:C$:20);C$:I:H "THE COMPUTER WILL TELL YOU IF THE LETTERS OF YOUR ENTRY AND THE PRECEEDING WORD DON'T MATCH, THE  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 L