' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭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- ( 0  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠z# u`@ P  0U @*(U P*UP@*U  dIczdY""""ժժЪЊԪժŪ""""  B0 A@'(@   @A"T A*@ @MG &J ՀՂd ( |?@|@" H@qP(A@@~ 222222ЪժՀժժddddddbq@bpc`qCpq" @HP*A*UU*U  U*U*5@*"(d ( U 0U@* UP*U@*U J@r " ժŪЪЊԪժŪ" " @b`Gp`a@pca   (@`  c @1 @JOЀ P`)4 xժժ@r|@*U*U  tK9@Ԃ@@9r@ @>! "d """"""pp|GC?DDDDDD @pswp?p@?@s?@P Pp `` ```` `` `` `@  @x``d "<@pgcp||Gs?>"< ``` ````` `` `` `` ````` `` ````` ```` `` `` `````` ```` `` `` `````` `` ``` `` `` `` `` `` `` `` `` `````` `` `` `````` ````` `` `` `````` `````` `` `` ``` `` `````` ``` `` ````` `` `` `` ``` `` `` ```` ````` ``` ``` ``` `` `` `` `` `` `` ````` ````` ````` `` `` `` ``` `` `` `` `` `` `` `` ````` `` ````` `` `` `` ````` `` ````````` `` `` ````` ````` `` `` `` `````` `` `` ``` ` ````` `` `` `` HS 20161A22190E2`` `` `` `` `` `` `` `` `` ```` ``` `` `` `` `` `` ```` `` ```` ```` `` `` `` `` `` ` ` ```` ```` `` `` `` ` `` `` `` ` ` ```` ``` `` `` ````` ````` ```` `` `` `` `` `` ``  ```` `` `` ````` ````` `` `` ``````````` `` ``` `` `` `` `` ```````` `` `````` ```` ```` `````` `` `` `` `````` `` `` `` `` `` ````` ``` `` ````` ````` `` `` `` ```` `` `` ````` ?????????NI266--- $$???" dddddddd$! $)--vvvvvvvvvvv>?????' dv>?ޒ3???76666666666666666---------e $$$$$$$$$????????IQI 666666666.- $$$$$$$?066> )>6? e$)-6-6--:d666666666666666.-----%$$$$$,----%$$$$$$$$$$$$$$?????66666$??????I 66666666-------- $$$$$$$$???????JR6666--e$$$$8??66666666666.---%$$$-----e $$$$$.66 666666--666M` I166?)66> 666M!$?g $26v-%<?--;?$6--;?$6--;?$6--666-e$$?26v- ?666-- ?H!? 66(-6 I)v-%?)u? $--66 -޻6- ?--.-6?(I>.-6$--?*(.--T(""""papxC?""""" "Dpp~~OC? BB@d  @E   G|?@  @HOd ` 8 Մ @b" " (8 _8@"y@ @"P*P pp?~pAC?888888@B@pCP @@BpS@@ A@p|@ *@ P  D ( (T(p|p`pp`A?"| "D`App|~OC?@ p pSBpC@  Np@@B@Ѐ  *d B@dI@ @t c'r @ԪԪ@`b @ HFЂ I8@ q@@ """""""ЪժՀժDDDDDDpC@RB0`C@`ArA@ HP**UP*PU*5(a U@( P 0U*@**U*P*U @@*U*@BDFժժЪЊԪժŪP`r`APB@R' @x@  >@J@  Ѐ d |? "Հb PT"@  J8@ q@(( &&&&&&ЪժՀժժLLLLLLB@2"P @@B@*( P**UT*T*U*5P @@"d  @ 0U @*(U P*U@*U @@ |?E "|ժժЪЊԪժŪ""|0 @PB@2 IO@1H@q@Q">>  (@H  p`dI ժЪB "*@ `9"@@Ђ  L8@q@@ ******ЪժՀժժTTTTTTB@ !@B B( P*A*UT* UT*U*5@ @@rd 0- P3 Q9 R? SE TK UQ %W `! &' '- 03 P9 Q? RE SK TQ UW % H  (`֮1  Dz`8  LG z 4ELGz 4Ez D`ɺ` ɭ a ``  h &! ''  ALF  ALF  A36LF'()z eȱm) B`  G` zO ֮1  Dz`8  LG z 4ELGz 4Ez D`ɺ` ɭ a ``  h &! '' s tb%ehz #֘`ʈ i CzLz nD 4E` E` D`,zQ D`: D,`$bh .@%J u@nt dALF A  G $  ALF 8   D`* 4E`ֆLnDzLE E`  GI z`  G z  G`  A  " `   ` g 8b} ihtn  z F`Xz)  :i똕] n0[Wee ɂLFɈ9ɕ@zɠgz GiF8 ZF`L\E 0FLt LVDte ht  A G"b F` E E` 4E GEI`ֆȵz  LD E`  A  i !8 "i RU @QJJJ` C$ e  E CL  ZF C C`) I`ɘ  0FLɓ @00@ɐ ɬɮ.``%!   0 } g ``   Ѧ\ATUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)APIAȄR%*QTU'T8ePT @UeRU @QJJJ`JJJJS)APIAȄR%*QTU'T8ePT @Ue&E%00Q&&QeS)j00',A"&,@i8i#H&ii&hif&i'`'i,A&i,.A&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% @8TeRTUU&E%0`&&kS @TeP &WRP& @)`" !H)&JJ&&h' &' &' f&') &'#i%@0J$)` .@Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)' %01&%0Q) @$@JH   @T  @0D  >  Њ"@@@ ЪrAP H@@ H|@*((`(p{cp?x@?@c?bABbG@``AB A@hppժժժՂ@@d T*U(H""pcwp~|G{?"""" "d@pp|GC?888888baqc`abqB`a@ ND @HH@    c@  @' F @ Հb>@ (Ԁ H|@y@(  pAp?|`@C?(B@B!@@BA@ @`@pxժժ@@P* Td$||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddə()l XYZZYJɚ0- P3 Q9 R? SE TK UQ 8C9GH3CK3C4_67 !"#D$%NO & ݅  Ll6l l"l$lNl8llll3ꢀRWP ZdddddddddddddddddddddgggggggggpLLLLLLLLLLLMOOOOOOOOOOOOOOOOOOOW===========?=<<<<<<<<<<<<<<<<<<|}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~e||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddd pLLLLL|||||||||||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddd pLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLT<<<<<<<<<<<<||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddddddddddgggggggggpLLLLLLLLLLLMOOOOOOOOOOOOOOOOOOOW<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddd p||||||||||||||||||||||||||||||||ddddddddddddddddddddddddddddddd pLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLT||||||||||||||||||||||||||||||||ddz#??     ϠĠB@ P  0U @*(U P*UP@*U  dIczdY""""ժժЪЊԪժŪ""""  B0 A@'(@   @A"T A*@ @MG &J ՀՂd ( |?@|@" H@qP(A@@~ 222222ЪժՀժժddddddbq@bpc`qCpq" @HP*A*UU*U  U*U*5@*"(d ( U 0U@* UP*U@*U J@r " ժŪЪЊԪժŪ" " @b`Gp`a@pca   (@`  c @1 @JOЀ P`)4 xժժ@r|@*U*U  tK9@Ԃ@@9r@ @>! "d """"""pp|GC?DDDDDD @pswp?p@?@s?@P Pp `` ```` `` `` `@  @x``d "<@pgcp||Gs?>"< ``` ````` `` `` `` ````` `` ````` ```` `` `` `````` ```` `` `` `````` `` ``` `` `` `` `` `` `` `` `` `````` `` `` `````` ````` `` `` `````` `````` `` `` ``` `` `````` ``` `` ````` `` `` `` ``` `` `` ```` ````` ``` ``` ``` `` `` `` `` `` `` ````` ````` ````` `` `` `` ``` `` `` `` `` `` `` `` ````` `` ````` `` `` `` ````` `` ````````` `` `` ````` ````` `` `` `` `````` `` `` ``` ` ````` `` `` `` HS 20161A22190E2`` `` `` `` `` `` `` `` `` ```` ``` `` `` `` `` `` ```` `` ```` ```` `` `` `` `` `` ` ` ```` ```` `` `` `` ` `` `` `` ` ` ```` ``` `` `` ````` ````` ```` `` `` `` `` `` ``  ```` `` `` ````` ````` `` `` ``````````` `` ``` `` `` `` `` ```````` `` `````` ```` ```` `````` `` `` `` `````` `` `` `` `` `` ````` ``` `` ````` ````` `` `` `` ```` `` `` ````` ?????????NI266--- $$???" dddddddd$! $)--vvvvvvvvvvv>?????' dv>?ޒ3???76666666666666666---------e $$$$$$$$$????????IQI 666666666.- $$$$$$$? HELLOd'i100/n106s5\x"YET ANOTHER REQUEST FOR MOOSE!"c}5"=============================="255D$(4)D$"BRUN NORAD"'__oaQF0zmaYP--.--v 66vn ( 666( V$$$66( $$66v- $$--666)u3-?(-u?#$$26vmh$?-?06626v- $?66n $ $$N JM)( 88-(((((((----<$$07575?N9?;'-h!5M ?---------+-*N JM)( 88-((((( BU0-.? ?cd-(uv?? ----<$$07575?N9?$$$88?666.----,  h N Vޛذ  hIpJ `(,.? hR;(6v6$ $LNk`)* -  a `LO ` BU0-.? ?cd-(uv?? ----<$$07575?N9?$$$88?666.----,  h N Vޛذ  hIpJ `(,.? hR;(6v6$ $LNk`)* - : `):  )`) )`)` e8H hHL!`    ` ***08 `  `@0`  ` <60               L L  2 L .@  B` .@  ;B`'() eȱm)` .@ u@ nt dA A A A!LP   B @   B  ALS `  ɐ `.` `` H  h `:  :   LWRP()     : :` ] s ` ` - %) } g  ) $g } ` ] s `8ʩ 8ʩ  `LBLLL/LL    r`  9` ,r`    } g  ``  ? 54-a     ` ` `     `    `      ` ǘ `   `    i` P   | | | | |  `H h` rĹg 8n} it] s <  `  `*$ą     _ @ L 1 : ` : 1  ` :  `bzhbtn`…Åa`΅`        `  c@bb c``('`i` 0 `  `i     @Ʉ iL.80)   0@    L  L 8L  TUeQPفŴxaI1&  _   1L  9   1 L b  L b 3 L  0  0`Ld@  V Wi0 p L idލ` J&  R! & & ! !"J: ! 2"!2!!2!"2>; J " "! R! & & ! !!&2  &" &: !&B  !"!&J    J" ! &B! J  # R%   ! R" " @=Y?ȄC>Ȅ@ (Ԁ H|@y@(  pAp?|`@C?(B@B!@@BA@ @`@pxժժ@@P* Td$T(""""papxC?""""" "Dpp~~OC? BB@dd=eq;@rd>ed?edBedCeM6dHeM6[deM'`@*#r9()$J@p()`@*#r9()%@p()O^d"eM6o a(נǠ)E@*#;@rra@E@E(Π)E@*#;@rr)hM6q`$,d"eQ]ҠŠj@B;@rrp(Ÿ)d<e#rE()E@*#;@rr-rqq!"q&dede+,`%Yd2e?a(Ԡ٠)G)6`%a(ԠΠҠ)G @d2eHJq.?6@r`$Jd6?e`$hq`$JYTq-rded2edeM']-]ƠԠŠӠԬԠΠŠ/`@*#r:()$a()E@*#;@rr_ccd"eqqUVWM'2`@*#r9()$"]ϠԠԠԠAa()E@*#rE(ݠ)E@*)1a@E(ң)a@E(Σ)]ΠƠԠ9]ǠנΠ٬ŠҠƠq.?r.?rq8r&]Ġ!M6dedeVdedeM'd2e?a@*#rGŶİŶ)\jn@p(±øðİƷŠ)\xdedeFd6ed7ed8e$d9eM]ΠΠԠ#a@E(Πìɬ)a@E(C@"rD4rq.?Jr.?Kr@p()]̭#P@p()MZ]Ԡ͠ϠŠǠϠ٠ĠŠϠǠsd@p(ù°ðù°ù°[ de! ]"]ՠ!]٠٠Š!(]'2Kd6?eM6]ԠϠԠ;<dJedKedede]Ԡ͠ϠGFN@"xr     ***********************************";M23:10:"HIT ANY KEY TO BEGIN":C$Si16298,0::9365:15:"HORSE RACE"12:"BY JACK WILCOX "16:"JUNE 1980":"DONATED TO APPLE CORE LIBRARY AUG. 1980"T:" THE HORSES ARE MOV0"** LAFAYETTE, CA **";a"** JUNE 1980 **";"** **";"** IN APPLESOFT **";"** **";%"*****ə()l XYZZYJɚ0- P3 Q9 R? SE TK UQ 8C9GH3CK3C4_67 !"#D$%NO & ݅  Ll6l l"l$lNl8llll3ꢀRWP Z0- P3 Q9 R? SE TK UQ %W `! &' '- 03 P9 Q? RE SK TQ UW % H  (`֮1  Dz`8  LG z 4ELGz 4Ez D`ɺ` ɭ a ``  h &! ''  ALF  ALF  A36LF'()z eȱm) B`  G` zO ֮1  Dz`8  LG z 4ELGz 4Ez D`ɺ` ɭ a ``  h &! '' s tb%ehz #֘`ʈ i CzLz nD 4E` E` D`,zQ D`: D,`$bh .@%J u@nt dALF A  G $  ALF 8   D`* 4E`ֆLnDzLE E`  GI z`  G z  G`  A  " `   ` g 8b} ihtn  z F`Xz)  :i똕] n0[Wee ɂLFɈ9ɕ@zɠgz GiF8 ZF`L\E 0FLt LVDte ht  A G"b F` E E` 4E GEI`ֆȵz  LD E`  A  i !8 "i RU @QJJJ` C$ e  E CL  ZF C C`) I`ɘ  0FLɓ @00@ɐ ɬɮ.``%!   0 } g ``   Ѧ\ATUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)APIAȄR%*QTU'T8ePT @UeRU @QJJJ`JJJJS)APIAȄR%*QTU'T8ePT @Ue&E%00Q&&QeS)j00',A"&,@i8i#H&ii&hif&i'`'i,A&i,.A&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% @8TeRTUU&E%0`&&kS @TeP &WRP& @)`" !H)&JJ&&h' &' &' f&') &'#i%@0J$)` .@Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)' %01&%0Q) @$@JH   @T  @0D  >   APPLE PANIC*(D$(4)H2D$;"BLOAD AP.PIC,A$2000"t<16304,0:16300,0:16297,0:16302,0FD$;"BRUN AP.PGM"PFHBB`~a>|a~XO= F<@pG `0~X?x *(`gNsG@sg0Np8N8fyW@cժԀ{_(P U@|sss||x~`~p` @@ps~|@?px}ՀԂԂЊԊժ{Op(A`@c? y}sss?||~|?~x`p|8 `s?|~p}UTTP U @**U*@{s]4,`@0@  P`f63;@a f0@L `0C@UUTTP*Q @***_$!! %?ps?|`~|?|x@TPp|8 `~s||p}          pF@f0PF p&P&@&pf0PF p&P&pF Pf@0F`0&PF@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF p&P&F@f0PF oOO/ 5@RvoOO/ 5@RvoOO/ɍ`L,   ( w L[ ~ 80)?i@Ip    ~ p  (0PPdO///OOo04`vXO///o/oo/o$(@X`OO/Ooo// 5@RvoOO/ 5@RvoOO/ 5@Rv ""2" "0 "2""""""""0"""">""""">""""""""""0"""""&""0""&>"*">>>0"*``x~?@?@?@?@?@?@p|`xEDASM.OBJ" DF IALz`x~~~~~~@p||||||?`xxxxxx~@pppppp?|````xpyz ziz ` mz:z;z z me(ipy)eilm z-z lmz  >  ~~z`z  Q I138:A$:IY A$m A$"END"ĄA$:| A$:LL1: L20ĄA$:L0:936 3530t936::"DRINK NAME ";DD$~:D1I138:A$:IA$(A$,(DD$))DD$3790/ICIC1:1540A$(A$"END"10102>2000M ***PRINT INGREDIENT U L0  IN11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,3700Q(YN$,1)"N"ı8V"USE 'YES' OR 'NO'.":1095U CALCULATE INGREDIENT #`:IC1"WHICH SPIRIT OR LIQUEUR DO YOU WANT TO USE ";SI$SI0A$:A$"END"ĺ"I DON'T KNOW THAT INGREDIENT.":1500(A$,(SI$))SI$SIIC:6000 I RR$I1NI7$Q(I);7);:ININ(I):3000:>)II.:RR$R0""3"HOW MANY OF THIS DRINK DO YOU PLAN TO SERVE ";HM8I1NI=IM(IN(I))IM(IN(I))(HMQ(I))BIGYN$"*":"WANT TO SEVE ANOTHER DRINK ";YN$L(YN$,1)"Y"N CREME DE MINTHE";:,K"APPLE SLICE";:@,OP16İ10101b&(A$,(SI$))SI$SIIC:6000{936::"DRINT #";DI138:A$:II143:A$:IDIDID2000D$:936:D$NI I1NIQ(I),IN(I)TABASCO SAUCE (DASH)";:/ @"CATSUP (TSP)";:F A"ORANGE SLICE";:[ B"LIME SLICE";:q C"LIMON SLICE";: D"LIMON PEEL";: E"ORANGE PEEL";: F"STRAWBERRY";: G"PINE APPLE CHUNK";: H"MINT SPRIG";: I"MINT LEAF";:J"GREERENADINE (TSP)";:' 6"LIME JUICE";:; 7"CLUB SODA";:^ 8"ANGOSTURA BITTERS (DASH)";:t 9"SUGAR (TSP)";: :"GRAPEFRUIT JUICE";: ;"ORANGE-FLOWER WATER";: <"APPLE JUICE";: ="TOMATO JUICE";: >"WORCESTERSHIRE SAUCE";: ?"";: )"VODKA";:" *"GIN";:= +"SOUTHERN COMFORT";:V ,"BLENDED WISKEY";:g -"SCOTCH";:x ."BURBON";: /"TEQUILLA";: 0"LEMON JUICE";: 1"CREAM";: 2"EGG WHITE";: 3"CRACKED ICE (CUP)";: 4"ORANGE JUICE";: 5"G "COGNAC";:* "GRAND MARNIER";:= "CALVADOS";:P "DRAMBUIE";:f "BENEDICTINE";:w !"PERNOD";: ""STRAWBERRY LIQUER";: #"BRUT CHAMPAGNE";: $"ORZATA";: %"KAHLUA";: &"BYRRH";: '"BANANA LIQUER";: ("RUMCHERRY LIQUER";:$ "GALLIANO";:= "CREAM DE CACAO";:] "WHITE CREAM DE MINTHE";:p "ANISETTE";:v  "LIME LIQUER";: "KIRSCH";: "COMPARI";: "SWEET VERMOUTH";: "DRY VERMOUTH";: "DUBONNET";: "PORT";:C BARKEEP PROGRAM- BY SAM NEWHOUSEB COPYRIGHT 1978J:eIM(100),IN(100),Q(10)"BERT THE BARTENDER" 4150 "HELLO" "CURACAO";: "BRANDY";: "TRIPLE SEC";:"GALLIANO";:"COFFEE LIQUER";: "                                  D I HAVE $";CM;"."21NHM0ĺ"YOU'RE BROKE!!!":O2NCM0ĺ"I'M BROKE!!!":3N"THERE IS $";PT;" IN THE POT.":I15000:4NTURNCO:2R: R4R"YOU HAVE ";HS;" POINTS."R"I HAVE ";CS;" POINTS, SO I LOSE":"THIS GAME."RHMHMHB:C(S0)(S0):B(1,E)0>+hBBOXES06iBF19MjBBOXESBOXESB(1,F)SkBYlBa N:h%N4&N"I HAVE ";CS;" POINTS."*N"YOU HAVE ";HS;" POINTS, SO YOU LOSE":"THIS GAME."/NHMHMHB:CMCMCB:PTPTHB:PTPTCB0N"YOU HAVE $";HM;" AN2050)2060 )h)2000(i)20102j)2020<k)2040Fl)2050Pm)2060Vn)\:u: *** CLOSE DOOR ***{::K04:0:B(0,E),B(0,E)2K:L150::K:K612:10:B(0,E),B(0,E)2K:L150::K :S1600'D10P100:10013$'P150-'D509'TN13T'PITCH,P:DUR,D:MUSICZ!'`$'jt'2030pu'z'2000'2060'<(2000=(2030>(2060?((2000(2010(2050(2060()2000)2010)2030)D1D2:15000:8000'r"I CAN'T MOVE."7sI12500:At8500Q4!I11000:W>!bH!17000rR!CSCSBOXES\!"I HAVE ";CS;" POINTS."a!I12000:f!CS4521000#TURNHU'#7000''1000'D010100,10200,10300,10400,10500,10 6TURNCO'@:17000:BOXES023000?B"MY TURN...":5000RPBOXES023000oTD1D2B(1,D1D2)08050^B(1,D1)0B(1,D2)08040_D1D29B(1,D1D2)08040`8050hB(1,D1)0B(1,D2)0D1D2ED1:15000:ED2:15000:8000kE1:15000:ED2:15000:7000RmB81(D1D2)9B(1,D1D2)0ED1D2:15000:7000\v7015s"YOU CAN'T MOVE."I12500:7500LI11000:V[17000`HSHSBOXESj"YOU HAVE ";HS;" POINTS."oI12000:tHS4520000]D1D2B(1,D1D2)07050=^B(1,D1)0B(1,D2)07010]_D1D29B(1,D1D2)07010g`7050b"HOW MANY BOXES SHOULD I CLOSE? ";B8dB827015f7020g:"SORRY, NO CAN DO, MY FRIEND.":7010lB82B(1,D1)0B(1,D2)0D1D2EDD10:D0D1:10000&BOXES65030-4:K2031G23,30KMq"NOW WE ONLY ROLL ONE...":D20wD23:D0D2:10000UV ** MAIN PROGRAM **WX:17000:BOXES023000YTURNCO8000Z"YOUR TURN...":5000  !  ** SPIN DICE **' : D1((1)6)1E 17000X D2((1)6)1 "HIT ";::"RETURN";::" TO ROLL THE DICE."; G$ G$(13)5007 "" I14 S1(S0)(S0)(S0)(S0)(S0)(S0) J1120   D5,D621 D5,D622$ + 0; D1,D225K D1,D226Q X 0h D3,D425x D3,D426~  0 D5,D625 D5,D626  0 D1,D229 D1,D230  0 D5,D629 D5,D6307112 ~31,33I & 7,11313 7,1133: 3G 35,377T 35,379` 7,935m 7,1137w 7000}  15 I2031 D,D7I     ** SPOTS **  0 D1,D221 D1,D222  0,13I M N7,1113 T13- U7,11179 V7,915C W16,9K ^12Y _I7112f `19,21Il av b19,8 c21,10 h14 i7,1123 j9,1125 k24,9 l24,11 r7 s27,297 t27,299 u10,1127 v29,8 |6 }I d5,391 n5,3939& 1,39132 6,122@ I6384L 6,12IR Y 4f I1438r 2,38Ix 611 73,47 87,114 93,511 @1 A7,97 B7,99 C7,99 D9,117 E7,911 J9 KI7112 L11B(1,12)33000)HU3:CO1071N0?S016336UI19:B(1,I)I:cI3354vNN1:B(0,N)I|  22000170008HS0:CS0I3354(J042I,I2J<JFIP1,395 Z1,3939         0N115&:(G$,1)(A$,N,1)1870-DN7NMN9AXZZMJb510l"YOU ARE EXPECTED TO LIVE TO THE AGE OF":Z;" YEARS";vZ601980Y60Z5M,FY 26,15,36,20,48,30,61,39 75,53,87,70,96,88,99.9,99.6M$(M)"ER 30",5,"KLFNI"(QSQS1:QSQQ18403Q17;Q$Q(Q$,1)"I"1750lQS1(Q$,1)"F"1750tQ${QQ$C,C$"CHOOSE ONE OF THE LETTERS ABOVE";G$C21C(G$,1)(C$,C2,1)1830C21770& ECKUPS***","DO YOU, IF YOU ARE A MALE OVER 40 HAVE AN ANNUAL CHECKUP?","K=YES","I=IF NO OR NOT A MALE OR UNDER 40 YEARS OLD.",2,"KI"^"***CURRENT AGE***","K=BETWEEN 30 AND 40 YEARS OLD.","L=BETWEEN 40 AND 50","F=BETWEEN 50 AND 70.","N=OVER 70","I=UND*","DO YOU DRINK THE EQUIVALENT OF A QUARTERBOTTLE OF ALCOHOLIC BEVERAGE A DAY?","H=YES","I=NO",2,"HI""***WEIGHT***","A=IF YOU ARE OVERWEIGHT BY 50 POUNDS OR MORE.","E=OVER BY 30-50 LBS.","G=OVER BY 10-30 LBS.","I=NOT OVERWEIGHT",4,"AEGI""***CH"CANCER, A HEART CONDITION, OR DIABETES SINCE CHILDHOOD?","M=YES","I=NO",2,MIP"***HEALTH***","HOW MUCH DO YOU SMOKE?","A=IF YOU SMOKE MORE THAN 2 PACKS A DAY.","C=1 TO 2 PACKS A DAY","M= 1/2 TO 1 PACK A DAY.","I=DON'T SMOKE",4,"ACMI"f"***DRINK**IVED TO 80 YRS.OLD.","I=NO GRANDPARENTS QUALIFY IN THE ABOVE.",3,"KOI""HAS ANY PARENT DIED OF A STROKE OR HEARTATTACK","BEFORE THE AGE OF 40?","E=YES.","I=NO",2,"EI"N"***FAMILY DISEASES***","ANY PARENT, BROTHER, OR SISTER UNDER 50 HAS (OR HAD)",LLEGE WITH A GRADUATE","OR PROFESSIONAL DEGREE.","I=NOTHING LISTED.",3,"JLI"~ "***AGE***","ARE YOU 65 OR OLDER AND STILL WORKING?","L=YES","I=NO",2,"LI"F "***HEREDITY***","K=IF ANY GRANDPARENTS LIVED TO 85 YEARS OLD.","O=IF ALL 4 GRANDPARENTS L"***FACTORS***","HAVE YOU HAD A SPEEDING TICKET IN THE LAST YEAR?","H=YES","I=NO",2,"HI""***INCOME***","DO YOU EARN MORE THAN 50000 A YEAR?","G=YES.","I=NO",2,"GI"NB "***SCHOOLING***","J=IF YOU HAVE FINISHED COLLEGE.","L=IF YOU HAVE FINISHED COp "***MENTAL STATE***","M=IF YOU ARE INTENSE, AGGRESSIVE, OR EASILY ANGERED.","L=IF YOU ARE EASY GOING, RELAXED, OR A FOLLOWER.","I=NEITHER",3,MLI"***HOW YOU FEEL***","ARE YOU HAPPY OR UNHAPPY","J=HAPPY","G=UNHAPPY.","I=NEITHER.",3,"JGI"ZN A FAMILY","H=IF YOU'VE LIVED ALONE FOR 1-10 YRS. SINCE AGE 25." "G=FOR 11-20 YRS.","M=FOR 21-30 YRS.","E=FOR 31-40 YRS.","M=FOR MORE THAN 40 YRS."  6,NHGMED >"***PSYCHE***","DO YOU SLEEP MORE THAN 10 HRS. A NIGHT?","E=YES","I=NO",2,"EI""HOW LONG DO YOU EXERCISE STRENUOUSLY, (TENNIS, RUNNING, ETC.)?","F=5 TIMES A WEEK FOR AT LEAST A 1/2 HR.","K=JUST 2 OR 3 TIMES A WEEK.","I=DO NOT EXERCISE IN THIS FASHION.",3,"FKI"C "WHO DO YOU LIVE WITH?","N=IF YOU LIVE WITH A SPOUSE, FRIEND, OR I IN AN URBAN AREA WITH POP.OVER 2 MILLION.","K=IF YOU LIVE IN A TOWN UNDER 10,000 OR ON A FARM.","I=NEITHER.",3,"GKI" "HOW DO YOU WORK?","M=IF YOU WORK BEHIND A DESK","L=IF YOUR WORK REQUIRES HEAVY PHYSICAL LABOR.","I=NONE OF THE ABOVE.",3,"MLI" Y MARKED "; :"RETURN";' :"."- 6 R51? Z72X A$"ABCDEMGHIJKLFNO"b 1700n R5R51~ R5211900  "***SEX***","ARE YOU MALE OR FEMALE?","M=MALE","F=FEMALE",2,"MF"u D"***LIFESTYLE***","WHERE DO YOU LIVE?","G=IF YOU LIVETYPING IN THE CORRESPONDING RESPONSE TO THE QUESTION."< |b " EXAMPLE: WHAT IS YOUR SEX?" " M=MALE F=FEMALE" "'M' AND 'F' ARE THE POSSIBLE REPLIES. TYPE THE CORRECT LETTER, THEN HIT THE KER QQ20 8"THIS IS A LIFE-EXPECTANCY TEST."Y""DO YOU WISH INSTRUCTIONS";a,I$v6(I$,1)"N"470~@:6 T"THIS IS A TEST TO PREDICT YOUR LIFE EXPECTANCY. I WILL ASK YOU A SERIES OF SHORT QUESTIONS, WHICH YOU WILL ANSWER BY       8)A8141,7A&A,7B17C8,14BJBP]C3339j26,32CqCw",D2632633,39D@DJT0:^8,1:h8,3:r8,5:|10,3:12,1:12,3:12,5:  PRY"Z16:"TO WIN IT BACK?"2d23:18:"Y/N?"Bn24:20:B$RxB$"Y"680y:10:10:"QUE SERA, SERA......."24:20:B$:3230:21:"THE HOUSE BOARD THE BET IS ";BET"YOUR CASH IS= ";TEB;" THE POINT IS ";POLZ( 1230 623:9:"TYPE ANY KEY TO CONTINUE"F24:20:B$N(:v2::5:9:"YOU'VE JUST GONE BROKE"<10:5:"WELL, ";A$;" YOU NOW OWE US"F12:"$100.00. AND WE'D LIKE IT IN CASH, "P14:"PLEASE. THAT IS UNLESS YOU WANT TO TFORD TO LOSE?";BET~3240(:1430K:"GO AHEAD AND ROLL 'EM ";A$VQRS0bLZ(8)x1460:1500:1980~3:"THERE'S A SUCKER BORN EVERY MINUTE"Q13000:Q:A$"CLOWN"10:9:"ALLRIGHT, BE THAT WAY!";36:36,37);%$39:39,37);N.22:A$", WHAT COLOR WOULD YOU LIKE"r8"YOUR DICE? WHITE=15"B24:"ENTER NUMBER HERE AND HIT RETURN- ";DICEL::VDICE`2400j"0. K. ";A$;" PLACE YOUR BET"t"HOW MUCH CAN YOU AFZzYY1:ZZ1 Z40920)880/?1:1,37);O4:4,37);_7:7,37);q10:10,37);13:13,37);16:16,37);19:19,37);22:22,37);25:25,37);27:27,37);30:30,37);33:33,37)AND ENJOY YOURSELF."1300$3TEB100.00:1F0,390R0,391[Y2gX213nXz0,39Y0,39Y1 O,39Y2YY3:X 14*0,393840,3939>15HX039RX,X\XfY39:Z0pY, SMALL, SAY $100.00 TO "Il9:"BEGIN WITH; BUT REMEMBER, IT'S CREDIT."zv11:" IF YOU CAN'T PAY IT OFF, WE'LL SEND "13:"A GUY BY YOUR HOUSE TO REAK HAVOC AND DO"15:"HORRIBLE THINGS TO YOUR DISK DRIVE. WITH"17:"THIS IN MIND GO ON $;", WHAT ARE YOU WAITING"612:"FOR? CHRISTMAS?"N18:"JUST SAY GO!"^24:20:B$n&B$"G"5900:10:5:"YOU DIDN'T SAY GO ";A$:11:5:"BUT I'LL LET YOU OFF THIS TIME"DQ11900:QNX5:A$;","b7:"WE'LL START OFF OF CRAPS. ANY OTHER COMBIN-"P 12:"ATION AND THE HOUSE COLLECTS. ALL DEC-"z 14:"ISIONS OF THE HOUSE ARE FINAL!" 19:3:"TO ROLL THE DICE JUST HIT ANY KEY!" 1300 10:7:A$;", ARE YOU READY?" B$:B$"Y"590:10:"WELL ";A |17:"SEVEN OR ELEVEN. IF THE PLAYER IS LUCKY"e 19:"ENOUGH TO ROLL CRAPS ON THE FIRST THROW"~ 21:"HE ALSO WINS." 1300 6:5:"THE HOUSE PAYS TWO TO ONE ODDS FOR" 8:"MAKING THE POINT, AND FIVE TO ONE FOR A" 10:"FIRST THROWCE,"5 J7:"WHICH HE ROLLS, OF COURSE, AGAINST THE"h T9:"FAR WALL. THE FIRST ROLL DETERMINES THE" ^11:"POINT, WHICH THE PLAYER MUST THEN ROLL" h13:"AGAIN BEFORE HE ROLLS CRAPS IN ORDER TO" r15:"WIN. CRAPS IS A DICE TOTAL OF EITHER"260- :9:"ALL RIGHT THEN, ";A$;", DO YOU"[ 11:"UNDERSTAND HOW THIS PROGRAM WORKS?"o 23:18:"Y/N?" 24:20:B$:B$"Y"590  "10:"WELL, THEN I'LL HAVE TO EXPLAIN." ,Q11500:Q 6 @5:5:"IN CRAPS THE PLAYER HAS TWO DIx1230 & 5:15:"PRESENTING"3 X1190D Q11500:QO :X1Z :140z 8:11:"THE GAME OF CRAPS" 10:13:"I AM THE HOUSE" 15:4:"NOW THAT YOU KNOW WHO I AM" 4:"MAY I KNOW WHO I AM UP AGAINST? ";A$ A$"NO"İ12 CT$(40)%::255:16298,0/3320H(:X0:A$(20):B$(3)s29:6:"PHINEAS T. BARNUM ONCE SAID:"<Q11500:QF11:1220PQ1500:QZ10:9:"AND NOW IT'S YOUR TURN"d1230n10:5:"ALLOW ME TO INTRODUCE MYSELF-"                 `` ؅``PC` ԅ`ULɰ`` „ĩéօ`LǦ&eDžNJeȅJJJJ)eFLƬig``Ƅ` ` а `i"ȱiȱ]ȱ^` ` 8񞑞$el]`]i]Li %L L L`  xvtrphfdb`XVTRPHFDB@8640(&$"  yxwvutsrq 0`ɐ@ PpiiХiѥiLڥP L@`L iiإ`֥L`88 8 LP@JJJJ @`%) JJJJ ) JJJJ `ڹx=]ȹxN"NBȹxN&NFȹxN*NJȹxN.NNȹxN2NRȹxN6NVȹxN:NZȹxN>N^`۹x?_ȹxv v@ȹxv$vDȹxv(vHȹxv,vLȹxv0vPȹxv4vTȹxv8vXȹxv"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?GA`?BC ,L181Ii0`I+m N>,m0 >`P0W1I>LLe00 2Me01 2Lle0 2me1 2L 0 0 0 0 `,o>9mr                             "= LINE NUM 115 ESTABLISHES BEGINNING ODDS ON EACH HORSEZ 203 TO 250 MAKES TRACK 260 TO 330 LINES UP HORSES AT START 335 TO 445 MOVES HORSES FROM TOP TO BOTTOM 1200 TO 1290 MOVES HORSES FROM BOTTOM TO TOP 340 AND 1201 RESS 'ESC' TO END"?0"< PRESS THE SPACE BAR TO CONTINUE...>"W:(16384)1551530pD(16384)1601830N936:16368,0: RESETS KEYBOARDXb16289,0:16300,0l16368,0::936:16298,0v10:" * * * THE END * * *ED IN ORDER FROM TOP TO BOTTOM, THEN FROM BOTTOM TO TOP, RANDOMLY 1 TO 2 SPACES""THE HORSES MOVE DOWN THE TRACK TWO TIMES":" ODDS ARE LOWERED WHEN A LARGE BET IS PLACED ON ANY HORSE. WIN, PLACE AND SHOW BETS ARE PAID OFF"&21:"P786,3:787,76)788,2:789,3:790,96:? (Y/N)";A$ A$"Y"Ā+:110Gp PLAY TONES SUBROUTINE`z768,P:769,L:770:q TONE POKES770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3 779,240:780,9:781,202:782,208:783,245:784,174:785,0:TINE MP255:L20:"YOU LOSE!":Z120:6010:Z:D1500:D::] PLAY TAPSL100:P129:6010:L60:6010:L255:P96:6010 PLAY DIVE BOMBERL5:DIE23192:PDIE:6010:DIE:L200:6010:D1200:D 23:"WANT TO PLAY AGAIN22,2919:14,1822:14,1829:15,1824:15,1825:15,1626:15,1727W P96:6010::| G = 129, LETTER H :1421,2722:21,2729:22,2921:22,2927:23,2523:23,2524:23,2528:23,2527P129:6010:: LOSE SUBROU10::) E=76, LETTER Y 3:1213,2021:13,2027:21,2713:21,2714:21,2714:21,2720:23,2515:24,1616,2022:16,2026:17,2023:17,2025P76:6010:: C = 96, LETTER G  :13D 22,2913:P64:L255:6010:D1200:DBP47:L10:D115:6010:D:5050h GR + PITCH SETTER  HIGH G = 64, LETTER T :113,2013:13,2019:13,1913:13,1920:15,2014:15,2015:15,2017:15,2018:15,2019P64:6000 0G199İ3000$ :G200İ4000+ DR7 N PAUSEH XD11000:DO bXx l::10:"CONGRATULATIONS, YOU WON!" v PLAY "CHARGE" L100:P129:6010:P96:6010:P76:L70:6010 P64:L100:6010:D175:D P76:L50:6010:D150:DCC1 22:"TIME LEFT: "3 C100Ģ22:12:CQ C9C100Ģ22:12:" ";Ck C10Ģ22:12:" ";Cy C15010 G127500 410 :16368,0 MG128  SEE IF RESPONSE WAS OK M(S$(R))5010 G212İ1000 &G217İ20T INTO MATRIX R1251 S(R)((1)31.5)8 RC ,X1NN 6S1Xj @S(S)1S$(S)"T":1000 JS(S)2S$(S)"Y":2000 TS(S)3S$(S)"G":3000 ^S(S)4S$(S)"H":4000 hS rR1X  READ KEYBOARD CB G(16384) D2L100:N10:B100/ D3L50:N15:B50F D4L5:N25:B25 :"GOOD. USE KEYS T, Y, G AND H TO RESPOND.":"BE CAREFUL NOT TO BUMP ANY OTHER KEYS"::"OR YOU WILL LOSE." :"PRESS 'RETURN' KEY TO START.";:A$: DETERMINE MELODY, PUOME TO 'SIMON', A PROGRAM WHICH"::"SIMULATES THE POPULAR ELECTRONIC GAME." n:"PLEASE SELECT THE DESIRED DIFFICULTY"::"LEVEL BY NUMBER."::"1. EASY":"2. MEDIUM":"3. HARD":"4. VERY HARD" x:D$:D(D$):D1D4110 D1L255:N5:B200 * ' * S I M O N * -I * ELECTRONIC GAME *m * SIMULATION * s#( * WRITTEN 12/80 BY *2 * MARK WELTY * 7<FS(50),S$(50),R$(50)P6030Z:255::2L d"WELC     COUNTS THE MOVESV 425 AND 1265 BRING THE HORSES BACK TO START AT END OF FIRST LAP 435,436,437,1270,1271,1272 PICK WIN,PLACE AND SHOW 670 LOWERS FINAL ODDS  I USED RANDOM MOVES OF 1 OR 2 MOVES TO EACH HORSE, FROM TOP TO BOTTOM, THEM BO"ANOTHER NOTE: THE BOMB 'WRAPS' AROUND"X"THE SCREEN, TO ALLOW YOU TO HIT ROCKS"$"THAT WOULD OTHERWISE BE IMPOSSIBLE TO"."HIT."8BPTO DROP"9"IT. YOU MAY HIT A KEY DURING THE COUNT-";e"DOWN TO DEPLOY THE BOMB IMMEDIATELY.""NOTE: EACH PLAYER GETS TO MISS 5 TIMES.";"YOU MISS IF EITHER YOU FAIL TO DESTROY""ANY ROCKS OR YOU DO DROP YOUR BOMB AT""ALL."+O CLEAR OUT A MOUNTAIN PASS TO"K"ALLOW YOUR TROOPS TO GET THROUGH AND"z"DEFEAT THE ENEMY. YOU ALTERNATELY DROP""BOMBS IN AN ATTEMPT TO CLEAR OUT AS MANY";"ROCKS AS POSSIBLE. AS YOUR BOMB FLOATS""ACROSS THE SCREEN, HIT ANY KEY S10:S20:M10:M204P(16384):P1285020B16368,0H^I$:I$"END"270h5050{p"DIVE BOMBER"u:"INSTRUCTIONS:""YOU AND YOUR OPPONENT ARE BOTH PRIVATES""IN THE U.S. ARMY. YOUR MISSIONS ARE THE";"SAME. T04615CC0'C1Y4700D B(S,C1)B(S,Y):B(S,Y)0\0:3S63,162Y6x 3:3S63,162(C1)6\YS(S1S2)HT((S1S2)HT)5040$1010SW1M1M11SW1M2M21M1M210101021:"GAME OVER"110 r3|FO1HP73HX(FO)63,162HY(FO)6?FOF0SFO1HPr3HX(FO)63,162HY(FO)6zFOFLFSRX1:TSRX1FS1FS1TS40TS40SFSTSY210B(S,Y)1ī4700CY111B(S,C)5000#X19:HX(X)0:HY(X)0:X,HP1@Y11:X11hRXX1RXX40RYY1RYY104100B(RXX,RYY)14100HX(HP)RXX:HY(HP)RYYB(RXX,RYY)0SW1S1S11:4070S2S21HPHP1X:YHPHP1hFL75X0X240:2050(X240X063:2X,Y= YL0:2X,99\ Y991582l 0:2X,Y2 B((X6)1,((159Y)6))04000 XXSW1.75 3:2X,Y Y 0:2X,157 5000RX(X6)1:RY((159Y)6)B(RX,RY)5P1300:P 2CD <(21):"0 INFTSW3B 3:1IN4,10O 2IN,25v P(16384):P128Ĺ16368,0:2000} 0 1IN4,10 "2IN,25 @IN 5000 0:1IN4,10 2IN,25 XIN Y25992 0:2X,Y2XXSW1.230 M15SW11010- M25SW11010? (22):SW1Ğw "PLAYER #1";::11);"SCORE:";S1;21);"MISSES:";M1 (23):SW1Ğ "PLAYER #2";::11);"SCORE:";S2;21);"MISSES:";M2 CD511 (21):"COUNTDOWN:";CD #16368,0 (1 Y HTHT10R XL 9,8,7,5,4,3,2,0,0,1,2,3,4,3,3,4,5,6,5,4y 4,5,6,5,4,3,3,4,3,2,1,0,0,2,3,4,5,7,8,9  (22):33);::"DIVE";::"" (23):32);::"BOMBER";::"" SW1 SW1SW1:F230:T10:1030 SW1:F10:TBEGIN"! P(16384):P128256/ 16368,05 ; E 0:1N HT0Z X140j ,R:R0405q 61 @DX(X1)6(X1)66 TDX,159DX,159R6 ^DX cY1R:B(X,Y)5:Y 3 YR110 3(X1)63,159(Y1)63 B(X,Y)P,H16L iPP1 nA# x30; }"030008001F003700"q "252D2C2D2E35353F3F3F3F373535353525252525250500" "25253F3F24242C2D253C3E2627372E2D3536363F3F2E2E00" "1225253C3C37372E2E0500" "END" S10:S20:M10:M20 "HIT ANY KEY TO 8192B(40,10)*HX(9),HY(9)0 :6000U"LOADING SHAPE TABLE"aP16384t232,0:233,64I$:I$"END"250(A1(I$)122P$(I$,A,2)<H((P$,1))FL((P$,1))PHH48:H9HH7ZLL48:L9LL7 d     ).5)!6X(N)(.875V1(R).5)'@]J:22:10:B$;" ";L1;" AT ";H1;" O'CLOCK ";C$;"."KV1ĺ:7:"HIT RETURN TO STOP ROTATION"OX(16384):X127V12210]3:^128,83132,87132,83128,87128,83bX1WlX1(X(X)36)3.6vB$;" "L1;" AT "H1;" O'CLOCK ";C$;"."<H0H1:C$"AM"1320IH1H112[(B2B1365360i-16368,0z<LL1365360FHH124360PP3.14159ZB(B2LH)P180dW34nH1H0N1WU,V1RUP180B,Y(N)(.5V1(R1)1150(j"DAYS ARE FROM 1 - 31":695F~H10H113H1(H1)1200h"HOURS ARE FROM 1 - 12":695C$"AM"C$"PM"1230"AM OR PM PLEASE..":695:"THE POSITION OF THE NORTHERN""CONSTELLATIONS AS THEY APPEAR ON"$MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"1X112K(A$,X32,3)B$770RX[850A$"345011041072102133164194225255286317" B1((A$,X32,3))1100R"PLEASE ENTER THE FIRST THREE LETTER":"OF A MONTH":695LL10L132L1(LT THE TIME YOU INDICATE."F10::"HIT RETURN TO CONTINUE";::A$:O700p:"EXAMPLE: AUG,1,2,AM"::"ENTER THE FIRST 3 LETTERS":"OF ANY MONTH":B$:"WHICH DAY";:L1:"HOUR";:H1:"AM OR PM";:C$V0%A$" THE HOUR YOU DETERMINED FROM THE"EP" POINTER'S POSITION."ml"YOUR ANSWER IS THE CORRECT TIME."v"WHEN YOU TYPE IN THE MONTH, DAY AND"x"TIME OF DAY, YOU WILL SEE THE POSITION"z"OF THE NORTHERN CONSTELLATIONS AS THEY"|"ARE AO THIS NUMBER.":" 5. IF THE RESULT IS MORE THAN 12,"d" SUBTRACT 12. IF LESS THAN 12,"}" SKIP STEP 6.":" 6. IF THE RESULT IS STILL MORE THAN";" 12, SUBTRACT 12 AGAIN."N" 7. NOW, SUBTRACT THIS RESULT FROM"%O" "." 1. KEEP IN MIND, THE HOUR INDICATED"P" BY THE POINTER STARS."{" 2. WHAT MONTH IS IT? MULTIPLY THE"" NUMBER OF THE MONTH BY 2."" 3. IF THE DAY IS IN THE LAST HALF"" OF THE MONTH, ADD 1."" 4. ADD 6 T}"O'CLOCK SPOT, AND 6:00 PM IS WHERE YOU"N"USUALLY FIND 3:00 O'CLOCK."T10::"HIT RETURN TO CONTINUE";::A$"THE 'POINTER STARS' ARE THE HANDS OF""THE CLOCK. WHAT TIME DO THEY TELL ON""OUT BACKWARD 24 HOUR CLOCK?A GIANT CLOCK--- A CLOCK WHICH,"K h"INSTEAD OF HAVING 12 HOURS, HAS 24"y i"AND RUNS BACKWARD. THIS CLOCK HAS A 12" r"WHERE IT WOULD NORMALLY BE BUT IT ALSO" s"HAS A 12 IN THE REGULAR 6 O'CLOCK" |"POSITION. 6:00 AM IS AT THE NORMAL 9"+LLED THE POINTER STARS)"E J"EXTENDING ABOVE THE DIPPER A DISTANCE"s K"EQUAL TO ABOUT FIVE TIMES THE DISTANCE" T"BETWEEN THEM. YOU WILL SEE THE BRIGHT" U"STAR, 'POLARIS' OR 'NORTH STAR'. ^"NOW IMAGINE THAT POLARIS IS THE CENTER"! _"OF """ 2204 " TELLING TIME BY THE STARS": "h ,"FIRST, YOU MUST LOCATE THE BIG DIPPER." 6"NOW, LOOK FOR THE TWO END STARS IN THE" 7"CUP OF THE DIPPER. IF YOU IMAGINE A" @"LINE DRAWN THROUGH THESE TWO STARS," A"(SOMTIMES CADIRECTION AND LATITUDE. LIKE THE SUN,"W "THE STARS CAN ALSO BE USED TO TELL TIME."] "WOULD YOU LIKE INSTRUCTIONS FOR TELLING" "TIME BY THE STARS"; O$ (O$,1)"Y"270 (O$,1)"N"700 "PLEASE TYPE ""YES"" OR ""NOU NEED INSTRUCTIONS"; nO$# o8 x(O$,1)"Y"160M (O$,1)"N"700r "PLEASE TYPE ""YES"" OR ""NO"""{ 110 "OF COURSE YOU ALREADY KNOW THAT THE " "STARS HAVE BEEN USED BY SHIPS" "NAVIGATORS FOR CENTURIES TO DETERMINE"' "::16298,0:310005 PROGRAM NAME - URSAP VERSION - 12/29/78  CONVERTED TO APPLE, CRAIG COPLEY  AUTHOR - HUGH COLLET 2X(40),Y(40)<::10P"WELCOME TO THE FASCINATING STUDY OF THE" Z"STARS. DO YO     :ZZ$:ZZ$(27)ZZ$(3)ĉ::0 }ZZ$(32)ıA }868:32230 #}32100:9:TT$"BY JACK WILCOX".}32100M}16:"LO-RES HORSE-RACING"Z(}32200:td} * PRINT CENTER * n}WIDTH20((TT$)2):WIDTH0ĺTT$:x}WIDTH:TT$:}23:12:"[ESC] TO END"}24:8);"[SPACE] TO CONTINUE "; }"[ ]";:29E "CONVENTIONS"' ADDED ON LINES 8000 TO 8100 EVEN THOUGH THE HORSES DON'T LOOK LIKE HORSES, MAKING HORSES IN LORES WOULD TAKE UP TOO MUCH SCREEN. THESE 'BLOCKS' FIT THE SCREEN SIZE BETTER.} * TITLE PAGE * }16368,0 }6:TT$"HORSE RACE"TTOM TO TOP.t THIS GAVE A CLOSER AND MORE INTERESTING RACE THAN ASSIGNING MOVES TO THE HORSES IN A RANDOM ORDER I MADE UP THIS GAME BEFORE I KNEW WHAT CALLS,POKES,PEEKS,HEX, ETC. WERE, THEREFORE, IT IS PURE 'BASIC' EXCEPT FOR THE 'APPLE COR]Π٠̮έ֧*_4UVW<X >`@9ͱ@*#r$pH`@9Ͳ@*#r$fRY\_  fq<pq  zo P'S(ԠҠԠŠҠ)'`.$M6o P(a(ӠŠԠҠ)_z[o P$a(̠Ҡ).UVWY8[]ҠUVWcY o P%S(ԠȠϠŠĿ)&@]Ԡ q;@r`$4 M6oP%%a@E(ӠԠȠƠŠ)ԠҠҠҠҠ)'@p(ΠΠŠĠՠɠ)"@p()@p()M6%q&a@*8;@r8rr#;@rr0c/:a()DS(ҿ)&@N`;@r$<S`@*#r9()$< Xa()bQFͱ@p(٠٠Ƞ̠٠Š)FͲ@p(٠%q`%@p@`%@p@*#tr`%@p@*#pr`%@p@*#lr qq8rUVW88rrPa@*#rc qYq88rr`$0P q"`@P88(;@rrr Ja@Tc^P8rhq8rra@*#r|c4`  %q"`  %q`%q`ٱ%q&`ٱdٱd qd!q8 rq8r`%q q]ҠUVWcYqͱ/a()cPbٱcP88(;@rrr"a@,c ]Π٠̮έ֠ N@"rC@"vrC@"rNͱ@"<rCͲ@"<rN@"r (N@" r-]ϠĠ2\7]ϠԠȠĠ<\AٱqBͱqF`$n Pq  Zqd_x nq xq    '__oaQF0zmaYP--.--v 66vn ( 666( V$$$66( $$66v- $$--666)u3-?(-u?#$$26vmh$?-?06626v- $?66n $ $$N JM)( 88-(((((((----<$$07575?N9?;'-h!5M ?---------+-*N JM)( 88-((((( BU0-.? ?cd-(uv?? ----<$$07575?N9?$$$88?666.----,  h N Vޛذ  hIpJ `(,.? hR;(6v6$ $LNk`)* -  a `LO ` BU0-.? ?cd-(uv?? ----<$$07575?N9?$$$88?666.----,  h N Vޛذ  hIpJ `(,.? hR;(6v6$ $LNk`)* - : `):  )`) )`)` e8H hHL!`    ` ***08 `  `@0`  ` <60               L L  2 L .@  B` .@  ;B`'() eȱm)` .@ u@ nt dA A A A!LP   B @   B  ALS `  ɐ `.` `` H  h `:  :   LWRP()     : :` ] s ` ` - %) } g  ) $g } ` ] s `8ʩ 8ʩ  `LBLLL/LL    r`  9` ,r`    } g  ``  ? 54-a     ` ` `     `    `      ` ǘ `   `    i` P   | | | | |  `H h` rĹg 8n} it] s <  `  `*$ą     _ @ L 1 : ` : 1  ` :  `bzhbtn`…Åa`΅`        `  c@bb c``('`i` 0 `  `i     @Ʉ iL.80)   0@    L  L 8L  TUeQPفŴxaI1&  _   1L  9   1 L b  L b 3 L  0  0`Ld@  V Wi0 p L idލ` J&  R! & & ! !"J: ! 2"!2!!2!"2>; J " "! R! & & ! !!&2  &" &: !&B  !"!&J    J" ! &B! J  # R%   ! R" " @=Y?ȄC>Ȅ:"OVER LIMIT. BET AGAIN":810H:"IS YOUR BET FOR WIN,Z2 I 1160 430M (22):"THE WINNER IS NO.";I;"-";A$(I):730V 640 (23):"SECOND PLACE IS NO ";I;"-";A$(I):730 640 (24):"THIRD PLACE IS NO. ";I;"-";A$(I):730 ::970 J13000:: J11000::J120 :: I18 Z. S((2(1))1)> C(I)X(I)SJ C(I),YR 12d X(I),Y:YY2r X(I)C(I) T235ī560 &X(I)35X(I)0 00 :4,2237 D9 N4,2236 XX(I)Z11540 bX(I)Y11550 lX(I)W1I8:1560 vZI035 5,21I "I# ,9/ 60,364< @0,3622I J4,2236] TI18:X(I)0:s ^Z136:Y136:W136 hY6:Z1:I18 rZ:X(I),Y |YY2:ZZ2:I 730 :: (23):15)"THEY'RE OFF":740 T20 T2T21 Z1:Y6 $200" I18:A$(I): SEABISCUIT, CITATION, SECRETARIAT,WAR ADMIRAL, MAN O'WAR, SEATTLE SLEW,TWENTY GRAND, AFFIRMED (23) I1P:"WHAT IS NAME OF PLAYER NUMBER ";I;"?":N$(I):: I18:O(I)(19(1))2: 760 12 :"THE HORSES GO DOWN THE TRACK TWO TIMES. WINNER IS THE FIRST HORSE CROSSING THE FINISH LINE AFTER THE SECOND TIME" (15):"HOW MANY PLAYERS? ";P G1000::"EACH PLAYER HAS A BANKROLL OF $1000" 1600: L200::"THE LIMIT FOR EACH BET ISB HORSE RACE) BY JACK WILCOX @ ADDED TO LIBRARYM 8/80 s:936:16298,0:TT$(30):32000}d1610n1750x"THERE ARE 8 HORSES IN THIS RACE":"MORE THAN ONE PLAYER CAN BET ON A HORSE,BUT ONLY ONE BET PER PLAYER"v "" " " " " """""""""