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`ՠԠŮ)_''Qϡ)a(ԠӠ)J__ a()J _& a(Ү)4a(ՠ̠ŠǠҠŠǠԠ)J_a(Ǡ)J#_ (a()J-_X2bJa(®ź)7_+ka(ˮɠΧԠ̠٠٠١)la((ӮӠ)a(Ƞ)a(Š)a(Π)*a(ĠˠĠΧԠԠԠ)a(Ϡ٠ȡ)!a(ԠΧϠ)JR@q.?@r`$d6?e_(]Ԡ̠#M6a(ŠϠPa()Pa()R@`;@r$_`@9()%a()J`@9()%a()J`@9()%a()J`@9()%a()J__a(Ƞ)a(Ġ)a(Š)a(٠)a(̮Ӡ)a)+a(ՠŮŠϠŠՠΡ)_']ϠԠ-M6o a(ϠՠԠϠϠǿ)Jq.?6@r`$ dE`<()r$k/M6oa(ԠŠƠ٠ϠՠԿ)Pa()Pa()(ՠĠĠٮŠˠή)_',a(٠ՠĠȠΠˬɠ)$a(ՠ٠ΠŠŮ)_'2cca(٬ŠΠΠ),a(ĠĠĠՠΠΠ)*a(ŠנĠĠՠĠ $`$a(ԠϠ٠ο٭)q.?6@r`$ d6?e`<()r$(`@9()$(`$`$`$`$`$`$`$`$_0a)J`@9()%a()J`@9()%a()J`@9()%a(Ǡ)J%`@9()%a(Ġˠ)J`@9()%a(٠)J_`$`$`$`$`$`$`)J`%a()J_]ԠŠ`@9()%a(à)J`@9()%a(Ҡ)J`@9()%a(Π)J`@9()%a()J`@9()%a()J$_(]ԠǠ`@9()%a()J`@9()%a(´`%qb_`%qb_`%qb_]ԠȠ`%a()J`%a()J`%a(Ӯ)J`%a(̮)J`%a()J`%a()J`%a(Ġˠ)%/S(ŠϠՠԠϠȿ)&@0`;@r$/4_]ȠŠҠ`%qb_`%qb_`%qb_`%qb_`%qb_خ).a(خ֯).a(خ֮).a(֮خ). a(خ)$%a(ͭˠӠ֭) *a(خ).a(خ).a(خ).a(خخ).a(خخ).a(خخ). a(خͮخ).a().a(د).a(خ).a(خخ).a(خX]ŠŠ]q/?rb_2]Š.a(خ).a(خͮ).a(خͮ).a(دͭ).a(د)J__]ԠҠ`%a()J`%a()J`%a()J `%a()J_&]ԠҠ0`%a()J3`%a()J5`%a()J8`%a()J:_ ]\7M6a(ՠĠ͡ŧӠ)JbJa(®)J_a()a(ҠӠŠ׺)a()J_a()J_a(Ӯ)J_a(̮)J_a()J_a()J_a()J_a(p`@9()%`@9()%`@9()$}r`@9()%`@9()%`@9()$}t`@9()%`@9()%`@9()$}v`@9()%`@9()%`@9()$}x`@9()%`@9()%`@9()$}z`@9()%`@9()%`@9()$}|`@9()%`@9()%`@9()$}~`@9()%`@9()%`@9()$}_i()$}``@9()%`@9()%`@9()$}b`@9()%`@9()%`@9()$}d`@9()%`@9()%`@9()$}f`@9()%`@9()%`@9()$}h`@9()%`@9()%`@9()$}j`@9()%`@9()%`@9()$}l`@9()%`@9()%`@9()$}n`@9()%`@9()%`@9()$}()%`@9()$};`@9()%`@9()%`@9()$}@`@9()%`@9()%`@9()$}E`@9()%`@9()%`@9()$}J`@9()%`@9()%`@9()$}O`@9()%`@9()%`@9()$}T`@9()%`@9()%`@9()$}Y`@9()%`@9()%`@9()$}^`@9()%`@9()%`@9(ՠǠŠ˿)JT`8r%`8r$c`%a(̬Ϡġ)3`%a(է̠ҠĠ͠Ԡ٬ҡ)`$Y_,]ŠŠ1`@9()%`@9()%`@9()$}6`@9()%`@9Ġ͠ԡ))S(נĠŠՠǿ)'!`8r%`8r$%`%a(էŠǠϠ),`%a(էŠԠǠĠ)`$Y q/?drUVW'a(ŧӠǠΡנĠ)%a$q_)!ca(ՠĠ͡ĠΡ)]ĠͿa(ŧӠǠҠԡ)`%`%`$`%`%` $`%`$a(ŠԠ١Ρ)_)UVW*a(РԠЬՠԠŮ)_(!}]ȠŬԬˠͿ)a(էŠԠšԠŠˡ)q/?rq/?r`%`$`%`%`$`$-ca(ՠĠԡΡɧ̠ԠԠ)a(Ǡš)`a(٠ϠԿ٭)+q.?6@r`$+ ,d6?e-`<()r$d&2`<()r%a(Ҡο٭)J5q.?6@r`$5 6d6?e7`<()r$<`<()r$A_ d]ſ iq/?(rn` $}sa(ǠԠ ]Cqqqqqqqqqq/?rq/?r_$a(ԠŠϠՠԠϠٿ)@a(à)a()a()a()a()#R@`;@r$#_ (q)ccc                ̡͠)cma(ҠŠӠŠ͠Ơ̠ŠՠŮՠԠ̠ҠҠŠΧӠŠϠή)c(S(ӠŠΠ٠ϠΠ)&@_xӠӠŠΠĠ͠ŠԮ)cta(ŠΠԠԠǠ٠Ϡՠ٠٠ԠҠȠԠԠŠҠǮ)cga(ΠŠƠŠǠӠӠҠԠΠŠԬŠΠӠ&M6a(٠ϠԠŠή)cXa(ŠԠȠԠƠӠ)a(̠ŠՠŠנ٩)GcRa(ՠŠҠ͠ŠԠŠΠӠ̠ŠӠƠ)^a(ҠԠήҠҠĠa(٬Ӡנ͠Ơ٠Ӯ)_%/qq24a(ŠԠӺ)UVWbE()G-rqYc 9`%[>qqFCca(נ٠ӠƠՠϠ)a(ǠϠŠή)H_]οcS(ŠϠ٠ο)&@#`@9()@9()$xM6o1`$Pa(ŬΧԠϠ٠Į)cPa(ĭ)Q ]"M6o<%S(נ٠ӠϠՠԠΠŠ)'`$V*`($/M6-r$bE()GqYMa(ŠϠӠƠ٠ҠŠԮ)ca(٠̠Ӡ)Fq[]ĠŠ3ca(ՠ)FE(Π)FGM6P`$a(ՠΡ)_a(ŠΠӠ) M6|[]٠$bbE()Gq bYc[]ˠƠ٠]̠Š]ˠҠ٠J`%[UVWX6UVW`-r$`$q[YZ ]ŠΠӠŠ5ca(ɠԠ)GUVW`rq-rqY!]ˠҠ&`$ -rq[:]ŠH?qa(Ҡ̠Ӡ)Fa(ɠԠ)GUVWb-rE()Gq-rYDca(٠̠Ӡ)F[X]Ԡנ=]ca(נԺ)qUVW`-rή)_`-r$]Ġ̠ `$. a(ŠŠϠӠƠ)FE(ҠŮ)cOUVWM6YM6a(ŠՠǠϠԠŠο)M6|_1qUVW`-r$`$q-]Ԡŧ\:]Š\X]Ԡנ\]ˠ`$}\]Ġ_]٠ο]ΠcS(ՠ)'`$`$/bE(ӠԠΠŠԠ٠ ] ]]ŧӠҠϮ]ĠϠŠ ]٠] ] N@"rD42rD4 rKdKM6oa(ɬɧ͠Šή)S(ϠՠԠŠӿ)&@n`@9()@9()$x\ ]}\    )( !  )( `Ս*+ 1` ` *+  ` *+  `\ *+ &'  *+ `Ս*+ ,` '\*+ ,` 'N*+ ,` 'Ǎ*+ ,` '@*+ ,` +*  '& &$  +* & '& `&  '& ` \*+   '& ` \*+  w '&  '&   '&  '& ` \͍*+  K '& ` \O*+  K   '& ` {i*+  '& ` \*+  '& $  '& ` \1*+   %` \K*+  '&  '& $  '& $ '& ` \e*+  w ` \*+  w '/L*mHmmh & ` ` !3G`Lj&'()L&'()L&' ()L5&'0()L'LLPLgLLLL;LLLLLLL; \*+ -  ) ;?)--:??7)--;? ) ) -:??7--->??7)--;? )  ) ;?)--:??7-)) - ) -:)) >)) >) - ) ) ) -  - ) )))); -)) );)) ;)) ;) ) ) ;;) ))--) )--->??7--->??7--->??7---  ) ? )  )  -  -  );?) )--)-- ; ) -  ; ;)--; )--)-  ) -  )-;) ;?) ) - )--  ;  - ) );?) ) -  - ) )?? );)-  - ;? ) >??7-)) ) ) ) ) ) ) )->?;?;??7-- ) ) ) ) ) ) )->?;;;;?7-- ) ) - ) ) )->?;?;??7-- - - )->??7-- ) ) - ) - )->?;;?7-- ) ) )->??;;;?7 - ) -) ) - ????????????????7------------------->??????????????????7------------------->??????????????????7)------------------:??????????????????7------------------->??7-- ) )->?;?;??7-- ) ) ) ) ) ) )->?;;;;;;?7-- )------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??????????????????7------------------->??->???;?;;????????7----)--- ) -)- )--->???;??;???????7----)-- )))--->?????????7---- - - )--->???;??????7---- ) -) )--->???;;????7---- - )-- )) )--->???;;;;;;???7)------------------:??????????????????7??7----) - )) ) -)--->???;?;???7---- ) ) ) - )--->?????;?;????7)------------------:??????????????????7------------------->??????????????????7---- )--->???;???????7----)--- -- )--->???;?;;????????7----)--- -- )------->??????????????????7---- )--->????;???????7----)----)- )-)--->????;;???????7----)--- ---) -)--->????;;;;;??????7----)--- )- -)--->??????????7----) --) )))--->???;;;;???7----) ) )--->??????????7----)--- - )--->?????;;???????7----)-- ) - )--->???????7---- - -- )--->???;?;;???7---- - - -)) )--->???;?;;?;;???7----)))) ) )--->????;;;;???7)------------------:??????????????????7--------------svy|)-:;3-->;3 ; ?--? )):?7--?  ?-->;3 ;)------------------:??????????????????7------------------->??????????????????7---- )--->????;??????7----)--- -)-)--->???;;????????7----)--- )--->????;;???|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR : .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&        Į=}]ϠԠҠͺΠϠɭӠӠǠġv}]Ӡ͠ӠˮˠӠԠ̺ՠΠŠԠĠĠĠȠðųҩšH}]ϠŠŠŧӠԬ٠ԠŠΠŠĠٮV}]ŭƠŠӠՠĠĠȠԠƠϠŠ͠`}]ŠǠĠΠӠŠΠҠĠԠŠΠˠȠŠa(Š)Q}]ŠĠĠ}]٠͠Ҡ_}]ҠĠӠΠҠƠƠɭӠήӺҠԬĠŠŠҠĮb}]ԠΠŠϠŠԠϠĠΠĮŠ̠ĠΠŠƠՠX6UVWX6`-r-r$7!7q-r-rq-r-rq 7YY 7q(7UVWX27`-r-r%q<7YF7[U NM6oS(ϠՠȠϠĠŠŠٯΩ)&@`@9()$N`@:()$ N_ NKM6QRo/`-r$//`Բ%Բq_p0/`-r$p0/`%Բq/`ԲԱd%ԱqԱd0`ԲԱd%ԱqԱ,p0Y0[2q-rq2UVWX2`-r%q2Y,3[6UVWX 6-rq-r6Y6UVW-rrq--rr/Y&/UV WX60/`-r$/:/`-r$N/D/`Ա%Աq_/N/`-r$b/X/`Աd%Աqd_/b/`-r$v/l/Աq,_/ v/Աq/Y/qԱdԲq/UV WX6/`-r$p0D*\oa(ɠĭՠΠ)FE(Ӯ)qq! +UVW<q.?6?rY[K+\oa(ՠġɠΠ)FE(Ӯ)qq+M6M6M6[.UVW -rqY .Աq.UVWX/-a(ŠĠĠ)ccP a(٠͠)T<#oa(ǠӺҠԠĠ)a(ҠĠƠǮĠ)\P#a(ˠҠԠ٠ǠҠ)a(Ԯ٠̠ՠҠŠ)a(Ů)d#UVW@Yx#[d`$8`$`ϲ$8`ϲ/?r$8Hqq\oa(ɠΠ)M6M6M6[S8qq\oa(ՠΡ١)UVW<q.?6?rY[E(#M6o P `ϲ%q [[[ M66oa(Ժ)FE(ź)FE(պ)F[pqq"qq \.qԱqԲ \2`%qd \6`%qd"`%q qԱqԲ qq\2! `%qd qq\6! `%qd" `%q d: `$ `%q`%q< `$ `ϲ%q-r q-r* q-r`-r-r%q-r q [+ qqqqq qq) qq\.qԱϲqԲ( qq\.qԱqԲ( qq\.ɠ)[[` qqoa(ɠŠՠĠŠՠ)S(ҠԠ)'j `$t q[t qq[+ qqqqq qq `-r-r%qd q $` `$8 % `/?rd$8 8 `8 /?rr8-r  r$8  `$. % `/?r$8  q[. `$` 58 qq\oa([\oS(ҠԠ)'`%[`$`/?r$_ \oa(ɠˬϡ)[Aqq`/?r $` %`d/? r$` `ҠԠ)'>`$Hq[H`$4`$fRqq[7fqqqk\4poa(ՠĠ٠Ԡ٠)Fa(ɠ̮)z['\oa(ɠ)`$%\ `$Lq`%q8r8 r/?r`%q*`/?r%q,`/?r %q,/`$qq54\oa(ɠԠ)FE()S(\`$ q`%\*`%\+Y`$rN@de dede8-rr de8-rr MrUVWY`$\pUVWY_`%\ `z #XǴ     ҠĮؠ ؠΠ Ǡ ͮ͠ؠ Ӡɠ Ӡɠ ΠӠ Š#"ҠĠ̠Ϡ ̠Ϯà!Ơɠ0̠נڠΠ"ààŠ ààŠנ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpBA6(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";;"'S BALL IS BURIED.":QN$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":k"KERSPLASH"N$(Z);"'S BALL IS IN THE DRINK.":"ONE STROKE PENALTY.":WB$G115:G21:2:X,Y:G%1G115:G21TXG1:T1T1 LXTG2:L,Y)BALL IS SITTING LOW ":BN$(Z);"'S BALL IS SITTING VERY LOW":nN$(Z);"'S BALL IS LOW, NEAR THE LIP":N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":N$(Z);"'S BALL IS PARTLY COVERED":N$(Z);"'S BALL IS COMPLETELY COVERED":N$(Z)"CALM"::!nWI1ĺ"LIGHT";::oWI2ĺ"MODERATE";:Kp"STRONG";:frWI7(1)2:WI1WI0usWI3WI3tWI(WI):34,20:SA(Z)9(1)1:SA(Z)402,404,406,408,410,412,414,416,418N$(Z);"'S BALL IS SITTING HIGH":N$(Z);"'S :"THE WIND IS ";:365:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI:O370:"THE WIND IS ";:365:" FROM THE WEST.":WI(1)WI:T370:"THE WIND IS ";:365:" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:Y"IT'S RAINING LIGHTLY":WG1:WI(1)1: mWI065:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:l;370:"THE WIND IS ";:365:" FROM THE EAST.":WI(1)WI:@370:"THE WIND IS ";:365:" FROM THE SOUTHEAST":WI(1)WI:WI(2)WI:E370:"THE WIND IS ";:365:" FROM THE SOUTH.":WI(2)WI:BJ370Z)DI1:210)WO0I(7CL)IDI:210/dJ12:"":N014:Q(16336)::::APY:1050,WG0:WI(1)0:WI(2)0:WI305,310,315,320,325,330,335,340,3451370:"THE WIND IS ";:365:" FROM THE NORTH.":WI(2)WI:.6370:"THE WIND IS ";:3fHC(Z)5B1 hDIDI(CB)?jWG0(CL5WO0)DIDIWGmlSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))ymSA(Z)0nQ0:RO(Z)2Q5(1)oRO(Z)0Q3(1)pRO(Z)0:DI(DIQ)(10SC):I(2DI3)IDI:210 WO1I(8(2CL))IX(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)[`AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)aAN(Z)315IDIDWI(2):DWDWWI(2)bC((HC(Z)1)2)(1):C3C7CC(2(1))cCL7ID15dDI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))AN(4WI(1)))GAN45ANAN(4WI(1))8HAN(Z)AN:`ZDI0:ID15:DW19:B2(1):B1B1m[B1B1\AN(Z)45IDIDWI(2):DWDWWI(2)]AN(Z)45AN(Z)136IDIDWI(1):DWDWWI(1)^AN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2))_AN((1)B)E >C0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L266U ?ANAN(CB)b @CL772 BAN45AN136ANAN(4WI(2)) CAN136AN180ANAN(4WI(1)) DAN180AN225ANAN(4WI(1)) EAN225AN315ANAN(4WI(2)) FAN315ANI::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:"-";:::@#P1X0!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\";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 ROLLS OUT-RUNSSCREEN PAS"5           -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 ."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)A4T(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:A3100A380E10:'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{ 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,          -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,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,4ULES 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"Ľ:1920: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 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     NTINUE)";: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 K2HE 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 THE13: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 XS200 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: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      ,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     -  ) ; ;?? -- ???---------5???????? )----- )  ;; ) 1; -)?? )- ? ; ?-->?7-- ?-->?7 ?-)8 p ) ) ;? ) -) ) ;???)- )------- );;??????--------------5????????????? ------------  - ; ;?? -- ???---------5;???????7 )----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 *" " * *":" *****************      23,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,22RA16,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:()@*#r9()%[8_]Šcc-a(ҠԠŠӠϠ)FE()FS(ŠŠ)''`$$`$$ "q ,q6`=>r=>r$h&@`=>r=>r =>r$%_ z`$a(Ԡ)UVWdeddeMYUVWY_ \X]]Πca(Π)Ica(ӠҠſ)GR@$cc6.`@*#r9()@*#r9\@]¦נҠ \T ]РԠ\]Ԡ ]ŠŠ*\]4`@*#r9()%\>`@*#r9()%\H`@*#r9()$R\ ]\\ ]Ԡfqp`&f gh_dDq/? r`$Xf #l`=>r%gh&`$`=>r%gh&`$`=>r%ghf gh_dfgh_d]ԠР\]\]r%gh&`$`=>r%gh&`$`=>r%ghfgh_dq/? r`$&(f `=>r%gh&`$&`=>r%gh&`$&`=>r%gh>r%gh fgh_dq/? r`$6(f `=>r%gh&`$6`=>r%gh&"`$6`=>r%gh6f gh_dTq/? r`$(hf `=>! N@"r_! UV%WX6UV%WX6&`=>r=>r=>r$d(`=>r $2`=>r$<`=>r $TF`=>r$P`=>r $DZ`=>r $ dYY[q/? r`$(f `=       !!! ! ! ! ! !!!!!!!!!""" " " " " """"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 AMES". ADAPTED FOR APPLE II BY ROBERT H. ABBOTT 1979JAN07v A CONTRIBUTION FROM THE AKRON, OHIO APPLE USER'S GROUP(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,٠).a(ƠŠӠĠӮ)+a(ŠԠΠΠ))a(ՠŠĠӠ̮)c.a(ՠ٠٠ŠŠ̠Ġ)*a(ήƠՠԠ̠ŠӠ)(a(c)`a(ӮΠРƠ)(ja(ԠӮ)*ta(Ӡ٠)+~a(ŠǠƠ٠Ů)+a(ӠŠŠԠŠ)a(ӠϠĮ),a(Ů N@" r)o S(ϠՠĠӿ)&@`@*#r9()%[ N@"r+a(ǠӠŠĠ)+a(̠ӠΠŠԮҠ)(a(ӠϠ̠ŠĠƠ)($a(ӮՠŠ٠ϠӺ)V$f _f ghYUVWdq/?rq/?r q/?r`$ f _ f gh Y *KM6=UVWYH[']ŠȠŠΠ]ӠUVW( q/?(rq/?r%f ghYUVW< q/?(rq/?r$f ghY&UVWd0q/?r:q/?r Df NghXYbUVW}lq/?rvq/?r q/?r`lmnlmnlmnlmnlmnl mnij$k "ij$k ,ij$k6ij$k@ij"kJij"k|UVW q/?(r q'f ghYij k ij kl mnijk ijk  ijkijkPl mnZijk dijk nijk l mnijkijkijkijk`%q`%qf ghbE()FJY)oS(ŠΧϠŠ)&@[]Š M6Lo-a(͠Ӡ)fl mnij k ij k  q _  ]Ӡ q/?r  f   UVW q/?$r q/?$r gh* Y4 []ԠŠ)M6a(ӠŠΠĠԺ)q(q(UVWq/?"rq/?"rD YN [ ]Ҡ q/?r f q `''%[ gh q/?r `$  q _  `$  qq _  `$  q _  `$  qq _deLdedede` ]ԠΠӪ `$ \ ] \ ] \ ] [ ]Š! q/?r& q/?r+ q/?r 0 f`%f5 gh : UVW? g/?rh/?r `&%_|  ]Ӡ N@"r- qqqqqq6?' dede0dede0 dededed ed e0 d ed ed edede0 deԠӠϠ)- `%a(ŠԠӠϠ)2 `%a(̠ԠҠŠ٠Ŀ)- `%a(ҠΠŠǠϠ) [T ]ǠŠ^ Lh fr q| lm%n q`=>r =>r %ghHf `=>r%ghRf `=>r %gh\f`=>r%ghff`=>r %gh pYYz[% ]ŠŠԠ ccc q/?r' `%a(ĠנŠŠ)+ `%a(ŠŵdedeMYUVWY[]Ӡ-a(ҠԠŠӠϠ)FE()FS(̠Š)''`$$`$$ q q*UVW4UVW">fJfTgh^[+ha(ՠԠĠŠΠ) rq |UVWdedeMYUVWY[,a(ҠΠĠǠϠĠŭ))a(ŠΠŠŠƠΠϡ) qdUVW-rr Dxq-rq8-rr -rq8-rr 6de *de de-rde-rMAq-rq8-rr -rq8-rr 'deZde-rde-rMqMUVJWLAd ed!ed"ed,eMd ed!eMYEde_de8-rr de8-rr Ms-rq8-rr -rq8-rr -rq8-rr -rq8rq-r-rq-r-rqY 3cM6#8a(ŠŠӠԠ٩)0Bq.?6@r`$Bd6?e`$ N'Lq qq`\tUVW`$x5de dededede dK\(#O44rD4 rD4 rXO4 rD4 r]ĠĠ@p()]̠Ģa@E(ĠҠĮ)qqqM \`$R$UVW4-rqYI.UVWq/?4rq/?4""""     @#]A#]B#]C#]D#]¦נҠE#]ԠƠ6#]ŠĮ7#]ҠԠ8#]̠Į9#]͠Ԯ:#]Ҡ;#]<#]Π=#]>#]?#]-#]ĠŠ.#]ȠŠ/#]ȠŠ0#]ԠŠ1#]ԭР2#]Š3#]Ҡ4#]̠5#]ҠΠՠǠˠŠ)hS(ҠҠҿ)&@ rq|`@*#r9()%q[(#]ĠϠΠ)#]ĠŠ*#]Ӡ+#]ԠŠ,#]ĠŠ%a()`X%a() `X%a()`%a()`%a()Q+ a(ҠŠӠҠǠҠ)*a(ϠԠŠŠ)4Q@]¦נҠҠJM6o ,^a(r%q `=>r %q`=>r%q`=>r %qoPbYY q M6a(ҠŠӠ)F`L%a()`L%a(٠)`%a()`ӪǪ=Xcca(ԠӠŠɠŠҠ)]`$ !`oPa(Š)bUVW%lUVW%v`=>r%q`=>r%q`=>r %q`=>r %q`=>Ů)c,a(ȠŠӠĠ٠Ǡ)+a(ؠĠ٠ϭӠƠŠ),a(ŠǠϮӠŠҠ),a(ĠҬӠŠҠ)a(ĠҮ)ccS(ŠϧϠ)&@[W]ŠͬĠŠΠҭ),da(Ӯ̠ΠŠĠϠԠ)na(Šˮ)xc+a(ȠΠӠƠΠҠĠ)-a(ŠӠΠȠϠԠŠ),a(Ҡ̠ŠҠΠŠ)a(ĠϠŠàĠϠ)+a(ǠŠԠӮϠ).(a(Š̠٠ĠΠŠή)2c+<a(Š̠٠ƠŠ)+Fa(٠ŠΠҠŮŠŠ).Pa(ӠŠŠԠκŠŠ)-Za(ŠŠŠӬŠԧ),a(ΠŠΠӠҠŭ)a(ŧӠĮ)%ccS(ŠϧϠŠ)&@ M6.a(ŠĠӠǠ͠ŠȭԬ)- a(ŠҠԠĠҠƠŠЮ)(a(ŠĠӠ