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`oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J 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,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@ &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ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[L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ 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,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` , ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A&?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵Y~~բժժժ֪՚p@U*}{w+U֪ժժժժժ@ժwժ՚~|@U*}cq+Uժժժժժժ(D*ժ~G~@Gxa|c@U*cq/U֪ժժaGߪժժЪժתښ@@O`c>@@ժժժժתժ׺@U*cq/U֪ժժ;3|ժժժժժժժ@@U*uo}+Uժժձ$Jj*)Fձ@U*?o=/U֪ժժc=_תժժժժժժժժ@U*ucq+Upx#$}*@غ@U*cc/Uժժժկժժժժժժժ֚x@U*}cs+U0 2U Lں@U*o{?U֪ժժժժժժժԪժժՀժժ՚@`gp`xxw@U*}ss+U0@$*U Pں@Ujac?U֪ժժժժժժժժժբՊժժת՚x|A~~?|ap@U*}cq+U֪ժժժժժ|ժժժ՚?@U*}cq+Uկժժժժժݪ(P ժ_ښ@>@Opa~@@U*cq/U֪ժժaO߮ժЪժժՀժժժښ?@@O`c>@U*U*U*Uժժժժժ:կ@U*cq/U֪ժժ;pժժժժժժժ@@U*uo}+UժժժߪՊ"*)@U*cc/U֪ժժ?תժժժժժժժժp@U*ucq+Uz  ֪*@@@U*cc/Uժժժժժժժժժժժ֚?|@U*}ss+U0#U*Rj E@@@U*o{?U֪ժժժժժժժԪժժժժժ՚@@gp`xx@U*}{w+U䋑U*vn %D@Ujac?U֪ժժժժժժժժժժժת՚`p~x?pp@U*}ss+U֪ժժժժժߪ(pժժժ՚|@U*}cq/Uժժժժժݪ(Pժժښ@@Opc@@U*cq/U֪ժժ9xC;vߪժԪժժՀժժժ~``Gpc|@U*U*U*Uժժժպ تիժ׺@U*cq/U֪ժժ>ppժժժժժժժ@@U*uo}+Uժժժ(^j*)տպ@U*cc/U֪ժժӼ_֪ժժժժժժժժښx@U*ucq+Up @"*%Dغ@U*cc/U֪ժժժժժժժժժժ֚~xx|pp@U*}{w+U0 2W @غ@U*o{?U֪ժժժժժժժժԪժժժժժ՚@@gp`xx~@U*}cq+U0*U E Cں@Ujac?U֪ժժժժժժէݪժתժժ՚xp@@@U*}cq+U֪ժժժժժժժ *x`ժժժ՚p@U*}cq/Uתժժժߪ(@ժժښ@@O`c~@U*cq/U֪ժժ p8s~ߪժժժժ݀ժժժ|qpGxa|@U*U*U*UժժիժՊ"ߪů@U*?o=/U֪ժժ8w~ժժժժժժժժ>@@U*uo}+Uժժݪ N*)+@U*cc/U֪ժժժպ_֪ժתժժժժժժޚx@U*ucq+U02&f2 ?@@y@U*cc/U֪ժժժժժժժժժժ֚~px@x?p@U*}cq+U0 U*^j B@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx~@U*}cq+UĈV*U*Uj E@@Ujac?U֪ժժժժժժժ(תժժ՚|@U*}ss+U֪ժժժժտժժժ ժժժժ՚|`ժժժ՚@U*}cq/UߪcתժժժתTժժښ@@O`g_@U*cq/U֪ժժ;~;r?תժժժժ?ժժժxxC|ax@U*U*U*U:ժժ׮ժ$ֺ@U*?o=/U֪ժժOw=֪ժժժժժժժ@U*uo}+Uժնު J*)ժպ@U*cc/U֪ժժժժ_֪תժժժժժժ֚x@U*uss+U00$6@$́1(Dz@U*cc/U֪ժժժժծժժժժՂժժ֚?xsxp|p@U*}ss+U0 *] %Aغ@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx|@U*}ss+Up*U*U*U*U*U %\kں@Uj!" U֪ժժժժժժ*իժ՚x@U*}cq+U֪ժժժժժժժժ *ժժժժ՚`c>8|`ժժժժ՚@U*}cq/UժxӪժժתժժښ@@O`g~?p?@U*cq/U֪ժo;E!sժժժժժժժժ`?^Aw?@`@U*UjU*UժժժՊ *)@U*?o=/U֪ժժgw=;`תժժժժժժժժ@U*uo}+Uժժo |K*)ժ@U*cc/U֪ߪժժժ_ת߫ժժժժժժ֚x@U*}ss+U0 "1E@@U*cc/U֪ժժժժժժժժժՂժժ֚pCp@xp"::20:16368,0:X$c W ZD$"BSAVE"A$",A$4000,L"((0)(1)256)16384 d"DO YOU WANT TO PACK MORE? (Y/N) ";:X$:X$"N"Ā i: n30 ::"--:--ERROR--::--": 313)ĺ:D$"CATALOG"::30& )A$":"ĀN *A$"/"ĺ:(4)"RUNPICTURE DISPLAY"_ -A$(27)60x .A$;:"";X$:A$A$X$ 2D$"BLOAD"A$",A$2000" <4096 F"DONE. ENTER THE NAME YOU WANT TO SAVE THE PACKED PICTURE UN ::D$(4)G"THE PICTURE PACKER":" BY JOE LINHOFF":34,2eD$"BLOADPIX PACK,A$1000"o200"NAME OF PICTURE - 'RETURN FOR CATALOG - (ESC) TO PACK THE PICTURE IN MEMORY %";:A$ (A$(    ϠŠӠΠΠ?ΠϠŠŠҠԮPRESS`RETURN ϠŠȠҠϠԠȠŠŠΩ`Ԡ ԠƠՠנŠҠҮϠŠȠ ӠԠƯΠ/Р` -     " ӠĠҠөϠŠȠԠǠ     (219)256;Iz CTRL-C IdH*(222)53ī850H,(7)2H-COL0COLCOL1HH.COL39COLCOL1]H/ROW0ROWROW1sH0ROW48ROWROW1H4X(16368)HHPL$"OFF"İ400HM70HR OTHER ERRORSHW(222)255ī890 I\:23:(7);"ERROR # ";(222);" AT LINE ";(218));"BSAVE";P$;",A1024,L1024"%G::eG5:"DO YOU WISH TO WORK ON A SAVED PICTURE":7:18:"";Q1$GQ1$"Y"Q1$"YES"ī750G20G12:"NAME OF PICTURE ? ";PI$G:(4);"BLOAD";PI$G32G  ERROR ROUTINESG! OUT OF BOUNDS ERRORQ015:QQ:0,394QQ2:0,395QQ2,F QQ_F:21:WW0142:(6WW42(WW10)):WW;:WWeFFWW1152:(6WW42(WW10)):WW;:WWF&FX:22:"(RETURN ONLY WILL NOT SAVE PICTURE)":21:"PICTURE NAME --> ";P$:P$""ī699FbGl(4PLOT IS OFF";!ESCCOL,ROW):08ECT15:COL,ROW:NESC:COL,ROW:480cEX(16368):410EPL$"ON":HUE:COL,ROW:E:21:"ONE MOMENT ... I'M MEMORIZING THE SCREEN"E(4);"BSAVE SCREEN,A1024,L1024"EE5:0,393:0,3936$FQROWD24:"PLOT IS OFF";)DPL$"OFF"9DX(16384)IDX128ī410DX155X(16368)::21:12:"X","Y":12:COL,ROW:499DX201ROWROW1DX202COLCOL1DX203COLCOL1DX205ROWROW1 E:21:12:"X","Y":12:COL,ROW:"OWROW1:(7)&CCOL,ROW)HUEī70@CBK:COL,ROW:HUE:70VCBK:COL,ROW:HUEfCXX64:120oC500zC:510C:"SELECT NEW BRUSH COLOR --> ";HUEC(4);"BLOAD SCREEN"CHUE:80C MOVE WITHOUT DRAWINGDPL$"OFF"ĠBK:COL,142ī165%BtX155X(16368):400ABuX209X(16368):600]BvX195X(16368):200BwX216X(16368)::21:"NEW BRUSH COLOR -->";HUE:HUE:80BxX201ROWROW1ByX202COLCOL1B{X203COLCOL1B|X205ROWROW1C}ROW39R21 A2HUEA<COL20:ROW20.AFX(16368);APCOL,ROW_AZ:21:12:"X","Y":12:COL,ROWoAdX(16384)AnX128ī100AoX191I0I1:X(16303):X(16299):16368,0:100ApX141I1I0:X(16300):X(16304):16368,0:100 BsX136X" @8007@(4)"BLOAD LOW RES PAINTER INST,A2048"S@X(16299):ZZ$:ZZ$:Y@ b@700h@q@510@ :"SELECT BACKGROUND COLOR --> ";BK:BK@#"SELECT BRUSH COLOR --> ";HUE@&Q1$"Y"Q1$"YES"ī45@(COL039:0,39COL:COLA-:   q 36864  ST16385:$4001Q103,ST(ST256)256:104,(ST256):ST1,0p(4)"RUN LOW RES PAINTER"dLJKIljki֦+,L^k_lKe^^__``L8oLopp+,oK)JȽklopȑL,Lr}q`$~qq dede.? r.?rp8m` stopmnU^_R 7ij^_lk *󅔆nmLҎ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ 7^0ȱ^0Lȱ^ȱ^oȱ^p,-hmnТ!ʥ+,+),*N-L Ԓ i#eN` *`TIA?B???S?R)ɒ`!ȱ`i)` ` Ő ŐƐLŐŐƐ   O`LM  JJJJȭ`N-ȐɐmŐL @҅LǑǐ     `iiʈ8I"261 BYTES OF MACH CODE FOLLOW ߍ ߍʈʈ$ iiʈ.mmȭ/*=FG$(2)"T"FG$(2)"A"ġ:F12130:16105*@*B IF FG$(2) < > "T" AND FG$(2) < > "A" THEN POP : ON F = 1 GOTO 2130: GOTO 1610: REM "not used change for expansion*L*"FILE NAME TYPE LENGTH DISK NAME":: +"&)$FG$(2)"B"ġ:F12130:1610,)'O))FG$(2)"T"ġ:F12130:1610U),).FG$(2)"A"FG$(2)"I"ġ:F12130:1610)1)3FG$(2)"A"FG$(2)"I"FG$(2)"B"ġ:F12130:1610)6)8FG$(2)"T"FG$(2)"B"ġ:F12130:1610*;$;" TYPE FILES":"7. PRINT ";Q$;"B+T";Q$;" TYPE FILES":"8. PRINT ";Q$;"A+T";Q$;" TYPE FILES"( :"SELECT >";:AN$:AN$:FG(2)(AN$)( ("check for selected file types(FG$(2)"A"ġ:F12130:1610((FG$(2)"I"ġ:F12130:1610)UT' :Q$(34):"0. PRINT ALL TYPES":"1. PRINT ";Q$;"A";Q$;" TYPE FILES":"2. PRINT ";Q$;"I";Q$;" TYPE FILES":"3. PRINT ";Q$;"B";Q$;" TYPE FILES":"4. PRINT ";Q$;"T";Q$;" TYPE FILES"]( "5. PRINT ";Q$;"A+I";Q$;" TYPE FILES":"6. PRINT ";Q$;"A+I+B";Qe=&>LCLC1:LC20LC0:AN$:(AN$)15INF:: "stop pointH&H36232O&RIc&\:"DONE ":AN$l&f160& "ADD TO A FILE& FG1:1480: "get file name& ID1:LNF:"set pointers to continue& 200& 160' " SELECT FILE TYPES TO PRINT O%(FI$(S%(I)),L6)"HELLO"1610: DON'T PRINTW%(FI$(S%(I)),L6);: "file name_% 25%(FI$(S%(I)),L5,1);:"type% PRINT " "; MID$ (FI$(S%(I)),L - 4,3);: REM "length%*V((FI$(S%(I)),2)):"volume&4" ";(DN$(V),(DN$(V))5):"namF)"$(NU$)6NU$" "NU$:1740/$34:NU$6$0?$160[$F1: "PRINT TO MONITORg$I0NF{$L(FI$(S%(I)))$L72130$FG$(2)(FI$(S%(I)),L5,1):FG(2)3605,3615,3620,3625,3630,3635,3640,3645,3650::"special file print selection 1$:YN$:1#hFF0B#r"DISK NAME FREE"M#|I0Di#(DN$(I),(DN$(I))5);#37:(DN$(I),(DN$(I))4,3)#FFFF((DN$(I),(DN$(I))4,3))#I#"----------------------------------------"#"TOTAL";$NU$(F%(I)),L6);*"(9)(FI$(S%(I)),L5,1);I""(9)(FI$(S%(I)),L4,3);b",V((FI$(S%(I)),2))"6(9)(DN$(V),(DN$(V))5)"@LCLC1:LC60LC0:(12);:4000"E36232"JI"TI14:: #^0:"ALIGN PAPER FOR LISTING OF ";D1;" DISKS":YN(35)(40)(47)(0); !4000,!I0NF@! L(FI$(S%(I)))N! L71610! FG$(2)(FI$(S%(I)),L5,1):FG(2)3605,3615,3620,3625,3630,3635,3640,3645,3650::"special file print selection! (FI$(S%(I)),L6)"HELLO"1610: DON'T PRINT "(FI$(So fileb 3500::"OUT PUT TO ";::"P";::"RINTER ,";::"M";::"ONITOR"::YN$:YN$"P"1510t YN$"M"2000 F1ė:2000: "print to monitor "POSITION PAPER AND TURN ON PRINTER "::YN$:" "!1:(9)(1);:(1)"80N";:(27)(68)ALOG S::D$"CATALOG"::"WHICH FILE DO YOU WISH TO USE ? ";FF$YlD$"OPEN ";FF$D$"READ ";FF$D:NFI0NF:S%(I)I:I0D:DN$(I):I0NF:FI$(I):D$"CLOSE ";FF$ :FG13020:"FG=1 for add t:"ANY KEY WHEN READY"::YN$1D$"OPEN ";FF$ED$"WRITE ";FF$PD:NF[J0DgDN$(J)nJzL0NFFI$(S%(L)) LD$"CLOSE ";FF$FG0:1503x:(FF$)2ĺ"USE FILE ";FF$;"? (Y/N)";:AN$:AN$"Y"1500: "SKIP CATL1)::NFNF136232 L&$HL:"SORTING ";NF1;" FILES":hV964,(NF256(NF256))256{`965,(NF256)j(175)(176)256261FI$(0),S%(0):"NAME UNDER WHICH FILE SHOULD BE STORED? ";FF$:"INSERT DISK FOR FILE STORAGE":0):920#X21JJ1(JNF):920sX68FI$(J)"":KJNF1:FI$(K)FI$(K1):36232::NFNF1:JJ1(J0):920X27ĉ::1100:"CHECKING FILES":L0NF(FI$(L))61050"DELETING TRASH ";FI$(L):LLLNF1:FI$(LL)FI$(L DELETE. TO EXIT DELETE":1:23::"-->";::33,36:32,3:34,4:U24:J0aJ$(J)}(J$)3J$" "J$:921J$;" ";(FI$(J),(FI$(J))6)X(16384):X128928XX128:16368,0:X27X21X8X68928X8JJ1(J PROGRAM ":::" YOU MAY WISH NOT TO HAVE THE HELLO PROGRAM ON THE PRINTOUT"::"DELETE ANY FILES BEFORE STORING TO DISK?(Y/N) ";:YN$:YN$::YN$"Y"1100I:"USE ARROWS AND TO MOVE THRU FILE.WHEN ALIGNED WITH ARROW PRESS 'D' TO ;SI$:(SI$)3ĺ:"NO MORE THAN 3 DIGITS LONG, PLEASE "::828]>(SI$)3SI$"0"SI$:830~ANFNF1:FI$(NF)F$T$SI$I$C:818z1000{YN2895~900U:" YOU CAN NOW DELETE IF YOU WISH NOT TO HAVE PRINTED ON YOUR PRINTOUT ANY F NO MORE FILES ON THIS DISK ":F$25F$""825~6:"MORE DISKS TO ENTER FROM KEYBOARD? (Y/N)":YN$::YN$:YN$"Y"89078109:"TYPE OF FILE? (A/I/B/T) ";T$::(T$)1ĺ:"USE ONLY A SINGLE LETTER"::825><"NUMBER OF SECTORS IF KNOWN "D1::,"NUMBER OF SECTORS FREE ON DISK IF KNOWN?";FR$p-(FR$)3ĺ"ENTRY WAS TOO LONG--TRY AGAIN"::812.(FR$)3FR$"0"FR$:814/I$(D):(I$)2I$"0"I$0DN$(D)DN$(D)FR$I$12"ENTER NAME OF FILE ON DISK""4" IONE PROGRAM IS ON THE DISK JUST KEEP ADDING THE NAMES UNTIL YOU HAVE NO MORE NAMES ON THAT DISKETTE"q:"PRESS ANY KEY TO CONTINUE";:A$ :"WANT TO TYPE IN ANY FILES? (Y/N) ";:YN$:YN$:YN$"Y"890*:"ENTER DISK NAME ";DN$(D1):D:A$::" YOU WILL BE ASKED IF YOU KNOW WHAT TYPEOF PROGRAM THIS IS AND YOU MUST ENTER ONE OF THE LETTERS (A>PPLESOFT,I>NTEGER,B>INARY,T>EXT)":"NEXT YOU ENTER THE LENGTH IF KNOWN OF THE PROGRAM ON THE DISKETTE."i" IF MORE THAN THEN ENTER THE FREE SECTORS IF KNOWN GENERALLY YOU WONT KNOW WHAT THE FREE SECTORS ARE SO TYPE 0 IF NOT KNOWN":" YOU NOW WILL ENTER THE NAME OF THE ACTUAL PROGRAM LIKE MYSTERY HOUSE FOR HI-RES #1":"PRESS ANY KEY TO CONTINUE";DABLE OR ONES THAT ARE NOT COPYABLE"r:" TO DO THIS YOU WILL BE ASKED ";::" WANT TO TYPE IN ANY FILES "::" ANSWER YES AND YOU WILL THEN BE ASKED TO ENTER THE NAME OF THE DISK ";::" NAME E.G. HI-RES ADVENTURE #1, ETC."s:"= ";S$:K15000:300.T$((FTYPE))OSIZE256(FSIZE1)(FSIZE)_SI$(SIZE)~(SI$)3SI$"0"SI$:420FI$(L)F$T$SI$I$F$LL1300%:" YOU NOW HAVE THE OPPORTUNITY TO ENTER THE DISKETTES THAT ARE NOT REA(FLOCKED)0Č36242:NFL1:II1::200J@S$((FLOCKED)):S$"-"300\JF$"":BLANK1kTJ2901VC$((NAMEJ))YBLANKC$" "360[C$","C$":"C$"/"^F$C$F$:BLANK0hrS$"*"S$" "S$"-"390|"I/O ERROR ** S$ :NA$INA$"FREE"X(0):"FREE MEMORY = ";X::XX14000::200`NA$""DI1:700919:FR(917)256(918):FR$(FR):FR100āII13(FR$):FR$"0"FR$:I$(I)(I$)2I$"0"I$DN$(I)NA$FR$I$,GFILE136232)6A$:"INSERT DISK #";I1;" AND TYPE DISK NAME":::"OR";::" TYPE 'FREE' AND FOR ":" REMAINING MEMORY SPACE"::"";::" IF NO MORE DISKS TO ENTER":10::" OR TO ENTER DATA ON COPY ":10:" PROTECTED DISKETTES " A NAME FOR THIS DISK WITH WHICH YOU WISH TO HAVE IT LABELLED ":" E.G. UTILITY #1, GAMES #1 "::::" THIS WILL ALLOW YOU TO HAVE A QUICK REFERENCE LATER WHEN LOOKING FOR A CERTAIN PROGRAM. "::" PRESS ANY KEY TO CONTINUE";:. ADD TO EXISTING FILE"::"5. EXIT PROGRAM"R :"ENTER CHOICE";:YN$:YN(YN$)e YN5YN1160 YN190,190,1400,3000,175 :"BYE": I0:L0 YN2195 200D:" PLACE YOUR FIRST DISKETTE TO BE READ INTO DRIVE 1. "::" TYPEROGRAM I SUGGEST YOU PRESS 2 WHICH WILL INCLUDE INSTRUCTIONS WITH THE PROGRAM" :"PRESS ANY KEY TO CONTINUE";:A$, FG0:F0::"1. LOAD NEW DISKETTES "::"2. INSTRUCTIONS WITH ABOVE "::"3. PRINT EXISTING DISK INVENTORY FILES"::"4::""u :" THIS PROGRAM WILL ALLOW YOU TO MAKE A PRINTOUT OF ALL YOUR DISKETTES INTO AN ALPHABETICAL LISTING." :" (EVEN THOSE WHICH HAVE NO CATALOG --- THE ONES WHICH ARE NOT COPYABLE! ) "W ::" IF THIS IS YOUR FIRST RUN OF THIS P,z (XIJ   נӠҠԠ կŠҠ ؠˠ կŠ٠ ؠҠ Ġ̠ ŭĠààʠ!Š"կˠ٠& ˠ֠  ˠ֠ կנӠҠנӠҠ   ŮҠ ůΠƠ  ǯˠ ˮĮŮŠ Š®ʠǯŭĠààŠĠϠĠϮʠՠįӠŭҠůԮŠ%ůϠ͠%8ؑi=iagj`Ȅ 0`8aa```VɍȄ e 閥%з ݖɛ, X 閥0 ,,`` 9 * * COMMENTS *0 * IF APPLICABLE*G ****************y GOSUB 560 REMOVE REM FOR WAIT FOR KEYPRESS ******************* * TITLE CENTERING * * MODULE * *******************(20(TI$)2):TI$:R> TO CONTINUE";:35,22:80 5,39:6,1:7,25:(HM108)D: :2040[ ****************r * TERMINATION * * MODULE * **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWO AND-BY":+ D$"READ "TF$:HM46:250,160L (64435)6Ĺ38600,176:3100 :"DO YOU HAVE LOWER CASE?(Y/";::"N";::")";:2500:(KB128)"Y"ČHM357:250,32 D$"CLOSE":TF1& 251,21:23:" PRESS TO EXIT READ MODE":10);"KB195ė::D$;"CATALOG":3550: 'C'\HKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'wR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(================="V 12:8:"'CALL 1016' FROM BASIC":8:"'CONTROL-Y' FROM MONITOR"19:"=RUN MENU PROGRAM =CATALOG DISK"::"=READ ";:TF$;:" =QUIT TO BASIC" 23:7::"PRESS LETTER FOR SELECTION";:*25004KB209ī3500:7:"";, h25002 rI  ****************`  * MAIN MENU *w  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::50009:8:"TO RE-RUN MENU PROGRAM":8:"===== 7:30":> 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"i @"SECY- BOB RENNARD, (513) 426-3579": J"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," T"FAIRBORN, OHIO 45324"" ^24::"THE APPLE USERS GROUP OF DAYTON, OHIO":i "GOAL- PROMOTE THE INFORMED USE OF APPLE":"COMPUTERS": ""MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" ,"MEETING- 2ND THURS EACH MONTH, WRIGHT ":"STATE UNIVERSITYJ,A"HM:LG1080- .1090:LOGO NOT IN MEMORY< 8T11:2500E BT10M L:W V1500a `4000k j2000  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ****************+ :13::" APPLE-DAYTON "::44, DECEMBER 1983", TF0:TEXT NOT LOADEDf HM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 LG0:DEFAULT TO LOGO NOT LOADED :((12290)(8800))(12000)Ĺ16304,0:16302,0:LG1 D$(4):D$"NOMON C,I,O": $D$"BRUN A-D HELLO.OB  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TF$"A-D VOL 44" ,VO$"VOLUME      BY THOMAS R. PIPER CENTERVILLE,IOWA,1982Q  ----------------j  EXECUTIVE.MODULE  ----------------  TITLE.PAGE.MODULE 1000  QUESTION.PAGE.MODULE 2000  CHART.PRINTING.MODULE 3020  EXPLANATI- "O$(51) ,T$(8)/ 6F(12),J(2),Z$(20)< @CT$(40)X J----------------------t TACKNOWLEDGEMENT.MODULE ^---------------------- hORIGINAL AUTHOR UNKNOWN rREDONE BY ED AVELAR,788 | INTEGRATED,STRUCTURED, UPDATED AND EDITED ?=YEAR INPUT/VALUES. D =DATA YEAR INPUTH J?=LENGTH IN DAYSb I =COUNTING VALUE~ N =DATA INDEX INPUT N1=YEARLY VARIABLE E$=ANOTHER RUN  -------------------  HOUSEKEEPING.MODULE  ------------------ d F?=DAY IN EACH MONTH7 n CT$=CENTERING VALUEO x YN$=YES/NO VALUEl Z$=DIRECT NAME INPUT A$=DATA NAME INPUT M?=MONTH INPUT/VALUE B =DATA MONTH INPUT D?=DAY INPUT/VALUES C =DATA DAY INPUT Y# **********************; *** BIOPLOT.SCRIBE ***X **********************s( --------------------2 DOCUMENTATION.MODULE< --------------------F X =EXCHANGE VALUEP O?=CHART SPACE VALUEZ T$=DAYS OF THE WEEK           TOM MCDONALD" 2/22/83(d:A010:SO16336:(1)611((0)4):I0200((1)33):0,0I,191:0,191I,0:279,0279I,191:279,191279I,0:I:S15:Z(SO)(SO):S:A ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж 4<=>?BC ,ڍ ԧLS T  m鷽 ݌ 0 X '1  x)ȹx)ȹx)    [$ $ q L {{l       ɍ  ` @ ``$ $ $I$ $) ʩ`@ ȱ`'$ɍI$ $)?)ߑө` CRITICAL UP"` 13);"*************************!*************************" SET F(2) TO 29 FOR LEAP YRS XY2 3530 F(2)F(2)X GENERATE THE BIO PLOT LOL C0 OOL1 CC1 X1 51 O$AYS BETWEEN THESE DATES)"A THIS PRINTS THE REST OF THE CHARTG n 28);"P=PHYSICAL (23 DAYS)" 28);"E=EMOTIONAL (28 DAYS)" 28);"I=INTELLECTUAL (33 DAYS)" 28);"A=OVERALL AVERAGE"  13);"DOWN ON ";T$(P1);" ";M1;"/";D1;"/";Y1_ 24);"THIS CHART BEGINS ";T$(P2);" ";M2;"/";D2;"/";Y2x TIME BETWEEN DATES DAYS(1)(30.6M1)D1(365.25Y1) DAYS(2)(30.6M2)D2(365.25Y2) SPANDAYS(2)DAYS(1) 20);"(THERE ARE ";SPAN;" D IS ONLY FOR THE NEC-8023 GRAPHIC PRINTER4X ::hb 27((Z$)2));:I1((Z$)25):"*";:I:"*"g 27((Z$)2));"* BIORHYTHM CHART FOR ";Z$;" *"l 27((Z$)2));:I1((Z$)25):"*";:I:"*"q 1785,72v #{ 24);"YOU WERE BORN723P28 N1Y2.1Y OJ2J1(N14)(Y14)(N1100)(Y1100)(N1400)(Y1400)h M123105q XY1{ 3530 OOX! M233125& XY2+ 35300 OOX5 PRINT CHART HEADER: 1D (27);"E";I (27);"L008";*L ABOVE.28318m F(1)31:F(2)28:F(3)31:F(4)30:F(5)31:F(6)30:F(7)31:F(8)31:F(9)30:F(10)31:F(11)30:F(12)31 CALK OFFSET,INCLUDE LEAP YEARS XM1 3500 J1J2D1Y1365 J1639723P18 XM2 3500 J2J2D2Y2365 J26391947$ 10,ANN KNAUSS,10,25,1948E 11,KATIE KNAUSS,2,23,1981W 999,0,0,0,0k ------------ PRINT.MODULE ------------  T$(1)"SUN":T$(2)"MON":T$(3)"TUE":T$(4)"WED":T$(5)"THU":T$(6)"FRI":T$(7)"SAT":T$(8)" ":K6NE M. PIPER,6,11,19498 3,JACKIE BELLINGER,8,8,1943Y 4,GALE BELLINGER,8,26,1942y 5,GARY RASTEDE,2,24,1946 6,JUDY RASTEDE,9,15,1951 7,HERB VANDEKOP,07,04,1923 8,ELLA MARIE VANDEKOP,12,15,1925 9,RICHARD KNAUSS,9,24,HIS IS A BIORHYTHM FOR ";Z$LZ " WHOSE BIRTHDAY IS ";M1;"/";D1;"/";Y1Td :^n 2210dx  "YOUR RESPONSE IS OUT OF MY RANGE, PLEASE TRY AGAIN." 2550 *** BIRTHDAY DATA LIST *** 1,THOMAS R. PIPER,1,18,1949 2,DIA5)"/";D 2470 J ::"*** END OF LIST (INPUT '0' IF NONE) ***"R :~ "WHICH OF THE ABOVE WOULD YOU LIKE?";X X02070  N,A$,B,C,D N9992680( NX26202 NX2580< Z$A$:M1B:D1C:Y1DF 936:::P "T5N24)V N5(N2100))` N6(N2400)Aj N7N3N4N5N6D21Wt P2N77(N77)1]~ z ***BIRTHDAY ROUTINE*** : 6::"--- THIS IS YOUR BIRTHDAY DATA LIST ---": N,A$,B,C,D N9992530 N;". ";A$; 30)B;32)"/";C;3%"LENGTH OF CHART IN DAYS:";,L6::e :"*** PLEASE TURN ON YOUR PRINTER ***": "==== PRESS 'RETURN' WHEN READY ====";:YN$ $ FIND DAY OF WEEK. N1M212(.61M2)8 N2Y2(.61M2)B N3(13(N11)5)L N4(=RM1$(M1):D1$(D1):Y1$(Y1):BIRTH$M1$"-"D1$"-"Y1$M\Y1992170\fY1Y11900ip25),Y1zM2M1:D2D1:Y2Y12340P1P2"STARTING DATE FOR CHART:";M2,D2,Y2Y2992260Y2Y2190025),Y22340CT$"< VERTICAL CYCLE PLOT PROGRAM >":11003:j"WOULD YOU LIKE THE BIRTHDAY LIST (Y/N)? ";:YN$| YN$"Y"2450:"BIORHYTHM FOR (NAME) ";Z$ :*"ENTER DATES IN THIS FORMAT MM,DD,YYYY"4>11);"BIRTHDATE:";HM1,D1,Y1 PRODUCE YOUR":1100A.CT$"BIORHYTHM CHART ON A PRINTER":1100K8::|B:CT$"PRESS 'RETURN' TO GO ON":1100::YN$L CENTERING ROUTINEV(20(CT$)2)`CT$j:CT$"*** BIORHYTHM PROGRAM FOR APPLE II ***":1100+ON.MODULE 40002  ANOTHER.BIORHYTHM.MODULE< 5000Q  ENDING CREDITS[ 6000a y  -----------------  TITLE.PAGE.MODULE  ----------------- :7 :CT$"*** BIOPLOT.SCRIBE ***":1100: :$CT$"THIS PROGRAM WILL+CT$"CENTERVILLE, IOWA 52544":1100D+CT$"(515)856-3140":1100r+CT$"*****************************":1100x++$I+B8 *I120"*I2(I2)6080(*1*:8_*CT$"*****************************":1100*CT$"YOUR BIORHYTHM CHART WAS MADE":1100*CT$"ESPECIALLY FOR YOU BY":1100*CT$"TOM AND DIANE PIPER":1100*CT$"2030 SOUTH 15TH STREET":1100&:)YN$"Y"ġ:400)M) "*** THIS IS THE END OF THE BIORHYTHM ***"})"********* THANKS FOR THE VISIT *********"))p ------------------)z END.CREDITS.MODULE) ------------------) END OF CHART AUTHOR'S CREDIT*:**********************************"("************ IF YOU WANT TO STORE THIS NAME AND BIRTHDAY, ADD TO THE DATA STATEMENTS STARTING AT LINE 2670 *****"("**************************************"(("ANOTHER BIORHYTHM (Y/N)?";:YN$)NPREDICTABLE (E), OR ERRONEOUS IN JUDGEMENT (I). THESE":"CRITICAL TIMES ARE LISTED ON THE RIGHT SIDE OF THE CHART FOR YOUR REFERENCE. ***"'0:' ---------------------' ANOTHER.BIORHYTHM.MOD' ---------------------''8#("****DEA OF HOW ALL THREE OF THE CYCLES WORK TOGETHER."&:"*** THE CENTER 'CRITICAL' LINE IS MOST IMPORTANT SINCE WHENEVER ONE OF THE CYCLE":"LINES CROSSES IT, THIS FACTOR IS UNSTABLE CAUSING THE INDIVIDUAL TO BE ACCIDENT":'"PRONE (P), INSECURE AND UTAL ALERTNESS,"A%h13)"COGNITIVE POWER AND JUDGEMENT ABILITY."%r:13)"(ALL THREE CYCLES START AT ZERO AT THE MOMENT":13)"OF BIRTH AND CANNOT BE CHANGED IN ANY WAY)"2&|:7)"THE OVERALL AVERAGE (A) IS ALSO SHOWN SINCE IT GIVES A":7)"GENERAL I13)"PHYSICAL IS ASSOCIATED WITH PHYSICAL VITALITY,"\$@13)"ENDURANCE AND ENERGY LEVEL."$J:13)"EMOTIONAL CORRESPONDS TO SENSITIVITY, INTUITION,"$T13)"PREDICTABILITY, DEPENDABILITY AND CHEERFULNESS."%^:13)"INTELLECTUAL IS RELATED TO MEN13)"POSTULATES THAT THERE ARE CERTAIN METABOLIC CYCLES,"t#13)"WHICH HAVE A CONSTANT PERIOD IN THE HUMAN BODY."#13)"WHEREBY THERE ARE THREE (3) CYCLES:"#28)"23 DAY PHYSICAL"#"28)"28 DAY EMOTIONAL"#,28)"33 DAY INTELLECTUAL"5$6:CRITICAL-E";"`," ------------------F" EXPLANATION.MODULE`" ------------------f"w"I119::I""PRINT THE THEORY'S EXPLANATION (Y/N)?";:YN$"YN$"Y"4070""1":26)"< THE BIORHYTHM THEORY >":1785,729#:<< CRITICAL-P";!3680/!O$(26)"E"ī3630H!$" << CRITICAL-PI";R!)3680l!." << CRITICAL-PEI";v!33680!8O$(26)"E"ī3655!=" << CRITICAL-I";!B3680!G" << CRITICAL-EI";!L3680!Q" << CRITICAL-PE";!V3680 "[" << 560 X1  X0 > CRITICAL TITLING ROUTINEj O$(22)"P"O$(26)"P"O$(29)"P"ī3595 O$(23)"I"O$(26)"I"O$(28)"I"ī3640 O$(26)"E"ī3675 3680 O$(23)"I"O$(26)"I"O$(28)"I"3615 O$(26)"E"ī3665!" "*************************!*************************"> 0:g FIND DAYS EXPENDED IN PRIOR MONTHSp J20} I1X1 J2J2F(I) I  CHECK X FOR LEAP YEAR X400(X400)03550 X100(X100)03560 X4(X4)03; H 13M X1 51%R O$(X);-W X7\ 3570=a Rf INCREMENT DATEak P283450mp P2P21|u P27P21z D2D21 D2F(M2)D21:M2M21 M2133470 M21:Y2Y21 XY2:F(2)28 3530 F(2)F(2)X O5 13)(X)"-" X O$(26)"!"& Y0H X((K(O23(O23)))25)26V O$(X)"P"` YYX X((K(O33(O33)))25)26% O$(X)"I"* YYX/ X((K(O28(O28)))25)264 O$(X)"E"9 Y(YX)3> O$(Y)"A"C T$(P2);2);M2;"/";D2ARE DISPLAYED IN A"fm(2):(1);"'3-D' PERSPECTIVE. ";:(0);"T";:(1);"HE ";:(0);"'X','Y','Z',"m(2):(1);"AXES MAY BE ROTATED, AND THE SCALE"m(2):(1);"MAY BE CHANGED BY PRESSING THE"m(2):(1);"APPROPRIATE KEY."nI236:(12):(2):(1);"AT SOME POINT WITHIN THE CRYSTAL."ml(24):(8):(0);"P";:(1);"RESS TO CONTINUE";:H$lH$(27)695lCLR%:600lCLR%:TXTGEN%l(5):(5):(0);"T";:(1);"HESE 6 CRYSTAL SYSTEMS AS WELL"m(2):(1);"AS THEIR AXES 0);"T";:(1);"HESE 32 CLASSES"Lk(2):(1);"MAY BE GROUPED INTO 6 MAJOR"k(2):(1);"DIVISIONS CALLED 'SYSTEMS'. ";:(0);"S";:(1);"YSTEMS"k(2):(1);"ARE BASED ON THE ARRANGEMENT OF"k(2):(1);"3 OR 4 IMAGINARY AXES THAT INTERSECT"/lERNAL STRUCTURE"";:G$h'G$(65)C0:CLR%:10h(G$(66)C3:CLR%:10h)G$(67)C4:CLR%:10h*G$(68)C6:CLR%:10i+:(0);"(B)"Ng :(7):(0);"M";:(1);"ONOCLINIC.............";:(0);"(C)"g:(7):(0);"O";:(1);"RTHORHOMBIC...........";:(0);"(D)"g:(7):(0);"T";:(1);"ETRAGONAL.............";:(0);"(E)"h:(7):(0);"T";:(1);"RICLINIC........34f GET A SHAPE TO DRAW*fTXTGEN%df(3):(7):(0);"C";:(1);"HOOSE FROM THE FOLLOWING"f(7):(1);"CRYSTAL SYSTEMS..."f:(7):(0);"H";:(1);"EXAGONAL..............(";:(0);"A)" g:(7):(0);"I";:(1);"SOMETRIC (CUBIC)......";0.ej(2):(31):(1);"SCALE=";SCALE%(C);2)ZekX%(C)225X%(C)225:X%(C)50X%(C)50elY%(C)100Y%(C)100:Y%(C)50Y%(C)50em(4):(8):(0);"(M)";:(1);"ENU":(4):(19):(0);"(I)";:(1);"NFORMATION"enCRNCH%:CRNCH%esCODE%(C)2fxC)YROT%(C)1:YROT%(C)27YROT%(C)0[da(2):(11):(1);"YROT=";((YROT%(C)13.85));2)ddK90ZROT%(C)ZROT%(C)1:ZROT%(C)27ZROT%(C)0dg(2):(21):(1);"ZROT=";((ZROT%(C)13.85));2)eiK83SCALE%(C)SCALE%(C)1:SCALE%(C)12SCALE%(C) HEREc<16368,0-cAK(16384):K12770?cC16368,0:65EcFecWK73Ĺ16368,0:CLR%:1100cXK77Ĺ16368,0:CLR%:500cZK88XROT%(C)XROT%(C)1:XROT%(C)27XROT%(C)0c\(2):(1):(1);"XROT=";((XROT%(C)13.85));2)&d_K89YROT%(AGONAL>";bC5Ģ(24):(15):(0);""JbCODE%(C)1obX%(C)140:Y%(C)100:SCALE%(C)10bXROT%(C)0:YROT%(C)0:ZROT%(C)0bb CRNCH%:CRNCH%b!CODE%(C)2b"(16287)12755:(16286)12755c7 KEYBOARD MOVES STARTGEN%7aC0Ģ(24):(15):(0);""jaC3Ģ(24):(15):(0);""aC4Ģ(24):(15):(0);""aC6Ģ(24):(15):(0);""bC2Ģ(24):(15):(0);"u(2):(1);"TO THEM."}u(2):(0);"E";:(1);"XAMPLES: QUARTZ, CALCITE, APATITE,"u(2):(1);"AND HEMATITE."uC9: JUST A REMINDER!!u1900u TETRAGONALuCLR%uTXTGEN%+v#(5):(5):(0);""HERE ARE FOUR AXES,"Et(2):(1);"THREE OF WHICH ARE IN THE SAME"wt(2):(1);"PLANE SET AT 60 DEGREE ANGLES TO"t(2):(1);"ONE ANOTHER. ";:(0);"T";:(1);"HE FOURTH AXIS MAY BE"t(2):(1);"SHORTER OR LONGER THAN THE FIRST"$u(2):(1LOWSsC7C3sC8C2+sC9C09sC10C6GsC11C4UsC12C5]s10ms HEXAGONALysRESET%sCLR%sTXTGEN%s(5):(5):(0);"HEXAGONAL: ";:(1);"CRYSTALS THAT HAVE"t(2):(1);"EIGHT SIDES. ";:(0);"T";:(1);INUE"*r;Q$:Q$(27)ČRESET%:CLR%:600:rGCLR%:1000UrL INFORMATION AND AXESarMRESET%prNC0ī1200rPC2ī1300rRC3ī1400rTC4ī1500rVC5ī1600rXC6ī1700r~ CHANGE AXES NUMBER TO OBJECT NUMBERsRESET%: OBJECT# FOLLCUBE(#3)qCODE%(13)1@qX%(13)125:Y%(13)125:SCALE%(13)11PqXROT%(13)5`qZROT%(13)0qqYROT%(13)15qCRNCH%:CRNCH%q$CODE%(13)2q'D0q)I027q.ZROT%(13)Iq3CRNCH%q8Ir:(24):(8):(0);"P";:(1);"RESS TO CONT8):(0);"P";:(1);"RESS TO CONTINUE":E$IpE$(27)ČCLR%:500XpCLR%:500^p wp TITLE PAGE ROUTINE}ppTXTGEN%p(4):(12):(0);"CRYSTAL SYSTEMS"p:(18):(1);"BY"p:(14):(0);"BOB RIDDLE"q  SET UP DEMO WITH ";:(0);"S";:(1);"YSTEM & ";:(0);"G";:(1);"AME ";:(0);"T";:(1);"OOL,"o(2):(0);"C";:(1);"OPYRIGHT 1980, ";:(0);"C";:(1);"ALIFORNIA ";:(0);"P";:(1);"ACIFIC"o(2):(0);"C";:(1);"OMPUTER ";:(0);"C";:(1);"O."0p(24):((I):(2);"":I6nI6353:(13):(I):(2);"":Iyn(15):(5):(0);"3-D";:(1);" EFFECTS AND ANIMATION CREATED"n(2):(1);"WITH THE USE OF ";:(0);"B";:(1);"ILL ";:(0);"B";:(1);"UDGE'S ";:(0);"3-D"Qo(2):(0);"G";:(1);"RAPHICS $%&'()*+$%&',-./0123,-./456789:;4567<=>?@ABC<=>?DEFGHIJKDEFGLMPRSVXYZ^`adfgjlmprstrrsturstuN$" "VSELV21:1060 " ";:50,63192(LOCK$" "):FILE$;::" ";::N$;::N$" "Ė38:"." : $VSEL0VSEH@(22222222κ2222((((2222((((22((X1:VX442::V21:1 0LOCK$" ":0,V)10LOCK$":" b1,V)1FILE$"]" 1,V)2FILE$"*" 1,V)9FILE$">" `    222 2 ((H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH(x   (2\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~&@ BB<~B > `B@0ee|*(,>@ >>>***>"6*""">$ 88>>>>*>><> ?:{>76`Hɍh%J) +%j )* * (je$*h)H'hH*&'*&'*&'&'i'&H**+I`+h**+i+$$! $%%#"%h`Hɍ)@MH)h)pJJJJHh h` h`LLLL`ª`LQLY8LXLeL        ČCLR%:500%(222)90ČCLR%:500w******************** *****BOB RIDDLE***** ********1981********M***(1);"SCALE=";SCALE%(C);2)d(24):(8):(0);"P";:(1);"RESS ";:(0);" ";:(1);"TO RETURN"xCRNCH%:CRNCH%CODE%(C)21935ERROR TRAP(222)254ČCLR%:500ׂ(222)255ČCLR%:500(222)11ČCLR%:500 (222)15((XROT%(C)13.85));2)NK89YROT%(C)YROT%(C)1:YROT%(C)27YROT%(C)0(2):(11):(1);"YROT=";((YROT%(C)13.85));2)K90ZROT%(C)ZROT%(C)1:ZROT%(C)27ZROT%(C)0(2):(21):(1);"ZROT=";((ZROT%(C)13.85));2)(2):(31):CRNCH%:CRNCH%"CODE%(C)2N(16287)1271940:(16286)1271940\16368,0xK(16384):K127194816368,0:1945K82Ĺ16368,0:CLR%:1150〣K88XROT%(C)XROT%(C)1:XROT%(C)27XROT%(C)0(2):(1):(1);"XROT=";(1);"SET AT RIGHT ANGLES TO ONE ANOTHER."l(2):(0);"E";:(1);"XAMPLES: OLIVINE, TOPAZ, AND SULFUR."C10:JUST A REMINDER!!1900l AXES ROTATIONqCODE%(C)1vX%(C)145:Y%(C)140:SCALE%(C)10XROT%(C)0:YROT%(C)0:ZROT%(C)0INDER!!~1900$~ ORTHORHOMBIC.~CLR%;~TXTGEN%|~(5):(5):(0);"ORTHORHOMBIC: ";:(1);"CRYSTALS THAT HAVE"~(2):(1);"SIX RECTANGULAR SIDES. ";:(0);"T";:(1);"HE THREE"~(2):(1);"AXES ARE OF UNEQUAL LENGTH AND ARE"+(2): C8Ii<=?0>e<=>=>DDLWCFL`>e=<><>DDLEe8 F`I E  C8Ii<8Ii=p><=<->e<=>=>DDLlCFL`>e=<><>DDL E      !$'*-0  $(,048<@ #(-27:2(PNH?2#`^VK<*ĵpmeXF1Ϻ8Pds}1FXemp*@ &+/0         i k k k i k k k?h L? ?>?ɍH) @ { ?hC5$,4?ɍH) @ { L24  #"! %&'$)*+(()*+-./,1230012356749:;889:;=>?:CBCAK41EH"YOU ARE AT.....LEVEL 1"IER440:440:440:440SE\1070qEf"YOU FOUND YOUR WAY ..."Ep"...OUT OF THE ALGEBRA DUNGEON"EzE"YOU HAVE AQUIRED ";G;" PEICES OF GOLD"E930E1910EGGG100: RATING FR((GGC)2DA12DN1S+DX((1)81)=DY((1)81)LDA(X,Y,A)9SDNZDA`DoD STAIRWAY{DL1L11D"YOU WALK UP THE STAIRWAY"D 440D"THE ENCHANTED KEY....OPENS THE LOCK"D 440D*L10870E4MA0:K0:K4((1)4 2 LEVEL DUNGEONCX18&CY181CZ12JCA(X,Y,Z)((1)71)QCZXCY_C&XsC0 TRAP DOORS #8C:H((1)31)CDA12CNN1HCXX((1)81)CbY((1)81)ClA(X,Y,A)8CvNCAC STAIRWAYS #9DS((1)41LGEBRA DUNGEON...LEVEL 2"BhFBr"YOU WILL ENCOUNTER MONSTERS AND"kB|"THIEVES, AND GOLD...BUT WATCH"B"YOUR STEP.........."B"TRAP DOORS CAN BE COSTLY...."BAB14540BABB1010B DELAYBZ21908BZ2BC SET UPA:+AMA0:CA0:G1000:M11:K0:TR0NA"ENTER YOUR CHARACTER'S NAME"VAA$_A440A:"YOU CARRY 1000 PIECES OF GOLD WITH YOU"A":440:A$;"...YOU ARE ON YOUR WAY"A,440A6480A@AJ"YOU HAVE ARRIVED AT...."ATB^"THE A@V16336@ B$""@dB@n" THE APPLE DUNGEON"b@x:" APPLE II"@:::"A FANTASY GAME FOR THE PRE-ALGEBRA CLASS"@440@440@:A(9,9,2)@" YOU WILL BE TELEPORTED TO..."@A"THE ALGEBRA DUNGEON"          9`   ` @)?WRP`kiliFGtuki/likiVliki}li}~kiliki˪likilikiliki@li`e8rde.?r.?̥)}))}Ce8FL` 9 0%`8J E0 FE 8׭ 0V`}`/`V```<`=8J E FE 68ea8@aLo 0'`8J E0 FE 8L   CL)?)@)A)B?@}AB88}?@y}Le)?)@)A)B?@}AB88}?@y}L)?)@)A)B?@}AB88}?@y}L)T@ U & .`Ee)@ EZ\ I^x 9N =R<c)ec@ \ x  =)@ \ x    +Q Y`4330Yj3800(Yt3840:XPYQ?Y~"X = ";P;"Y + ";QfY:"IF Y = ";Y;" THEN SOLVE FOR X"pY:A1YA1X3780Y LOSE GOLDY4000YY3900YY"YOU MAY NOT PASS THRU UNTIL"Y"YOU SOLVE THIS EQUATION FOR X"YZ480X H1:O9:W8$X B0:E5:R141X C0:PR0;X 1010HX Y=PX+QRX 4330\X 3800lX 3840:YPXX "Y = ";P;"X + ";QX:"IF Y = ";YQ;" THEN SOLVE FOR X"X:A1XA1X3650X$ LOSE GOLDX.4000X8XB3900XLYV X=PY FOR X"W :A1 W A1X33500W LOSE GOLD:W 4000@W JW 3900PW ]W* Y=PX-QgW4 4330qW> 3800WH 3840:YPXWR "Y = ";P;"X - ";QW\ :"IF Y = ";YQ;" THEN SOLVE FOR X"Wf :A1Wp A1X3470Wz 4000W W 3900W X TAIRWAY"V "......GOING UP"$V *V 6V& "O ";NRQ18N\N18NfCNDQĺ"P1 ";:2180NpS1A(N,Q,L1)OzS13110,3110,3130,3130,3150,3170,3190,3210,3220Ml930 Mv"M"ANOTHER GAME?"?M"ENTER '1'-YES '0'-NO"GMAAWMAA11970bM:210vM(4)"RUN MENU"M:"YOU ARE AT THE NORTH WALL"M"YOU CANNOT PASS THROUGH"MM"TRY ANOTHER DIRECTION?"M1120N:"YOU ARE AT THE EA ONLY GO NORTH OR SOUTH""L17502L GOLD ZERO@L&440:440FL0[L5:I110:B$:IL:"YOU LOST ALL YOUR GOLD AND YOU WERE"LD"...UNABLE TO MEET THE DEMANDS OF"LN"....THE ALGEBRA DUNGEON..."LX:Lb"YOU CAN ONLY GO NORTH OR SOUTH":"YOU HAVE ";G;" PIECES OF GOLD WITH YOU"9K:1120KK EW CORRIDORQK{K:"YOU ARE IN AN EAST-WEST CORRIDOR"K"YOU CAN ONLY GO EAST OR WEST"KK1120K NS CORRIDORKK:"YOU ARE IN A NORTH-SOUTH CORRIDOR"L"YOU CAN80JK17506J:"YOU CANNOT GO UP THE STAIRWAY"TJ"YOU DON'T HAVE THE KEY"]J440iJ":1120J,"YOU ARE NOT AT A STAIRWAY"J6440J@1120JJ: MAPJTMA12090J^"YOU DON'T HAVE THE MAP"Jr:440J|1120J GOLD PIECES-K THE OPTION":"OF SPLITTING THE CARDS INTO TWO HANDS":"AND THEN PLAYS FROM THERE. THIS MAY""ONLY BE DONE ON THE FIRST TWO CARDS.":"BOTH OF THESE SPECIAL RULES ARE ALLOWED":"ONLY IF THE PLAYER HAS THE MONEY TO":"COVER THE BETS."4000{":"PLAYER. HE MAY DOUBLE HIS BET AFTER HE":"HAS SEEN THE FIRST TWO CARDS OF A HAND.""HOWEVER, IF HE DOES SO HE MUST TAKE ONE,";:"AND ONLY ONE, MORE CARD AFTER THAT.":]"IF A PLAYER IS DEALT A PAIR AS THE FIRST";:"TWO CARDS OF A HAND, HE HASF YOUR":"BET. IF YOU TIE, YOU PUSH (NEITHER WIN":"NOR LOSE.)"J`4000Pjt" THE DEALER WILL DRAW UNTIL HE HAS 17":"POINTS. HE WILL HIT 17 IF AN ACE HAS":"BEEN COUNTED AS 11 POINTS IN THAT HAND."W~:" THERE ARE TWO SPECIAL RULES FOR THE BET. IF":"YOU GET A BLACKJACK, YOU WIN ONE AND ONE";:"HALF TIMES YOUR BET. IF YOU CAN GET"L"FIVE CARDS WITHOUT BUSTING, IT WILL":"COUNT AS A BLACKJACK. IF THE DEALER":"BUSTS OR HAS A LOWER POINT TOTAL THAN"@V"YOU, THEN YOU WIN THE AMOUNT O A TIME UNTIL HE HAS MORE THAN 21":"POINTS OR WANTS TO STAND WITH THE POINT":"TOTAL THAT HE HAS. POINTS ARE COUNTED" 8"AS FOLLOWS: ACE -- 1 OR 11 POINTS":15:"FACE -- 10 POINTS":15:"OTHER -- NUMBER VALUE":_B" IF YOU BUST, YOU LOSE YOUR:"RULES OF PLAY:":::34,2q " THIS BLACKJACK GAME IS LIKE MOST":"OTHERS. EACH PLAYER IS DEALT ONE HAND." $"THE PLAYER MUST PLACE A BET BEFORE THE":"FIRST CARDS ARE DEALT. AFTER THE FIRST":"TWO CARDS, EACH PLAYER MAY DRAW ONE CARD";w ."AT,Y :3000 D51.5OF195,Y& NY7 XX191834I b51.5OFX,63S l3000e v51.5OFX,63l X{ Y67954 51.5OF83,Y 3000 51.5OF83,Y Y 490  * CONTINUE PROGRAM * A$ A$; A$"N"1280 ::Y63954 5283,Y Y> 22:25:"BY DARREL RAINES"h "DO YOU WISH TO SEE INSTRUCTIONS? "; 28672,1:28673,60:ER0 OF.5 OFOF X871954 51.5OFX,95 3000 51.5OFX,95 X &Y91634 051.5OF1959,Y199,Y Y 7" I08* LT@ "LT100(I10),79G ,Ih 6 24,34,23,25,33,32,23,25,33 @79,99199,99199,5979,5979,99 JX831954 T52X,95 ^X hY95634 r52195,Y |Y X195834 52X,63 X  d:3n(4);"BLOAD CARD.SHAPE.TABLE,A$6000"Xx(4);"BLOAD TONE SUB.OBJ,A$300"k232,0:233,96u1:03500:202,(78):203,(79)I5101X((1)255)Y((1)130)CDI:2000I4Y5999 7     LT...I AM THE KEEPER"3^"OF.............ALGEBRA";^:F^ X=PYP^4330Z^3800j^&3840:XPY|^0"X = ";P;"Y"^:3720^D X=PY-Q^N4330^X3800^b3840:XPYQ^l"X = ";P;"Y - ";Q^v3720 V]"MOST OF YOUR GOLD."F]"YOU HAVE...";G;" PIECES OF GOLD LEFT"L]{]"YOU ANSWERED ";CA;" QUESTIONS CORRECTLY"]"OUT OF ";TR;" QUESTIONS ASKED,":".....IN ";M1;" TURNS."]]"THE DOOR CLOSES AND LOCKS BEHIND YOU":440]^"HA5:B$:I:"YOU HAVE FOUND THE ENCHANTED KEY..."8\440>\"m\,"YOU DISTURBED A MONSTER IN THIS CHAMBER"v\6440\@"AND HE SPEAKS.............":\J440\T\^4100\h1200\rCACB4090\|\G100:440:]"YOU..........DROPPED"ACA1:K1ı[L114210,[CAK440902[8[T[I1225:Q(V)(V):Ie["INCORRECT"["THE CORRECT ANSWER IS ";X[[G4((1)350L11)[GGG4[440["YOU LOSE ";G4;" PIECES OF GOLD"[[440[K1/\:I1Z RANDOM ROUTINE@Z X((1)50L11):P((1)50L11)hZY((1)50L11):Q((1)50L11)qZ440zZ(440Z2Z<"CORRECT"ZFG4((1)400L11)25ZPGGG4ZZ440Zd"YOU WIN ";G4;" PIECES OF GOLD"ZnA(C,D,L1)1 [xC);", ";,4PT(IN)PT(2)ĺ"YOU WIN!!":3700Q>PT(IN)PT(2)ĺ"YOU LOSE!":3040}HPT(IN)PT(2)ĺ"YOU PUSH...":WL0:3050RL,PL\4fI04p1880(I28),18z1880(I28),531880(I28),901880(I28),125II042)17)(AC(2)0)710&PT(2)167307I12000:ISY60K15:4000:NDND1ZK(PT(2)21)(AC(2)0)PT(2)PT(2)10PT(2)21İ3000:770ND5İ3300PL0NP1 L0SP(PL)INPLL3 BT(IN)0850*:22:10:N$(PLBT(4)0)8606lSD(NC1)CD(5):SD(NC2)CD(2):NCNC2_vX238:Y30:IN2:PL2:PT(2)0:AC(2)0t4:18238,45:74000:YY15:4000:ND2PT(2)21ND5:740K02PT(2)21PT(2)PT(2)((AC(2))10):AC(2)AC(2)1:AC(2)0730(PT(8 A$"H"X136(J28):Y18(K72)L35:4000:NDND1? JG 16a 5360,43(K72)L35h 0 &(PT(IN)21)(AC(IN)0)PT(IN)PT(IN)10 0PT(IN)21İ3000:580 :ND5İ3300 DLL1:290 NK X b(BT(0)0)(BT(1)0)(BT(3)0)(SPLIT P)AIR";/ 24:1:"ENTER OPTION--";:A$ (A$"D")CJ2:A$"S":X136:Y18(K72)L35:4000:X60:Y33K72L35:ER1:VL$(BT(IN)):6000:ER0:BT(IN)BT(IN)2:VL$(BT(IN)):6000 C(SP(K).1)(A$"P")İ8000:510 (A$"S")(A$"H")460J02O |PT(IN)21PT(IN)PT(IN)((AC(IN))10):AC(IN)AC(IN)1:AC(IN)0510_ A$"S"510e  :N$(K);:15::"YOU MAY: S)TAND" 25:"H)IT" C(J0)(MN(PL)(BT(PL)BT(PL3)BT(IN))) CĖ25:"D)OUBLE DOWN" C(SP(K).1)Ė25:"1000 2000#  * PLAY LOGIC *1 K0NP1F PLK:SP(K)0:L0W "LSP(K)590f ,A$"":ND2n 616 @5360,43(K72)L35 J0 TINPLL3 ^PT(IN)21ND5:520 h(CD(PL)(CD(PL)13)13)(CD(PL3)(CD(PL3)13)13)SP(K).1 r(A$"1")(A$"2")160' :NP(A$)} 17:"INPUT A MAXIMUM OF NINE CHARACTERS FOR":"EACH PLAYER--> ";:"#1: ";N$(0) NP2Ė18:"#2: ";N$(1) I01 (N$(I))9N$(I)(N$(I),1,9) I MN(0)1000:MN(1)1000:R1(78):R2(79) d * BY DARREL RAINES *9n * LAST UPDATE 8/4/83 *Kx28928:34,20g9:16::"BLACKJACK":11:12:"BY DARREL RAINES"OD(51),SD(52),N$(1),PT(4),AC(4),MN(1),BT(4),CD(5),SP(1),FE(1),LN(1) 14:5:"HOW MANY PLAYERS (1 OR 2)? ";:A$:     ,1& 83,1,74,1,66,2,88,1,74,2,83,6J 83,1,74,1,66,1,83,1,74,1,66,2n 83,1,74,1,83,1,66,1,83,1,74,1 66,2,83,1,74,1,83,1,66,1,83,1 74,1,66,2,88,1,74,2,83,6D3,1,83,7,74,1,70,1,66,1,83,1A 74,1,66,2,88,1,74,2,83,6,149,1i 141,1,133,1,83,2,133,1,83,2,133,1 83,7,99,1,111,1,118,1,99,1,83,1 66,2,74,1,83,1,99,1,74,2,224,2 199,2,149,1,141,1,133,1,83,2,133,1 83,2,133,1,83,7,74,1,70,1,66710000 ER0ćN1,N2:28674,N1:28675,N2:7686 N * ERROR ROUTINE *W ER1b 216,0h  * PAUSE UNTIL SPACE BAR *24:9::"";:A$:A$" "4020 149,1,141,1,133,1,83,2,133,1,83,2 13 LUCK..."4000:! =(4);"RUN BLACKJACK.2"C_ * CARD DRAW ROUTINE *k18X,YSU(CD13):NUCD(SU13)4(SU2)14SUX12,Y257 1NUX5,Y5 * CHECK FOR KEYBOARD INPUT * (49152)12TO BET MORE THAN YOU HAVE.":L" IF YOU DO LOSE ALL OF YOUR MONEY, YOU""MAY BORROW ANOTHER $1000 FROM A GROUP OF";::"LOAN SHARKS";::". THESE BOYS PLAY ROUGH SO":"WATCH OUT";::".": " ENTER 0 AS A BET TO QUIT THE GAME.":"GOOD" YOUR GRANDMOTHER HAS GIVEN YOU $1000":"WHICH YOU ARE STARTING OFF WITH. SHE":"WOULD LIKE THE MONEY BACK WHEN YOU""FINISH. SO DON'T LOSE IT ALL!!"::"YOU MAY BET ANY AMOUNT MORE THAN $5 AND":"LESS THAN $500. YOU WILL NEVER BE":"ALLOWED      35:VL$(BT(IN)):60004INPL:PT(IN)21ND5:J2:Q(# * END PROGRAM *]2#::21k<#N0NP1F#MN(N)MN(N)1000LN(N):A$" LOST "P#MN(N)0A$" WON "Z#MN(N)(MN(N)):N$(N);", YOU";A$;"$";MN(N);"."d#Nn#:(4)"RUNMENU"NI !@ * SPLIT PAIR *WJCD(PL)52:PT(IN)PT(IN)2AC(IN)4.5:SP(K)1:J1qT4:18108,18K72:7^X108:Y18K72:4000hSD(NC1)CD(PL3):NCNC1rX80:Y18K7235:INPL3:4000|X108:4000BT(IN)BT(PL):X60:Y33PL72BT(I1)MN(I1):7080G:22:N$(I1);", WHAT IS YOUR BET (0=QUIT)?"^17:"-->";BT(I1)(BT(I1)500)((BT(I1)5)(BT(I1)0))(BT(I1)MN(I1))ĺ"":7050BT(I1)09000X60:Y33(I1)72:VL$(BT(I1)):6000R1(78):R2(79)I1)0)(FE(I1).95)9000vMN(I1)0FE(I1)FE(I1).05:LN(I1)LN(I1)1000:MN(I1)1000:::"I HAVE LOANED YOU $1000, BUT WILL TAKE ";FE(I1)100;"% OF YOUR WINNINGS FROM NOW ON...":J13000:J:X36:Y50(I1)72:VL$"1000":6000MN(I1)509b28674I2,40I3*l28675I2,11vI:768@^p * VALUE PRINT ROUTINE *kzER1Ē4yLS(VL$)N0LS1LT((VL$,LSN,1))LT2LTLT49LTXN7,YN7X * BET INPUT *bI1NPl(MN(AL CARD SOUND *:28672,1:28673,32:28674,255:28675,1C768I^ * BUST SOUND *v28672,10:28673,16I0164:28674I,205:28675I,1:28676I,200:28677I,1:I768D * BLACKJACK SOUND *N28672,10:28673,16XI(IN)AC(IN)1$PT(IN)PT(IN)NU10NCNC1@"I1100:IF,f * SHUFFLE DURING A HAND *l22:10:"I NEED TO SHUFFLE..."I12000:I230,64:62450:49237,0:49234,0102049236,0:49235,0:230,32 * DEL1.5 3050%t * REGULAR WIN *.~WL183050T * CARD DRAW ROUTINE *eNC1İ4500q18X,YSU(SD(NC)13):NUSD(NC)(SU13)4(SU2)14SUX12,Y2571NUX5,Y55000NU9NU9 NU0NU10:AC36:Y50PL72:VL$(MN(PL)):6000` MN(PL)MN(PL)(BT(IN)WL)(WL0)(BT(IN)WLFE(PL).99)} ER0:VL$(MN(PL)):6000 BT(IN)0 I12000:I&  * BLACKJACK * :22:14:"* BLACKJACK *" 5700 PL2PT(0)0:PT(1)0: W:IN1:4000:CD(4)SD(NC1)!2 4B< 238,47240,44261,44263,47IF 7rP X238:Y45:IN2:4000:CD(5)SD(NC1)xZ  BUSTED :22:15:"* BUSTED *" 5300 PL2PT(2)0: WL1 ER1:X60:Y33PL72L35:VL$(BT(IN)):6000" XLRTN I04# PT(I)0:AC(I)0* I4 7000\ X80:Y18:IN0:4000:CD(0)SD(NC1) NP2X80:Y90:IN1:4000:CD(1)SD(NC1) NC1İ4500 18238,30:CD(2)SD(NC):IN2:4080 X108:Y18:IN0:4000:CD(3)SD(NC1)( NP2X108:Y90RLT230(I8),22\I'fJ0NP1MpX36:Y50J72:VL$(MN(J)):6000azI0(N$(J))1zLT((N$(J),I1,1))(LT65)(LT90)LT93LT427(I8),22(J72)I,J 24,34,23,25,33,32,23,25,33 26,27,23,34,27,40 1STDEANE * :7!220,14220,1598NP2ē0,86220,86f0,00,159279,159279,00,0:0,14279,14qI08y LTLT100(I10),8 I*I0755:I,0I7,14:I,14I7,0:I4I1972725:I,0I7,14:I,14I7,0:I>I05HLT((1)52)OD(NU)011502OD(NU)0:SD(I)NUF5210(I5),50kNU(16336)(16336)(16336)(((I1)13)((I1)13))0Ĕ13(I1)13(I5)15,100II1500:I:NC51: 41,30,43,28,28,34,31,36,29 * INITIAL DEAL ROUTI18238,90(I15)I$732500:260M * SHUFFLE ROUTINE *S\7:gI08oLTLT100(I10),20$I.1685380,19B48L53200,19V0`202,R1:203,R2jI051:OD(I)1:ItI051 ~NU@ Of???[ff X [   Z L?@3-D TIC TAC TOE /@  Z Lf@CREATIVE COMPUTING S@  Z L@MORRISTOWN, NEW JERSEY z@  oZ L@WITH GRAPHICS BY DAVID STORM @  L@DO YOU WANT INSTRUCTIONS?(Y/N)            !!! ! ! ! ! !!!!}3 10:7::"LOADING THREE-D TIC TAC TOE"9|(4)"BLOAD RUNTIME"(13)(4)"BRUN THREE-D TIC TAC TOEOBJ" SpOȹpPȹpQȹpRN ,NO`QPQ R`0QL9+%?,%?,m8??g--? ,<.>.>.>+.?<,<,<,< --.>.>.6-..%'%'%'%'--557?7-757??< <,< --.:'-<'-<'-<'- 8???J$$$56667??<,<,<,<,R,,<,<,<;.>.>...6?n$$$,6666$$$$5666->5'%%g-,$,''<2:'-<'-<''<, .$,6I???,,,,,,<,??:?(<,<,,566%$$$<56-$%7:?g'%'%'%'--5575757-???,<,<,<,< --?76>$$,<,----5757??<,<,<,< --. 6.$$$$76>?'$<6666%$I???L-<'-<'-<'- 8???5-%%'%'%'-8?0..%'%'%'%'mI77776I???,<,<,<,< 6.$$$$5>8> 666>$$$$)6.$$$$76>''0666>$$$$J57??<,<,<,< --.>.>.--8-----------m -5??7-m -5??7--m --5????7---m ---5??????7----m ----5????????7-----m-----5??????????7------------???????????----------+ %'%'%'''>>.>.>.-757??'%'%'%'--5575I7??%'%'%'%--.??7---M MM --5?????????.----MI)---5????????????.-----------???????????-------------m ---5????7--m --5??7--m --5????7---m ---5??????7----m ----5????????7-----m-----5??????????7------------???????????$$6666666666666---mIII--->??;??7--mIIII)-5???.-mIIIII-5???.-mIIIII-5???.--M m)M -->?????????.----MI)---5????????????.-----------???????????--------------MII---5?????????.--mIMM --5????7--MIIII -5???.-mIIIII-5??666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666. $$$$$$$$$$$????---m---??????--m--????-m-??m"$$$$$$ H9;--M)-??????---m---5??????7---m---5??????7---m---5??????w--- ---????w-- --??w- -w 666666666666v$$$$$$$$$$$$$d66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666?$$l66*.%%'%'-8?*?(<,<,,-.>.>6-..>'%'%'m577$$$$$$$m-??-m--????--m---??????.--m---5??????.--m---5??????-m M-;m-$$$$$$-?- -5??.m-;-mi-????--- ---5??????.--m---????-mi-m-"$$$$$$