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..+,))&'$%"# !L 7 0 ! $ ه  :L HH HH`8 ީ" fޭ$ [) L) (.H8 #L h Ь` ɀ0ɠ0 L)LحQ ɍxP P " ɍHHh)Hh HhL< ɠ,HPhɍ n 0PP PЛLn؍hh` $ L{ٌ ɍɠL٩  $$    L8鰐  i )` :Ќ$ [ $$ , 0  00 ` :L7۠$ [ $ uL%ڠ8`I w aح'L0!) : ` BL~88"L~ک$ [ $$ ٭Laؠ8$ [ L7۩$ [ $ $jjjj %$ $ [L [$ (*     ' ) ` hh` w۩$ F [ $&$ [ #$ [  $%%Lܩ$% "8  jjj ܈  Ȅ$% "`Hf % "$h` 7۩ ޮ #"##@# ލPW ލQ Lݍ (ɍ 8 ɍɚ L ީLmݥ)  @ L; L XL8''`= ީ<<===  Jɀ0ɠ) ̩67 ީ"La BL / X ޹  ޹  ީ Iߙ>`6798`$ [ J$`i0i#0`$ [ Ș) $ [% `(L[ `L8LaH hɠi@hLɈ=?L`6܅7`"LXLĠӠӠԠ֠Ġ ``` `ɩLحLԗлΚȉPs}Sچm۷۬,݂rxݬަR`HT) 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 "6-0","149-159","155-172","165-186"f&H "6-1","153-164","159-177","170-191"&R "6-2","157-168","164-182","175-196"&\ "6-3","161-172","169-187","179-187"& ZERO&L"DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$'VEV$127-140","135-153"<% "5-6","125-134","131-144","139-158"f%  "5-7","129-138","135-149","144-163"% "5-8","133-142","139-153","148-167"%  "5-9","137-147","143-157","152-171"%* "5-10","141-151","147-162","156-176"&4 "5-11","145-155","15","125-140","134-151"?$: "5-7","123-132","129-144","138-155"i$D "5-8","127-137","133-148","142-160"$N "5-9","131-141","137-152","146-165"$X "5-10","135-145","141-156","150-170"$ "5-4","118-126","124-136","132-149"% "5-5","121-130","-107","104-116","112-128"C# "5-1","102-110",!107-119","115-131"m# "5-2","105-113","110-123","118-135"# "5-3","108-116","113-127","122-139"# "5-4","111-120","117-132","126-143"#& "5-5","115-124","121-136","130-147"$0 "5-6","119-12810.5)10" LITERS (ABOUT "((MW1E02WT)10.5)10" % BODY WEIGHT)"w""-------------------------------------":1100" LINE #'S 500-600 CONTAIN WEIGHT DATA FOR FEMALES ONLY WHILE #'S 750-860 CONTAIN HEIGHT WEIGHT DATA FOR MALES ONLY# "5-0", "99DY FAT = "(MF10.5)10" %"!BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS ABOUT "(BS100.5)100" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FEET)"!MW.296785WT19.4786H14.012934D":"YOUR TOTAL BODY WATER IS ABOUT "(MW ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 F3QI29.9ĺ:"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 :"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"! MF1.281QI10.13::"YOUR BOYOU ARE CONSIDERED OVERWEIGHT)!"&F1ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC DOES NOT APPLY TO YOU!":280H((H$,1,1))12((H$,3)):HH.0254:WTWT.45359QIWT(HH)@ F2QI27.5ĺ:"YOU IS FOR MALES ONLYL1TW$(W,L)H$ĺ:"YOUR IDEAL WEIGHT = ";W$(W,F1);:233ZSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT "; GG(((PWSS)100SS)10.5)10:GG10GG18ĺ"(F1TV95ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS MORE THAN 6-3, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280TV64TV75ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":240W1223: THIS-----------------------------":1100r:"--------------------------------------":TV((H$,1,1))12((H$,3))F1TV64ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS LESS THAN 5-4, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FT.)"ZWW.183809WT34.4547H35.270121:"YOUR TOTAL BODY WATER IS CA. "(WW10.5)10" LITERS (CA. "((WW1000453.6)10.5)10" LBS. WATER---OR "((WW1E02WT)10.5)10"% BODY WT.)"$"--------N & MEN, RESPECTIVELY; #'S 175 & 275 ALLOW DETERMINATION OF BODY WATER IN WOMEN m AND MEN, RESPECTIVELYWF1.48QI7::"YOUR BODY FAT = "(WF10.5)10" %"4BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS CA. "(BS100.5)100Y INDEX---START DIETING!":165c:"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"P LINE#'S 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN, RESPECTIVELY; #'S 170 & 270 ALLOW DETERMINATION OF BODY SURFACE AREAS FOR WOMEWT(HH)p LINE#'S 150- 160 AND 250-260 DETERMINE WHETHER OBESITY EXISTS FOR FEMALES AND MALES RESPECTIVELYF2QI27.0ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":165F3QI29.5ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITFEMALES AND MALES, RESPECTIVELYWH((H$,1,1))12((H$,3)):HH.0254:WTWT.45359 IN LINE #'S 145 & 245, 'Q' DENOTES 'QUETELET'S INDEX' WHICH IS USED FOR FEMALES AND MALES RESPECTIVELY, TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESE QIsues a Carriage Return before falling into GETLN.%H$FD35:715: 'RDCHAR' routine, get an input character or ESCape code. Alternate subroutine which gets characters, but also interprets the eleven escape codes.&H$FD1B:741: 'KEYIN' roith a prompt. Before CALLing GETLN, a prompt character can be POKEd to 51 ($33). DATA is returned starting at 512 ($200), and length is in register X. 1%H$FD67:665: 'GETLNZ' routine. Alternate entry point for GETLN (See 662) which isROUT (See 626).#H$FD6F:657: 'GETLN1' routine, GET an input LiNe, no prompt. GETLN1 is an alternate entry point for GETLN which does not issue a prompt before it gathers the input line. $H$FD6A:662: 'GETLN' routine, GET input LiNe w"rH$FD8E:626: 'CROUT' routine. Sends a Return character to the CuRrent OUTput device. #uH$FD8B:629: 'CROUT1' routine, return with Clear. Clears the screen from the current cursor position to the edge of the text window, then CALLs C1: 'PRHEX' routine, PRint a HEX digit. Prints the lower nybble of the Accumulator in as a single hex digit. !&H$FDDA:550: 'PRBYTE' routine, PRint a hex BYTE. Prints the contents of the Accumulator in nex on the current output device. amulator on the Display at the current cursor position and advances the output cursor. H$FDED:531: 'COUT' routine. Outputs character from the Acc- mulator. COUT CALLs subroutine at locations $36-$37, usually COUT1 (See 528)t!H$FDE3:54Mal mode for COUT1 (See 528).uH$FE80:384: 'SETINV' routine, SETs INVerse mode for COUT1 (See 528). H$200$2FF: Input buffer from keyboard.[ H$FDF0:528: 'COUT1' routine, output to screen. Displays the character in the AccuE7: General use for HI-RES Graphics.ZH$E8$E9: Pointer to beginning of shape table.H$EA: Collision counter for HI-RES Graphics.H$F0$F3: General use flags.H$F4$F8: ONERR pointers."|H$FE84:380: 'SETNORM' routine, SETs NORscribes the type of error that caused an ONERRGOTO jump to occur. See APPLESOFT BASIC PROG REF MANUAL, Page 136 for values. H$E0$E2: HI-RES Graphics X and Y coordinates. (Also $E3?) H$E4: HI-RES Graphics Color byte.%H$E5$RGOTO statement has been encountered. POKE 216,0 resets to normal error detection.H$DA$DB: Pointer to the line number of the statement where an ERROR occurred if an ONERRGOTO statement has been executed. X(222): X = Code that de0$D5: HI-RES Graphics scratch pointers.H$FF2D:211: 'PRERR' routine PRint ERror. This routine sends the word 'ERR' followed by the BELL character to the current output device.UH$D8$DF: ONERR pointers/scratch. If PEEK(216) > 127, an ONER 'IOREST' routine, restores all registers. This routine loads the registers from locations $45 to $49 (69 TO 73).H$FF3A:198: 'BELL' routine. Sends a BELL (CTRL-G) to the current output device. H$C9$CD: Random number.)H$Dter. H$FF4A:182: IOSAVE routine, saves all registers. The regi- sters are saved at locations $45 to $49 (69 to 73) in order of A-X-Y-P-S. H$B8$B9: Pointer to last character obtained through the CHRGET routine.uH$FF3F:931: commands. See 1013 and 1014. QH$AC$AE: General usage flags/pointers.H$AF$B0: Pointer to end of program. Not changed by LOMEM.H$B1$C8: CHRGET routine (CHaRacter GET). APPLESOFT calls here everytime it wants another charace cursor prompt character is '*'.RH$9D$A3: Maim Floating Point Accumulator.H$A4: General use in Floating Point math routines.H$A5$AB: Secondary Floating Point Accumularoy.#H$FF58: Address of subroutine which normally handles '&'"Y"ī80'`:B: Scratchpad byte for Slot #3.J5|H$57C: Scratchpad byte for Slot #4.t5}H$57D: Scratchpad byte for Slot #5.5~H$57E: Scratchpad byte for Slot #6.5H$57F: Scratchpad byte for Slot #7.6H$FA59:1447: 'OLDBRK' routine, handles machine $4FC: Scratchpad byte for Slot #4.N4H$4FD: Scratchpad byte for Slot #5.x4H$4FE: Scratchpad byte for Slot #6.4H$4FF: Scratchpad byte for Slot #7.4yH$579: Scratchpad byte for Slot #1.4zH$57A: Scratchpad byte for Slot #2. 5{H$57ss PREAD the number of the Controller (0 to 3) in the X Register. It returns a number from $00 to $FF in Register Y.3H$4F9: Scratchpad byte for Slot #1.3H$4FA: Scratchpad byte for Slot #2.3H$4FB: Scratchpad byte for Slot #3.$4HSlot #3. 62|H$47C: Scratchpad byte for Slot #4. e2}H$47D: Scratchpad byte for Slot #5. 2~H$47E: Scratchpad byte for Slot #6. 2H$47F: Scratchpad byte for Slot #7. |3H$FB1E:1250: 'PREAD' routine, read a Game Controller. Pa Page 1 of LO-RES GRaphics or text.1#H$FBDD:1059: 'BELL1' routine. Beeps the APPLE's speaker for .1 second at 1KHZ. 1yH$479: Scratchpad byte for Slot #1. 1zH$47A: Scratchpad byte for Slot #2. 2{H$47B: Scratchpad byte for he routine for handling non-mask- able interrupts.0H$3FC$3FD: Address of routine for handling non-maskable inter- rupts. 0H$3FE$3FF: Holds address of the subroutine which handles inter- rupt requests (IRQ).#1H$400$7FF: Should contain a JMP, and the address of the USER program. /H$3F9$3FA: Address of routine to handle USER (CTRL-Y) commands.60H$3FB: Address executed when a non-maskable interrupt occurs. It should contain a JMP, and the address of tine which handles APPLESOFT II '&' commands. Normally $4C 58 FF. .H$3F6$3F7: Address of the subroutine which handles APPLESOFT II '&' commands. Normally $58 FF.@/H$3F8: Address executed when user (CTRL-Y) command is encountered. determine whether to do cold or warm start. If soft entry vector is changed (See 1010) this byte must be reset. CALL -1169 ($FB6F) will do reset. See Page 37 of APPLE II REFERENCE MANUAL.K.H$3F5$3F7: Holds a jump instruction to the subroutch handles machine language 'BRK' requests. Normally $FA59. ,H$3F2: Soft entry vector. Contains the address of the reentry point for language currently in use. Normally contains $E003 for AUTOSTART ROM.-H$3F4: Power-up Byte. Used toMonitor.+H$3D9: Starting address of RWTS subroutine in DOS. When entered, A + Y registers must contain address of IOB. +H$3EA:1002: Reconnects DOS after it has been disconnected.D,H$3F0$3F1: Holds the address of the subroutine whiE' or ESC-@. *H$FC42:958: Clears all characters inside the text window from the current cursor position to the bottom margin. Equivalent to ESC-F. (Same as ERASE EOF.) +H$3D0: Address of routine to return control to BASIC from affected. N)H$FC66:922: Issues a line feed. Equivalent to CTRL-J.*H$FC58:936: Clears all characters inside the text window, and moves the cursor to the top left position within the text window. Equi- valent to the command 'HOM2*(26 + 27A + 5A^2) microseconds. (dH$FC9C:868: Clears current line from cursor to right margin Equivalent to ESC-E. )H$FC70:912: Scrolls text up one line. Bottom line is now blank. Characters outside text window are notaces flashing cursor on screen at position of output cursor and jumps to input subroutine (Address at $38-$39), usually KEYIN.,(XH$FCA8:856: 'WAIT' routine, delays for a specific amount of time then returns. With A in Accumulator, wait is 1/utine reads APPLE keyboard, waits for keypress, then removes flashing cursor and returns with key code in Ac- cumulator. Updates random number (See 78).'H$FD0C:756: 'RDKEY' routine, get an input character. Stand- ard input routine. PlQEH$E003:8189: The reentry point of APPLESOFT Language (?) See 1010.E H$2000$3FFF: Page 1 of HI-RES GRaphics.E0H$D000:12288: See 53248. ROM block D0F?H$C081:16255,0: Enables the APPLE's on-board ROMs again after usin in the Y Register.D H$F3F2:3086: BKGND clears last-used HI-RES screen (regard- less of switch settings) to HCOLOR most recently HPLOTted.E H$F3EE:3090: HCLR clears last-used HI-RES screen (regard- less of switch settings) to BLACK.chpad byte for Slot #6.ACH$7FF: Scratchpad byte for Slot #7.DH$800$BFF: Page 2 of LO-RES GRaphics or TEXT:CALL -2048:REM PLOT routine, PLOTS a single block on the LO-RES screen. Vertical position is in the A Register, horizontal positio card currently active. EBH$7F9: Scratchpad byte for Slot #1.oBH$7FA: Scratchpad byte for Slot #2.BH$7FB: Scratchpad byte for Slot #3.BH$7FC: Scratchpad byte for Slot #4.BH$7FD: Scratchpad byte for Slot #5.CH$7FE: ScratO-RES screen. The vertical coordinate is the A Register, leftmost horiz- ontal coordinate in the Y Register, and rightmost coordinate at 44 ($2C).BH$7F8: Holds the Slot number (in the format $CN where N is the Slot number) of the peripheralne, draws a Vertical LINE of blocks on the LO-RES screen. The horizontal coordinate is the Y Register, the topmost coordinate the A Register, and the bottom is 45 ($2D).AH$F819:2023: 'HLINE' routine draws a Horizontal LINE on Lks of LO-RES GRaphics) to reversed @. In LO-RES GR- aphics, this is a black screen.?H$F832:1998: 'CLRSCR' routine, CLeaRS the entire TEXT Page 1 to reverse @. In LO-RES GRaphics, this is a black screen.@H$F828:2008: 'VLINE' routi 'SETCOL' routine, SET LO-RES GRaphics COLOR. This routine sets the COLOR used for PLOTting on the LO-RES screen to the COLOR passed in the A Register.Z?H$F836:1994: 'CLRTOP' routine. This routine clears the up- per 20 lines (40 bloc- ed the same as 'PLOT' (See 2048). Returns the COLOR of the block in the Accumulator. =H$F8F5:1943: 'NEXTCOL' routine, increment COLOR by 3. This routine adds 3 to the current COLOR used for LO-RES GRaphics.>H$F864:1948:hpad byte for Slot #3.@<|H$77C: Scratchpad byte for Slot #4.j<}H$77D: Scratchpad byte for Slot #5.<~H$77E: Scratchpad byte for Slot #6.<H$77F: Scratchpad byte for Slot #7.g=H$F871:1935: 'SCRN' routine reads the LO-RES SCReeN. CALLratchpad byte for Slot #4.D;H$6FD: Scratchpad byte for Slot #5.n;H$6FE: Scratchpad byte for Slot #6.;H$6FF: Scratchpad byte for Slot #7.;yH$779: Scratchpad byte for Slot #1.;zH$77A: Scratchpad byte for Slot #2.<{H$77B: ScratcX' routine, PRINT A and X in HEX. It prints the contents of the A and X Regsiters as a four digit hex value.:H$6F9: Scratchpad byte for Slot #1.:H$6FA: Scratchpad byte for Slot #2.:H$6FB: Scratchpad byte for Slot #3.;H$6FC: ScHFD4A:1718: 'PRBL2' routine, PRints many BLank spaces. It prints 1 to 256 blanks, based on number in X Register. If X = $00, PRBL2 will output 256 blanks.9H$FD48:1720: 'PRBLNK' routine, prints 3 spaces.r:H$F941:1727: 'PRINTA*8zH$67A: Scratchpad byte for Slot #2.T8{H$67B: Scratchpad byte for Slot #3.~8|H$67C: Scratchpad byte for Slot #4.8}H$67D: Scratchpad byte for Slot #5.8~H$67E: Scratchpad byte for Slot #6.8H$67F: Scratchpad byte for Slot #7.9#2..7H$5FB: Scratchpad byte for Slot #3. X7H$5FC: Scratchpad byte for Slot #4.7H$5FD: Scratchpad byte for Slot #5.7H$5FE: Scratchpad byte for Slot #6.7H$5FF: Scratchpad byte for Slot #7.8yH$679: Scratchpad byte for Slot #1.language 'BRK' requests.6H$5F8: Holds the Slot number of the Disk Controller card from which any active DOS was booted. (Format = $CN where N is Slot Number?)6H$5F9: Scratchpad byte for Slot #1.7H$5FA: Scratchpad byte for Slot C010: See 16368(U H$C020: See 16352@U0H$C030: See 16336XU@H$C040: See 16320pUPH$C050: See 16304UXH$C058: See 16296 UYH$C059: See 16295UZH$C059: See 16294U[H$C05A: See 16293U\H$C05B: See 16292V]H$C05C: See 1629of seven unused bytes between DOS and DOS buffers. qTH$9D00:D25344: Start of DOS on a 48K system.T`H$AA60$AA61: Contains the length of a BLOADed program.TrH$AA72$AA73: Address of BLOADed program.TH$C000: See 16384 UH$stem only). SSH$9600: Start of DOS I/O Buffer #1. Length is 595 ($253) bytes.SSH$9853: Start of DOS I/O Buffer #2. Length is 595 ($253) bytes.SH$9AA6: Start of DOS I/O Buffer #3. Length is 595 ($253) bytes. 127 then key has been pressed, and X=ASCII value of key pressed with bit 7 on. (See 16368) H=$4000-$5FFF = Page 2 of HI-RES GRaphics. SAbH$9DBF:25153: Routine to reconnect DOS if page 3 is over- written. (48K Syorder output. Note: a POKE causes two clicks. Q?H$C010:16368,0: Resets keyboard strobe so that next char- acter may be read in. This should be done immediately after reading the keyboard (See 16384). R@H$C000:X(16384): R+ HGR except these commands reset other switches and clear the screen to black. P?H$C040:16320,0: Triggers utility strobe.P?H$C030:X(16336): Causes the speaker to emit a click.5Q?H$C020:X(16352): Causes a click on the tape recresetting window. May be Page 1 or 2. Similar to TEXT, except TEXT selects Page 1, resets screen window and mover cursor to lower left.XP?H$C050:16304,0: Switches from TEXT to GRaphics without clearing the GRaphics screen. Similar to GR tch settings. N?H$C052:16302,0: Switches display from mixed GR + TEXT to full screen GRaphics, HI-RES or LO-RES, Page 1 or 2, depending on other switch settings.O?H$C051:16303,0: Switches from GRaphics to TEXT, without 6300,0: Sets text or graphics display to Page 1. Does not clear screen or move cursor.N?H$C053:16301,0: Switches display from full screen GRaphic to mixed TEXT + GRaphics. May be HI-RES or LO-RES, Page 1 or 2, depending on other swics in ON (See 16304).L?H$C056:16298,0: Sets display to LO-RES GRaphic mode. Only visible if GRaphics in ON (See 16304).L?H$C055:16299,0: Sets text or graphics display to Page 2. Does not clear screen or move cursor.]M?H$C054:1 paddle Annunciator OUTPUT #1 to OFF.eK?H$C059:16295,0: Set paddle Annunciator OUTPUT #0 to ON.K?H$C058:16296,0: Set paddle Annunciator OUTPUT #0 to OFF. L?H$C057:16297,0: Sets display to HI-RES GRaphic mode. Only visible if GRaphiddle Annunciator OUTPUT #3 to OFF.bJ?H$C05D:16291,0: Set paddle Annunciator OUTPUT #2 to ON.J?H$C05C:16292,0: Set paddle Annunciator OUTPUT #2 to OFF. J?H$C05B:16293,0: Set paddle Annunciator OUTPUT #1 to ON.%K?H$C05A:16294,0: Set. I?H$C060:X(16288): If X>127 then cassette input is a '1' else it is a '0'. BASIC programs should not try to read tape input in this fashion. I?H$C05F:16289,0: Set paddle Annunciator OUTPUT #3 to ON."J?H$C05E:16290,0: Set passed. H?H$C062:X(16286): Reads pushbutton switch on game con- trol #1. If X>127, then this button is being pressed.I?H$C061:X(16287): Reads pushbutton switch on game con- trol #0. If X>127, then this button is being pressed?H$C066: Analog input for game paddle #2.[G?H$C065: Analog input for game paddle #1.G?H$C064: Analog input for game paddle #0. H?H$C063:X(16285): Reads pushbutton switch on game con- trol #2. If X>127, then this button is being preng the APPLE firmware card. F?H$C080:16256,0: Disables the APPLE'S on-board ROMs so the APPLE firmware card can be used. F?H$C070: Resets the timing circuit for analog (game paddle) inputsF?H$C067: Analog input for game paddle #3.,Gededededededededede^dededededededehdeLdede(deLdede2M<MFQP]̠ˠȠԧΠϠӠΠΠԠɮ)i a(ŠϧҠΧӠĠŠĠΠǠӠƠӠ͠ӠŮ)] dededede6dededede7de`deH]d M6na(ՠ٠נĠĠԠ٠͠ΠΠҠîŠ٠٠ϠԯРŠԮ)ma(Ӡ̠͠ΠŠ̠ӠӠĠҠ̠ŠŠӠĠϠЧŮ)Pa(ŠŠРРlOM program area for Slot #5.OZH$C600$C6FF: PROM program area for Slot #6.ZH$C700$C7FF: PROM program area for Slot #7.ZH$D000$F4FF: Contains APPLESOFT II BASIC program.ZH$F800$FCFF: Contains AUTOSTART ROM program.I/O bytes for use by Slot #7.PYH$C100$C1FF: PROM program area for Slot #1.YH$C200$C2FF: PROM program area for Slot #2.YH$C300$C3FF: PROM program area for Slot #3.YH$C400$C4FF: PROM program area for Slot #4.ZH$C500$C5FF: PR for use by Slot #2.IXH$C0B0$C0BF: 16 I/O bytes for use by Slot #3.~XH$C0C0$C0CF: 16 I/O bytes for use by Slot #4.XH$C0D0$C0DF: 16 I/O bytes for use by Slot #5.XH$C0E0$C0EF: 16 I/O bytes for use by Slot #6.YH$C0F0$C0FF: 16 e #3.NWpH$C070: Resets the timing circuit for analog (game paddle) inputs.WH$C080$C08F: 16 I/O bytes for use by Slot #0:REM See 16256.WH$C081: See 16255WH$C090$C09F: 16 I/O bytes for use by Slot #1. XH$C0A0$C0AF: 16 I/O bytes1V^H$C05D: See 162901V_H$C05E: See 16289IV`H$C05F: See 16288xVdH$C064: Analog input for game Paddle #0.VeH$C065: Analog input for game Paddle #1.VfH$C066: Analog input for game Paddle #2.WgH$C067: Analog input for game Paddl!z#Xı   կŠկҠϠԠ կԠϠҠ Ġ̠נũ !կήӠ"կΠկҠԠҠկŠԠկҠԠկҠŠկŠӠ ǯĠҠɠ կӠخàկӠخà[կíҮΠկíҮʠկӠҠҠ կˠԠҠĠϠՠůŠΠՠůŠӠů̠٠Ԡ!ǯǠǠҠ̠ ǯĠҠɠӠ EED TO FIND ENOUGH CONTIGUOUS"Mp"STORAGE TO STORE A FILE. IT CAN USE ANY"~z"UNUSED TRACK/SECTOR ON THE DISK, AS LONG";"AS IT KEEPS A POINTER TO IT ON THE T/S""LIST. THE SECTORS ON THE DISK DON'T EVEN";"HAVE TO BE IN ANY PARTICULAR FROM"4*"YOUR FILE. INSTEAD, IT CONTAINS A LIST"e4"OF ALL THE TRACK/SECTOR ADDRESSES OF THE";>"DATA SEGMENTS WHICH MAKE UP YOUR FILE,"H"IN THEIR PROPER SEQUENCE."R3000\"BY STORING ITS FILES THIS WAY, THE APPLE";f"DOES NOT N15.)3000;"THE CATALOG CONTAINS A POINTER TO THE"] "FIRST SECTOR OF EACH FILE."c"THE FIRST SECTOR OF ANY FILE IS CALLED""THE TRACK/SECTOR LIST (OR THE T/S LIST""FOR SHORT). "THE T/S LIST DOES NOT CONTAIN DATAH OF THESE 256 BYTE SEGMENTS HAS A"Q"PHYSICAL LOCATION ON THE DISK WHICH IS""SPECIFIED BY A TRACK NUMBER AND A SECTOR";"NUMBER WITHIN THAT TRACK.""(TRACK NUMBERS RANGE FROM 0 TO 34, WHILE";"SECTOR NUMBERS RANGE FROM 0 TO 0ĺ:23:34,0:1"END OF THIS T/S LIST"R"PRESS ANY KEY TO CONTINUE"_A$:950s INSTRUCTIONS ~11:1"EACH FILE ON THE APPLE ]";(91);" IS STORED ON""THE DISK IN 256 BYTE SEGMENTS CALLED""SECTORS."#"EAC(TS13I2)'eTT0SS0ĺ:23:34,0cf"DO YOU WANT TO DO ANOTHER ONE? (Y/N)";:A$:A$"Y"95igzjTT10ĺ" ";tTT;"/";:SS10ĺ" ";~SS;:" ";I79ľA$ITRK(TS1):SECT(TS2): NEXT T/S LIST SEGMENTTRK0SECTIGH BYTE ($9300)3IOB8,0: T/S BUFFER LOW BYTEHIOB13,0: RC=0RRWTS72,0: RESET P REGISTER IN REGISTER SAVE AREA$5000: CHECK RC.TS37632: LOCATION OF T/S BUFFERLI0121: 122 T/S PAIRS PER BUFFER `TT(TS12I2):SSNUSED"1TRK255ST$"DELETED":TRK(ENTRY32)d5:1:" T/S LIST:TRACK ";TRK;" SECTOR ";SECT;6:1:" STATUS:";ST$34,7:: SET TEXT WINDOW READ T/S LISTIOB4,TRK: TRACKIOB5,SECT: SECTORIOB9,147: T/S BUFFER HCT MODULE"+aFTYP32FTYP$"A-TYPE FILE"LfFTYP64FTYP$"B-TYPE FILE"op3:1:"FILE TYPE:";LCK$;FTYP$zLGTH(ENTRY33)(ENTRY34)2564:1:" LENGTH:";LGTH;" SECTORS"TRK(ENTRY):SECT(ENTRY1)ST$"ACTIVE"TRK0ST$"UK$"LOCKED ":FTYPFTYP128'>FTYP$""ECFTYP0FTYP$"TEXT FILE"oHFTYP1FTYP$"INTEGER BASIC PROGRAM"MFTYP2FTYP$"APPLESOFT BASIC PROGRAM"RFTYP4FTYP$"BINARY FILE"WFTYP8FTYP$"S-TYPE FILE" \FTYP16FTYP$"RELOCATABLE OBJEIED: JAN 09, 19822 I03 I 6 (P$)3P$"0"P$:220<  *************** * * * PADDLE TEST * * * * BY: * * PETER * * WYSPIANSKI * * * * JAN 2, 1982 * * * *************** LAST MODIFAM HALTED BY USER":8:"CONTINUE?";:G$:G$"N"Ģ10:1:958:40G ZV dP$((0))_ n220 xB1$"OFF":(16287)127B1$" ON" 5:" "P$;:14:B1$; P$((1)) 220 B1$"OFF":(16286)127B1$" ON" " "P$;:30:B1$ / KBD16384:STB16368:B116287:B216286L::14:"[PADDLE TEST]"w3:5:"PDL(0) PB(0) PDL(1) PB(1)"(10:8:"PRESS ANY KEY TO HALT"2100:READ PADDLES<190:DELAY HARDWAREFG(KBD):G12850A PSTB,0:10:8:(7)"PROGR    Ҡ700: NO MORE DIRECTORIES:DT(DIR1):DS(DIR2):500n23:1:"THE FILE ";NM$:"IS NOT ON THIS DISK";13:1:"PLEASE RE-ENTER THE FILE NAME"160  FOUND THE ENTRY*:1:1:"FILE NAME:"NM$;4FTYP(ENTRY2):LCK$"":FTYP127LCNAMEKbI06: SEARCH CATALOG SECTOR. EACH CATALOG SECTOR HAS 7 ENTRIES.wlENTRYDIR11I35: POINT TO NEXT ENTRYq(ENTRY3)0700vJ1(NM$):((ENTRY2J)128)(NM$,J,1)ī650J:800: FOUND NAMEI(DIR1)0(DIR2)0ī IOB9,146: DIRECTORY BUFFER HIGH BYTE ($9200)[ IOB8,0: DIRECTORY BUFFER LOW BYTEp !IOB13,0: RC=0z &RWTS '72,0: RESET P REGISTER IN REGISTER SAVE AREA 05000: CHECK RC :DIR37376: LOCATION OF DIRECTORY BUFFERX FIND FILE RWTS9 72,0: RESET P REGISTER IN REGISTER SAVE AREAO 5000: CHECK RC w VTC37120: LOCATION OF VTOC BUFFER DT(VTC1): DIRECTORY TRACK DS(VTC2): DIRECTORY SECTOR  READ DIRECTORY IOB4,DT: TRACK IOB5,DS: SECTOR2AND DCT AT $9000) 6IOB36874:RWTS368649 @ READ VTOCR JIOB1,S16: SLOT #h TIOB2,D: DRIVE~ ^IOB4,17: TRACK hIOB5,0: SECTOR rIOB9,145: VTOC BUFFER HIGH BYTE ($9100) |IOB8,0: VTOC BUFFER LOW BYTE IOB13,0: RC=0 TER THE FILE NAME "! 9585 14:4:" ";NM$H (NM$)30150Z (NM$)1ė: 16:5:"SLOT NUMBER? ";:A$:A$:S(A$):S1S7ī170 18:5:"DRIVE NUMBER? ";:A$:A$:D(A$):D1D2ī180 ,4000: LOAD RWTS JUMP INSTRUCTION, IOB, "L x8:4:" BY: JOHN MATUSHEK "| }9:4:" ": X1150 11:1:"DO YOU WANT INSTRUCTIONS? (Y/N) "; A$:A$:A$"Y"İ2000:150 A$"N"130 13:1:"PLEASE EN 36864& SECTOR LIST BY FILE= BY JOHN MATUSHEK^ MODIFIED BY PHIL FAULCONERu NOVEMBER 7, 1981ZX0:100_X1d:i5:4::" "n6:4:" TRACK/SECTOR LISTING OF A FILE " s7:4:"  YTON, OHIO *#  ****************8 PAGE 2 COMMENTS> V =QUIT" 700( KB209ė::'Q'M KB195ė::D$;"CATALOG"::'C' KB205ĺ:D$;"BRUN MENU 3.1":: KB="M"? "";:640 KB(16384):KB128700 16368,0   ****************  * APPLE-DAYTON *  * DAK X:2:5:"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 STEVE ALLEN, (513) 253-0645"H !"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 NL- PROMOTE 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, 7:30 P.M.,":"WRIGHT STATE UNIVERSITY, DAYTON, OHIO.": "CONTACTS-":"PRES-?: APPLE-DAYTON HELLO PROG. MASON FRIAR, DTD 5 JUL 80.YVOL33:MTH$"JANUARY 1983"b700D$"":D$;"NOMON C,I,O"::5002000600:2:13::" APPLE-DAYTON "::4:"THE APPLE USERS GROUP OF DAYTON, OHIO":5 "GOA     5 "NOMON CIO"4I032:BYTE:768I,BYTE:I:b("TYPEWRITER SOUND (Y/N) ";2TW$:TW$"Y"TW$"N"50<:"HOW MANY ITERATIONS ";FIT:IT1ĺ:" INVALID ENTRY":70PTW$"Y"110 Z:"TIME DELAY BETWEENS "RC  891,0:36892,0:36893,0636894,0:36895,0:36896,0Y36897,1:36898,239:36899,216_hw CHECK RETURN CODERC(IOB13)RC0ı20:5:"AN ERROR HAS OCCURRED WHILE"21:5:"READING THE DISKETTE"22:5:"THE RETURN CODE I0:36868,32:36869,217636870,3:36871,96:36872,0V36873,0:36874,1:36875,96v36876,1:36877,0:36878,1736879,0:36880,32:36881,14436882,0:36883,145:36884,036885,0:36886,1:36887,036888,0:36889,96:36890,136DOM ACCESS"8 "TEXT FILE.)"(B 3000. i 24:1::"PRESS ANY KEY TO CONTINUE OR ESC TO END";: A$:(A$)27ė:: 11:1:958  LOAD RWTS JUMP INSTRUC AND IOB AND DCT AT $900036864,169:36865,144:36866,16036867,1YPE OF FILE,">"THE LENGTH (INCLUDING THE T/S LIST), THE";o"ADDRESS OF THE T/S LIST, AND WHETHER THE"; "FILE IS CURRENTLY ACTIVE, OR HAS BEEN" "DELETED." $ "(NOTE: THIS PROGRAM WILL NOT IDENTIFY" . "ALL SEGMENTS USED BY A RAN ORDER. ONLY";?"THE ORDER OF THE ENTRIES IN THE T/S LIST";T"IS IMPORTANT."^3000"THIS PROGRAM READS THE T/S LIST OF A""FILE, AND PRINTS A LIST OF EACH TRACK/""SECTOR USED BY THE FILE." "IT WILL ALSO TELL YOU THE T$% 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 ---------------------------------------- ) 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       CHARACTERS ";E dPSE:PSE0PSE300ĺ:" 0 < DELAY < 300":90 nMSG$"THIS PROGRAM ALLOWS YOU TO SCROLL TEXT ACROSS THE BOTTOM OF THE SCREEN MUCH LIKE THE TICKER TAPE USED ON THE STOCK MARKET (LIMIT IS 255 CHARACTERS) .......... " xLNGTH ";A$:A$;", AND"-0"ENTER YOUR REAL WEIGHT.":2905:~ "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080:"YES OR NO, PLEASE.";:2010 ::"'BYE FOR NOW,09 "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."D 1980i "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290 &"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";ASERIOUSLY AFFECTED." 1980h: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION." 198>z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"I 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 1980: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES BLOOD ALCOHOL IS ABOUT ZERO.". 1050[  "YOUR PER CENT OF BLOOD ALCOHOL IS ";Bn* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910p: 7) "+++++ REST IN PEACE +++++"194((W100)10.00009): R .765(((W100)10).015)] B (D1000(W16R))(60X)v B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015) B0 800# "YOUR PER CENT OF "HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;3& Hc0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD X .00ARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"M "B = BEER (12 OZ)"] "W = WINE"c  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530 510 +S ";K;" KILOGRAMS.)":430g "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM."s WW2.2y   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"5 "M = 'MIXED' (H @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"E JB$:(B$)0360Z T(B$,1)"P"380o ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5) :"(";W;" POUNDS ION. MEDICATIONS,"` "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830017:"BOOZE" i "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL" "TOLERENCE. FOOD IN THE STOMACH AFFECTS THE RATE OF ABSORPTI  BOOZE 9 A PROGRAM ON THE PHYSIO-R LOGICAL EFFECTS OFm ALCOHOL ON THE HUMANx BODY~ BY DICK CARTER AND JIM HUNGERFORD APPLESOFT VERSION BY JOHN COOKd:70: 5:     173,26,3,153,208,7,224,40,208,234,96,0,0,0,0,0,0,0,0(MSG$) 24:868:2040,160, RPT1IT@ I1LNGTH:768` 200039,((MSG$,I,1))128 TW$"N"āPAUSE1PSE:PAUSE:210 Y1(.5(1)5) PKPK(16336) Z130:Z,Y I,RPT4 162,0,232,189,208,7,141,26,3,138,56,233,1,168,Gl"THIS ASSUMES THAT YOUR CALORIC INTAKE ":"IS STILL "DP"% PROTEIN"MqvPC0ĺ"PREGNANCY WILL ALTER THE RESULTS,":"CHECK WITH YOUR DOCTOR"WEEK" IIN"HOW MANY WEEKS DO YOU WISH TO MAKE THE":"DIET FOR? ";DTUXDT0Ā[]b"DAILY INTAKE SHOULD BE "(KC)" + "((IWWT)1100PFDT)" = ":(KC(IWWT)1100PFDT)" CALORIES FOR "((IWWT)DT)(((IWWT)DT100.5)100)" KG/WK"g5)100" KG OR "(PW100.454.5)100" LB ":"ADDITION FOR A PREGNANCY OF "PC" WEEKS"cIWWT0Āi!&"DO YOU WISH A DIET SCHEDULE ";DI$0(DI$)78Ā:(DI$)89550D"AN OFTEN RECOMMENDED GOAL FOR WEIGHT":"CHANGE IS 0.5 KG (1 LB) / WUS ACTUAL WEIGHT"fIW;"-";WT;" = ";(100(IWWT).5)100" KG OR ";(100(IWWT).454.5)100" LBS"l"IDEAL WEIGHT FOR YOUR HEIGHT - ":(100CW.5)100" KG OR "(100CW.454.5)100" LBS +/- 10%" TPC10ĺ"THIS INCLUDES A "(PW100.8HT7 A PRECISION STATEMENT NOT IN MICROSOFT BASIC"YOUR CALCULATIONS FOLLOW"::"BASAL METABOLIC RATE - ";(BMFC.5)" CALORIES "KC(AFBMFC)PF"AVG. CALORIE REQUIREMENT - ";(KC.5)" CALORIES""STATED IDEAL WEIGHT MIN1.3A32.6A44.1A58A6)TA: ACTIVITY FACTORvCW.00192HT2.0448HTPW: CALCULATION OF OPTIMAL WEIGHT, CW(HT)460: SKIP MALE CALCULATIONSBM6713.8WT5.0HT6.8AGAF(.9A1A21.5A32.9A44.3A58.4A6)TACW.00177HT2.08TPC10PW.454(PC10):FC300: PG CORRECTIONS:^390Yh"ARE YOU LACTATING? ";LC$r(LC$)89FC500:390: LACTATION CORRECTIONS|(PR$)78(LC$)78310BM6559.6WT1.8HT4.7AG: BAS METABOLIC RATE CALCULATION /AF(.9A1A2CENT OF YOURS IS PROTEIN - ";DP% : DP0DP100260V PF1.06(DP15)100.28i "FC0:PC0:PW0 ,SX77430: FEMALE CALCULATIONS FOLLOW 6"ARE YOU PREGNANT? ";PR$ @(PR$)89360 E J"HOW MANY WEEKS POST CONCEPTION? ";PC O1RATE ACTIVITY E.G. ACTIVE WORK - ";A5N "HEAVY ACTIVITY E.G. RUNNING - ";A6g TAA1A2A3A4A5A6 TA22TA26ĺ"DOES NOT ADD UP TO ONE DAY!!!":170 "AVERAGE DIETS HAVE ABOUT 15% OF THEIR ":"CALORIES AS PROTEIN."  "WHAT PERCCURATE FOR YOUR HEIGHT":_ :"HOW MANY HOURS PER DAY ARE SPENT DOING":" THE FOLLOWING: "e "SLEEPING - ";A1:"LYING DOWN AWAKE - ";A2 "SITTING OR STANDING - ";A3 "LIGHT ACTIVITY E.G. COOKING OR ":"WALKING - ";A4% "MODEWEIGHT (LB/KG) UNDRESSED ";WT# sG x"HEIGHT (IN/CM) W/O SHOES ";HTM }q "PRESENT IDEAL WEIGHT ";IWw MS69WTWT.454:HTHT2.54:IWIW.454 WT40WT125ĺ"SORRY, NOT ACCURATE FOR YOUR WEIGHT": HT140WT200ĺ"SORRY, NOT ASX7740. <"WHAT IS YOUR AGE IN YEARS?";AGm FAG19ĺ"SORRY, I DON'T WORK FOR AGES LESS THAN":" 20": P"MEASUREMENTS MAY BE IN KG/CM OR LB/IN " U Z"DO YOU USE ENGLISH (E) OR METRIC (M)? ";MS$ dMS(MS$):MS69MS7790 i n" 33,40b :"PROGRAM FOR THE DETERMINATION OF ADULT":" ENERGY REQUIREMENTS"h"RESPONSES SHOULD BE A LETTER OR NUMBER":"FOLLOWED BY A CARRIAGE RETURN"("ARE YOU MALE (M) OR FEMALE (F)? ";SX$ 2SX(SX$):SX70     GG18ĺ"(YOU ARE CONSIDERED OVERWEIGHT)!"/F1ĺ"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC. DOES NOT APPLY TO YOU!":180 IN LINE #'S 140 & 240, 'H' DENOTES HEIGHT IN METERS & 'WT' WEIGHT IN KILOGRAMS OF 3b LINE#'S 133 & 233 DETERMINE THE % THAT YOUR WEIGHT EXCEEDS YOUR MAXIMUM IDEAL WEIGHTSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT. ";)GG(((PWSS)100SS)10.5)10:GG10RAM CAN OFFER YOU NO INFORMATION!":180cTV60TV70ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":140dW111: THIS IS FOR FEMALES ONLYnL1xW$(W,L)H$ĺ:"YOUR IDEAL WEIGHT=";W$(W,F1);:13S FOR MALESaF1TV60ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS LESS THAN 5-0, THIS PROG-RAM CAN OFFER YOU NO INFORMATION!":180'bF1TV70ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS MORE THAN 5-10, THIS PROGITH BED CLOTHING)? ";WT!UPWWT/ZS95,195}_:"--------------------------------------":TV((H$,1,1))12((H$,3)) ` LINE #'S 97-99 & 137 EXPRESS THE PROGRAM LIMITATIONS FOR FEMALES WHILE LINE #'S 197-199 & 237 EXPRESS THE PROGRAM LIMITATION,1)"ZERO"JJ1:80FK,JJP:"LIST YOUR SEX (FEMALE=1; MALE=2) ";SQ"WHAT IS YOUR HEIGHT TO NEAREST INCH (E.G. 5-10) (NO SHOES) ";H$R"WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ";FS"WHAT IS YOUR WEIGHT (IN POUNDS WNE #'S 25, 96, 100, 132, 138, 143, 148, 162, 200,490."`::"TOUCH 'RETURN' TO CONTINUE!";A$h:W$(30,5): THIS IS AN ARRAY FOR HEIGHT & WEIGHTS CORRESPONDING TO SMALL, MEDIUM, & LARGE BODY FRAMESJ130(K142W$(J,K)<W$(J: %BF=100-(137*WT.WATER/BODY WT.)."}::"MORE REFERENCES: HUME & WEYERS, J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"6"(A DHSS/MRC REPORT) HER MAJESTIE'S":"STATIONERY OFFICE, LONDON, 1976 (ISBN":"0 11 450034 7). REMARKS ARE TO BE FOUND IN LINDEX' (QI). THIS CRITICAL":"INDEX IS REACHED WHEN THE PERSON'S":"WEIGHT IS ABOUT 18% ABOVE THE MAXIMUM""IDEAL WEIGHT. ALSO QI IS USED TO"#"ESTIMATE BODY FAT (BF). THE BF VIA QI ISIN GOOD AGREEMENT WITH THE VALUE FROM":"TOTAL BODY WATER USING-20%":"ABOVE THE DESIRABLE WEIGHT. 'OBESITY' ISAPPLIED TO PERSONS WHO ARE ABOUT 20% OR":"MORE OVERWEIGHT." ::"TOUCH 'RETURN' TO CONTINUE!";A$i:"IN THIS PROGRAM, OBESITY IS DETERMINED":"BY A CRITICAL OBESITY INDEX BASED UPON":"'QUETELET'S I. ABOUT":"55-60% OF THE BODY WEIGHT IS WATER.":"A DEVIATION OF NOT MORE THAN 10% ABOVE":"OR BELOW THE DESIRABLE WEIGHT FOR AN" "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"l "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-":"LY APPLIED TO PERSONS WHO ARE 10 FAT, BODY SUR-":"AREA, AND TOTAL BODY WATER. THESE ARE":"APPLICABLE TO THOSE OVER THE AGE OF 16.":"GENERALLY, THE % TOTAL BODY WATER "IS LOWER IN FEMALES THAN IN MALES." "FURTHER, THE % OF WATER IN LEAN PERSONS IS HIGHER THAN IN OBESE PERSONSVEN ARE FOR BED CLOTHING AND":"ARE FOR MEN AND WOMEN OF AGES "25 AND OVER (FOR GIRLS 18-25, SUBTRACT":"1 POUND FOR EACH YEAR UNDER 25)." ::"TOUCH 'RETURN' TO CONTINUE!";A$ :"BESIDES IDEAL WEIGHTS, THIS PROGRAM":"ESTIMATES OBESITY, BODYLOTHING, WHICH WERE USED IN THIS":"PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-= "TION', (13TH EDITION), BY C.H.ROBINSON,":"1972, P.848 (MACMILLAN). HEIGHT LIMIT-":"ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;":"FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL":"WEIGHTS GIF:"DO YOU WANT INFORMATION REGARDING THIS PROGRAM (Y/N)? ";FF$WFF$"N"ī20J "THIS PROGRAM TELLS YOU WHAT YOU SHOULD":"WEIGH BASED ON DATA ADAPTED FROM THE":"BOOK (WEIGHTS IN THIS BOOK WERE SUB-":"TRACTED BY 3 TO GIVE WEIGHTS IN BED":"C                HE ";::"ESCAPE";::" KEY."Z :"TO RUN HIT THE ";::"RETURN";::" KEY."h 16368,0x 22:20:A$ A$(27)ĉ:: A$(13)ĉ:::R$: A120:Z(16336)::250 "16368,0 , 6A0:16368,0 @AA1:AWıJ:"THE DISK WILL START TO SPIN IN A SECOND OR TWO. IF THE PROGRAM CANNOT FIND YOUR FILE, IT WILL TELL YOU.":310 :"IF IT FINDS YOUR PROGRAM, IT WILL REVIVE IT AND ALSO LOCK IT TO PREVENT ANY FURTHER MISHAPS.":310 :"TO EXIT NOW TYPE TIT JUST MIGHT WORK.)"& W400:310:. : "THE PROGRAM WILL PROMPT YOU FOR A FILE NAME. THIS NAME MUST BE LESS THAN 28 CHARACTERS LONG. IF YOUR FILE HAS A LONGER NAME, JUST TYPE" "27 CHARACTERS OF THE NAME." W200:310v AVES SHOULD BE PERFORMED ON THE DISK.":310 :"IF YOU HAVE SAVED A FILE SINCE YOU HAVE DELETED ONE, THE CHANCES THAT THE ORIGINAL CAN BE RECOVERED ARE VERY";:W125:310 ", VERY SLIM."::310:"(IT IS POSSIBLE, SO TRY THE PROGRAM-- GUST":W50:310 Z16368,0 d:" I N S T R U C T I O N S"::"THIS PROGRAM CAN RETRIEVE A FILE OR PROGRAM THAT HAS BEEN DELETED FROM A INITIALIZED DOS 3.3 DISK" nW200:3100 x:"THE DISK SHOULD BE UNALTERED--";:W100:310:" NO S R$"RUN U/UNDELETE"F:10:0,470:0,4739:0,390:0,3946u24:8:" HIT ANY KEY TO CONTINUE ";:3:2(32,1:33,38:34,1:35,232<12:" <<< U N D E L E T E >>>"FW100:310:16368,0 P912:13:" BY L.r-r%lm-rn`-r-r%l-rm'n-rq-r[a()Q%l-rm'n'-rq-rd-rq882?rrrs`-r%-rq`-r-r%[`-r'%-rq'jfl-rm-rnf`-r-r%lm-rn`-r-r%l-rm'n`f`-r`%q-rm`%q/?%rrq/?r_2m`$-rq882?rrrs`-r-r$`-r%-rq`-r'%-rq'xfl-rm-rn'f`-r-r%lm-rn'`-r-r?r.?6?rY%6`%q`'%q@oPbGP!bEfghJ`$#Tfgh86(rS^UVWK`$c`.?6?r%q`.?6?r%q c\Yhq-/?rfgh,`8r81?rr%q/? r`%q1?rq'q'q6`.?6?r%q`.?6?r%q_2,fgh".fgh86(r+1UVWKq.?6?r.?6fghxq`%\Y\'`=>8(6rr$,UVW q.?6?rY`$q-&r/`%q`%q`%q6`%q6`%q6`%q6`%q)&@8 S(ŠŠ)'`$ q $M6&`@*r:()$^ (qf lm'n'_^ 2UVWX5<q`&$d`%q`&%q& Zq6UVWq.?6?rY+d`'$xfgh_]Ǡ٠̠]U]ŠӠ̠ŠŠҠӠҠǠL O4rN@" rq&qq6"f ij&kij&k'2M6oS(̠ҠǿȠҠЮ     r :10:"WHAT IS THE FILE YOU WISH TO RECOVER?":12:">............................";:1:">";N$:(N$)2810{LF0(N$)0Ģ12:">>> T E R M I N A T E D <<<":(Q$"":A1(N$):Q$Q$(((N$,A,1))128):2N$Q$<430 (16384)127ıT320320BLIC DOMAIN & ARE ENCOURAGED TO COPY AND REDISTRIBUTE TO OTHERS AS LONG AS THE PREVIOUS ACKNOWLEDGEMENT IS INCLUDED. E FOUND THAT THEY PROMPTLY BE BROUGHT TO MY ATTENTION. "I:34,0Ow24:1:"PRESS ANY KEY ";:KB$:: WRITTEN BY KEITH G.MOMBERG FEBRUARY 1982 (513)574-2146  THIS PROGRAM IS PU I HAVEMODIFIED IT FOR THE APPLE SO AS TO HAVE A LARGER PLAYING FIELD TO PROVIDE MORE OF A CHALLENGE."=:::"ALTHOUGH EVERY ATTEMPT HAS BEEN MADE SO THAT THIS PROGRAM IS ERROR FREE, BUGS DOAPPEAR. THEREFORE, I WOULD APPRECIATE IT IF ANY ERRORS AR2305:"IF AT ANY TIME YOU WISH TO REVIEW PREVIOUS GUESSES, CHOOSE THE REVIEW OPTION. TWO GUESSES WILL BE DISPLAYED ATA TIME BEFORE THEY ARE SCROLLED OFF THE SCREEN."g5:"THIS PROGRAM WAS ORIGINALLY WRITTEN FOR A PROGRAMMABLE CALCULATOR BUT SIMILARLY,8 ARE TO THE EAST OF 2,2 WHILE1 IS TO THE WEST INDICATING THAT 1 IS ALONG COLUMN 2. ";"SINCE 0 ARE TO THE NORTHTHAT ROW CAN BE ELIMINATED BY CHOOSINGTHE ELIMINATE OPTION, THEN ENTERING R1 FOR ROW 1 (C1 WOULD BE FOR COLUMN 1)." WEST 1 10":"X,Y CO-ORDINATE 2,2 IS CHOSEN"::"THE 10 TO THE FAR RIGHT REFERS TO THE NUMBER OF SILOS STILL TO BE DESTROYED. AS YOU CAN SEE, 0 ARE TO THE NORTH OF 2,2 ";e"WHILE 9 ARE TO THE SOUTH INDICATING THAT ONE IS ALONG ROW 2 SOMEWHERE.O AT A ";:22:"TIME)"a n5:"Q(UIT) DISPLAYS LOCATIONS OF";:22:"ALL REMAINING SILOS"j x230 17::"STRATEGY"::5:"SO THAT YOU MAY BETTER UNDERSTAND THE STRATEGY INVOLVED, AN EXAMPLE IS PROVIDED:":"NORTH 0 SOUTH 9 EAST 8 E OF,YOU ARE READY TO BEGIN THE GAME.YOU HAVE SEVERAL OPTIONS:"::5:"C(O-ORDINATE) TO ENTER X,Y GUESS":5:"E(LIMINATE) A ROW OR COL SO AS TO"; d22:"AVOID UNNECESSARY":22:"GUESSES":5:"R(EVIEW) PREVIOUS GUESSES(ONLY";:22:"DISPLAYED TWYED. THIS # MUST NOT EXCEED99 SINCE THE FORMAT OF A LATER DISPLAYWOULD "; P"NOT APPEAR AS INTENDED. YOU MUST ALSO PROVIDE 2 SEEDS USED FOR A RANDOM NUMBER GENERATOR FOR THE X AND Y CO-ORD-INATES. " Z5:"ONCE THE PRELIMINARIES ARE TAKEN CAR11::"TO START THE GAME"::5:"FIRST, YOU MUST PROVIDE THE SIZE OF THE PLAYING FIELD WITH THE X,Y CO-ORD- INATE SYSTEM WHERE X REPRESENTS THE # OFCOLUMNS AND Y REPRESENTS THE # OF ROWS." <230L F5:"YOU MUST ALSO PROVIDE THE # OF SILOSTO BE DESTROTHE SILOSSO AS TO GIVE THE GAME STRATEGIC APPEAL.IF THIS INFORMATION IS USED AS INTENDED,THE USER WILL BE ABLE TO DESTROY ALL OF THE SILOS IN A FEWER NUMBER OF STEPS "; ("AS COMPARED TO THE INDIVIDUAL WHO JUST GUESSES (SUCH AS BATTLESHIP)." 2: 2 ::7:"WORLD WAR III INSTRUCTIONS":34,2:5:"WORLD WAR III IS A STRATEGIC GAME INWHICH THE PLAYERS ARE TO DESTROY THE SPECIFIED NUMBER OF SILOS IN THE LEAST NUMBER OF TRIES. "; "INFORMATION WILL BE PROVIDED AS TO THE LOCATION OF      BUFA2,L TSTART20,W. ^START12,TRACKB hSTART13,SECTRL r8192 |::"**************************************** R E C O V E R E D ****************************************":: "CATALOG": N$N1$290 18060N1$(N1$,(N1$)1):260, N1$N$180 ""**************************************** F O U N D I T ****************************************" ,TN(BUFA32):BUFA,TN:BUFA32,160 6L(BUFA2) @L128LL128 JR ELSE IT DOESN'T EXIST. PERHAPS YOUR TYPING WAS WRONG, OR ELSE YOU HAVE SAVED A FILE ON THIS DISK SINCE THE DELETION."::: SECTRSECTR1:SECTR0LF1:200 80 B331 N1$N1$((BUFAB)) (N1$)2400 ((N1$,1))1 FTRACK17:SECTR15( PSTART12,TRACK< ZSTART13,SECTRL dSTART20,RV n8192j xLTRACK(BUF1)~ LSECTR(BUF2) LTRACKLSECTR0LF1 A11 N1$"" (BUFA)255230 AA35 A223170 LF1ĺ:"FILE IS NOT DELETED OISTRIBUTE TO OTHERS AS LONG AS THE PREVIOUS ACKNOWLEDGEMENT IS INCLUDED. 2";EAST;" ";::"WEST";::" ";WEST;" ";>:" ";SILOS;" ":G240 WRITTEN BY KEITH G.MOMBERG FEBRUARY 1982 (513)574-2146 R THIS PROGRAM IS PUBLIC DOMAIN & ARE ENCOURAGED TO COPY AND REDGUESS lGS$(TRY)("00"(TRY),3)" "("0"(X1),2)" "("0"(Y1),2)" "("0"(NRTH),2)" "("0"(SOUTH),2)" "("0"(EAST),2)" "("0"(WEST),2)v22:1:868::"NORTH";::" ";NRTH;" ";::"SOUTH";::" ";SOUTH;" ";':"EAST";::" JY1IĞ:" ";::198:SILOSILO1:SILO(X1,Y1)0:SILOS0ė:"YOU FOUND ";S1;" SILOS IN ";TRY;" TRIES":&Y1INRTHNRTH10 DETERMINE # N,S,E,W :Y1ISOUTHSOUTH1DX1JWESTWEST1NX1JEASTEAST1XJ,Ib SET UP OUTPUT FOR (J,I)1ĢI:J::" ";:&J,I:24:,23:1:868:"ENTER X,Y CO-ORDINATES ";X1,Y1:X11Y11X1WIDEY1HIGHČ198:480TRYTRY1:Y1:X1:"*"; CHECK FOR HIT OR MISS I1HIGH:J1WIDESILO(J,I)1600Y1:X1iX1BR:I1WIDE:"*";::2501 hNBRWIDENBR1250T rI1HIGH:I:NBR:"*";::250s | REVIEW PREVIOUS GUESSES :I1TRY:GS$(I):16368,0 PK(16384):PK127400 PK155ė:240 I::240  QUIT I1HIGH:J1WIDESILO"260 KB$"C"480' KB$"R"3908 "KB$"Q"440T , ELIMINATE ROW OR COL 623:1:868:"WHICH ROW/COL ? ";ELIM$:RC$(ELIM$,1,1):RC$"R"RC$"C"Č198:310 @NBR((ELIM$,2,(ELIM$)1)) JRC$"C"360 TNBRHIGHNBR1250 ^NB(HIGH1)1.5)$ SILO(X,Y)0210@ XX1:XWIDEX1:YY1P YHIGHY1Y 170i SILO(X,Y)1q :{ TRY0 NRTH0:SOUTH0:EAST0:WEST0 23:1:868:"E(LIM),C(O-ORD),R(EVIEW),Q(UIT) "; KB$:KB$"E"KB$"C"KB$"R"KB$"Q0SD20SD1199017SD2199017Č198:1105 xI1S1 B(24298SD199991):B(B(B199017)199017):SD1B:BB199017:B(10000B)10000 X(B(WIDE1)1.5) B(24298SD299991):B(B(B199017)199017):SD2B:BB199017:B(10000B)10000 Y(E2:I10ĺ" "; <I::H FHIGH1::1:I1WIDE:I(I10)10;::] PSILO(WIDE,HIGH)q ZGS$(HIGHWIDE) d GENERATE RNDM #'S BUT DON'T ALLOW THE SAME POINT TO BE GENERATED ) n34,21::::"SEED1,SEED2 (0 < SEED < 199017) ";SD1,SD2:SD1S  :"NOMON CIO":r:"GRID SIZE ( 5,5 TO 20,35 ) ";HIGH,WIDE:HIGH5WIDE5HIGH20WIDE35Č198:203:"# OF SILOS TO DESTROY (1-99) ";SILOS:S1SILOS:SILOS1SILOS99SILOSHIGHWIDEČ198:30( SET UP GRID  2::I1HIGH:WID     íҮʠź κӺҺ堠կíҠή̤źկӠҠҠźκӺҺ򠍠堠堠堠𮠠堠կíҮʠ󮍱ź䠠󮠠󠍠򮍱źկíҮΠźκӺҺկӠخàկӠخà󠍠䠠ɠ砍󮠠堍䬠䠠ɠ堠젠堠䠠宮źկӠخàźκӺҺ堠A192AA32 A32AA1922 A64AA128A A96ī180Q (A);:120m :D$;"CLOSE":"DONE":1***************? dD$(4)::::19:33,7::15:33,40:180 nD$;"MON O":"APPLE WRITER FILE NAME? TEXT.";A$:D$;"BLOAD TEXT.";A$::A$;" LOADED"::"DESTINATION NAME? ";T$:AD6401:D$;"OPEN";T$:D$;"WRITE";T$ xA(AD):ADAD1:A224AA64 n ***********************= * *[ * CONVERT APPLEWRITER *y * TO DOS TEXT FILES * * ------------------- * * FROM APPLE COMPUTER * * TECHNICAL NOTES * * * ******** / START8192:BUF9000:ASTARTSTART28= V:A,V:  169,32,160,8,32,217,3,96,1,96,1,0,17,15,25,32,40,35,0,0,1,0,0,96,1,0,1,239,216 R1:W2 R CASE WITH THE 0  FOLLOWING INSTRUCTIONS...P  ]LOAD U/ADDRESS INDEX.LCm " ]BRUN U/LC-KILLER.OBJ , ]UNLOCK U/ADDRESS INDEX.LC 6 ]DELETE U/ADDRESS INDEX.LC @ ]SAVE U/ADDRESS INDEX J ]LOCK U/ADDRESS INDEX T ]LIST OMPUTER AND THEN LIST IT ON A PRINTER.S IF YOU DO NOT HAVE ACCESS TO A PRINTER THE LISTING CAN STILL BE READ FROM THE MONITOR. IF YOU DO NOT HAVE A LOWER CASE CHIP THEN YOU MUST CONVERT THE LISTING FROM  LOWER CASE TO UPPE ONE DOES. THESE? ADDRESSES CAN BE PEEKED POKED OR CALLEDm IN ORDER TO USE THEIR VARIED FUNCTIONS. THIS LISTING IS FORMATTED TO BE PRINTED OUT ON A PRINTER IN AN 80-COLUMN FORMAT. SIMPLY LOAD 'ADDRESS INDEX.LC' INTO THE& CA$:::::X17:A$:A$:+ <9:34,0:1 c_ d THE PROGRAM 'ADDRESS INDEX.LC' DOES NOT n RUN AS A PROGRAM BUT IS INSTEAD A LIST x OF SEVERAL HUNDRED MEMORY LOCATIONS IN THE APPLE ][ ALONG WITH A SHORT EXPLA- NATION OF WHAT EACH% ADDRESS INDEX.LC INSTRUCTIONSn::T$"ADDRESS INDEX.LC INSTRUCTIONS"::21(T$)2:T$::::34,2X17:A$:A$:::X14:A$:A$:::X13:A$:A$:(23:7:"HIT ";::"SPACE BAR";::" TO CONTINUE *";(8);:A$:: 2X14:A$:    gram it is READing from.TH$81$82: Holds the last-used variable's name.H$83$84: Holds the last-used variable's value.H$85$9C: General usage.!H$FF69:151: Start of APPLE System MONITOR program. While in the Monitor, th is being READ.j}H$7D$7E: Pointer to absolute location in memory from which DATA is being READ.H$7F$80: Pointer to current source of input. Set to $201 during an INPUT statement. During a READ statement it is set to the DATA in pro-Set up by a CTRL-C, STOP or END state- ment. Gives line number at which execution was interrupted.yH$79$7A: Old text pointer. Points to memory location for state- ment to be executed next.{H$7B$7C: Current line number from which DATAThis location contains HIMEM. HIMEM = highest location available to APPLESOFT + 1. DOS sets HIMEM = 38400 ($9600) to protect it- self and its buffers. uH$75$76: Current line number of line being executed.fwH$77$78: Old line number. Pointer to end of numeric storage in use. See Page 137 of APPLESOFT BASIC PROG REF MANUAL. oH$6F$70: Pointer to start of string storage. Strings are stored from here to the end of memory.qH$71$72: General pointer.sH$73$74: for ROM APPLESOFT.iH$69$6A: Pointer to start of simple variable space. See Page 137 of APPLESOFT BASIC PROG REF MANUAL.kH$6B$6C: Pointer to beginning of array space. See page 137 of the APPLESOFT BASIC PROG REF MANUAL. bmH$6D$6E:n contains a random number, based on the time between keystrokes. PH$50$61: General purpose pointers for APPLESOFT.bH$62$66: Result of last multiply or divide.gH$67$68: Pointer to beginning of program. Normally set to $0801 egister. (See DOS MANUAL page 103).f8H$38$39: Monitor input register. (See DOS MANUAL page 103).EH$45$49: Register save area. All registers are saved here by IOSAVE Routine (See 182) in the order A-X-Y-P-S.HNH$4E$4F: This locatioutput is 'NORMAL'. IF =$7F(127) output is 'FLASHING'. IF =$3F(63) output is 'INVERSE'. 3H$33:51,X: This location contains the prompt character which is shown on the screen in front of an input line (see 662). #6H$36$37: Monitor output rB ,H$2C:Temporary work area used by 'HLINE' routine. See 2023. -H$2D: Temporary work area used by 'VLINE' routine. See 2008.[2H$32: This location is the mask for character output to the screen (A logical 'AND' is performed). IF = $FF(255) oion. POKE 36,X moves the cursor to this relative position. X must be < PEEK(22). %X(37): Reads current vertical position of the cursor; 0 40 pro- duces errors. If W<33, PRINT'S third tab may PRINT outside text window. "H$22:34,T: Sets top margin of TV Display to T; 0";IN$i 2X0(IN$)1 5LO(I1)X,((IN$,X1,1)) 7X <LO(I1)X1,((IN$,(IN$),1))128 A Z"ANOTHER?":ANS$:AN$"Y"20:AN$"N"100 d  LANGUA BE SHORTER THAN ORIGINAL, BUT IF YOU MAKE THEM LONGER YOU MAY EITHER MESS UP OTHER MESSAGES OR RUIN DOS! 1,5:ANS$::1000:: ER$(14),LOC(14),N$(14) I013:ER$(I):I:I013:LOC(I):I "OLD ERROR MESSAGE? -->";MES$ I013:ME$E.0-- 48K DOS ERROR MESSAGE CUSTOMIZERS-- BY JONATHAN KANDELL 1/7/82 -- THIS WILL CHANGE YOUR DOS ERROR MESSAGES. NOTE: TO MAKE PERMANENT, RUN THIS, TYPE NEW, MAKE YOUR HELLO AND INITIALIZE A NEW DISKi