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,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[* 2""""" ժժժժ***ժժժժ"""&2*"*"""*""*AAA**ժժժժ"A**A]]A"]]">6>6UU**c*******  ~ZZ$f>kI>*II>I***I>I>]"ccw*c>c>>kkI********6  UUUUUUUU>IA""AIIIIIIAAAmmmcIIOHH yUU>>>>]]]]ݔ****wwwwww>"cI6"*kI]6*I]k>>>IIIA>I*]kI!!!0k*>>>c6>k*U`xx|JN)9UUUUc>>wA*k>c****>I6"AIA"A"IIII@`pxp`@"""{{{{_AAAAAAAAA""A>"AAA"UUU***@`px|~?>>@@@@@@@@AcwwcAAAAAAA>{{A  ** $$I>>I"AwwwwwwwwwwUwwUwwAIIAwwAAAAwwAAAAw"A"~|xp`@"I]I"?>cUIUc>xxxxxxxx !BDHP`@! @`PHDBA***AA*>*AA]UQ_@ @>"k">@ "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>">>>">>"$" j,**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> ""**<"">""""""""""""">>><2""<""">""" ""  ">"6*""""""&*2"""""""""""".<"" "" ">"""""""""""""""*6"""""""> > "b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵}e~eॎno /B3^" KL7^Y"lmejek᥎lmeenL_ 2 Mi腀tu8ʅ񥌦 /B^" KL^ "lmejeklmee /B_" K|}e~e( gHLm]tu8ʅ񥌦 /BQ]" KLU] "lmeheiL_|}e~eॎno /B]" KL] "nono HL]lmeheiL_no( H H|}| gHL2\|}|} ,G gHL2\L5\L_lmejeklmeelmeelmeeilmeheidf Mlmejekⅎlmeenono( H H|}ʅvwvw HL4[ ,Gi vw ,Gxyxyxy HLk[ ,Gi vw ,Gxyxy( Hvw H|}|}e~evwxy /B[" KL[T"lmehei gHL[L\lmeresLTlmlmeres gHL4ZL_lmeevwlmeexyxy( Hvw H|}|}e~e( gHLZlmeresLb^vwxy /BZ" KLZ "|}e~evw8LY5" 2 Mvwxy /BDY" KLHY@" MnoinoŲ 0pPpLXvwxy /BY" KLY "lme`eavlmebecxlmilmŰ 0pPp /BX" KLXY"lmedee᥎lmefegnLYi腀tu8ʅ񥌦 /BX" KLX "lmedeelmefeg /BX" KLX "novwxy /BY" KLOWtu8ʅ񥌦 /B3W" KL7W "lme^e_LY|}e~eॎno /BW" KLW "nono HLWlme^e_LYno( H H|}|}e~eॎno ,G gHLVLVLYlmedeelme`ealmefeglmebecilme^e_df Mlmedeeⅎlmefegnono( H H|}|}e~e( gH HLU ,Gvw ,Gxyxyxy HLMU ,Gvw ,Gxyxy( Hvw H|}|}e~evwxy /BU" KLUT"lme^e_ gHLULVlme\e] gHLV|}|}mlme\e] gHL*TLYlme`eavwlmebecxyxy( Hvw H|}|}e~e( gHLTlme\e]LDXvwxy /BT" KLT "|}e~evwvwlm /BS" KLSV"lmilmŰ 0pPpLR  /BjS" KLtSCVCVCVC"  /BS" KLSCVCVCVC"lmHHȄ Hhh HlmilmŰ 0pPpLSllmilmŰ 0pPpLCQWe~e2 /B_R" KLiRHIT A KEY"pq Ap HLRLRLiR ! /BR" KLRSCORE"lmlm /BR" KLRV"'e~elmilmŰ 0pPpLPlm lme\e]lme^e_lmereslmeheilme`ealm Hlmeelm Hlmebeclmee ii\]\]i `a`ai bcbci ^_^_i dedei fgfgi rsrsi 腄i 腆i hihii jkjki 腈jki pqpqi~tuz{ Ahlmlmժժժժ"2"*I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` K`@=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@DL,D:0``8` K E)e腙H Eh & &eHeh &LʰM?Lp@Lf@ԅPՅة߅Z[K K EJ K F D0ܱ  Fȱ0̘e摠 DLND D0Ő呐Ű0L@ D K DLD0ȘH Jh yKe`ȱ`ԤՅŠ0塰 DeȰ5DR XD LN C1 C2 C3 PDASWAMUAIKAILBCU/BHI PL XP SC HC C4 WHSBWVBTRBNTBXLSDMRCgBIVNRCLXHT6BTXBSLSS????WABST SF:LSGWLLFLLDLLGMPGBGMB????????????DAPMNSA`0,)`HH KhhP`% "$`A[LK;LILI 8!`HHLI$%`` rBL& rBL| BL ,`/L `H h8` 9 LPVHWSFR`,T,U`"#`,`4ȱފCB%LIHChhC߽CC#ȱ FHHhhטH sAhLFlPST" 6` `Ld,L-L( q` `ai``0L00؆ۄ$0%,0ئۤ`ɃɁ J@Lf@ : J@ Ƀɇ˩ KȘHL@h yKLKL,DݩLf LML@/LD? D M@L,D-LD-LD D H M@e摠0h8hL,D$ 0 JLZ@h`"LqF%LxFȱ2l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49HE RANK FOLLOWED BY":"THE INITIAL OF THE SUIT, I.E., 'QH' IS":"THE QUEEN OF HEARTS"a"F1490"#P"PLAY CONTINUES UNTIL SOMEONE DESIRES TO":"DRAW FROM THE STACK, AND CANNOT. AT THAT":"TIME, THE CARDS OF ALL FOUR PLAYERS ARE":"REVEALED AND COMPAY ONE OF THE FOUR PILES.":!2"IF YOU DREW FROM THE STACK, YOU MAY":"DISCARD THE CARD YOU DREW. IF YOU DREW":"FROM ONE OF THE DISCARD PILES, YOU MUST":"KEEP THAT CARD.":W"<"TO DECLARE WHICH CARD YOU WANT TO GET":"RID OF, YOU ENTER T:"OR A 2 AT NIGHT), YOU MUST IMMEDIATELY":"DISCARD IT, AND THEN CONTINUE ON TO THE":"NEXT STEP":1490!("AFTER YOU HAVE DRAW YOUR CARD(S) AND YOU":"HAVE DISCARDED THE QUEEN OR FOUR (IF IT":"IS NECESSARY), YOU MUST DISCARD ANOTHER":"CARD ON AN FOUR, OR YOU MAY DRAW FROM":"THE STACK (CALLED PILE 0)":"IF THE CARD YOU DRAW IS A KING OR A TWO,":"YOU MAY DRAW AGAIN, UNLESS IT IS NIGHT,":"IN WHICH CASE YOU MUST DRAW A QUEEN OR A":"FOUR.":k "IF YOU DRAW A QUEEN OR A FOUR (OR A KING"D THE DEALER ARE DEALT FACE-UP."&"THE PLAYER ON THE DEALER'S LEFT GETS THE":"FIRST PLAY, WHICH THEN PROCEEDS COUNTER-":"CLOCK-WISE":1490= "THERE IS ONE DISCARD PILE FOR EVERY":"PLAYER. TO PLAY, YOU MAY DRAW FROM ANY":"ONE OF THEULES FOR FIZZBIN":::"FIZZBIN IS A GAME THAT IS UNSURPASSED IN":"COMPLEXITY AND ORIGINALITY. SIX CARDS":"ARE DEALT TO EVERY PLAYER, EXCEPT TO THE" "DEALER AND THE PLAYER ON HIS LEFT (YOU)":"WHO GET SEVEN. THE SECOND CARDS OF YOU":"AN):J2J14W(J)21180,:N0:CH(B,0)H(B,N)H(B,0):PL14:C2D(PL,DP(PL)):J(C210):J2J7J11J13J14Ă:PLR(4)DP(PL)DP(PL)1:D(PL,DP(PL))C:790X11000:B54:1:N$(B):B500B:500::12::"R1:25::"DRAWN":X13000:::810:H(B,0)H(B,HP(B)):HP(B)HP(B)1:VB53:H4HP(B)1:730tW(J)W(J)1:N0HP(B):CH(B,N):J(C10):W(J)21180~:N0HP(B):CH(B,N):J(C10):J2J7J11J13J141180:N0HP(B):CH(B,N):J(C101110L:740:C9C:810:11208VDP(PL)DP(PL)1:790`J(C910):(J2J13)HP(B)10CC9:V22:H26:710:21:25::"DRAWN"::X13000::810:HP(B)HP(B)1:H(B,HP(B))C9:VB53:H4HP(B)3:720:1070\jH(B,0)C9:J4J12V22:H26:CC9:710:21)(C$,J22,1)Ă"CJ10I:-$B24.B54:1::N$(B)::N114:W(N)0::N1HP(B):J(H(B,N)10):W(J)W(J)1:8PL14:C9D(PL,DP(PL)):J(C910):(J2J13)W(J)21110B:PL14:C9D(PL,DP(PL)):J(C910):(J7J11J14)W(J)2605:"YOUR OVERALL RECORD WAS--"::10);"WINS:";17);(770)::10);"TIES:";17);(769)::10);"LOSSES:";17);(768)::"COME AGAIN SOMETIME!":J(A$):I14:(A$,1)(S$,I,1)ĂJ2J4J((C$,J23,2))J0āJ1114:(A$,";:(D(B,1))200ğ#W$;::" "*BB13:D(0,B)0::B24:C(D(1,1)D(B,1))2:D(0,C)D(0,C)1:767C,(767C)1:760:"BEAT: ";D(0,3):"TIED: ";D(0,2):"LOST: ";D(0,1);:A$:"BEST TWO":"OUT OF":"THREE?";A$:::(A$,1)"Y"Ľ:123,18:27,18:23,22:27,22:1220O23,18:27,18:23,22:27,22:25,20:1220}23,18:23,20:23,22:27,18:27,20:27,22RAAMES". ADAPTED FOR APPLE II BY ROBERT H. ABBOTT 1979JAN07v A CONTRIBUTION FROM THE AKRON, OHIO APPLE USER'S GROUP002l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=491,0,0,32,-50 l-10,-5,18,0,0,12,0,-99,-8,32,51X m-15,-10,-5,50,-99,0,0,18,-5,-10,-5 n100,50,-15,-99,0,0,0,28,18,-5,-10 o-10,50,-99,0,0,0,28,18,100,-5,-10 v0,0,5,1,1,6,5,1,5,0,0 w6,6,5,5,1,6,1,5,5,6,6 x2,3,3,2,1,6,1,3,2,5,5!y5,64,3,2,1,0,-2,-3.d-8,-4,0,2,3,4,5,6,8,12,16Ne-4,-3,-2,3,4,5,6,7,9,11,17pf-6,-4,-2,0,4,6,8,10,14,18,25g-4,-3,-2,0,1,2,2,3,4,5,6h5,4,3,2,1,0,-1,-2,-3,-4,-5i52,0,0,9,6,5,4,0,3,2,1j-5,-99,0,9,6,5,4,0,2,-5,-5 k-5,8,18,0,0,12,1,3,4,3R2,1,6,1,6,2,4,30S5,2,3,1,2,3,0,4ET2,1,1,6,6,2,4,3ZU2,2,3,5,6,2,3,4oV1,5,5,5,6,2,3,4W2,1,2,2,3,1,2,4X7,7,8,8,7,8,7,7Y8,9,9,9,9,10,11,7Z10,13,13,13,13,12,11,7b99,13,11,9,7,5,3,1,-1,-3,-10c-99,-99,6,5,<<<<"L::::">THERE'S THE 'KICK' IT'S THE 2ND.HALF<<"::::aN12000::141k5133zA945141 A9A91 ::::" QUARTER # ";A9:::::1479613111O0,1,2,2,0,2,6,3P2,1,5,3,4,3,3,3Q2,1,6,3,4A4T(Z):A4M(E3,A4):.T40:A925125BA1E9:A21:A93A93ĺ:::">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<"::::">>>>TIME OUT FOR HALF-TIME ACTIVIES<<<<":::N01500:::">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<;Q(N,1);23((Q(N,2))));Q(N,2);28((E3)));E3;35((E4)));E4OS "":N:_T114121nE30:4321~T144131E37:4321#E30:T13E33$E4A8A3:E494134%E51:4311&E454136'E52:4311(E53E3E3E56 10((B(N,N1,0))));B(N,N1,0);17((B(N,N1,1))));B(N,N1,1);24((E3)));E3^7 N1:""< "PASSES COMPLETIONS YARDS %COM AVE.GAIN"= Q(N,0)03155E E3((Q(N,1)Q(N,0))100):E4Q(N,2)Q(N,0):E4(E4100.5)100BO Q(N,0);14((Q(N,1))))' "":N01:R1((N1)10):R110ĺN$(1);:3113;( N$(2);S) S(N):"::::::::::"v* "PLAYER RUSHES YARDS AVERAGE"1 N103:B(N,N1,0)031274 E4N114:E3B(N,N1,1)B(N,N1,0):E3(E3100.5)1005 R1W(0,E4):R2W(1,E4):(W$(0),R1,R2(R11));R621TQ"TYPE(1)-TO PLAY THE COMPUTER OR":"TYPE(2)-FOR 2 HUMAN PLAYERS ? ";C:m?E4T(Z):T112113|@E38:2171AE3A8A3IT142161S3E32141TE310:2171]60A32151^A512:gA513:qE39{A5M(E3,E4):/>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<":::EE1A3A6:0E1991t:::12)::" TOUCHBACK ":::::1001:::12)::" TOUCHBACK ":::::1001E10:S(A2)S(A2)2:E119:961E130((1)40)A3:A3100A380NTINUE)";:A$:::A YOU CAN SEE, FIZZBIN IS ESSENTIALLY A":"VERY SIMPLE GAME. FURTHERMORE, IF YOU":"DON'T DO VERY WELL IN ONE HAND, YOU CAN"'"ALWAYS TRY AGAIN AFTER THE TRADITIONAL":"CHALLENGE--":::9:"BEST TWO OUT OF THREE?"::(24:"(HIT ANY KEY TO CO FIZZBIN, WHICH CONSISTS OF ANY PAIR":" OF SEVENS, JACKS, OR ACES."::" SUCH AS: 77 JJ AA":::&"5. THE WORST HAND OF ALL IS *ANY* THREE":" OR FOUR OF A KIND. THAT IS A SHRONK,":" ANY YOU AUTOMATICALLY LOSE.":&1490'5:"AS IS THE THREE-QUARTERS":" FIZZBIN, WHICH CONSISTS OF A THREE,":" A FIVE, A SIX, AN EIGHT, A NINE, AND":" A TEN, ALL RED, EXCEPT AT NIGHT WHEN"%" THEY MUST ALL BE BLACK.":%1490i&"4. THE LOWEST WINNING HAND IS THE HALF-":" 77JJ "$n1490$x"2. THE NEXT BEST HAND IS A FULL FIZZBIN":" IT IS A KING AND A TWO, (OR A QUEEN":" A FOUR AT NIGHT), AND ANY ONE PAIR":" OF ACES, JACKS, OR SEVENS."::" SUCH AS: K277 K2JJ K2AA":%::"3. THE NEXT HANDRED BY THE FOLLOWING":"SCALE--":#Z::"1. THE BEST HAND IS A ROYAL FIZZBIN. IT":" CONSISTS OF A KING AND A TWO, (OR A":" QUEEN AND A FOUR AT NIGHT), AND ANY" $d" TWO PAIRS OF ACES, JACKS, OR SEVENS.":" SUCH AS: K2AA77 K2AAJJ K2X0!X39X39!750)!Y0Y08!Y39Y39\!(X)(X(Z))(Y)(Y(Z))1535!DX,Y):D0IKIH(Z)1:D(Z):X(Z),Y(Z):10000:1600!D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y!:I!@ST(Z)ST(Z)1:Z:1505"rF0:J1PLGREES)";AN:AN(AN23.1415928)360:XI(AN):YI(AN)V A1:B1:C%2(1):C%1A1o C%2(9):C%1B1 "HOW HARD WILL YOU HIT IT?(0-100%)";HP$:HP(HP$)(40100):KHP23:(HP$)11510 D(Z)4:I1HP:XX(Z)XI:YY(Z)YI 700!X0::FPLZPL:Z:1500(BWB$:Z:10007LWB$:1000:12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1505Z1PL:IH(Z)1ĂZ:1650C(Z):X(Z),Y(Z)5 N$(Z);"'S PUTT.":"DIRECTION?(0-360 DE)ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2000,D(Z)0ĺN$(Z);" IS IN THE ROUGH":1070-RO(Z)0.D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":400=F0:G1PL:FFOG(G)X(Z)XI:YY(Z)YI:X0X0) X39X396 Y0Y0EY39Y39i(X)(X(Z))(Y)(Y(Z))1046D(Z)D:DX,Y):D8İ200D0RO(Z)RO(Z)1D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I D2İ500!O0$X(Z)X:Y(Z)Y:D(Z)D\"DIRECTION?(0-360 DEGREES)";AN:50:AN(AN23.1415928)360:XI(AN):YI(AN)]AP0AP0nAP39AP39"HOW HARD WILL YOU SWING?(0-100%) ";SW$:(SW$)01009SW(SW$):SW90SW50(80(1)1)34,20 90:C0:C(Z):DD(Z):I1DI:XЍX(Z),Y(Z)WI9(1)1:300*34,23S"WOOD, IRON, OR CADDIE (W/I/C)";CL$jCL$"C"CS1650CS0:"WHICH NUMBER?(1-9)";CLWO0:CL$"W"WO5CL:WO1WO0:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1011NBA6(1):BA.5SC6(1)2:8JBA5SC10(1)4:JLSC9(1)3:eZ1PL:OG(Z)1ī1085W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)ST(1)0İ2500N$(Z);"'S TURN.":"YOU ARE ";(W);" YARDS FROM THE PIN." C(Z):I16F.05YYB:)I15F.1YYB:/G HL810,820,830,840i*BA6(1):BA2SC5(1)2:{.SC73(1):4BA6(1):BA4SC5(1)2:6SC75(1):>BA6(1):BA5SC11(1)4:@BA1SC5(1)2:BSC75(1):H:WB$:(17):"IRONS":"1=220 YARDS 2=205 YARDS 3=190 YARDS":"4=175 YARDS 5=160 YARDS 6=145 YARDS":"7=130 YARDS 8=115 YARDS 9=100 YARDS";:WB$::1001I6ıF(1):I16F.05XXA:I15F.1XXAI6ıF(1):2O1Ă:507#XL:O1:DX,Y):7ST(Z)ST(Z)1:QXG%1W%(1)(1)30:g]W%(1)8(1)30:CS1:34,20::(17):"WOODS":"1=270 YARDS 2=240 YARDS":"3=210 YARDS 4=175 YARDS":" ALL OTHERS HIT AS IRONS";-FIELD GOAL"5%v*" 14-STATISTICS">%*PP1|%*::"PRESS ANY KEY TO START THE GAME !";A$:A$::101%*%*:THIS PROGRAM HAS BEEN REVISED BY ALEX MASSIMO, AND DONATED TO THE APPLECORPS OF SAN DIEGO USERS GROUP.NT 7-QB SNEAK"E$:*"8-CHANGE SIGNALS 8-QB ROLL & RUN"o$D*" 9-SCREEN PASS"$N*" 10-SHORT PASS"$X*" 11-LONG PASS"$b*" 12-PUNT" %l*" 13NST RUN 1-HB OUTSIDE RUN"J#<("2-KEY ON HB RUN 2-HB ON PITCH OUT"u#("3-KEY ON FB RUN 3-HB UP MIDDLE"#)"4-SHORT YDG DEF. 4-FB DRAW"#h)"5-PASS DEF. 5-FB UP MIDDLE"#)"6-BLITZ 6-FB SHORT YDG."$0*"7-PREVE77,85,86,93G"94,110,111,121,122,131,132,140,141,144,145,154,155,156d"157,158,159,160,161,163o"10900"(#R1W(0,A5):R2W(1,A5):"':6"'"DEF. PLAYS OFF. PLAYS""':"t'"0-STD. DEF. 0-END RUN"#'"1-KEY AGAI,1,1,0,6,0,1,1,5,6-!z6,6,7,7,7,6,7,7,7,6,6H!{2,3,3,2,1,6,1,3,2,5,6c!|5,6,1,1,0,6,0,1,1,5,5~!}6,2,3,1,4,6,4,1,2,3,6!~0,9,10,1,4,11,2,9,10,1,0!0,1,9,10,11,4,2,1,9,10,0!11,11,8,3,5,6,3,5,8,11,11 "1,7,8,22,23,37,38,53,54,60,61,76,."1:a1:(7):(3):"WOODS"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"1:"5) 150 YARDS":"ALL OTHERS HIT":"AS IRONS"2:(7):(25):"IRONS"::(22):"1) 220 YARDS":(22):"2) 205 YARDS":(22):"3) 190 YARDS":(22):"4) 175 Y10T1%39:T%2(1)16:G%1:B%18(1)11:4010c0'K120:J14:X(16336)::F1300K:::1:" THERE ARE A FEW THINGS YOU SHOULD KNOW ABOUT THIS GOLF GAME. IF YOU ARE UNFAMILIAR WITH GOLFING, HERE IS A CHART OF CLUB/DISTANCE RELATIONSHIPS%1:T1%39:4010q/|12:C0:I039:CC.49:C,C20I::VD%(1)2:VD%1G%32:T%2(1)16:B%18(1)11:4010/T1%39:T%21(1)16:G%1:B%(1)15:4010012:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:401016:40107.B%(1)16:G%1:T1%39:T%21(1)16:4010.12:S40:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:4010/JB0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G0105-B%17(1)13:T1%39:T%14(1)10:G%1:4010-12:I039:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:4010-G%32:4010.12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)I::B%20((1)10):T%2(1)12:G%32:4010,P12:S40:I039:SS.33:S17,SI::I2939:0,26I::B%(1)6:T%24(1)13:G%32:4010-12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:4:G%1:T%12(1)16:T1%39:4010+C0:12:I016:0,14I::I1739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:4010+B%(1)12:G%1:T1%39:T%12(1)10:4010-,B0:12:I039:BB1:SB3:S,S15I::I2839:13,3912:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1)21:G%32:4010*B%10(11(1)):G%1:T%9(1)21:T1%39:4010*12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:4010 +B%5(1)17"2) SHORT COURSE":"3) REGULATION":"4) THE MONSTER":"ENTER A NUMBER";HL:HL4HL4n) GH118:4000:1000):I12(1)1:I5000,5050,5100,5150,5200,5250,5300,5350,5400,5450,5500,5550)800:4:8:20:40:25:I1PL:X(I)T1%:Y(I)T%::)R*GENTA (9) ORANGE":"(3) PURPLE (10) GREY":"(5) GREY (11) PINK":"(6) BLUE (14) AQUA"( ::I1PL:"WHAT COLOR BALL WILL ";N$(I);" USE";:C(I):U) "WHAT SIZE COURSE DO YOU WANT TO PLAY?":"1) PITCH & PUTT":D2İ500'mO0%' W251PA(GH)3?' W250W471PA(GH)4S' W470PA(GH)5f' TPTPPA(GH):x' PB$"Y"1715~' ' :"# OF PLAYERS";PL:N$(PL):I1PL:"NAME?";N$(I):"HANDICAP?(0-30)";HC(I):' PA(18):SC(PL,18):HL(18)( :"(1) MA(Z):MX(Z)DI:M38M382&Y(DI)1ININ(DI)k&\IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0&aD(Z)D:DX,Y):D8İ200&bD0RO(Z)RO(Z)1&fD(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I&kYAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y 'l(Z),Y(Z)W%FX(Z)H(1):KY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39o%X(Z)0X(Z)5(1)%Y(Z)39Y(Z)39%Y(Z)0Y(Z)5(1)%%MVE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2160&W90:C0:C(Z):DD(Z):INAPY(38):TP:#$I139:"-";:::y$P1PL:K0:(N$(P),9);:I1018:KK3:(8K):SC(P,I);:I:(38):TS(P)::P:K0$WB$:T1%0:GH$$F1000(1):K(D(Z)15)(4DI):FKĺ"";N$(Z);"'S SHOT DROPPED IN!!":IH(Z)1%D(Z):XPL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P~#GH9ĺ"WOULD YOU LIKE TO PLAY THE BACK NINE?":PB$:2800#WB$:T1%0:GH#K0:::"HOLE";:I1018:KK3:(8K):I;::(38):"T": $K0:"PAR";:I1018:KK3:(8K):PA(I);:::FFIH(J)::FPL1505^"Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:m"GH91716"GH10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":""PAR";:I19:(8(3I)):PA(I);::(38):TP:"I139:"-";:::@#P1"A**A]]A"]]">6>6UU**c*******  ~ZZ$f>kI>*II>I***I>I>]"cck>*U>>kkI********   UUUUUUUU>IA""AIIIIIIAAAmmmcIIOHH yUU>>>>]]]]ݔ****wwwwwwxxxcI6"*kI]6*I]k>>>IIIA>I*]kI!!!0k*>>>c6>k*U`xx|JN)9UUUUc>>wA*k>c****>I6"AIA"A"IIII@`pxp`@"""{{{{_AAAAAAAAA""A>"AAA"UUU***@`px|~?>>@@@@@@@@AcwwcAAAAAAA>{{A  ** $$I>>I"AwwwwwwwwwwwwwUwwUwwAIIAwwAAAAwwAAAAw"A"~|xp`@"I]I"?>cUIUc>xxxxxxxx !BDHP`@! @`PHDBA***AA*>*AA]UQ_@ @>"k">@ "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>">>>">>"$" j,**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> ""**<"">""""""""""""">>><2""<""">""" ""  ">"6*""""""&*2"""""""""""".<"" "" ">"""""""""""""""*6"""""""> > "R RESPECT-IVE SCORES) THAT HAVE PLAYED THE GAME"<Q11Xb5)Q1;".";C$(Q1);20);Y(Q1);" %"h"w#P5000:10$Z$.:P039:15:0,39P:P:11/P"ANSWER THE QUESTION"Z%M:"WOULD ANYONE ELSE LIKE TO PLAY"UW$gW$"N"ī1044y W$"Y"1030 W$"Y"ī160 :1045MNG100Y(X)MY(X)(Y(X)100.5)100::0"THESE ARE THE PEOPLE (AND THEI "1846","US GAINED THE SOUTHERN PART OF THE OREGON COUNTRY " "1848","US GAINED THE MEXICAN CESSION IN THE MEXICAN WAR"P1500:101030 SCORING(20)"YOU NOW HAVE ";N;" CORRECT"" OUT OF ";G;" GUESSES"STITUTION WAS WRITTEN ","1793 ","ELI WHITNEY INVENTED THE COTTON GIN"~ "1800","WASHINGTON DC BECAME OUR NATIONAL CAPITAL" "1803","LOUISIANA PURCHASE WAS PURCHASED","1837","SAMUEL MORSE DEMONSTRATED THE FIRST SUCCESFUL TELEGRAPH IN THE US ">-ECTION, ENTER 0 FOR YOUR SWING."W6:(20):(10):"GOOD LUCK AND GOOD GOLF":WB$:3000p6>G%1B%4(1)20:6>B%(1)2020:WT YOUCAN SWING A CLUB AND ACHIEVE A PREDICT- ABLE RESULT IS 90%. ANY SWING OVER 90% WILL EFFECT YOUR SHOT.";5:" AN OVERSWING MAY RESULT IN A SPECTACULAR SHOT, BUT IT ISJUST AS LIKELY TO BRING DISASTER."!6::" IF YOU WISH TO CHANGE CLUBS OR DIRCAP GOLFER. THE UPPER REACHES OF THE HANDICAP ARE UNPREDICTABLE AT BEST."}4:(23):(8):"HIT ANY KEY TO CONTINUE":WB$:4:" AN ATTEMPT TO OVERSWING A GOLF CLUBWILL CAUSE AN ERRATIC RESULT. THIS IS REFLECTED IN THIS GAME. ";m5:"THE HARDESOF WIND AND PLAYERSKILL (HANDICAP)"3:" FOR ALL PURPOSES WITHIN THE GAME THE TOP OF THE SCREEN IS NORTH, AND ITS DIRECTION IS 0 DEGREES WHEN YOU HIT."L4:" UNTIL YOU GET THE HANG OF THE GAME WE RECOMMEND THAT YOU PLAY AS A SCRATCH,OR 0 HANDIARDS":(22):"5) 160 YARDS"2:(22):"6) 145 YARDS":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):"AND UNDER"2:(23):(8):"HIT ANY KEY TO CONTINUE":WB$:#3:" THOSE DISTANCES WILL, OF COURSE, VARY WITH THE EFFECTS gHLWLtSlmlme`eadelmebecfglme\e] gHLgWLXfg( Hde H|}|}e~e gHLWlme\e]ीi 腀LZ|}e~edefg /BXlmilmŰ 0pPpLUrsid腀 BLPV" /B JlmlmilmŰ 0pPpLV gHLVLT gHLVLTD gHLVLtSH `ealm Hlmebeclme\e]lme^e_lmilmŰ 0pPpLTlmlminonoe`ealm H8ʠnoebecnoe\e]noe^e_0pPpLSlmlminonoe`ealm H8ʠnoebecnoe\e]noe^e_lmilmŰ 0pPpLTvwrsid腀 BLPVlmlmeS" KLSZXZXZX"" /Bkkkkkkkk"*U*U*U*"""U*U*U*22>222*>IIII********""2AAA*U*U*U*>><("$" j,**>> "2*&" " >>  ">> """> """"""<  >> "H hjeee` "H j!hi# H j0i@` |e }``((((PPPP % j$)!i@`  x `LfH % je$ih ` P @67R`LH JhɍɊ8預* $! ?L%# 0$H$ h$iɑɗɅɒɁ L?ɓ $Лɚ  ?ɏБELM?І Lt `L2 HHH % j$Ii@hhh`>> ɝɞɋ08 9ɍ `HHH hhh` .WSP.)`` < `VWL VWL  Lp  W HX$p %I1P 1%  ȅf fмжОh`*2<  RTSU 8SRuRRuSSȕSSU  S ΥU`S U`L* T U@PPWP ` p ` p I1` p 1`H)JJh & & f)P` @ D   ff  h `*UU* ՠՅ P ȥ `VXȱVVH@( HH h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH( #@%.5#<BP (PhHH0(H` PX X@`XHX (08@HPX`hpx `````````````````` ````` ` ``````````````````  `````````````````` - `````````````````` `  "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>"N LsҠ͠ǍӮŠӠЮҠŠנѠӠĠƠǠȠʠˠ**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> "                              eTRY AGAIN ?"pq ApN gHL.eL!gpY gHLGeLPLd  /Boe" KL~eSHOOTING ALIEN" /Be" KLeTHIS GAME IS AN ORIGINAL GAME IN BAKED APPLE USERS GROUP."e" KL#f USE PADDLE(0mŰ 0pPpLbLPVlm 񥌦 /BOd" KLSdS" M񥌦 /Bd" KLd6" MlmilmŰ 0pPpL*d /Bd" KLxyz{ /B'c" KL)c "z{8ʅz{z{ HL[ctuz{z{( Hxy H|}|}e~exyz{ /Bc" KLcY"tu gHLcxyz{ /Bc" KLc "lmilBb" KLb1"( H H|}|}e~e2tu gHL]bLbpq Ap gHLbLdxy8ʅz{tu Mlmz{( Hxy H|}|}e~eᩥ|}e~e2 HL"aLd|}e~eॊ񥌦 /B\a" KL^a "pq Ap HLa拥! HLa!p HLa8ʅ HLa񥌦 /fg /B`" KL` "Z( Mi腂Ų 0pPpL_tuxyz{ /B`" KL` "noe`eadnoebecflmilmŰ 0pPpL[( H H|} HL_noe^e_L`hijk /BC_" KLG_@"jk( Hhi H|}|}e~enoeehnoeejL`defg /B_" KL_6" < Mdee_noeednoeefgiL?^L`noeehinoeejkjk( Hhi H|}|}e~e2 gHL^Ld~e|e}hijk /B^" KL^ "jkjkgfg HL1] ,Gifg ,Gdedefg /BV]" KLZ]Q"fg( Hde H|}|}e~elnoe^e_ gHL]L?^noe\e] gHL<^hihirs ,G gHL<^noe^fgnoe\e] gHL'\L]fg( Hde H|}|}e~e gHL\noe\e]ीi腀L_|}e~edefg /B\" KL\ "de Hdede HL\!def Mdefg /B&[" KL([ "< Mi腂Ų 0pPpLZlme`eadlmebecflmilmŰ 0pPpLWlmlminonoe`eadenoebec㢦k HL'Zlme^e_Lj[hijk /BLZ" KLPZ@"jk( Hhi H|}|}e~elmeehlmeejLj[defg /BZ" KLZ5" 2_lmeedlmeefgiL;YLj[lmeehilmeejkjk( Hhi H|}|}e~e2 gHLYLd~e|e}hijk /BY" KLY "jkvw Hjkj" KL X "dede! HL-Xdedefg /BRX" KLVX;"fg( Hde H|}|}e~ellme^e_ gHLXL;Ylme\e] gHL8Yhihirs ,G gHL8Ylme^e%#d(4);"BRUN SHOOTING ALIEN.X"Xfz#Xǰ    Ơɠ0!Ġ"ŠԠŠǠΠǠήؠPààŠ ààŠנ  ӠɠΠӠӠɠͮ͠ؠڠΠ"̠נՠ ɠŠŠϠҠҮؠPŠРנ2l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@?`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               Ȣ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@DL,D:0``8` K E)e腙H Eh & &eHeh &LʰM?Lp@Lf@ԅPՅة߅Z[K K EJ K F D0ܱ  Fȱ0̘e摠 DLND D0Ő呐Ű0L@ D K DLD0ȘH Jh yKe`ȱ`ԤՅŠ0塰 DeȰ5DR XD LN C1 C2 C3 PDASWAMUAIKAILBCU/BHI PL XP SC HC C4 WHSBWVBTRBNTBXLSDMRCgBIVNRCLXHT6BTXBSLSS????WABST SF:LSGWLLFLLDLLGMPGBGMB????????????DAPMNSA`0,)`HH KhhP`% "$`A[LK;LILI 8!`HHLI$%`` rBL& rBL| BL ,`/L `H h8` 9 LPVHWSFR`,T,U`"#`,`4ȱފCB%LIHChhC߽CC#ȱ FHHhhטH sAhLFlPST" 6` `Ld,L-L( q` `ai``0L00؆ۄ$0%,0ئۤ`ɃɁ J@Lf@ : J@ Ƀɇ˩ KȘHL@h yKLKL,DݩLf LML@/LD? D M@L,D-LD-LD D H M@e摠0h8hL,D$ 0 JLZ@h`"LqF%LxFȱ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 200 2100 1095! 500= M((1)10)1:M9210N S(M)0210Z S(M)1c 195p G1465 J7K3465 K,J S(5)G171 175 P$"X":Q$"O" M$:M(M$) M0ĺ"THANKS FOR THE GAME":2000 M9506S(183 S(9)0S(1)G1893 G1G1:H1:110J S(9)1S(3)0182b I29:S(I)0179w S(I)1:MI:195~ I S(1)1:M1:195 S(1)1177 S(3)1:M3:195 S(7)1:M7:195 S(9)1:M9 5000 P$"X"İ2150: S(K3)0170, S(K3)1:MK3:195< S(K)H170O S(K6)G170b S(K3)G170w S(K)1:MK:195 S(K6)0170 S(K3)G170 S(K6)1:MK6:195 450 S(3)GS(7)0187 S(9)GS(1)0181 S(7)GS(3)03 xS(J)G130& zS(J2)G1359 ~S(J1)0150R S(J1)1:MJ1:195b S(J)H150u S(J2)G150 S(J1)G150 S(J)1:MJ:195 S(J2)0150 S(J1)G150 S(J2)1:MJ2:195 S(K)G160 S(K6)G165S(1)1:M1:195' jS(2)1S(1)0181> kS(4)1S(1)0181U lS(6)1S(9)0189l mS(8)1S(9)0189y nG1112 o118 pJ3((M1)3)1 q3((M1)3)1MK1 r3((M1)3)2MK2 s3((M1)3)3MK3 t120 vJ173:K1U :30001000=2"DO YOU WANT X OR O ?":C$W3:" 1 2 3":" 4 5 6"e4" 7 8 9"u532,8:9907C$"X"475<P$"O":Q$"X"dG1:H1:(1)109210eS(5)0103fS(5)1:M5:195gS(5)1106hS(1)0110 i     002l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUK 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    13:D1A(I,I)D1:D2A(I,4I)D2-<#R0:C0RF#J13:RA(I,J)R:CA(J,I)C:JrP#D13D23R3C39070Z#D13D23R3C39080d#I:n#10:"COMPUTER WINS":20x#10:"YOU'RE THE WINNER"::20I3:A(K,4K)05420!"K:P0:9,A(K,4K)1:P1:R6"STOPPED AT 5430":X `X:k]I13s^15~_J13`A(I,J);" ";aJ:bI:::@I13:J13:A(I,J)08020JJ:I:10:"TIE GAME":20T(#DI0:D20!2#II D1Xİ5300 NP1ı, bD2Xİ54007 lP1ıA v4010[ J13:A(I,J)05120h J:P0:} A(I,J)1:P1: PJ13:A(J,I)05220 ZJ:P0: dA(J,I)1:P1: K13:A(K,K)05320 K:P0: A(K,K)1:P1:K1RS ARE ILLEGAL":300 * T0:P0:X0? TT1:T1ĪX2M T2ĪX2[ T3ĪX2i T4ĪX1v T5X0 T6ı I13:R0 J13:RA(I,J)R:J:RXİ5100 P15900 "I DI0:D20 I13:DIA(I,I)D1:D2A(I,4I)D2:4000$ "COMPUTERS MOVE":C9C91? GO DISPLAY THE BOARDI 7000S 8000] 9000 ,:"ENTER ROW,COLUMN FOR YOUR MOVE ";I,J 6 @I1I3J1J3360 EA(I,J)0365 JA(I,J)1 O7000 T8000 Y9000 ^60 m"YOUR NUMBE"THE COMPUTER GOES FIRST":7 ; COMPUTERS MOVE STARTS? <M0R dA(2,2)0115e nA(2,2)1:200t sC91155 xA(1,1)0140 }A(1,1)1:200 A(1,3)0140 A(1,3)1:200 A(3,3)0150 A(3,3)1:200 A(3,1)1:200 COLUMN FOR";: "YOUR MAN, I.E. CENTER SQUARE IS 2,2.":_  CLEAR ARRAY AND ZERO VARIABLES I13:J13:A(I,J)0:J:I C90:F0 "SELECT WHO GOES FIRST" #"TYPE 1 FOR THE COMPUTER, 2 FOR YOU ";F (F2215 -F1F230 2:7: TIC TAC TOE GAME* A(3,3)2:"TIC TAC TOE REPRSENTS AN INTERESTING GAME OF LOGIC. YOU TRY TO BEAT THE COM- PUTER. +1 = YOUR MEN. -1 = COMPUTER'S"; "MEN. 0 = EMPTY SQUARE. ENTER YOUR MOVES BY SPECIFYING A ROW AND 25,15,35,15# 15,25,25,25,35,25; 15,35,25,35,35,35A SZ11000::J DRAW AN "X" !9XX(M):YY(M),>J37IHXJ,YJ:XJ,Y(10J):ORdf DRAW AN "O" vkXX(M):YY(M)pJ46zXJ,Y3:XJ,Y7:X3,YJ:X7,YJ SET UP BOARD TABLE J19 X(J),Y(J)  15,15,GAME":(7):SHSH1:2000?F"I WIN, TURKEY!!!":SCSC1:2000lx"IT'S A DRAW. THANK YOU":STST1:2000x:5000"ANOTHER GAME ?"GA$GA$"N"2050X19:S(X)0::8::"COMPUTER ";SC:"HUMAN ";SH:"TIES ";ST:4(I)11200+[I:I13:S(I)S(I3)1150BjS(I)S(I6)1150ToS(I)11350fqS(I)1ī1200~I:I19:S(I)01155I:1400S(5)G1170S(1)GS(9)G1180S(3)GS(7)G1180G11350"YOU BEAT ME !! GOOD M)0510,"THAT SQUARE IS OCCUPIED":500;G1:S(M)1R P$"X"İ2100:530\ 2150k1095:100u::|9J1525105,35J:5,35JGI173LS(I)S(I1)1115QS(I)S(I2)1115VS(I)11350 XS!d(4);"BRUN ASTEROYDER.X"X<("$" j,**>> "2*&" " >>  ">> """> """"""<  >> "H hjeee` "H j!hi# H j0i@` |e }``((((PPPP % j$)!i@`  x `LfH % je$ih ` P @67R`LH JhɍɊ8預* $! ?L%# 0$H$ h$iɑɗɅɒɁ L?ɓ $Лɚ  ?ɏБELM?І Lt `L2 HHH % j$Ii@hhh`>> ɝɞɋ08 9ɍ `HHH hhh` .WSP.)`` < `VWL VWL  Lp   HX$p %I1P 1%  ȅf fмжОh`*2<  RTSU 8SRuRRuSSȕSSU  S ΥU`S U`L* T U@PPWP ` p ` p I1` p 1`H)JJh & & f)P` @ D   ff  h `*UU* ՠՅ P ȥ `VXȱVVk"& 2"""""x]]**] `````````````` ```` ` ``````````````  `````````````` ( `````````````` ` " "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>"N LsҠ͠Ǎ**>**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> "                           $% 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 ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 " TRIES"#" DRIVE SAFELY NOW !") I2(V) I2(V)I2(K2), *I2(K)H2:K2K213 >KK H"YOU BROKE YOUR :"] \K(15L2)14c fu pP(6I2(K))5 zA$(I$,P,6) A$ K T3T31  "TO RETRY TYPE Y ";A$  A$"Y"160"YOU MADE ";T2;" OUT OF ";T3;.5) v670" "TO FAR !!!!!!!"9 "MISSED THE RAMP"Z L2(((D20J)20)((1)5))w "I THINK HE IS HURT .." K114 I2(K)K K K214 L214L214 L20L21 K1L2 V((1)1000) V(V((VK2)K2))1 H23:DDD2 "*";& S2(S120)32T6 DJGGRD G0G0Q HG380^ DJ600n DJ20640 &J((DJ)30)(1) 0L.8650 :"HE MADE IT ! GREAT JUMP !" DT2T21 N920 X"HE IS SHORT...." lL2((((JD)5)2)((1)5)ȫ190 AA2.017453290 :"SPEED OFF ? ";SH " GOOD LUCK "U S0300n " A PRACTICE RUN":w "240 ,H6:D0:G6:R20:S20 ^SS1.5 h" THERE HE GOES !!!" |SSS2:FST:D2F(A) RF(A):R2R2(32T) R3R2T:HHRREE BUTT FACE PELVISPRIDE BIKE ", nT.15 T20> T30X ::"BIG CYCLE JUMP"y "HOW MANY BUSSES TO JUMP";N JN15 :N;" BUSSES! THAT'S ";J;" FEET! " :"RAMP ANGLE ? ";A2 A290A20230 A2;" DEGREES? IMPOSSIBLE! " + ::" "BIKE JUMP"+ " "F "BY CHARLES AYLWORTH"O " "y"CREATIVE COMPUTING J/A 78 (PG 142)"" ""LISTED BY DAVID AMES"" "2I2(14),I$(84)<A$(6)# ZI$"R ARM L ARM R LEG L LEG BACK NECK SKULL RIBS KN     (7DN)1COCN:DODN:TTNIZ(16287):Z127Č198:I1100:I:wZ(16384):Z127Ĺ16368,0:C1:198:64030CC((0)4)C((CC8(CC8))8)D((0)32)9 ORIGINALLY FROM CREATIVE COMPUTING'S "BASIC COMPUTER GI1J:I,I1J27X S(X,Y)2Ġ12:I,I1J:I,I1J2]b S(X,Y)0Ġ15:J,J2I:J,J2I1fl X,Ylv z16368,0CO0:DO7:T04500CNC:DNDCOCNDODN4100T:4CO1,5(7DO)1TN4CN1,5(7DN)1) 6:4CN1,51:I,I1J:I,I1J2= S(X,Y)2Ġ12:I,I1J:I,I1J2c S(X,Y)0Ġ15:J,J2I:J,J2I1l X,Yz Y712& X1720 I4X1:J5(7Y)1: S(X,Y)1Ġ1:J,J2I:J,J2I1D S(X,Y)1Ġ12:J,J2I:J,J2I1N S(X,Y)2Ġ1:I,I4X4308X,X3Y* X,Y,I9I53910F YII4T*X0308a4X,X3Yl>X,Y,IrH Y602 X062 I4X1:J5(7Y)1 S(X,Y)1Ġ1:J,J2I:J,J2I1 S(X,Y)1Ġ12:J,J2I:J,J2I1 S(X,Y)2";:4000:A1C:B1D:A10B1018101 A1;",";B1] S(A1,B1)0(A1A)2(B1B)21802EA:HB:AA1:BB1:II15:1750B7S(A,B)2&230XI180:J1I:J:Z(16336):Ib::"YOU WIN!"l15I03910YIN EMPTY SQUARE, TRY AGAIN":198:1595BT" TO ";:4000:AC:BDT^A0B01580`hA;","BlXA:YBS(X,Y)0(AE)2(AE)(BH)1700198:1620I46S(A,B)S(E,H):S(E,H)0:(EA)21810S((EA)2,(HB)2)0" "+TO &ZUXA:VYB:U0U7V0V71400JdS(U,V)0S(XA2,YB2)0İ910PxZ,3000p6::"YOUR MOVE?"~;"FROM ";@4000:EC:HD:E0H0ī1580EE;",";HJXE:YH:S(X,Y)0ĺ"PLAY YOUR OWN PIECES!":198:1595&OS(X,Y)0ĺ"THAT'S A,R(2))6S(R(1),R(2))0:(R(1)R(3))2İ3000:1590[2S((R(1)R(3))2,(R(2)R(4))2)0<XR(3):YR(4):S(X,Y)1B2:A224:1370FS(X,Y)2āA224:B224:1370BPA:R(0)99ĺ" TO ";R(3);",";R(4);:R(0)99:1240U3000:15904S(UC,VG)0(S(UC,VG)0(UCXVGY))QQ2f8C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VpLQ0:tR(0)991880:"I MOVE FROM ";R(1);",";R(2);" TO ";R(3);",";R(4);:R(0)99R(4)0S(R(3),R(4))2:1310S(R(3),R(4))S(R(1) S(U,V)08707 UUA:VVB:U0V0U7V7870J RS(U,V)0İ910P fi V0S(X,Y)1QQ2} (YV)2QQ5 Y7QQ2 Y0U7QQ1 C112:UC0UC0VG01080 S(UC,VG)0QQ1:1080 UC0UC7VG71080% "DO YOU WANT TO MOVE FIRST? ";A$; (A$,1)"Y"1590\ X07:Y07:S(X,Y)1350 6S(X,Y)1āA112:BG:650:A JS(X,Y)2āA112:B112:650:B,A ^Y,X:3000:1140 UXA:VYB:U0U7V0V7870 S(U,V)0İ910:870E BEGINNING OF AN":"INCORRECT MOVE, PRESS ANY KEY TO CLEAR."\ F:"HIT 'RETURN'";A$:936{ PR(4),S(7,7):G1:R(0)99 Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 xX07:Y07:J:J15170 S(X,Y)J:175 :S(X,Y) Y,X 2000:3000E."& ("REPEAT FOR THE 'TO' SQUARE. T -"THE MOVE COORDINATES WILL BE DISPLAYED"x 2"AT THE BOTTOM OF THE SCREEN." 7:"THE COMPUTER WILL TYPE '+TO' WHEN YOU" <"HAVE ANOTHER JUMP. PRESS ANY KEY IF YOU":"CANNOT JUMP."= A:"IF YOU ENTERED TH*********************"- I12000:I:936V :"THIS IS THE GAME OF CHECKERS.": "THE COMPUTER IS GREEN, AND YOU ARE RED." :"TO MOVE, MOVE THE CURSER TO THE 'FROM'" "SQUARE USING PDL(0). PRESS PDL(0)" #"SWITCH TO REGISTER YOUR MOVw  CONTRIBUTED BY WM.R.DIAL334,0:936:8" **************************************":" * *" " * CHECKERS *" " * *":" *****************        :(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  S...";M:2508 "...YOU WIN...YOUR SCORE IS...";P:250F ::::T :::: CTFĺ"THE GAME IS OVER....MY SCORE IS...";M;"....YOUR SCORE IS....";P: 150O0:M0:F0! x"HOW MANY GAMES?") CT/ ? R(2(1))I FF1a "WHATS YOUR CALL?"i A$ R1R$"HEADS":"THE TOSS IS...HEADS":210 R0R$"TAILS":"THE TOSS IS...TAILS" A$R$PP1:240 MM1 "...I WIN...MY SCORE I# *************************E * COIN TOSS I *g * BY *( * ALBERT G. LAST *2 * DUE 3/19/80 *< * CS-28 *F *************************d nP0:CT  16,18:12,22:16,22:14,20:1150Nt12,18:12,20:12,22:16,18:16,20:16,22dy PLOT RIGHT PIPSr~Y11160Y21170Y31180Y41190Y51200121025,20:122027,18:23,22:122027,18:25,20:23,22:1220" PICK NEW ROLL .Y((1)6)153 PLOT LEFT PIPSC8X11090Q9X21100_:X31110m;X41120{<X51130=1140B14,20:1150L16,18:12,22:1150V16,18:14,20:12,22:1150`12,18:16,18:12,22:16,22:1150 j12,18:,1)"Y"330 (A$,1)"N"995A:"ANSWER YES OR NO"::960G\16);"APPLE ]["b SUBPROGRAM ROLLING THE DICER15  ERASE OLD POINTS15:18,2212:18,2216:18,2223:18,2227:14,20:25,201$X((1)6)1: :890"f"":AAB:L0:WW18pN12000:N:540SzN110:S(16336):NgAAB:W0:LL1xN12000:NA0540: CK IF BROKE BROKE PAGE:14);"YOU ARE BROKE"" DO YOU WANT TO PLAY ANOTHER GAME?";A$ (A$"NATURAL, YOU WIN !":8708"CRAPS, YOU LOSE.":890U "YOUR POINT IS ";Z:""r*A$:1020: SECOND ROLL4VXY:VZ850: CK FOR POINT >V7860: CK FOR 7H810: RE-ROLLR:"YOUR POINT, YOU WIN !":870\:"7, YOU LOSE."21:16,2429)12:16,2419:16,2420>1:14,20:25,20N THE PLAYs"PRESS SPACE BAR TO ROLL":A$:1020: FIRST ROLLZXY:(Z7)(Z11)780: CK FOR N ATURAL (Z2)(Z3)(Z12)790: CK FOR CRAPS800 GAIN, YOU ONLY HAVE $";A:590FlB0340: IF B=0 START A NEWE GAMEYv DRAWING DICEa:12: FILL SCREEN W/ GREENN039:0,39N:N15: WHITE SQUARESN1624:10,29N:N 1:10,2916:10,2924:16,2410:16,2418:16,24ET ALL VARIABLES FOR NEW GAME0 BETTING PAGE8&:m0W1ĺ"YOU'VE WON THE LAST ";W;" GAMES IN A ROW":L1ĺ"YOU'VE LOST THE LAST ";L;" GAMES IN A ROW"D:"YOU HAVE $";AN"HOW MUCH DO YOU WANT TO BET ?";BX(BA)620b:"THINK A10);"THEN ROLL TILL YOU GET:"B:11);"YOUR POINT - YOU WIN"`16);"SEVEN - YOU LOSE!""****************************************"" TO START A NEW GAME ENTER 0 AS A BET"6);"PRESS SPACE BAR TO CONTINUE...";:A$:A200: RESHAT YOU WANT ON EACH TURN."M :"*****EACH TURN IS PLAYED AS FOLLOWS*****"y :" ON THE FIRST ROLL IF YOU GET:" :8);"7 OR 11 - (NATURAL) YOU WIN" 5);"2,3, OR 12 - (CRAPS) YOU LOSE" :5);"ANYTHING ELSE BECOMES YOUR POINT":T:4 ^"DO YOU WANT TO SEE THE INSTRUCTIONS?";A$I h(A$,1)"Y"390^ r(A$,1)"N"530 |:"ANSWER YES OR NO"::350  17);"*******" 17);"*";::"CRAPS";::"*" 17);"*******" 11);"YOU START WITH $200," 5);"BET W:19,13:20,13:19,16:20,16E 13,1723:23,2613:23,2615:26,14u "28,3113:28,3115:28,3117:28,14:31,16 ,:10);"WRITTEN BY BREK MILLER": CREDITS 6:6);"WITH ASSISTANCE FROM MR. RUTH" @N14000:N: PAUSE J INSTRUCTIONS 0170 0:10,29K10 1:10,18K:21,29KN 15:11,17K7:22,28K7k 1:10,18K8:21,29K8r K 14,34:25,34: PRINT CRAPS 13,178:8,1113:8,1117 13,1713:13,1613:13,1615:16,14:15,16:16,17 14,1718:14,1721ONTRIBUTED BY RICHARD RUTH KEYSTONE APPLE CORE4 @ :A200U :: DRAW DICE] 15m M102111 (N08:M,M8N:N 2M <1 F10,180:21,290:10,188:21,298 P0,810:0,818:0,821:0,829 ZK030: START ROLL KЌ6 C R A P S THIS PROGRAM WAS WRITTEN BY BREK MILLER, AN EIGHTH GRADER AT CENTRAL JUNIOR HIGH SCHOOL, CHAMBERSBURG , PA. 2/19/80..  C      790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:-IAL TO STEER ":"YOUR BATTLESHIP."T2:"HIT ANY KEY TO LAUNCH A DEPTH":"CHARGE."|2:"WATCH OUT FOR THOSE TORPEDOES!"2}776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240I }788,9:789,202:23:14:"LEVEL ";LE523:25:"SUB HITS: ";SC;Sp15:"GAME OVER!":l'776,Q:777,E:778:2:2:"FATHOM -- THE SUBMARINE WARFARE GAME"2"---------------------------------------"25:"BY JIM HILGER""210:"USE GAME PADDLE D1:"SELECT A SKILL LEVEL (1=EASY...8=LETHAL)"B23:"LEVEL ";SKLLESK`SK1SK85033|SK.31.01(1.7(SK1)):0:16:0,29279,2931130,20SS130SC0:TM021:3:"HIT ANY KEY TO FIRE DEPTH CHARGE" SONAR BLIP'Q150:E10:10000=Q120:E10:10000]TMTM1:23:3:"TIME :";TMnTM2006000x1000D$"": CTRL D(770)775025770,77D$;"BLOAD FATHOM.X": A1638432000232,0:233,64-13000:2LTT1<I  SUB APPEAR?.S44500IR(1):R.3RSK4057WS04057a4500}I15:XS(I)0MI:I5ISS1:DS(M)1((1).5)DS(M)1XS(M)250DS(M)1XS(M)156:SH2.5.5DS(M):SHXS(M),YS(M)h4500YDC(J):XDC(J)0:DD17 SHXS(I),YS(I):XS(I)0:SS1> JE IU SUB FIRE?c S04000n I15 XS(I)03900 XT(I)03900(SSXS(I))15YS(I)53900(1).83900$XT(I)XS(I)10:YT(I)YS(I)1083:6XT(I),YT(I)SUB HIT? D0S03500% I157 XS(I)03490B J15U XDC(J)03480m YS(I)YDC(J)3480 (XDC(J)XS(I)9)103480 5:SH2.5.5DS(I):SHXS(I),YS(I) SCSC1:23:25:"SUB HITS: ";SC Q250:E50:10000 0:5XDC(J),143100 HTXT(I)d 5:4HT,21::Q200:E100:10000:4HT,16:10000:4HT5,12:10000:4HT2,9w  OO1:I5:3190  0:6XT(I),YT(I):TT1 0 6:4XT(I),19:BB1100:BB D 0:4XT(I),19:XT(I)0 v I { OO1Ė11:"SHIP DESTROYED!":  ( YDC(I)1412800; < 0:5XDC(I),YDC(I):XDC(I)0:DD1B IP  T03000[  I15m " XT(I)02990 , 0:6XT(I),YT(I):YT(I)YT(I)10:3:6XT(I),YT(I) I SHIP HIT? I15 XT(I)03190 YT(I)303190 (SSXT(I)13) XS(I)15DS(I)1DS(I):XS(I)15L XS(I)250DS(I)1DS(I):XS(I)250s 46:SH2.5.5DS(I):SHXS(I),YS(I)z I MOVE WEAPONRY D02820 I15 XDC(I)02800 0:5XDC(I),YDC(I) YDC(I)YDC(I)10  3:5XDC(I),YDC(I)(16384):P1272000$ 16368,07 3:5SS15,30A DD1L "I15b $XDC(I)0MI:I5i 'I ,XDC(M)SS15:YDC(M)30  MOVE SUBS S02500 I15 XS(I)02200 0:SH2.5.5DS(I):SHXS(I),YS(I) XS(I)XS(I)DS(I)5$ MOVE SHIP" P(0):P8611002 P1701200< $1500Q L MOVE SHIP LEFTa VSS151140 `0:1SS,20:SSSS6:3:1SS,20 t1500  MOVE SHIP RIGHT SS2351500 0:1SS,20:SSSS6:3:1SS,20  SHIP FIRE? D42000 PK  IJSSDTSMSKTM-XDC(5),YDC(5)JXT(5),YT(5),XS(5),YS(5)_ D0:S0:T0:OO0*YS(1)80:YS(2)60:YS(3)140:YS(4)100:YS(5)1204I110>R1(5(1))1:R2(5(1))1HTEMPYS(R1):YS(R1)YS(R2):YS(R2)TEMPRI5000      -  ) ; ;?? -- ???---------5???????? )----- )  ;; ) 1; -)?? )- ? ; ?-->?7-- ?-->?7 ?-)8 p ) ) ;? ) -) ) ;???)- )------- );;??????--------------5????????????? ------------  - ; ;?? -- ???---------5;???????7 )---- 920:z:A16:N1HP(B):J(H(B,N)10):JT(A)Ă:920^IH(B,N)J10:I2I3Ă:920A:W$"3/4 FIZZBIN":D(B,1)75:940(D(B,7)2D(B,11)2D(B,14)2)W$"1/2 FIZZBIN":D(B,1)50:940W$"NOTHING":D(B,1)0B54:(N$(B))1:" (B,1)200:940\:((D(B,7)2D(B,11)2)(D(B,7)2D(B,14)2)(D(B,11)2D(B,14)2))D(B,2)0D(B,13)0W$"ROYAL FIZZBIN":D(B,1)200:940f(D(B,7)2D(B,11)2D(B,14)2)D(B,2)0D(B,13)0W$"FULL FIZZBIN":D(B,1)100:940pA16:D(B,T(A))0ĭDP(PL)0ī730& CD(PL,DP(PL)):710Q*:21:25:"STACK":V22:H26:P53720Z4730>B24:N1HP(B):CH(B,N):VB53:HN43:710::HB14:N114:D(B,N)0::N1HP(B):C(H(B,N)10):D(B,C)D(B,C)1:RN214:D(B,N)2W$"SHRONK":D2:C1:H:"###";:::8C1VV2:C1:H:" ";::QP53CQ(P):PP1:x760::"NO MORE":"CARDS!"::83032,29:33,10:34,21::N1HP(1):V2:H4N3:CH(1,N):710::HP(1)10āNHP(1)110:H4N3:730: V22:H6PL3:A$):PL1PL4PL(PL)680DP(PL)DP(PL)1:D(PL,DP(PL))C:HP(1)HP(1)1:NAHP(1):H(1,N)H(1,N1):::770:790:1:1:"YOU":1060C1(C10):S1C10C1::V:H:(S$,S1,1);" ":H:(C$,C123,2);" ":H:" ";(S$,S1,1);:::C1VV(PL)630WDP(PL)DP(PL)1:D(PL,DP(PL))C9:790:810:770:1:1:"YOU":1060sX12000:::810:760:"CARD TO DISCARD?":"";A$:1020:A1HP(1):H(1,A)CĂ::"YOU DON'T HAVE IT!";:A$:670"PILE TO":"DISCARD":"ON?";A$:PL(0N760:J4J12660OX:PL0ĺ"WANT TO":"KEEP IT?";A$:(A$,1)"N"630b:"CARD TO DISCARD?":"";A$:1020:A1HP(1):H(1,A)CĂ::"YOU DON'T HAVE IT!";:A$:610lH(1,A)C9:C9C v"PILE TO":"DISCARD":"ON?";A$:PL(A$):PL1PL4PL4PL(PL)510(PL0İ740:C9C:560QDP(PL)0ė:"EMPTY PILE!";:A$:510W&C9D(PL,DP(PL)):DP(PL)DP(PL)1:7900:21:25::"DRAWN"::CC9:V22:H26:710DJ(C910):J2J13ĭHP(1)10HP(1)HP(1)1:H(1,HP(1))C9:770:810:500:J(C10):J4J12İ710:X13000::730:480}HP(B)HP(B)1:H(B,HP(B))C:J2J13İ710:X13000::720:HP(B)10460:B54:1:N$(B)::770V7:H5:7201:1::"YOU"::760:"PILE TO DRAW FROM (0-4)?";A$:PL(A$):PL0PL{ VB53:H4N3:710:X15000::HP(B)HP(B)1:MNHP(B):H(B,M)H(B,M1):VB53:H4M3:720::H4HP(B)1:730:410 :N1HP(B):CH(B,N):J(C10):J2J13480 VB53:H4N3:710:X13000::720:HP(B)104800740:H4HP(B)1:727)C:* ^HP(1)7:HP(2)7:HP(3)6:HP(4)6_ hB14:740:V22:H6B3:710:D(B,1)C:DP(B)1: rB12:CH(B,2):VB53:H5:710: |V22:H26:720 1 B14:B54::N$(B)::N1HP(B) NHP(B)440 CH(B,N):J(C10):J4J12440138(N$(B)):"X";:N ,::::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX": 6"DISCARDS XXXXXXXXXXXXXX STACK XXXXXXXXX": @B14:B65);B;":";: JP1:N16:B14:740:VB53:H4N3:720:H(B,N)C:: TB12:740:VB53:H25:720:H(B,Q(P)J10I:< I14:J214:C(J,I)0Q(P)J10I:PP1D :r C$" 2 3 4 5 6 7 8 910 J Q K A":S$"SHDC" "IS IT NIGHT YET?";A$:(A$,1)"Y"C$" 4 3 2 5 6 7 8 910 J K Q A":S$"HSCD":280 (A$,1)"N"260 :B14:N$(B);" "; "A20),DP(4),H(4,11),HP(4),W(14)D T(6):A16:T(A)::3,5,6,8,9,10w A14:N$(A):: YOU,DEALER,PLAYER 2,PLAYER 3 R(A)(A(1)1) :16::"SHUFFLING":::I214:J14:C(I,J)0:::P142 IR(4):JR(13)1:C(J,I)210 C(J,I)1: d //FIZZBIN)n///BY DONALD BROWNPo..APPLE PI DISTRIBUTION PERMITTEDrx::5:17::"FIZZBIN":::13);"BY DONALD BROWN"15:"DO YOU NEED INSTRUCTIONS?";A$:(A$,1)"Y"İ1240768,0:769,0:770,0 C(14,4),Q(52),N$(4),D(4,                E10:'S(A1)S(A1)6:.9(1)9319S(A1)S(A1)1u:::8)::">>>POINT AFTER GOOD<<<":::::941:::9)::">POINT AFTER BLOCKED<"::::961E19::"SCORE: ";N$(1);" ";S(0);" ";N$(2);" ";S(1):-::"> g:161+qT2(T460):T3T4(60T2):[{A4H(A4):A4P(A5,A4):A6T(Z):A6R(A4,A6):tE1A3A6:E1100905A6100A3::::">>>>>>>>>>>T O U C H D O W N<<<<<<<<<<<"::::">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<":911.:::" FIRST DOWN "::\/::5);"TIME GONE ",T2;"M /";T3;"S";" PERIOD ";A9::k0A8A310:5" INPUT ERROR ":151?A507:841H"BAD SIGNAL, RE-INPUT ";I"DEFENSIVE SIGNAL ";A5:" ? ";H(A5)SH(A5)0840]H(A5)78400):A3A3A4A3100741K:::13)::">>>MISSED<<<":::::621:::8)::" THE KICK IS GOOD !!!"::S(A1)S(A1)3::::961641+"":R1((A11)10):R110ĺ" ";N$(1);" ":813,N$(2);-" HAVE THE BALL ON THE ";A3;R ";A6;" YARDS: ":811+T11:E310:1478E3A8A3" PLAY GOES FOR ";A6;" YARDS ";T1;" DOWN";" AND ";E3;" YARDS TO GO."5T1147mA4A1:A1A2:A2A4:A3(100A3)2nT11:811w147T11:A4A1:A1A2:A2A4:143 A4((1)6 TO RUN-NO PASS":3418Q(A1,0)Q(A1,0)1:A699461r:::10)::">>>INTERCEPTED<<<":::::621A60481T4T415:500901Q(A1,1)Q(A1,1)1:Q(A1,2)Q(A1,2)A6E15641A3A3A6:A8A3531" PLAY GOOD FO(1):335NN$(2)EO9)::">>>RECOVERED<<<":::::621NU901]_E10İ981iB(A1,A7,0)B(A1,A7,0)1:B(A1,A7,1)B(A1,A7,1)A6sE115381tA30:1021}E15641500A699431A60431A72"QB FORCEDA511261891>9000:(W$(0),R1,R2(R11)),:1A5281{A5291,291,291,311,311,311,321,321,411,411,411,1021,721A73:331#A70:3317A71:331AA72KA699341LR1(A21)10M:::13)::" FUMBLE ":::::R10ĺN$1824111"A20C12010C99201^PP0:"OFFENSIVE PLAY ";A5:A51İ10000lPP1192|A51421131111912111A50821A513821A40821A48821A48831T1T11:T4T430:881  ">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<":::Z ::::"QUARTER # ";A9::::o A3A32:A3U(Z) T11:T4T430:881 811 T49005111 A21C1171 C99171 PP0:"DEFENSIVE PLAY ";A4:A41İ10000 PP1161";A$ p:( q"TEAM 2'S NAME: ";B$a r::">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<":::w sN$(1)A$:N$(2)B$ t:">IT'S THE 'KICKOFF',THE GAME HAS BEGUN<":::: y(1).5131 }A10:A21:E80:E90:141 A11:A20:E81:E903L<<<"::::C f4)"'WELCOME' TO SAN DIEGO STADIUM"::h g9)"HOME OF THE 'CHARGERS'":: h"TYPE (99) FOR COMPUTER V/S COMPUTER":: i"TYPE (1) TO PLAY THE COMPUTER":::"TYPE (2) FOR 2 HUMAN PLAYERS ?";C:: o"TEAM 1'S NAME:  % )C07:H(C)C::A91A 3A1011:A207:P(A1,A2)::e 5A1013:A2010:R(A1,A2):: 7A1010:A2010:M(A1,A2):: 9A1017:W(0,A1),W(1,A1): c120 dN$" " e12::">>>C O M P U T E R F O O T B A L W$(4)"SSHORT PASSLONG PASSPUNTFIELD GOALHBFBQBEND"W W$(0)W$(1)W$(2)W$(3)W$(4)v T(Z)(6(1))(6(1)) U(Z)(10((1)20)) 12:"PRESS ANY KEY..TO START !";:A$:33 !:12:"DO YOU NEED LIST OF PLAYS Y/N ";A$ "A$"Y"9999- P(11,7),M(10,10),R(13,10),Q(1,2)E B(1,3,1),S(1),H(7)^ W$(4),W(1,17),N$(2)W$(1)"END RUNHB GOES OUTSIDEPITCH TO THE HBHB "W$(2)"UP THE MIDDLEFB DRAWFB UP THE MIDDLEFB P"W$(3)"LUNGEQB SNEAKQB