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`eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                        ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ  JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ`        Ӎ ``JJJJJJJJJJJJJJJJJJJJ       ٍ       ٍ      ٍ   ٍ      ō        ٍ           ō           ō               ō      ō   ΍          ΍      Ӎ    Ӎ  Ӎ        ٍ                  ٍ                     ččōč AND ONE SEQUENTIAL FILE. AS YOU"a0"ADD MORE DATA, YOU WILL NEED MORE DISK":"STORAGE SPACE."0:"THE RANDOM ACCESS FILES ARE CALLED ROOM1, ROOM2, ROOM3, ETC."0P21:"HIT RETURN FOR THE MENU ";R$:30IN RESOURCE FOR THIS PROGRAM."[/::" **** ";::"TO USE THE PROGRAM";::" ****"/9:"LOAD THE PROGRAM AND SAVE IT TO A BLANK":"INITIALIZED DISK (OR ONE WITH LOTS OF":"ROOM ON IT)."!0:"THIS PROGRAM GENERATES 12 RANDOM ACCESS":"FILES ED TO BE 6 CHARS. OR LESS, HOWEVER.)".:"IF YOU FIND A BUG IN THE PROGRAM, I WOULD REALLY APPRECIATE KNOWING ABOUT IT.".:"HIT RETURN ";R$:/:4::"APPLE BASIC: DATA FILE PROGRAMMING";::",":"A BOOK BY FINKEL AND BROWN, WAS MY MAR IS IN SLOT #1."l-:"IF YOU WANT A PRINTOUT OF THE VARIABLES":"LIST, TYPE 'PR#1' AND THEN 'RUN 1300'."%.:"YOU COULD CHANGE THE NAMES OF THE ROOMS BY CHANGING THE DATA STATEMENT AT LINE 1530, AND THE ROOM NAMES IN LINES 11 THRU 14. (THESE NE:"JILL MITCHELL":3,:14:"PHONE 513-531-4010"],22:"HIT RETURN TO CONTINUE ";R$:,:"THIS PROGRAM WILL HELP YOU FIGURE OUT THE VALUE OF YOUR PERSONAL PROPERTY.,:"ALL YOU HAVE TO DO IS ANSWER QUESTIONS."-:"I ASSUME YOUR PRINTER(X):T(X):RV(X):T(13)T(13)T(X):RV(13)RV(13)RV(X)=+U+999:T(13):RV(13)e+D$;"CLOSE"+"TOTALS UPDATED AND SAVED"+:"HIT RETURN FOR MENU ";R$+30++:6:10::"HOME INVENTORY PROGRAM":+10:20:"BY",15:14:X;",R0"*R(X):T(X):RV(X)]*D$::"RECORD # ";R1;" OF ";ROOM$(X);" HAS BEEN DELETED."*:10:"HIT RETURN TO CLOSE";R$*3000*"UPDATE TOTALS BEFORE EXIT "*T(13)0:RV(13)0*D$;"OPEN TOTALS"*D$;"WRITE TOTALS"*X1127+T(X)C:RV(X)RV(X)RV4)JN$"DELETED":C0:RV0:D0S)TD$;"WRITE ROOM";X;",R";R1e)^N$:D:C:RVm)cD$)hG$;G$;G$:" DO ANOTHER ONE ? ";R$)mR$"N"4230)rR$"Y"Ą"SAME ROOM? ";R$:R$"Y"4098)|R$"N"4200)*D$;"WRITE ROOM";? ";R1b(R1R(X)ĺG$:G$:"ERROR--THERE AREN'T THAT MANY RECORDS":::"HIT RETURN ";R$:4000(D$;"READ ROOM";X;",R";R1(N$:D:C:RV(D$(""DATA IS ";N$;", ";D;", ";C;", ";RV(,"STILL WISH TO DELETE? ";R$(6R$"Y"4300)@T(X)PRESS 'M' FOR MENU OR 'C' TO CONTINUE)";:"";R$>'R$"M"30P'R$"C"4000m'"WHAT ROOM NUMBER ";X'X1X12ĺ"TRY AGAIN":4060'D$;"OPEN ROOM";X;",L43"'D$;"READ ROOM";X;",R0"'R(X),T(X),RV(X)'D$(:"WHAT RECORD NUMBER HIT RETURN ";R$:3000&I&:10::" DELETE DATA ":34,5&::"YOU MUST KNOW WHICH ROOM AND WHICH RECORD NUMBER YOU WISH TO DELETE."&:"YOU CAN STOP HERE AND GO READ INVENTORY TO FIND THE RECORD NUMBER IF YOU WISH?"/':"(% D$;"WRITE ROOM";X;",R";R10% N$:D:C:RV8% D$a% G$;G$;G$:" DO ANOTHER ONE ? ";R$r% R$"N"4230% R$"Y"Ą"SAME ROOM? ";R$:R$"Y"3225% R$"N"3570% %D$;"WRITE ROOM";X;",R0"%R(X):T(X):RV(X)%$D$&.::" R$"E"3490$ R$""3510,$ 15:3450?$ RV(X)RV(X)RVg$ "CORRECT REPLACEMENT VALUE = $";RVy$ RV99993495$ RV(X)RV(X)RV$ "NOW DATA IS ";N$;3);D;" ";C;" ";RV$ "O.K. TO CONTINUE ? ? ";R$:$ R$"N"3245$ R$"Y"3520!!! ---- ARE YOU SURE ?";:"";R$:R$"N"3350U#4 "ORIGINAL COST WAS ";C;:" --";R$f#> R$"E"3420v#H R$""3450#R 11:3380#\ T(X)T(X)C#a "CORRECTED COST IS: ";C#f C99993425#p T(X)T(X)C#z "REPLACEMENT VALUE = ";RV;:" --";R$$"E"3290" R$""3320&" 5:3260;" "NEW NAME IS: "S" "(20CHAR.MAX.)";N$f" (N$)203300" "DATE ACQUIRED: ";D;:" --";R$" R$"E"3350" R$""3380" 8:3320" "CORRECT YR OF PURCHASE IS: ";D-# D85D30ĺG$;G$;G$;"19";D;" T MANY RECORDS":::"HIT RETURN ";R$:3090J! D$;"READ ROOM";X;",R";R1Z! N$:D,C,RVb! D$! ::8::"HIT 'E' TO EDIT OR"::12::"'RETURN' TO CONTINUE":::34,3:! "DATA IS ";N$;", ";D;", ";C;", ";RV! "NAME = ";N$;:"--";R$ " R$"M"4315 D R$"C"30907 N "WHAT ROOM NUMBER ";XX X X1X12ĺ"TRY AGAIN":3150u l D$;"OPEN ROOM";X;",L43" v D$;"READ ROOM";X;",R0" R(X),T(X),RV(X) D$ :"WHAT RECORD NUMBER ? ";R1,! R1R(X)ĺG$:G$:"ERROR--THERE AREN'T THAEDIT DATA ":34,5f ::"YOU MUST KNOW WHICH ROOM AND WHICH RECORD NUMBER YOU WISH TO EDIT."& :"YOU CAN STOP HERE AND GO READ INVENTORY TO FIND THE RECORD NUMBER IF YOU WISH?"0 :"(PRESS 'M' FOR MENU OR 'C' TO CONTINUE)";:"";R$ : R$:"YOU MUST CHOOSE ONE:"6 ::8:" 1. EDIT` ::8:" 2. DELETE A RECORD" ::8:" 3. RETURN TO MENU" ::12::"WHICH ? ";::"";R$ R(R$):R3R13000 R3090,4000,3070 4315 :10::" ILE HAS BEEN OPENED."!X112>D$;"OPEN ROOM";X;",L43"[D$;"WRITE ROOM";X;",R0"h0:0:0xD$;"CLOSE""ROOM";X;" HAS BEEN OPENED"::"HIT RETURN FOR MENU";R$:1 :2:10:"EDIT OR DELETE DATA" 8:10D$;"READ TOTALS"&,R(I),T(I),RV(I).8D$4;D<D$;"CLOSE"O>216,0U?[@k216,0:768R(X)0:T(X)0:RV(X)0:D$(4)D$;"OPEN TOTALS"D$;"WRITE TOTALS"X1140,0,0:D$;"CLOSE":"THE 'TOTALS' FROOM$(X)Xs ATTIC,LIVING,DINING,KITCHEN,BREAKFAST,BATH,MBED,TRBED,BRBED,BASEMENT,GARAGE,MISC,TOTALS768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,961995D$;"OPEN TOTALS" I113"RV(X)= REPLACEMENT TOTAL, FOR ROOM$(X)s_"ROOM$(X) = ROOM NAME, READ FROM DATA STATEMENT AT 1530x:"DATASETS:"" ROOM1= N$,D,C,RV"" TOTALS=R(X),T(X),RV(X)":"HIT RETURN TO CONTINUE ";R$30X113 2"N$ = NAME OF ITEM"3<"C = COST OF ITEM"OF"D = YR OF PURCHASE"oP"RV = REPLACEMENT VALUE "U"X = ROOM NUMBER"Z"R(X)= COUNTER,NUMBER OF RECORDS IN ROOM 1, R(2)FOR ROOM 2, ETC."\"T(X)= TOTAL COST, FOR ROOM$(X)"(]12MtX;". ";ROOM$(X);:36,20:R(X);:36,36:"$ ";T(X);:36,52:"$ ";RV(X)S~iX150:"=";::"*** ";ROOM$(13);:36)"$ ";T(13);:36,52:"$ ";RV(13)D$;"PR#0":30::" VARIABLE LIST":"I,J = TEMPORARY COUNTERS(X);:32)"$ ";RV(X)$F.22:10:"HIT RETURN TO CONTINUE ";R$m810:"WANT THIS PRINTED OUT? ";R$}BR$"N"ī30LR$"Y"Ģ23:1080VD$;"PR#1"`"ROOM # RECORDS TOTAL COST REPL.VALUE":I170:"=";::jX1,52:"$ ";RV(X)D$;"PR#0"?"PRINT ANOTHER ROOM? ";R$OR$"Y"810m"HIT RETURN FOR MENU";R$u30{:18::"TOTALS"::"ROOM # RECORDS COST R-VALUE":X113X;". ";ROOM$(X);:15)R(X);:25)"$ ";TD$;"PR#0"fI1R(X)4pD$;"READ ROOM";X;",R";IFzN$:D:C:RVND$]D$;"PR#1"I;". ";N$;:36,35:D;:36,42:"$ ";C;:36,52:"$ ";RVD$;"PR#0"ID$;"PR#1"I163:"=";::"**** TOTAL";:36,42:"$ ";T(X);:36:T(X):RV(X)DD$$HD$;"PR#1"4I(9);"80N"pJ"R(X) = ";R(X);" AND T(X) = ";T(X);:" RV(X) = ";RV(X)M"RECORD# NAME DATE COST REPLACEMENT"RROOM$(X);:36,30:"OF PURCHASE";:36,52:"COST":I165:"=";:: SIT RETURN FOR MENU ";R$:30#P :4::"*** TURN YOUR PRINTER ON ***":|!10:10:"HIT RETURN TO CONTINUE ";R$%10::34,4:*"WHAT ROOM NUMBER ";X/X12X18504D$;"OPEN ROOM";X;",L43">D$;"READ ROOM";X;",R0" CR(X)TOTAL";:26)"$ ";T(X);:34)"$ ";RV(X)7D$;"CLOSE"b:"HIT RETURN TO CONTINUE ";R$:700D$:" NO DATA ENTRIES HERE TO BE READ"::"READ ANOTHER ROOM ? ";R$R$"Y"510"CLOSE FILES AND EXIT.":D$;"CLOSE""H N34,2WJ0XI1R(X))bJJ1FeD$;"OPEN ROOM";X;",L43"clD$;"READ ROOM";X;",R";IrvN$,D,C,RVz{D$J19ĺ:"HIT RETURN TO CONTINUE ";R$:J0I;". ";N$;:22)D;:26)"$ ";C;:34)"$";RVI139:"=";:'"**** ER ROOM NUMBER : ";X$:X(X$)3X12X1ė:530PD$;"OPEN ROOM";X;",L43"l&D$;"READ ROOM";X;",R0"0R(X):T(X):RV(X):D$?R(X)0695CD:ROOM$(X);" ";R(X);" ITEMS DATE";:28)"COST";:33)"RVALUE"II139:"-";::"OPEN TOTALS"$D$;"WRITE TOTALS"0X112GR(X):T(X):RV(X)Me999:T(13):RV(13)uD$;"CLOSE""TOTALS UPDATED AND SAVED":"HIT RETURN TO CONTINUE ";R$:30 ****** READ DATA MODULE10::34,3"ENTYD$;"CLOSE"V^:"DATA WRITTEN TO FILE CALLED ROOM";X;", RECORD NUMBER ";R(X)ym24:" DO ANOTHER ? ";R$rR$"Y"ė:120|R$"N"365T(13)0RV(13)0X112T(13)T(13)T(X)RV(13)RV(13)RV(X): D$;T(X)T(X)C RV(X)RV(X)RVX :"TOTAL COST OF ITEMS IN ";ROOM$(X);" IS $";:T(X) " AND REPLACEMENT VALUE IS";RV(X) "R(X)R(X)1: 6D$;"WRITE ROOM";X;",R";R(X) @N$:D:C:RV JD$;"WRITE ROOM";X;",R0" TR(X):T(X):RV(X) ITEM":" (20 CHAR MAX.) ";N$9 (N$)20(N$)1230` "YR OF PURCHASE (69) ";Y${ D(Y$):D30D85240 "COST : $";C "REPLACEMENT COST $";RV "IS THIS CORRECT? ";R$ R$"N"Ģ13:240 NUMBER: ";X$ zX(X$). }X1X12120K D$;"OPEN ROOM";X;",L43"g D$;"READ ROOM";X;",R0"~ R(X):T(X):RV(X) D$ D$;"OPEN ROOM";X;",L43" R(X);" ITEMS IN ";ROOM$(X);" TOTAL ";T(X);" AND RV IS $ ";RV(X) :"DESCRIPTION OF S LIST", -:" 7. NOTES ABOUT PROGRAM"A /:" 8. END"h 2:8::"CHOOSE ONE:";::" ";R$ 7(R$)8(R$)130 <R(R$) FR100,3000,500,800,1000,1300,5000,1600 d:10::10::"DATA ENTRY MODULE": n:34,6 x:"ENTER ROOM % ::3:12::"HOME INVENTORY ":N #:" 1. ENTER DATA TO INVENTORY"q $:" 2. EDIT/DELETE DATA" %:" 3. READ INVENTORY " ':" 4. PRINT OUT INVENTORY LISTS" ):" 5. READ, PRINT TOTALS LIST" +:" 6. VARIABLE($:7:12::"HOME INVENTORY":0D$(4)<G$(7)^ROOM$(14),T(14),RV(14),R(14)l 1500:30r  "1=ATTIC 2=LIVING 3=DINING 4=KIT" "5=BRK 6=BATH 7=MBR 8=TBR"9=BBR 10=BSMNT 11=GARAG 12=MISC"           CEDAR FALLS,IOWA 50613LLL NOT TO CHANGE ANY PART OF THIS PROGRAM AT THE BEGINING AS I HAD TO POKE SOME ABSOLUTE ADDRESSES TO STORE THE STRINGS IN ARRARYS TO IMPROVE THE SPEED.. !&B' DAN RHOADES GREEN APPLES 3228 SCENIC DRIVE THIS WAY YOU CAN PLACE YOUR MORE FREQUENTLY USED FILES AT THE END OF YOUR CATALOG..... $.' "DF" STANDS FOR DELETED FILE IN THE CATALOG SO YOU CAN SWITCH A FILE WITH THE POSITION OF A DELETED FILE HIGHER UP IN THE CATALOG.....%8' BECAREFU28749,0:28750,255:28751,255:28752,0:8#a28753,255:>#bH#'::d#' INSTRUCTIONS #' THIS PROGRAM ALLOWS YOU TO SWITCH TWO PROGRAMS AROUND SO THAT YOU CAN POSITION THE FILES AS YOU WISH...AT THE END OF CATALOG FOR EXAMPLE....[$$'17:g"^28726,3:28727,238:28728,19:28729,112:28730,206:28731,15:28732,112:28733,208:28734,241:"_28735,169:28736,15:28737,141:28738,15:28739,112:28740,169:28741,64:28742,141:28743,19:(#`28744,112:28745,96:28746,0:28747,0:28748,0:z#?Xı  ͱ ͱ ͱ ԮĠ̠נũ Үʰ à*ʠ ͳ ʹ ͵ Ͷ ͷ ͸ ͹ կŠԠ կԠŠϠҠ ! կՠȠ  կŠ٠*Ӡ ͱ Ͳ ůŠǠǯȠ٠Š ǯΠ٠. ǯΠٮؠǯΠٮ٠ ǯŠĠǯӠϠ ĠϠՠ ¯ԠҠ  ¯Š̠Ҡ ¯ӠؠҠ ůŠҠ v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 O *  ****************/ PAGE 2 COMMENTS5 > " 700 KB209ė::'Q'D KB195ė::D$;"CATALOG"::'C'~ KB205ĺ:D$;"BRUN MENU 3.1":: KB="M"? "";:640 KB(16384):KB128700 16368,0   ****************  * APPLE-DAYTON *  * DAYTON, OHI5:"APPLE-DAYTON DISK-OF-THE-MONTH"::8:"VOLUME ";VOL;", ";MTH$ b9:10:"TO RERUN MENU PROGRAM":9:"-----------------------" l12:9:"'CALL 1016' FROM BASICS":14:10:"CTRL-Y FROM MONITOR" v22:"=RUN MENU PROG =CATALOG =QUITLEN, (513) 253-0645"? !"SECY- BOB RENNARD, (513) 426-3579": &"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," +"FAIRBORN, OHIO 45324" 024:15:""; :700 NB X:2:TE THE INFORMED USE OF APPLE":"II SYSTEMS": "MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" "MEETING- 2ND THURS EACH MONTH, AIR FORCE";:"INST. OF TECH, WRIGHT-PATT AFB, 7:30": "CONTACTS-":"PRES- STEVE AL6: APPLE-DAYTON HELLO PROG. MASON FRIAR, DTD 5 JUL 80.ZVOL32:MTH$"DECEMBER 1982"{D$"":D$;"NOMON C,I,O"::5002000600:2:13::" APPLE-DAYTON "::4:"THE APPLE USERS GROUP OF DAYTON, OHIO":- "GOAL- PROMO    B(20((A$)2)):B0B1, B:A$:-  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"RUNA-D HELLO" CENTER STRING A$ 1)"GROCERIES $";S2Q"MISCELLANEOUS EXPENSES $";S3y"SAVINGS ACCOUNTS $";S4 S5(((((((MU)T)S)S1)S2)S3)S4)*4"---------------------------------------":f 50,127 k"**TOTAL EXPENSES FOJ$07:"***************************************"=Ddl"MORTGAGE OR RENT $";M"GAS AND ELECTRICITY $";U"TELEPHONE $";T"TRANSPORTATION EXPENSES $";S"CREDIT CARDS & DEPT STORES $";SNTERED" rN4N412|" ACCOUNT ";N4;: S$(N4)M S$(N4)"STOP" 1800d" AMOUNT ";S(N4)tS4S4S(N4) 1650 "***************************************":N$"BUDGET FOR THE MONTH OF": 50&" ";K$;" ";;I(N3)S3S3I(N3)! 1450-@:::J"DO YOU HAVE  ";: 50,63:"SAVINGS ACCOUNTS";: 50,255:" TO ENTER": " Y/N ";N$ Y N$"N" :: 1800h"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ES";: 50,255:" EXPENSES": " Y/N ";N$ B N$"N" :: 1600"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" N3N31" ITEM ";N3;: I$(N3)  I$(N3)"STOP" 1600" AMOUNT ":"ZERO";: 50,255 :" (0) FOR THE DATE" :"WHEN ALL DATA HAS BEEN ENTERED" [N2N21 |" DAY OF THE MONTH ";D(N2) D(N2) 0 1400" AMOUNT ";G(N2) S2S2G(N2)  1250x:::'"DO YOU HAVE ";: 50,63:"MISCELLANEOU$"ACCOUNT ";N1;: C$(N1)6) C$(N1)"STOP" 1200N." AMOUNT ";C1(N1)_8S1S1C1(N1)jB 1050v:::"DO YOU HAVE ";: 50,63:"GROCERY";:50,255:" EXPENSES": " Y/N ";N$  N$"N" :: 1400 N"PLEASE ENTER ";: 50,1271(N) z 850 :::p "DO YOU HAVE ";: 50,63:"CREDIT CARD OR STORE CREDIT": 50,255: " Y/N ";N$  N$"N" :: 1400 "PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" N1N110,255: " EXPENSES":" Y/N ";N$ : 9 N$"N" :: 1000 H"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR 'ITEM' " :"WHEN ALL DATA HAS BEEN ENTERED" RNN1 \"ITEM ";N;: T$(N) a T$(N)"STOP" 1000 f" AMOUNT ";T1(N) pSSTONTH THIS LIST IS FOR ";K$+  K$"" 650I "THE CURRENT YEAR ";J$ S ::{ "MORTGAGE OR RENT PAYMENT ";M : "GAS & ELECTRIC PAYMENT ";U : "TELEPHONE CHARGES ";T : : *"DO YOU HAVE ";: 50,63:"TRANSPORTATION";: 5 " 3. TELEPHONE "> " 4. TRANSPORTATION EXPENSES"j " 5. CREDIT & DEPARTMENT STORES CARDS" &" 6. GROCERY EXPENSES" ?" 7. MISCELLANEOUS EXPENSES" X" 8. SAVINGS ACCOUNTS" q"---------------------------------------": : "M***":5 EN$"THIS PROGRAM WILL SUMMARIZE YOUR": 50Z ^N$"MONTHLY BUDGET FOR YOU": 50` h w"***************************************"::: "THE FOLLOWING CATEGORIES ARE INCLUDED": " 1. MORTGAGE OR RENT " " 2. GAS & ELECTRIC ";:16298,0:':::::::AN$"A BUDGET PROGRAM"W 20(N$)2) N$]z N$"FROM APPLE \ BOSTON" 20(N$)2) N$I13000 I 250 2 20(N$)2) N$: ,"************************************         $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` APPLE DAYTON PROGRAM LIBRARY L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- )"TELEPHONE ";((TS5100.5)100)100;" %"$"TRANSPORTATION EXPENSES ";((SS5100.5)100)100;" %"$"CREDIT CARDS & DEPT STORES ";((S1S5100.5)100)100;" %"%"GROCERIES ";((S2S5100.5GRAM" #:#"***************************************"@#o#"ITEM % OF INCOME"u##"MORTGAGE OR RENT ";((MS5100.5)100)100;" %"#"GAS AND ELECTRICITY ";((US5100.5)100)100;" %"A$(S3Q)I(R)" 43005"" WHICH ITEM NUMBER ";R P","ACCOUNT ";R;: S$(R)["1QS(R)q"6 "AMOUNT "; S(R)"JS4(S4Q)S(R)"c 4500"p"tS51979"uM234"z"***************************************""#" MONTHLY BUDGET PROR)!S1(S1Q)C1(R)!!7 3900>!P" WHICH ITEM NUMBER ";RZ!d" DATE ";R;: D(R) e!iQG(R)|!n "AMOUNT "; G(R) !S2(S2Q)G(R)! 4100!" WHICH ITEM NUMBER ";R !" ITEM ";R;: I$(R)!QI(R)! "AMOUNT "; I(R) "S3  N$"Y" 5400 % * 2500 0 $ 8000M " WHICH ITEM NUMBER ";Re "ITEM ";R;: T$(R)q QT1(R)  "AMOUNT ";T1(R) S(SQ)T1(R)  3700 " WHICH ITEM NUMBER ";R "ACCOUNT ";R;: C$(R) QC1(R) !  "AMOUNT ";C1(1" ACCOUNT AMOUNT":C I1 N41 V I;" ";S$(I);i 32)"$";S(I)q I"---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S4 :"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ :  I1 N31 ( I;" ";I$(I);< 32)"$";I(I) E I u "---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S30:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ D N$"Y" 5300 b 2500 D(I);, 32)"$";G(I) 6 IOE"---------------------------------------"{O " ** TOTAL EXPENSES **";: 32)"$";S2h:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ | N$"Y" 5200 2500" ITEM AMOUNT"/}"---------------------------------------"[ " ** TOTAL EXPENSES **";: 32)"$";S1:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$  N$"Y" 5100 2500" DATE AMOUNT": I1 N21" I;" ";------------"9 " ** TOTAL EXPENSES **";: 32)"$";S i:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$} N$"Y" 5000  2500 <F" ACCOUNT AMOUNT":P I1 N11Z I;" ";C$(I);d 32)"$";C1(I)n I THE AMOUNT" " Y/N ";N$0 N$"Y" 3570; 2500W "CORRECTED AMOUNT ";Tb 2500ht~" ITEM AMOUNT":  I1 N1 I;" ";T$(I); 32)"$";T1(I)  I "--------------------------- $";U :G "DO YOU WANT TO CHANGE THE AMOUNT"W " Y/N ";N$k N$"Y" 3370v 2500* "CORRECTED AMOUNT ";U4 2500  :::: "TELEPHONE $";T :  "DO YOU WANT TO CHANGE00 N114900 %& ::::P0 "MORTGAGE EXPENSES $";MX: :D "DO YOU WANT TO CHANGE THE AMOUNT" I " Y/N ";N$N N$"Y" 3170X 2500b "CORRECTED AMOUNT ";Ml 2500  :::: "GAS & ELECTRIC PERCENTAGE BREAKDOWN"(x " #11. QUIT"0} :Z "WHICH ( # ) NUMBER DO YOU WANT ";Nk N1 3100| N2 3300 N3 3500 N4 3700 N5 3900 N6 4100 N7 4300 N8 4500 N9 1800 N1060R RENT"#2 " # 2. GAS & ELECTRIC":< " # 3. TELEPHONE"VF " # 4. TRANSPORTATION"~P " # 5. CREDIT CARDS & DEPT STORES"Z " # 6. GROCERIES"d " # 7. MISCELLANEOUS"n " # 8. SAVINGS ACCOUNTS "s " # 9. COMPLETE PRINTOUT AGAIN"v " #10.R MONTH";p 50,255"s" =$";*uS50Z"DO YOU WANT TO SEE INDIVIDUAL LIST"j" Y/N ";N$ N$"Y" 2500  N$"YES" 2500 8000 ::: "WHICH ITEM OR LIST " "WOULD YOU LIKE TO SEE "::( " # 1. MORTGAGE OC SERIAL #02-032780-1226A1 SALES TAXD BY ED MAGNINR 9/29/79 N$"SALES TAX"::::15);N$;16)::34,2:"DO YOU WANT INSTRUCTIONS? ";R$::(R$,1)"Y"200 3:958:"ENTER SALES TAX (4.00% - 10.00%) ";ST:ST4ST10Č    YOU WISH TO MAKE ANOTHER CALL (Y/N) ";Y$1$Y$A.Y$"Y"ī28b3 DONATED BY KEVIN ARMSTRONGh8AHER CALL (Y/N) ";Y$$Y$.Y$"Y"ī283 DONATED BY KEVIN ARMSTRONG8ATES AND ";SEC:"SECONDS."*TTC(M100)y::"THE TOTAL CHARGE FOR THE CALL WILL ":"BE $";TT;", PLUS EXCISE TAX.":"FOR INFORMATION REGARDING THE EXCISE""TAX RATE PLEASE REFER TO YOUR DIRECTORY""OR CALL THE OPERATOR.")::"DOZ1900:Z:936%P3925BMINPD2:SEC60T:1000OD0990^T120960lT60970u980MIN0:SEC180T:1000MIN1:SEC120T:1000MIN2:SEC60T:1000MINPD2:SEC60T4:"YOUR CALL LASTED ";MIN;" MINU:"60% DISCOUNT: 11PM-8AM EVERY NIGHT":13:"8AM-11PM SATURDAY":13:"8AM-5PM SUNDAY"a600:"RATES CHARGED ARE BASED UPON THE TIME AT THE CALLING POINT."600:"HIT RETURN TO INPUT THE TIME AND CHARGE DATA .... ";C$28XES." m600Gr:"DO YOU WANT INFORMATION ON DISCOUNT PERIODS? ";B$VwB$"N"28`9362:"THERE ARE TWO DISCOUNT RATES IN THE CONTINENTAL U.S.A."600:"35% DISCOUNT: 5PM-11PM SUNDAY-FRIDAY":13:"8AM-11PM HOLIDAYS600X YOU, THE INITIAL TIME PERIOD IS 3 MINUTES. DIRECT DIAL IS 1 MINUTES." ^600::"THE CHARGES ARE BASED ON THE DESTINATION CALLED." c600h:"THESE ARE USUALLY LISTED IN THE FRONT OF THE PHONE BOOK .... OR .... CALL THE OPERATOR FOR THE RATTHREE THINGS"F 64:"(1) INITIAL TIME PERIOD (1 OR 3":8:"MINUTES)" @4:"(2) INITIAL CHARGE (FOR THE INITIAL PERIOD)" J4:"(3) ADDITIONAL CHARGE PER MINUTE AFTER INITIAL PERIOD O600J T:"IF YOU USE AN OPERATOR TO ASSIST 16:15:C $ T59:DD14 CC(M100)D X1670:X_ K(16384):K128900 8:"THERE ARE SECONDS TO THE NEXT":"ADDITIONAL CHARGE." 8:11:T TT1 T1200 225 ,936:2:"YOUR CHARGES ARE BASED UPON ENTS."> P:"THE ADDITIONAL COST PER MINUTE IS ";M:"CENTS."n Z22:"HIT 'RETURN' AGAIN WHEN YOU HANG UP!"~ dCI100:D1 T58 P3T178 221 ::"THE TOTAL TIME CHARGED IS NOW ";PD;" MINUTES." 16:"THE CHARGE IS $" THE INITIAL CHARGE (CENTS)? ";I\ 2:"WHAT IS THE ADDITONAL CHARGE PER MINUTE (CENTS)? ";M <:"WHEN THE PARTY AT THE OTHER END PICKS UP THE RECEIVER, HIT RETURN." =Y$ F936:2:"THE INITIAL COST FOR THE FIRST ";P;" MINUTE(S) IS ";I;" Ci  :93673:8:"TELEPHONE TOLL TOTALIZER"m:"DO YOU WANT SPECIFIC INSTRUCTIONS (Y/N)? ";A$}A$"Y"300:9362:8:"TELEPHONE TOLL TOTALIZER":"WHAT IS THE INITIAL TIME PERIOD (1 OR 3 - MINUTES)? ";P (:"WHAT IS     G THIS PROGRAM": 50 3&TN$"HAVE A NICE DAY": 509&Y)100)100;" %"O%"MISCELLANEOUS EXPENSES ";((S3S5100.5)100)100%"SAVINGS ACCOUNTS ";((S4S5100.5)100)100;" %"%:::%"HIT RETURN TO GET BACK TO MENU"%U1$%2500%@:::&JN$"THANK YOU FOR USIN(K128)23:A$;" ":60159SS1:1:1:S:SSSėESASıO6010s(A$)1A$(A$,(A$)1):6040A$"":6040I1(W$):(W$,I,1)"/"Q$(W$,I1):W$(W$,(W$)I):II175:S(16336)(16336)(16336)(16336)W$(I)W$:I D$;"OPEN ";F$4D$;"WRITE ";F$II025:W$(I):]D$;"CLOSE ";F$e10wpS0:16368,0zI1SE:K(16384):K1276030:SS1:SSSė1:1:S:SAS601016368,0:K141ıK1366070A$A$ȫ10 MAKE&SAVE"YOU ARE GOING TO MAKE A FILE OF 25 SPELLING WORDS OR 25 QUESTIONS & ANSWERS.SEPARATE QUESTIONS FROM ANSWERS WITH / (A DASH)"W$(0)F$:I125:"WORD OR Q&A #";I;" ?":W$S1(W$):(W$,S,1)"/"5040S:W$W$"///" 5:"= ";A* A(A$)Č198:RIRI1:3040: 6300:6350I I1500:d A$"":QQ1:QQU3020n 6600 "WHAT IS YOUR FILE CALLED ?";F$ S55000  LOAD D$;"OPEN ";F$ D$;"READ ";F$ I025:W$(I): D$;"CLOSE ";F$";T8 "DIFFICULTY (1-4) 1=1-10 2=1-100 3=1-1000...";Db F1((1)(10D)):F2((1)(10D)1)t T3F1F1F2 :12:15:F1; T1AF1F2:" + "; T2AF1F2:" - "; T3AF1F2:" / "; T4AF1F2:" * "; F2:6000:14:16100:12:15:Q$3 6000:12:15:Q$:14:15:W$R A$W$Č198:RIRI1:2040b 6300:6350q I1500: A$"":QQ1:QQU2010 6600 MATH "1) ADDITION":"2) SUBTRACTION":"3) DIVISION":"4) MULTIPLICATION": "WHICH (1-4) ?0,3000,4000,5000,6999$  SPELLINGV T((1)(25)1):W$W$(T)::6100:12:15:Q$l 6000:12:15:Q$ A$Q$Č198:RIRI1:1040 6300:6350 I1500: A$"":QQ1:QQU1010 6600  QUESTIONS T((1)(25)1):W$W$(T)::u:S33990a xS3F$""Ģ20:"THERE IS NO FILE IN MEMORY...YOU MUST DO #4 OR #5 FIRST.":110 z"HOW MANY SECONDS TO SEE QUESTION ?";SS {:"HOW MANY SECONDS TO ANSWER QUESTION ?";AS |:"HOW MANY QUESTIONS WOULD YOU LIKE ?";QU S1000,200 !SE70:F$"":W$(26):D$(4)- :9368d MENUJiRI0:QU0:Q0n5:"APPLE TEACHER,BY MIKE RUBINGH"::"1) SPELLING":"2) QUESTIONS":"3) MATH"s:"4) LOAD FILE":"5) MAKE & SAVE FILE":"6) QUIT"::"WHICH (1-6) ?";StS1S56999  '20' MODIFIED TO ACCEPT SALES TAX RANGING FROM 4 TO 10 PCT.C00";6);"10.0";5);"10": "TO EXIT THE PROGRAM JUST PRESS 'RETURN' WHEN IT ASKS FOR THE AMOUNT. TO START IT AGAIN JUST TYPE 'RUN'." :"TYPE 'HELP' AT ANY TIME TO REPEAT THESE INSTRUCTIONS." 24::" PRESS 'RETURN' ";:A$:::20B LINEOUNT:"::7);"0 < AMOUNT < 9433962.26": "WHEN IT SAYS 'AMOUNT= $ ' JUST TYPE THE AMOUNT FOLLOWED BY A RETURN. IT IS NOT NECESSARY TO INSERT A DECIMAL POINT AND TRAILING ZEROS.": "TO ENTER $10.00 YOU CAN ENTER ANY OF THEFOLLOWING:"::5);"10.165" (A$,(A$)1,1)"."1555 A$A$"0":170G (A$)2165d (A$,(A$)2,1)"."170t A$A$".00" A$" "A$:A$(A$,PL3) INSTRUCTIONS 3:958) "THIS PROGRAM WILL CALCULATE THE SALES TAX FOR ANY GIVEN AM958:34,0 K# d ROUND OFFA iA(A$):A9433962.26115i n:(7);" NUMBER TOO LARGE":25 sA(A$):PL1(A0)(A9)(A99)(A999)(A9999)(A99999) xA(A$)100:A070 }AA((A(A)).5) A(A)100 A$(A) (A$)1198:20: 4% - 10% SALES TAX" J "AMOUNT= $ ";AM$::AM$"HELP"200a #A$AM$:100:AM$A$ (AST((AM$)):125:TX$A$ -A(AM$)(TX$):135:TP$A$ 25);"AMOUNT= $";AM$ 75);"TAX= $";TX$ <5);"TOTAL= $";TP$ A25 F(37)2: EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 g FRIED EGG, 1 EA,120,SCRAEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 E CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUPCAKE,1JUICE,3.5 OZ,17 EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322% FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MILK CHOCOLATE,1 OZ BAR,152,CMENU":U2$q s 200#v 1000)@ DATA STARTS HERE TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)   BEVERAGES COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 TOTAL IN O MUST BE IN LINES 1300 AND 31004& OO1B0 M$,M1$,MP: M$,M1$,MZD KK1N K18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0X IZ 34,0] :` K0b "THIS IS ALL THE DATA IN MY MEMORY BANK" l "HIT ANY KEY TO RETURN TO ;:U2$ U2$"Y"1557&%R0:R100*15576 P TOTAL PRINT OUT SUB TO SET COUNTING LOOP TO SAME VALUE AS 1300  34,0  255 "ITEM","AMOUNT","CALORIES" 34,2 I1150! # DATA COUNTER FOR TEST*$ :16:"HOW MANY PORTIONS DOES THIS RECIPE "J"MAKE ";PUR1RP]:"EACH PORTION SERVED BY THIS RECIPE""CONTAINS ";R1" CALORIES" :"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD""TO THIS RECIPE SERVING Y/N ","CALORIES"Y1"M$,M1$,M-34,15516;n" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NyN1NMTTN1RRN1"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T@1200 FIGURE RECIPE SERVING t HERE WE TELL USER NO" uj x" I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"p z 1200   RETURN FOR MORE INPUT    PRINT DATA   34,0 YY1 Y14ė:Y1:"FOOD ITEM","AMOUNT""WHAT FOOD ARE YOU LOOKING FOR ";F$+ 1 T  HERE WE CHECK DATA FOR INPUTZ ` u F$"STOP"10000 F$"CLEAR"T0:R0:34,0:1170 F$"CHECK"ī2000 F$"TOTAL"Y0:3000 I1150 -M$,M1$,M FF$M$1500 _I sE FINISHED USING THE PROGRAM"I :"IF YOU WANT A PRINT OUT OF ALL THE"~ "DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."  50,63 "HIT ANY KEY TO CONTINUE.":U1$  :"FOOD ITEM","AMOUNT","CALORIES" 34,15 16 :% LORIE VALUE"6 e"OF A SERVING IN A RECIPE THEN TYPE"f j:"CHECK";::" WHEN ASKED FOR FOOD ITEM." l:"IF YOU WANT TO CLEAR THE COUNTERS AND" n"THE PRINT OUT LIST THEN TYPE ";::"CLEAR": o t"PLEASE TYPE ";::"STOP";::" WHEN YOU HAV- "RAPIDLY THE CALORIE VALUE OF ANY FOOD"Z "OR OF A LIST OF FOODS SUCH AS A MEAL."`  "IT ALSO CAN BE USED TO FIND OUT THE " "CALORIE VALUE OF A SERVING OF FOOD " "FROM YOUR FAVORITE RECIPE." L `"IF YOU WANT TO KNOW THE CAZ&_ CALORIE COUNTING PROGRAM@d START = FRE(0) 8188Hi10nn08):"CALORIE COUNTING PROGRAM"s:12):"BY PAUL A. PAGE"}I12000:I200 PROGRAM STARTS HERE34,0:3 "THIS PROGRAM ALLOWS YOU TO DETERMINE"          :I11000::.198:198:198W:20:"YOU SCORED ";(RIQU)100;"%""YOU ANSWERED ";RI;" OUT OF ";QU;" CORRECTLY!"105W S) J "I? , L(I,J)=0 MEANS MOVE I TO J NOT LEGALv 6 L(I,J)=1 MEANS MOVE I TO J LEGAL BLACK ONLY @ L(I,J)=2 MEANS MOVE I TO J LEGAL FOR BOTH J TB6 ^W(1)1 hW(2)2 rW(3)4 |I01 3000 10000 R)) II1 R M# Lg :12:"DO YOU NEED INSTRUCTIONS? ";:IN$:(IN$,1)"N"İ12000 LOAD UP LEARNING CURVE DISK COMMAND "LOAD DATA #5,34,A I130 J12 R(I,J)0 J I I111 J111 L(I,JRAMMED BY G.H. HERD SEPT.78 PUBLISHED IN CREATIVE COMPUTING SEPT.79K :V #10:9v ("THE FRENCH MILITARY GAME"| * ,9 -" BY MARTIN GARDNER" KI1 PL19 ZL1P(L) dML110 nM1P(M) xRM111 S(I)L1M1(P(wP(X)2(X1)@ S(165),R(30,2),L(11,11),W(3),A(165,11) FRENCH MILITARY GAME, SIXTH BOOK OF MATHEMATICAL GAMES FROM SCIENTIFIC AMERICAN BY MARTIN GARDNER INCORPORATES MATCH. LEARNING FROM UNEXPECTED HANGING BY MARTIN GARDNERC  PROG        Y E " V' 2,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99:'34,0:B$'13p.'"THANK YOU FOR CHECKING YOUR DIET WITH "v3'8'"US TODAY. PLEASE USE THIS PROGRAM AS "='B'" MUCH AS YOU LIKE."L':9)Q'"G O O D B Y E "V'I"G O O D B CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25. TURKEY,4 OZ,221,TOMATOE,1 SMALL,2EAS,1/2 CUP,57 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,346,BEAN SOUP,1 CUP,167CE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19r LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONION,1/2 LB,79,PEAR,1 AVE,100,PPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 I^ SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUIGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539J BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALO/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 " HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,156 SUGAR,1 TEAS,46,SUUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167 CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54S POTATO CHIPS, 1 EA, 13, PRETZELS, 3 19 RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65A LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OZ, 58,PINEAPPLE JMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225 CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,1 EA,73,PINEAPPLE,1 SLICE,3D MAY MOVE ANY ONE"+/"PIECE ONE SPACE."Y/" WHITE MAY ONLY MOVE UP, DOWN, OR TO"/"THE RIGHT. BLACK MAY MOVE IN ANY DIREC-"/"TION. NO PIECE MAY MOVE TO A SPACE"/"OCCUPIED BY ANOTHER PIECE."/:" << PRESS THE SPACE BAR TO CONTINUEl//v/" THE PLAYING FIELD FOR THE FRENCH"]/"MILITARY GAME IS SHOWN ABOVE. YOU WILL"/"PLAY WHITE AND WILL START WITH THREE"/"MEN LOCATED AT 1, 2, AND 4. BLACK HAS"/"ONLY ONE MAN, WHICH STARTS AT 6. WHITE"/"HAS THE FIRST MOVE AN$/" / ! \!/ ! \"J&/" 1----3----6----9----11"n0/" \ ! /!\ ! /":/" \ ! / ! \ ! /"D/" \ ! / ! \ ! /"N/" \!/ ! \!/"X/" 4----7---10"b/34,113:Y3:%+Y31820:28,30Y3:Y3:C+Y32931:28,30Y3:Y3:a+Y31820:37,39Y3:Y3:t. INSTRUCTIONSz.." 2----5----8"." /!\ ! /!\"/" / ! \ ! / ! \"/" / ! \ ! / ! \"'0:11006'* SQUARE 1;*Y31820:1,3Y3:Y3:W*Y379:10,12Y3:Y3:u*Y31820:10,12Y3:Y3:*Y32931:10,12Y3:Y3:*Y379:19,21Y3:Y3:*Y31820:19,21Y3:Y3:*Y32931:19,21Y3:Y3:+Y379:28,30Y j'Y28:X1219:X,Y:YY1:X@t'Y19:X1928:X,Y:YY1:X`~'Y10:X1219:X,Y:YY1:X'Y19:X1928:X,Y:YY1:X'Y10:X3037:X,Y:YY1:X'Y19:X112:X,Y:YY1:X'Y28:X3037:X,Y:YY1:X'15:11001:11002:11004 1:Y039:0,39Y:Y@.'3:Y610:9,13Y:18,22Y:27,31Y:Yz8'Y1721:0,4Y:9,13Y:18,22Y:27,31Y:36,39Y:YB'Y2832:9,13Y:18,22Y:27,31Y:YL'9,318:5,3519:9,3130V'8,3011:8,3020:8,3029`'Y19:X112:X,Y:YY1:X1,0,2,0,0,2,2,0,0,0,01P# 0,1,0,0,0,2,0,2,0,0,0MZ# 0,1,1,1,2,0,2,2,2,2,0id# 0,0,0,1,0,2,0,0,0,2,0n# 0,0,0,0,1,1,0,0,2,0,2x# 0,0,0,0,0,1,0,2,0,2,2# 0,0,0,0,0,1,1,0,2,0,2# 0,0,0,0,0,0,0,2,2,2,0#' DRAW BOARD '$'EW BEST MOVEM4I4I4%>p UPDATE AT GAME ENDMzI61I01\SR(I6,1)kMR(I6,2)A(S,M)A(S,M)WI6'# DATA FOR L ARRAY(# 0,2,2,2,0,0,0,0,0,0,02# 1,0,2,0,2,2,0,0,0,0,0<# 1,2,0,2,0,2,0,0,0,0,0F# 1))P(W(2))P(W(3))# S311656 S(S3)A33050> S3D a PICK BLACK'S BEST MOVEkM40xI4111L(B,I4)04110 OCCUPIED BY WHITE?J413W(J4)I44110J4M404100A(S3,M4)A(S3,I4)4110  N0$4IF BLACK IS AT Y THEN ILLEGAL2>BY2200NH ILLEGAL IF WHITE AT YZRI213l\W(I2)Y2200tfI2pL(X,Y)22200z LEGAL MOVE FOR WHITEW(J2)YL21 CALCULATE NEW WHITE POSITION NUMBER A3P(W(6000# "WANT TO PLAY AGAIN? ";+*Z$@4(Z$,1)"Y"340o> DISK COMMAND "STORE DATA #5,34,A"uH CHECK WHITES MOVE FOR LEGALITYL21I213J2I2 W(I2)X2100I2  NO WHITE PIECE AT X*22002,11003,11004,11005,11006,11007,11008,11009,11010,11011HR(I0,1)S3XR(I0,2)M4bBM4oI0I01}B1500 HERE ONLY IF MACHINE WINS"I WIN......"W1780"I LOST......"W1  UPDATE ARRAY AE, AND YOU HAVEN'T TRAPPED ME."+m730]n WHAT IS BLACK'S BEST MOVE - IF ANYgv4000uM40760 COMPUTER MOVES"I MOVE TO ";M43:B11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,1101180:M411001,110 LEGAL MOVE - WHAT IS WHITE POSITION INDEX (S3) Z3:X11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011 \15:Y11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011 b3000 gI019630"l"THAT'S 20 MOVES, AC MAIN PROGRAM LOOPH "WHITE PIECES ARE AT ";W(1);" ";W(2);" ";W(3)h "THE BLACK PIECE IS AT ";B "YOUR MOVE, FROM-TO X,Y "; X,Y !X0Y0730 & WAS IT A LEGAL MOVE 02000 :L21600 D"FOUL !!!!! TRY AGAIN." N5103 XŠ)E@E(Π) .q8o P a(٠͠)=`$LBoS(ҠŠ)&@D`;@r$'GS(ŠŠĠſٯΩ)&@I`@9()$'J`@9()$'_GL]ŠĠ:VM6o P d2ea(qUVW `-r$6q8-rr ` %q qY` $|_]Π#O44rD4 rD4 rD44rK@p()]̭Ģ\a@E(ĠǯΠٮ) M6($o P a(`-r$*`ȱ8-rr 3-r$ 1ȱq8-rr 3-rȱq_  `Ȳ8-rr $ "Ȳq8-rr Ȳq Y*`Ȳ$R 4qȲ>_ Rqȱ\_]ˠ0&`8-rr 8-rr $X#0-rq-r-rq-r:_0X`8-rr 8-rr $7b`1?8-rr 8-rr r$#l-rq-r-rq-r YYUVW дQԴq-8rrqqUVW `-r%-rqY_A`8r 8-8rrr $_YȱqȲqUVW -rqYUVW UVW `-r$qUVWNr`8-8rrr 8-8rrr $|q8r`8r 8-rr 88r 8-rr 8r 8-rr r$_ 8-8rrr $_""Y`$ /,UVW `-r-r$.-rqq.Y1-rq-r\ 3q-r6q\b@`$J\fT`$^`Դ$'h`$-rr r$f`8-rr 8-rr 8-rr 8-rr $_"YԴq-8rrq-rqUVW `-r-r%-rqYq_"E`8-rr \f`$ `Դ$,'`$,qUVWN`8-8rrr 8-8rrr $q8rd`8-rr 8-rr 88-rr 8N, @p()O4rDȱ4 rD4 r N@" r de\ } q_d]Ҡנ8xM6od2eP a(ҧӠ)d2e?qUVW `-r%qY-rq-r\b`$            ME IT IS RUN."A 024:" << PRESS THE SPACE BAR TO CONTINUE >>";Z 1(16384)12712550h 116368,0p 1:v $10" THE PROGRAM STORES WHAT IS HAS"R0"LEARNED IN AN ARRAY THAT MAY BE SAVED"j0"ON DISC OR TAPE."0" IF THIS ARRAY IS NOT SAVED OR IS NOT"0"RELOADED THE PROGRAM WILL START FROM"0"THE BEGINNING IN LEARNING HOW TO PLAY" 0"EVERYTIHE SPACE BAR TO CONTINUE >>";6z0(16384)12712410D016368,0J0u0" THE GAME IS VERY EASY TO WIN THE"0"FIRST FEW TIMES IT IS PLAYED, BUT IT"0"WILL LEARN FROM ITS MISTAKES AND BECOME"0"INCREASINGLY MORE DIFFICULT TO BEAT."%OR 7. BLACK WINS BY"A>0"REACHING 1 OR BY EVADING BEING PINNED"VH0"FOR 20 MOVES."R0" WHITE CAN ALWAYS WIN IF HE PLAYS"\0"CORRECTLY AND DOES NOT MAKE ANY MIS-"f0"TAKES. BUT IF YOU WANT TO RESIGN JUST"k0"TYPE 0,0"p024:" << PRESS T >>";/(16384)12712270,/16368,020_ 0" WHITE WINS THE GAME BY PINNING THE"0"BLACK PIECE SO THAT BLACK HAS NO MOVE." 0"THIS USUALLY OCCURS WITH BLACK TRAPPED"*0"AT 11, BUT IF BLACK PLAYS POORLY IT MAY"40"BE PINNED AT 5 deMd eM+d$eTd%eTdeM[4 UVW2q.?6?r.?6?r.?6?rY_( qq\}$2 q-rq-rq,< dede<dedeM&A q8-rr @E(ĠǯΠٮ)M  d6?e M6'd!ed"ed&ed'eUVW  d eM1 q8rd$ed%e4deMHY\d"e3d eUM+pd$e:d%e:-òrq_q@oq-ñrUVñWòX6-rq-rY-òrq q\v_0vUVW q8-rr `%q /xdedede8-rr  {denMY[_]Ġaqdq\}3AoPa(ŠĠΠϠŠĠϮ)"Dq.?6@r`$Dd6?eI`$N`$  bòqgqdq\}#l`ñòòñ$q`ñò$oDmq-ñrUVñWò-rq-rY_ 1M6oP M6a(ԠӠ)M6|1 oPa(ŠҠƠĠϠŠĮ)%oP a(ý٠Ϡ٩)G M6"q.?6@r`$d6?e&&`$0`$`$ 0`$  :ñq?eM_=qq\} q2q-rq-r-rq-rq\v,dede<dedeM&q8-rr `%q <deFde<dede8-rr M/M6oPM6a(Ҡٿ)M6|5oa(ŠҠƠĠϠŠĠ)G3oa(ҠĮŠؠϠĠŠ׮)G"q.?6@r`$d6?e`$( `$_,dede<ded\v&q8-rr `%q <deFde<dede8-rr M_ qq\}UVW%q8-rr `%q ;dede<dede8-rr MYVM6oPM6a(Ҡٿ)M6|*WoPa(ŠҠƠĠϠ)+[oPa(Ġ͠ҠĮ)G"^q.?6@r`$^d6?eh`$=mqq\} rq)|q-r-rq-r-rqq`$,`$6`$@;`$4=UVW2q.?6?r.?6?r.?6?rY_@qq\}EUVW&Gq8-rr `%q d,eM4d"eaM6d eDd"e=M8d"ebM&:q8-rr `%q 7<deFde<dede8-rr PM,Zd ed!ed"e>d,eM\d"eaM^qAdedededeUVW deMYUVW %q8-rr `%q /dedede8-rr  denMYqq(-rq-r,2d eBdǯ)d2eR[oP `%a(ՠŠ)F6E(Ӯ)`%a(ɠŠՠ)FE(Ӯ)"`UVW4-rq-rqYUVWH-rq-r M-rqOqRYW`%q\` $a^qq_a[,fUVWW lUVW v`-r-r$q-r-rq-r-rq YYqqUVW `-r$ `-r-r$ 4`8-rr 8-rr $  q$`%q`)5ba(ҠӠ)F8rE(ӡ)!lq88rr_( pM6zoPa(Π)UVWM6YQX]ҠĠZUVW-rqY [Դq]q\b\f[bUV M6$oa(ҠӠȠ)F\ a@ a(ҠĠԠ)GT`$DM6o"a(ӡՠŠԠš)&a(ՠŠ)FE(ӡ)q_(DM6oX`%a(ΠM6`$P, oa(ӡҠӠԠա),a(ҠӠ)FE(ӡ)(q8r_(Po`%a(Π)/Za(ՠŠ)F8rE(ӡ)dq8r_(|]ҠY q-rq-r-rq_]Π\ M6oa(ΠӠ)a@ a(ҠĠԠ)GTqUVW `-r$6q8-rr ` %q qY <qq \}qq2\}qq \}'dedededeUVWMY'q8-rr `%q AdeFdede<dede8-rr UVWM[]ҠӠ0dedede<dede<qq \}qq2\}qq \}UVWMYdedeUVWMY qh[]Ҡ%q *dede8-rr MY q$UVW 8`-r$tBqde%Gq8-rr `%q )Ldede8-rr MtY,deFde<dedeMUVWq.?6?r.?6?r.?6?r.?6?rUVW2YY' dededede UVWX deM Y q `$$ UVW q`-r$ de&q8-rr `e8-rr < qq \}qq2\}qq \} UVW M Y dedeM' dededede UVW M Y  q _ ]ҠĠA qd\}" q.?6@r`$ d6?e q`$ `$ `$d4 UVW2q.?6?r.?6?r.?6?rY_  ]ҠӠĠ& q8-rr `%q @ dedeFde<ded`%q ?;?;??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&        ed ededededeLdedede`[$h)E)cJ)a(ɠŠՠ)FE(Ӯ)T)_|)#h)ca(ՠŠŠ)F6E(ӡ)|)a(ɧ̠ҠԮ))a(ĠŮ))Q}dedeM[T }dede0dededededed ed e_}d ed @'T(_L(](a(Ԡ)"(q.?6@r`$(d6?e(`$( (KM6((S(ŠҠҠĿٯΩ)&@(`@9()$(`@9()$)(_()a@E(Π)H@)a@E(Š)E@,)b6)a@E(Š)E@@)`   -   )  )  - ))-)) )-- ) ;;) ))--) ))- ) );?) ))-  - ) )  - )- ) )) ))- )--) ;?) )--)--) ;?) )  --) ) - --) ))--; )--)-  ) -  )-;) ;?) ) - )--  ;  - ) );?) ) -  - ) )?? );)-   )  )    )  )       )--)--    )   ) ?? )     )    ??      )      - ) -) ) -  ) ? )  )  -  -  );?) )--)-- ; ) -  ; ;svy| )  )  )  )  ;;    ;;)--;;)--;;  ) ??)) ;? ));? )  ;)  -?  )) ;))); -) )  )    ) ;) ) ; )  ) ; ) ); )  )  -  - |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&    )( !  )( `Ս*+ 1`?L`` L՝ ` *+  ` *+  `\ *+ &'  *+ `Ս*+ ,` '\*+ ,` '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-))((``H) H  h PhJJJJ H  h PL)""%%( ` ` `` ` ` `` 8`<>B=i? `` d   d `i, ` d , ʊ 芠 q d'- ( d` d  q`  d  `ʊ &(ȑ(` () ʊ ȱ('() - q`ʊ (ȱ DL5逑 D D```ɀi͠`L, 5 Ɇ`0L`0 L d/  d/ `  qq\@ LM6fq'ijkf$-rq-rq-rq+UVWi-rj-rkl%mn-r$l#mn-rl%mn-rY_-9@UVW-rq/?&r-rq/?r-rq/?rY[]٠ŠȠ)E()[ ]`.?r$@p()]̭a@E(Ġǯ)!O4rO4rD4rD4r qqqqq'qqq q qqEqq\@qq`$-rq/?'r-rq/?r-rq/?rE&q-rf UVWq/?rq/? rgh'gh'Y/+UVW/?2rq/?2rq/?r\Y!:q8r`$D_DM6obQ= oa(Š)FE(٠)FE(*Jf\^q`$D`#$-Oq_(^UVWghghghgh'cghghghghhY[4qUVW`-r-r-r-r$Y7-rq/?'r-rq/?r-rq/?rq_<*ededeM["UVW q\Y4,f\^UVW`-r-r$6Y_J"6`-r-r$;Y_J4;f \^-rq/?'r-rq/?r-rq/?r3=q8 rq`8r$Y_-M6\ ;2UVWfghq2?rq2?rfgh5`.?6?r$"Yqf2<-rq-r-r`-r%-rq`-r%-rq&PF-rq-r`-r&$g-rh-r`/?r%-rq/?rq`$<P_2+d )? -) ) )) );; )   ) >3 ) >3) - ) );; ) ;;) ) ) )?? ) -  )--; ) ;)----->??7--->??7--->??7---  ;) ) -  )  )  )  - -:3 ) >3 )  )) ;) )) )  - ) ) -  ;) )) );)  ?) -) -? ) )) ;) )   -- - )-  ;)- ; ; )  ) )) ) )) ;) );))   - )  -- ) -)?) )? -)  - )-- -- ) ; ? ;  ?) - --)- ) )) ;) )) ) )  -  )  )   ; ; - ) ) ?)) ; ) );?)) ;) ) - ) ;? ) - )-- )  )  ) ) )) )) ) - ) )) )) );; ) ) )) ))))?;) )) )  ) )) )  )  ) )--  )