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Ö+]̵YR~~բժժժ֪՚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) THIS PROGRAM CAN BE USED TO STARTR OFF YOUR PROGRAM WITH A TITLE PAGEw THAT WILL GET THEIR ATTENTION! ******************** TITLE PAGE ROUTINE WITH ASTERISK BELLS( ********************2: 7 ADD CTRL G TO A$  ĠōРԠΠȠĠ͠Р΍֠ŠҠō֠Š٠ҠōčǠ͍ˠĠҠԍ  ԠĠàŠōɠ͠ƠϠĠԬˠ͍ԠԽ̠Ҡ¿ѠĠӭĽٍàҠΠ̠ĠӭĽ٠̠ŭĽĠ٠Ġ٠ƠԠ֠Š٠֠ŠٍӠΠϠàӭĽٍРàȿѠĠӭĽٍР̿ѠĠӭĽ٠РĠŠοѠĠӭĽٍĠРӠΠԽԍРԠԠȠҠΠԍԠ͠ҠԠԠĠ͍͠ĠƠŠō٠ŠٍРĿѠĠΠԽԍ˳ōĠƠҠΠҍРѠ˶ΠԽԍ˶ōĠƠ٠ҍРѠԍΠԠѠ˸ΠԽԍ˸ŠĠƠԍРѠ˱ΠԽԍ˱ōĠƠǠҍРѠ˳ٍŠŠӠōРƠĠѠ٠ˠčР˴٠Р˳ϠԽԍРԠԠ˴ŠĠƠҠԍРӍԍԠ͠ӍРƠԠѠ˳ϠˠčРƠԠѠ˳ϠˠčРƠѠ٠ϠˠҠĠĠҠōԠŠӠŠŠ͠ҠĠŠŠӠŠ͍͠ĠŠ٠ƠԠ֠Š٠֠ŠٍΠһРԠϠԍð͠ӠŠԽԠð͠ҠԽ ðĠԠ̠ðŻӠӠΠ٠ŠŠϠĠΠǠРΠƠҠŠ͠ɠΠŠӢàͮΠ٠ŠǍ   B$(13)210#2B$(10)LL102A$A$B$92160F2(2);A$^2LL1:LPG9İ260g2150{2D$;"CLOSE ";Z$2D$"PR#0":2PS0L2:2ILPG1::I2PAGEPAGE12"Z$;30(Z$));" PAGE ";PAGE2,26L2:DN) ?";A$:A$"Y"NP131F"NAME OF TEXT FILE? ";Z$;1P:1ZPSĺ"ALIGN PAPER FOR THE FIRST LINE OF PRINT,":" AND PRESS RETURN";Y$:D$"PR#1":" 80N": CTRL I 80 N1d1nPSİ2801x2401D$;"OPEN ";Z$1D$;"READ ";Z$1A$""1B$20PROGRAM: PRINT 0 30D$(4): CTRL Dh0"THIS PROGRAM PRINTS SEQUENTIAL":"TEXT FILES."0(PAGE0:PG51:PG = NUMBER OF LINES PER PAGE.021<NP0:"DO YOU WANT PRINTER OUTPUT (Y/N) ? ";A$::A$"Y"PS1::"DO YOU WANT PAGINATION (Y/    %* "S","T","U","V","W","X","Y","Z""Y","Z"D FFNBI1 I1I11% I2+ $M ' FILL RADIX NUMBER ARRAY \ 'RADX$(36)h $'I136v .'RADX$(I)} 8'I B' * "0","1","2","3","4","5","6","7","8","9","A","B","C","D" * "E","F","G","H","I","J","K","L","M","N","O","P","Q","R"UMBER CONVERTER >  B IS BASE OF NUMBER IN A, F IS PRODUCTF F0O I10b I2(A$)11o N0B1 (A$,I2,1)RADX$(N1)4870 N :"THERE IS AN UNLOADABLE NUMBER IN THE" "FOLLOWING LINE OF THE OBJECT FILE:"  I$ (I$,13,2) FA$" "1170E P4750: GET 2ND HALF OF OPERAND FIELDQ ZADDR,F[ d1170o D$"CLOSE "OUT$ BIN$(OUT$,(OUT$)4)".BIN" D$"BSAVE "BIN$",A"LA",L"ADDRLA BIN$" HAS BEEN CREATED."    MULTI-RADIX STRING TO N"SYMBOL"1500 A$(I$,4): 4750: GET LOAD ADDRESSI LA0LAFT ADDRFe A$(I$,7,2)} 4750: GET OP CODE ADDR,F ADDRADDR1 A$(I$,10,2) A$" "1170 4750: GET OPERAND FIELD (ADDR,F 2ADDRADDR1 <A$******************** 2 LA0: LOAD ADDRESSE B16: BASE=16Q D$(4)\ 10000b  $"SOURCE PROGRAM ROOT NAME ? ";OUT$ .OUT$OUT$".OBJ" ~D$"OPEN "OUT$ D$"READ "OUT$ I$ I$""1170 (I$,1)"-"1170 (I$,6)(& ******************************- F PRODUCE BINARYL f FROM OUTPUT FILE| (XXXX.OBJ) OF THE ASSEMBLER PROGRAM BY MIKE GOODING 4/18/81   ******** ( ( : ORIGINAL PROGRAM BY9( : ED & MIKE HUNTERU( : WRITTEN 25 DEC 1980o( : 'EPSON SETUP 1.3'( : APPLE-DAYTON D.O.M.( : VOL.#11 MARCH 1981); ' 0' 3430+': @@@@@@@@@@@@@@@@C': @ @[': @ APPLE WRITER @s': @ @': @@@@@@@@@@@@@@@@'" BRUN TEDITOR"': @@@@@@@@': @ @': @ EXIT @': @ @': @@@@@@@@'0' NN& " 80N";&* N0#&4 NN1/&> (10);>&H NEī3380E&R 0N&\ 150{&f 18:6:"FOR EACH LINE FEED PRESS 'RTN'"&p 20:6:"(TO EXIT TO MENU PRESS 'ESC'"&z 22:20& M$& (M$)27ī150& (M$)133430& NN& " 80N";' (10T USED ? ";T% H$"Y"H18-% H$"N"H4T% 10:9:"LINE SPACING SIZE # ? ";We% V(7211W)q% DVHT~% E(D2)% 13:10:"TAB DOWN LINES ARE ";E% 15:7:"AUTO-TAB OR MANUAL (A/M) ? ";B$% B$"A"3350% B$"M"3430% 3310&0 1080$: AA(40(Q$)2)7($D 2940/$N 08$X 150R$b : @@@@@@@@@@@@@@@@@@l$l : @ VERTICAL @$v : @ PAGE CENTERING @$ : @@@@@@@@@@@@@@@@@@$ $ 6:2:"HAS A LETTER HEAD BEEN USED (Y/N) ? ";H$ % 8:2:"APPROXIMATE LINES OF TEX************"# AA403030%# :Q# 3:"(REMEMBER TAB 40 IS HTAB MAXIMUM)"W# # :::8:"PRESS 'RETURN' TO PRINT"# 8:"(PRESS 'ESC' FOR MENU) "# ::19# K$# (K$)271050# (K$)133030# NN# " 80N";#& AA:Q$$132N";" " ";"" " ";Q$(", " ";2"6 1080\"@ :"IS PRINT EXPANDED OR NORMAL (E/";h"J :"N";z"T :") ? ";TP$"^ TP$"E"2930"h 3130"r AA(20(Q$)2)7"| :13:"**************"" 13:"* TAB IS: ";" AA;" " *" # 13:"**PE TEXT (<40 SPACES FOR EXPANDED) ========================================TEXT: ";Q$! "========================================"! 10:3:"DO YOU WANT TEXT CENTERED (Y/";! :"N";! :") ? ";TC$! TC$"Y"2880! NN! " ";" " @% P : @@@@@@@@@@@@@@@@@. Z 0:T d 10:5:"SAMPLE OR INPUT TEXT (";` n :"S";s x :"/I) ? ";X$y X$"I"2730 Q$"THIS IS A TEST OF THE NEC PC-8023A-C" 6:2770 3:15:"TEXT INPUT" 15:"=========="X! 6:"TYR " 4:"CHR$(27)+CHR$(65)"% F :" * = CHR$(27) ":n "DO YOU WANT TO RETURN TO MENU (";z :"Y"; :"/N) ? ";A$ A$"N"5000 1080( : @@@@@@@@@@@@@@@@@2 : @ @< : @ TEST PRINTOUT @ F : @ CEL (5) = CTRL'T' OR CHR$(20)"& T "7-DOUBLE =ESC'!' OR * + CHR$(33)" "8-CANCEL (7) =ESC ('') OR * + CHR$(34)"  "9-LINE SPACE =ESC'P' + XX OR " 3:"CHR$(27) + CHR$(84) + XX"  "10-NORMAL LINE SPACE =ESC'A' OT$:2B "1-PICA = ESC'N' OR * + CHR$(78)"`L "2-ELITE = ESC'7' OR * + CHR$(69)"fV ` "3-CONDENSED = ESC'Q' OR * + CHR$(81)"j "4-PROPORTIONAL= ESC'P' OR * + CHR$(80)"t ~ "5-ENLARGED = CTRL'R' OR CHR$(18)"  "6-CAN" ";ES$;"(";TT$";$" ";.1080F: @@@@@@@@@@@@@@@@^: @ PRINTER @v: @ TABLE VALUES @ : @@@@@@@@@@@@@@@@ 0: AST$"*****************************"$ 5:AST$. 5:"* PRINTER CTRL & ESC INPUTS *"8 5:AS'PRINT CHR$(9);'IN"@z"THE BEGINNING OF THE LINE YOU WISH TO"n"HAVE INDENTED. RETURN TAB TO ZERO (0)""TO CANCEL THE TAB.":"ENTER A THREE DIGIT BEGINNING WITH A 0 FOR TAB POSITION ";TT$P$"."TT$TT$P$NN@@@@@@@@@*31504?>4:8:"************************"bH8:"* HORIZONTAL TAB SETUP *"R8:"************************"\:"INPUT THE NUMBER OF SPACES THAT YOU"f"REQUIRE FOR A TAB SETTING. THE TAB IS"p"ACTIVATED BY INCLUDING A ";LLIS991820NN,ES$L$;L;30=1080N(27)(65)X1080`NNvEC$DC$LC$LA$;}01080: @@@@@@@@@@@@@@@@@@: @ @ : @ HORIZONTAL TAB @: @ @  : @@@@@@@@@/6 WHICH IS THE DEFALT"?l"VALUE OR 6 LINES PER INCH (LPI)."bv:"SOME EXAMPLE NUMBERS ARE:":5:"4 (LPI) = #36 9 (LPI) = #165:"6 (LPI) = #24 12 (LPI) = #125:"8 (LPI) = #18 18 (LPI) = #8:8:"SELECT LINE SPACE # @@@ 0:+&4:12:"****************"G012:"* LINE SPACING *"e:12:"****************":D5:"WE WILL SELECT A NUMBER WHICH IS"N"THE NUMERATOR IN 144 THS OF AN INCH. AS"X"AN EXAMPLE: THE NUMBER 24 IS 24/144 OF"b"AN INCH OR 180 ^CC$;h1080rS$;)|10803SC$;=1080FE$;P1080ZEC$;d1080mD$;w1080DC$;1080: @@@@@@@@@@@@@@@@: @ @: @ LINE SPACING @: @ @: @@@@@@@@@@@@@3"1650AA$"4"1670+AA$"5"1690=AA$"6"1710OAA$"7"1730aAA$"8"1750sAA$"9"1820AA$"10"2000AA$"11"2020AA$"12"2090"AA$"13"2320,AA$"14"26506AA$"15"3150@3150JC$;T10$<"13-'CTRL' & 'ESC' INPUT TABLE"1FEQUAL$;<PSPACEZZ"14-RUN A TEST PRINTOUT"gdEQUAL$;rnSPACEx:"15";:"-EXIT PRINTER SETUP"EQUAL$;10:"SELECT A FORMAT ";AA$NNAA$"1"1610AA$"2"1630AA$"EQUAL$;SPACE8"7-DOUBLE 8-CANCEL"EEQUAL$;PSPACEt"9-LINE SPACING 10-NORMAL"EQUAL$;SPACE"11-NORMALIZE ABOVE PARAMETERS" EQUAL$;SPACE"12-RETURN TO MAIN MENU"(EQUAL$;2SPACE-".80BFL" ** FORMAT SELECTION ** SLOT=";NNSVEQUAL$;^`SPACEj"1-PICA 2-ELITE "tEQUAL$;~SPACE"3-CONDENSED 4-PROPORTIONAL"EQUAL$;SPACE"5-ENLARGED 6-CANCEL" "TOM HIME">650HDC$;3RE$L$(24)LA$;:f0Cp150\: @@@@@@@@@@@@@@@@@u: @ @: @ PRINTER TABLE @: @ @: @@@@@@@@@@@@@@@@@SPACE7$EQUAL$"---------------------------------------";R$NR$"FIRST"ī750!XNN)b""4l(10)CvS$D$E$;]17:"THOMAS J. HIME"gEC$;pLA$31:"7751 SO. CASSEL ROAD"31:"VANDALIA, OHIO 45377"34:"(513) 890-1224"840NN" 80N" S$D$E$;  20:1050: @@@@@@@@@@@@@@@4: @ @K: @ LETTER HEAD @b: @ @y: @@@@@@@@@@@@@@@&("ALIGN PAPER")"PRESS RETURN WHEN READY"*LH$014:1:"FULL OR FIRST NAME (";::"FULL";D:"/FIRST) ? 4) APPLE WRITER !"+rSPACE:G$[|SPACE:"! (5) EXIT THE PROGRAM !"jSPACE:G$ySPACE:G$SPACE:F$15:"SELECT ONE ";N$N$"1"550N$"2"1050N$"3"3210N$"4"4000N$"5"5000#z#Xı     ͮ͠ կŠŠ͠ Ġ̠נũ ǯԠկĠȠȠկӠŠ կΠظ̠Ҡ4կàҠР"կŠ٠ կԠ"ĠϠ"ՠ"¯ŠؠҠU ¯ӮԠ ůŠҠŠ  ǯ٧ӠԠSPACE:G$ SPACE:G$I SPACE:"! (1) PRINT A LETTER HEAD !"X "SPACE:G$m ,SPACE:"! ";{ 6:"(2)"; @:" SETUP THE PRINTER !" JSPACE:G$ TSPACE:"! (3) CENTER TEXT VERTICALLY !" ^SPACE:G$hSPACE:"! (!" SPACE5 SPACE:F$, SPACE:G$; SPACE:G$k SPACE:"! APPLE <==> NEC !" SPACE:"! ================ !" SPACE:"! WORD PROCESSOR PROGRAM !" SPACE:"! ====================== !"  AL$(84) BLC$(27)(65)4 FLA$(27)(50)G KT$(27)(68)Z d: @@@@@@@@@@@m n: @ @ x: @ CATALOG @ : @ @ : @@@@@@@@@@@ F$"+-------------------------------+" G$"! OUTPUT? ";NN$" NN$""ĺ"":16D (NN$)49(NN$)55ĺ"":16U NN(NN$)48c ES$(27)v C$(27)(78) CC$(27)(69) #S$(27)(81) (SC$(27)(80) -E$(18)(27)(78) 2EC$(20) 7D$(27)(33) <DC$(27)(34)@@@@@@@@@@@@@@@@@@' : INTRO 100-500C : LETTER HEAD 500-1000Z : PRINT 1000-4000v : VERT.CENT. 4000-5000 : APPLE WRITER 5000-6000 : EXIT 6000 ::4:" ***** NEC PC8023 PRINTER SETUP *****":12:868:"WHICH SLOT # FOR PRINTER * PROGRAM:' NEC SETUP 1.3', REV 1/83G : @@@@@@@@@@@@@@@@@@@@d : @ APPLE - NEC @ : @ WORD PROCESSING @ : @ HELLO PROGRAM @ : @ MODIFIED BY @ : @ ART HILER @ : @ 30 JANUARY 1983 @  : @@           YOU WOULD LIKE TO USE YOUR INIT. IN THE TOP LINE OF A DISK LABEL... REPLACE VOL. IN LINE 3740. (MAINTAIN SPACES INSIDE QUOTES)  GOTO LINE #670 9 THE PROGRAM IS SET UP FOR A ROMPLUS CARD IN SLOT #3. GOTO LINE 1570 : IF88 I9 THIS PROGRAM IS SET UP FOR THE MX-80 CARD IN SLOT #1. BR:V2$;:V1$;:BR19:20)BR$;:BR:;7LL1:L2L$A$J7L3L$B$Y7L4L$C$7BR$;:(15((L$)2)):L$;:28:BR$:L439707A4$"0"ī40407BR19:BR$;:BR:Z$;:BR19:BR$;:BR::740507BR128:BR$;:BR::8L1:I6A4$"1"Z$" DOS 3.2 "96A4$"2"Z$" DOS 3.3 "V6(A4$"3"Z$" COBOL "s62A4$"4"Z$" PASCAL "6<A4$"5"Z$" CP/M "6FA4$"0"39206P::16506ZI1X6dV$"Y"ī39606nBR128:BR$;:BR::3970&7xBR19:BR$;:DOS 3.2":*5(9):"[ 2 ] - - DOS 3.3":L5(9):"[ 3 ] - - COBOL ":l5(9):"[ 4 ] - - PASCAL ":5(9):"[ 5 ] - - CP/M ":5(9):"[ 0 ] - - SOLID BORDER ":5 (20):(9):"[ ] ..... YOUR CHOICE";:(11):A4$::A4$"0"A4$"5"3850 (MUST BE 3 DIGETS LONG) [ ] ";:3730743650I4(30):"";V1$Z4V2$" VOL. "n4(V1$)336504(V1$)3ī3780436504:750:(3):" WHAT WOULD YOU LIKE IMPRINTED IN THE BOTTOM PORTION OF THE BORDER?": 5(9):"[ 1 ] - - R IN THE TOP LINE OF THE BORDER ?"::R3L" [ Y ] - - - YES ":{3V" [ N ] - - - NO ":3`" [ ] ..... YOUR CHOICE";3j(14):V$:3tV$"N"3780-4~V$"Y"ė:(10):" ENTER YOUR VOLUME NUMBER (###) * ********* DOS 3.2 *********"2$(12):" WHAT CHARACTER DO YOU WANT TO USE FOR THE BORDER? DEFAULT = * "2.(13):(19):"";BR$:BR$""BR$"*"28(BR$)23600)3B:(10):" WOULD YOU LIKE A VOLUME NUMBE"" 1 E$""1 F$""1 o1 ::: LABEL BORDER ::: x1750A234,10:(3):(5):"********* VOL. 123 ********* * * * DISK LABEL * *460"0 B$""0 C$"""0 E$"",0 F$""20 0 ::: LABEL #0 ::: 0 A$"GOTO LINE 3530"0 B$""1 C$ /> A$"GOTO LINE 3390"#/H B$""-/R C$""7/\ E$""A/f F$""G/p /z ::: LABEL #9 ::: 0 A$"GOTO LINE 3 .. A$"GOTO LINE 3300"8. B$""B. C$""L. E$""V. F$""\.* /4 ::: LABEL #8 ::: C- A$"GOTO LINE 3250"M- B$""W- C$""a- E$""k- F$""q- . ::: LABEL #7 ::: X,l A$"GOTO LINE 3180"b,v B$""l, C$""v, E$"", F$"", +- ::: LABEL #6 ::: I+& A$"LEADER MORTGAGE CO."`+0 B$"P.O. BOX 5241"+: C$"CLEVELAND OHIO 44101"+D E$""+N F$""+X @,b ::: LABEL #5 ::: 2* A$"LAKE CO. SANITARY ENG."K* B$"105 MAIN STREET"m* C$"PAINESVILLE OHIO 44077"w* E$""* F$""* ,+ ::: LABEL #4 ::: ) A$"EAST OHIO GAS CO."3) B$"P.O. BOX 6862"S) C$"CLEVELAND OHIO 44184"]) E$""g) F$""m) * ::: LABEL #3 ::: LL. CO.""(^ B$"55 PUBLIC SQUARE"B(h C$"CLEVELAND OHIO 44178"L(r E$""V(| F$""\( ) ::: LABEL #2 ::: :2390"', A3$"0"İ3530::23906'6 A3$(27)ī150@'@ 2760'J ::: LABEL #1 ::: (T A$"CLEVELAND ELECT. I& (9):(21):A3$:/& A3$"1"İ2900::2390J& A3$"2"İ2970::2390e& A3$"3"İ3040::2390& A3$"4"İ3110::2390& A3$"5"İ3180::2390& A3$"6"İ3250::2390& A3$"7"İ3320::2390& A3$"8"İ3390::2390'" A3$"9"İ3460: [ 6 ] - - - XXXX LABEL"<% " [ 7 ] - - - XXXX LABEL"`% " [ 8 ] - - - XXXX LABEL"% " [ 9 ] - - - XXXX LABEL"% " [ 0 ] - - - XXXX LABEL"% :" [ESC] - "% 21:" [ ] ..... YOUR CHOICE" $2 750:4:3+$< " SELECT FROM:"3$F :Y$P " [ 1 ] - - - ELECTRIC CO."$Z " [ 2 ] - - - EAST OHIO GAS"$d " [ 3 ] - - - SANITARY ENG."$n " [ 4 ] - - - LEADER MORTGAGE"$x " [ 5 ] - - - XXXX LABEL"% " 0::2530:1850# 2470!# 4,# 6:A$7# 6:B$B# 6:C$M# 6:E$X# 6:F$^# $( :: 10 MOST USED :: " " [ 4 ] - - - COMPRESSED 66 CPL"N" 20:" [ ] ..... YOUR CHOICE"b" 6:(20):A2$:}" A2$"1"ė:2530:1680" A2$"2"ė:(27);"F";:0:670:(15);:0::2530:1680" A2$"3"ė:2530:1850# A2$"4"ė:(27);"F";:0:670:(15);:RINT CHOICE ::: T!L 750^!V 2530x!` :" SELECT FROM:"!j :!t " [ 1 ] - - - STANDARD 80 CPL"!~ " [ 2 ] - - - COMPRESSED 132 CPL"! " [ 3 ] - - - DOUBLE WIDE 40 CPL"( A  A$"Y O U R N A M E"Z  B$"A D D R E S S "u  C$"CITY STATE ZIP " $ E$"" . F$"GOTO LINE 2310-2350" 8 2380K!B ::: P";:015:35:" ";015:35::"OFF";::E0:'  ::: YOUR LABEL ::: m::: SETUP EMPHASIZE ::: |E0ī2220E1ī2260670:16:(27)"E";:015:35:" "15:"ESC ":15:36::"ON":E1:670:16:(27)"F********************"109 "* *"A10] "* GOOD BYE *"e*104"* *">10H"********************"R24\I11000:IfI115::Ipz 7 ::: ROMPLUS SETUP ::: N1570: ROMPLUS ONX1660  ::: END ::: :0:1110"F THE SAME LABEL ";:X$:X$"Y"X$"YES"ė:1850El150: GOTO MENU|v  ::: 66 CPL SETUP ::: 670:(15);:01820 E ::: 40 CPL SETUP ::: \750: DRAW BORDERt&530: INSTRUSTIONS0920:GET INPUT:1500:HOW MANY?D670:PRINTER ON N:1330:PRINT LARGEX710: PRINTER OFF0b:2540::" MORE OX$:X$"Y"X$"YES"ė:16806X$"N"X$"NO"ī1750@1720U150: GOTO MENU  ::: 132 CPL SETUP ::: 670:(15);:01650  ::: 80 CPL SETUP ::: Er750: DRAW BORDER]|530: INSTRUCTIONSr920: GET INPUT1500: HOW MANY?670: PRINTER ON:1210:PRINT LABELS710: PRINTER OFF:2540::" MORE OF THE SAME LABEL ";: G ::: ROM PLUS ON ::: h"SLOT3: ROMPLUS IN SLOT #3,M$"": THERE IS A SHIFT/CTRL/M IN QUOTES6(4);"PR#";SLOT@JM$;"1A"T^ .h); E$(14);F$$+I208p  ::: HOW MANY ? ::: 14" HOW MANY LABELS ";XX0ī150 3 ( ::: DOUBLE WIDE ::: 2I1X<(14);FA$P(14);ZB$d(14);nC$x(14 `"";E$j14*t" INPUT LINE #5 "7~20:870B20:4M"";F$S  ::: STANDARD PRINT ::: L13930I1XA$B$C$E$F$ I" INPUT LINE #1 "$16:870/16:4:"";A$B14Y" INPUT LINE #2 "f17:870q17:4|"";B$14" INPUT LINE #3 "18:87018:4$"";C$.L1ı814B" INPUT LINE #4 "L19:870V19:42 >35,22H?R p\ ::: LINE LIMITER ::: f5:I1S1:(95);:Ip"]"z  ::: INPUT LINES ::: 14 0O  ::: BORDER ::: 24:I139:"%";:I::1:I139:"%";:I: I122:"%";:39:"%":I 32,1*33,37434, A BLANK LINE"v34,13n  ::: PRINTER ON ::: 1  ::: PRINTER OFF ::: INSTRUCTIONS ::: &3P" PRINT WIDTH IS SET BY LINE LIMITERn&" FOR 3 1/2 INCH LABELS.t0:" 5 LINES NORMAL OR 3 LINES BORDERED.DN" DO NOT USE COMMAS OR COLONS."Xb" A RETURN WITH NO ENTRY WILL GIVE"l"4"S126:670:(27);"F";:0:1930;A1$"5"S130:1970NA1$"6"İ2190cA1$"7"ė:2310xA1$"8"ė:2610A1$"9"S123:L1:S$(29):3600A1$(27)ī2010390  ::: BELS"3 h" [ 9 ] - - - BORDERED DISK LABELS"W r:" [ESC] - - - < EXIT >" |23:" [ ] ..... YOUR CHOICE" (9):(23):A1$: A1$"1"S130:1650 A1$"2"S153:670:(27);"F";:0:1780 A1$"3"S115:1820"A1$" 132 CPL"6 ," [ 3 ] - - - DOUBLE WIDE 40 CPL"c 6" [ 4 ] - - - COMPRESSED 66 CPL" @" [ 5 ] - - - STANDARD / ROM PLUS" J" [ 6 ] - - - EMPHASIZE " T" [ 7 ] - - - YOUR LABEL" ^" [ 8 ] - - - 10 MOST USED LA *";3 I140:"*";:I9 Y 8:13:"TURN PRINTER ON":_ i 150w E1:2190 (8):986 (7):"SELECT FROM: "  " [ 1 ] - - - STANDARD 80 CPL" "" [ 2 ] - - - COMPRESSED ::: MENU ::: p :::670:(18);:0v I140:"*";:I "* *"; "* *** LABEL MAKER *** *"; "* REVISED JUNE 81 ** PUBLIC DOMAIN ** V 2Ld WRITTEN BY: n S.P TULK N8AGV MADISON, OHIO MARCH 1981 \ x                  S 186,142,155,179,162,15,189,37,128,157,187,181,202,16,247,169,0,141,95,170,32,149,160,160,4,185,55,128,153,117,170,136,16,247,76,255,174,11,157,1,0,254,1,15,0,117,170,0,0,0,152,0,151,0,150 A,150 "ENTER THE NAME OF THE HELLO PROGRAM":"->";F$B F(F$)ė:50y PT((F$,1)):T64T90ĺ"ILLEGAL FILENAME!":50 Z32792,(F$)1 dI3282332823(F$)1:I,((F$,I32822,1))128:: STORE FILENAME IN DOS n32768: STORE DOS ON BOOT TRACK3:"***************DOS UPDATE***************""THIS PROGRAM REWRITES THE DOS IN MEMORY TO THE BOOT TRACKS ON YOUR DISK. THE PROGRAMS ON THE DISK ARE UNAFFECTED.":"CONTINUE ?(YES/NO)";A$:(A$,1)"Y"ė: :(I3276832822:A:I,A:0 2   E4 B5 8D E4 B5 90 03 EE E5 B5 60"r HEX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144:As  "THIS PATCH TO DOS FIXES THE CALCULATE POSITION ROUTINE FOR TEXT FILES. WITH THIS PATCH TEXT FILES CAN NOW BE LONGER THAN 130 SECTORS.":"CONTINUE ?";A$:(A$,1)"Y"Ā" HEX$"B33E:18 AD BF B5 8D EC B5 6D E6 B5 8D E6 B5 AD C0 B5 8D ED B5 6D.$5v$$56&)$$d - ?R--- g ???->?.-75757-?5->?.-75757?7-5?w%ح?.->?N57575?-7ح?.->?N57575-5?7-'H@6.$6%6$6%5% 06.$$6.$5v$$56&H6.$6%.,.,.d06.$$62'7.$ $56M$,6>;.2%@8$,6M$565#7 5' $56M$,6>;.*>H $$5663'H!$$566.$$$$$$,%,-------6-66666>????????'$$$$$$$$---%$M 6.---66666666?????????$,-%$$lIII666--6>???$$$$)23:4Tt"Bc|&Nt('$5n!,6>*>5#7 5' $$566M$$,66+RXXHEADXF(XPSN),YF(YPSN):C 0RXBODYXF(XPSN),YF(YPSN)20:g 5RXFEETXF(XPSN),YF(YPSN)30: :RROBOT(XPSN,YPSN,FACE)XF(XPSN),YF(YPSN): ?RROBOT(XPSN,YPSN,LARM)XF(XPSN)20,YF(YPSN)23:!DRROBOT(XPSN,YPSN,RARM)XF(XPSN)20,YF(YPSN:0:1:16302,0:3INXPSN17:YPSN13:ROBOT(XPSN,YPSN,FACE)İ21000XNYPSN,XPSNyN0,0279,0279,1910,1910,0NRR ***R *** DRAW ROBOTSR ***RR21035 R21040R21045R21050R21055!R21060&R I#MNROBOT(2,1,1)0:ROBOT(0,1,1)5TRNROBOT(2,2,1)0:ROBOT(3,2,1)0:ROBOT(0,2,1)4WNROBOT(2,3,1)0:ROBOT(3,3,1)0:ROBOT(4,3,1)0:ROBOT(0,3,1)3pNARM(1)16:ARM(2)15uNARM(3)18:ARM(4)17N23:"( PUSH RETURN WHEN YOU ARE READY ) : ";ANS$N HAVE THE FIRST MOVE !!"f$':" BUT YOU'D BETTER BE CAREFUL, AS I'M VERY GOOD AT THIS GAME !!!":lNvN ***N *** SET UP PER GAMEN ***N NCOUNT0:NMN12:MMODE0HNI17:J13:ROBOT(I,J,1)5:ROBOT(I,J,2)15:ROBOT(I,J,3)17:J,'"WISH TO SHOOT IN. THEN TYPE IN THE NUMBER OF ROBOTS THAT YOU WISH TO KILL. AFTER YOU GO, I WILL ALSO MAKE A MOVE, AND THEN IT WILL BE YOUR TURN AGAIN."':" SINCE I'M A KIND COMPUTER AND":"BASICALLY BIG HEARTED, I'LL EVEN LET YOU)PM(I,2): ' ' ***2 ' *** INSTRUCTIONS<' ***B''::3:17:"NIMBOT":5:" THIS IS THE GAME OF NIM. THE OBJECT OF THE GAME IS THAT WHOEVER HAS TO KILL THE LAST ROBOT, LOSES. TO MAKE A MOVE, TYPE IN THE NUMBER OF THE ROW THAT YOU"OT(0,3,1)PM(I,1)ROBOT(0,1,1))PM(I,2)ROBOT(0,2,1)4055?k:KEY((1)3)1:ROBOT(0,KEY,1)14035K2((1)ROBOT(0,KEY,1))1:KEYKEY176:KEY179:K2ROBOT(0,3,1)PM(I,3):KEY177:K2ROBOT(0,1,1)PM(I,1): KEY178:K2ROBOT(0,2,1 ***! *** COMPUTERS MOVE+ ***1LXCXC1:XC10KEY0:XI118(PM(I,1)ROBOT(0,1,1)PM(I,2)ROBOT(0,2,1))PM(I,3)ROBOT(0,3,1)4045(PM(I,2)ROBOT(0,2,1)PM(I,3)ROBOT(0,3,1))PM(I,1)ROBOT(0,1,1)40509(PM(I,3)ROBN:Y2YPSN:YP13:XH6,K1YPXH3:3820BK1YPXH9:3820L3825jROBOT(XP,YP,1)XHİ3410rYPYP13:XH10K1YPXH2:3845K1YPXH8XP37:ROBOT(XP,YP,1)ROBOT(XP,YP,1)XHİ3410 XP,YP:XPX2:YPY2:3620:O$I57(XF(8ROBOT(0,YPSN,1))8)3:I,YF(YP)7I3,YF(YP)7::)0:X2XPSN:XPSN(8ROBOT(0,YPSN,1)):21000:XPSNX2:tXH19171:3515:yXH651:3410:: *** *** ALL ROBOTS WATCH ***X2XPS19:3515:XH20:3515:3425:U 0:21060:3:ROBOT(XPSN,YPSN,RARM)XH:21060:3425:[ e  ***x  *** DO SHOTS ***K1K2:3605::3:36203625:NMNNMN1:ROBOT(8ROBOT(0,YPSN,1),K1,1)0:ROBOT(0,K1,1)ROBOT(0,K1,1)1 0:M 0:21050:+R 3405:3400:3425:CW PAUSE1TIME2::Y\ PAUSE1TIME::qa PAUSE1TIME4::w  *** *** OK TO SHOOT ***  XH6:3410:XH11:3410 ROBOT(XPSN,YPSN,RARM)18XH17:3515 XH18:3515:XH410:XH4:3410: XH5:3410:XH6:3410:XH5:3410:OK0:d XH2:3410:XH5:3410:XH8:3410:XH5% 3410:XH2:3410:XH5:3410:XH8* 3410:XH5:3410:OK1:C D ***E *** MOVE HEADSF ***G H ROBOT(XPSN,YPSN,FACE)XH:3:2105XH5:3400:3415+ 3405:XH4:3400:3420G 3405:XH10:3400:3415Q 3405q XH46:3400:3420:3405: XH11:3400:3415:3405 XH651:3400:3420:3405: ROBOT(0,K1,FACE)K23360 XH4:3410:XH5:3410 XH6:3410:XH5:3 MMODE1:XC08 COUNT0:K2KEY176:K2205,YF(K1)d 3300:OKİ3500:3800:3600:3700:3230x COUNT0:MMODE0 0:K1205,YF(K1)20:K2205,YF(K1):  *** *** CHECK THE INPUT # ***  XPSN1:YPSNK1:3405 NT1:K1KEY176:3, K1205,YF(K1)20:2 < ***X *** GET THE INPUT KEYb ***h  KEY(KBD):STROBE,0:{ | ***} *** GET THE # OF MEN~ ***  MMODEMMODE0:KEY176K2:3215 3030:KEY177KEY181ı(1)2)1:0:WHICH21055,21060\ROBOT(XPSN,YPSN,WHICH1)ARM(ROBOT(XPSN,YPSN,WHICH1)14)x3:WHICH21055,21060:~  *** *** GET THE ROW # ***  COUNT3200 MMODEİ4000:3015 3030 KEY177KEY179ı COU:21050eROBOT(XPSN,YPSN,FACE)HEAD(ROBOT(XPSN,YPSN,FACE),((1)HEAD(ROBOT(XPSN,YPSN,FACE),0))1)u3:21050:{ *** *** MOVE AN ARM ***XPSN((1)7)1:YPSN((1)3)1ROBOT(XPSN,YPSN,FACE)2025WHICH(ORITE GAME !!"L::"DO YOU WISH TO PLAY AGAIN : ";ANS$:(ANS$,1)"Y"ı|:"THANK-YOU FOR PLAYING NIMBOT !!":20:GH ***I *** MOVE A FACEJ ***KXPSN((1)7)1:YPSN((1)3)1ROBOT(XPSN,YPSN,FACE)20000::3:MMĺ" I DON'T BELIEVE IT BUT YOU WON !!":"IT IS NOT EASY TO BEAT THE COMPUTER":"AT IT'S OWN GAME !!":1030" WELL THE GAME IS OVER AND IT LOOKS":"LIKE YOU LOST... BUT DON'T WORRY, IT IS":"NOT EASY TO BEAT THE COMPUTER AT IT'S":"FAV0000: *** SETUP& n1000: *** PLAY8 o105: ***O p ***l q***********************r rx   ***  *** PLAY THE GAME  ***  (((1)5)2)12000,2025 3000: KEYIN NMN01000 I11000:x ,1,4,5,6,3,0,0,0,2,5,6,0,0,0,0,0,1,2,5,8,7,10,0,0,1,2,3,4,6,7,8,9,3,2,5,8,9,11,0,0,4,5,8,0,0,0,0,0,7,4,5,6,9,0,0,0,8,5,6,0,0,0,0,0,4,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0 _ ` d*********************** e *** h10000: *** INSTS i2 3I119:PM(I,1),PM(I,2),PM(I,3): 40,2,2,2,0,2,2,2,0,0,3,3,3,0,3,3,3,0,4,4,0,1,1,1,3,2,1,3,1,2,2,3,1,2,1,3,1,2,3,1,3,2,5,4,1,1,0,0,0,1,0,0,0,1,0,0,0 <I111:J18 =HEAD(I,J):HEAD(I,J)0HEAD(I,0)HEAD(I,0)1 >J,I ?2,5,4,0,0,0,0,0 XXHEAD12:XBODY13:XFEET14:FACE1:LARM2:RARM3W KBD49152:STROBE49168:TIME300t AQ(175)(176)256819 232,AQ(AQ256)256:233,(AQ256) (ROBOT(7,3,3),HEAD(11,8),ARM(4),PMOVES(19,3) 2XF(X0)20(X01)35:YF(Y0)30(Y01)60%; ********************7 *** ***R *** NIMBOT ***m *** *** *** MARK CAPELLA *** *** *** ********************  *** *** PRE GAME SET UP ***3          Ġ=, ݈ŠӠԠ]]_hBL BH [ h`Lo @ԠΠ`ffffffffffffffffffffffffffffffȠŠŠֈ̠#(~><| `|~~aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,,"~<,&`f: pp fUvLFot m Bii 湭: 808`\\AR ,@w  @ ()*+ Xz' L' )hh 8'hL" '`PVST"+*)( &hhhL Ϡՠ٠ȠϠԠٯΩI`L$L1"SJ j$L1" $ WIWW` ]i]^i^L"`]i]^i^pL"`]i]^i^pp]^ #]^ %/p8@c%d #a0RS prrL"p I%L oioؤ{ffh7L' 9 X" ' ^ ] ] ^[,Zf  $JJ ZZi[b0[,Zf XeVXJRSeWSSfL!Z\R\WV\R\WV\R\WV\R\WVRVIVVR"VIVVSWIWWS'7_8_ةcd # _L"0RS [,Zf L SPL L ԠΠ & (& % % @ X0#, '- (# (QP0",P PQQf0P PQQ݅0P PQQ RS*XVWZLe[a̅bqp #a0RS b0[,Zf a % & % &0RS      ȠՠōȠĠՍ؍ԠͮĠҠԠΠӮРҮΠήϠРҮԠ̠ӠϠ˭ԮҠĠˠΠנϠӮȠϠөŠ͠ȠҠ˭ŠōϠŠǠӠĠĠӠӠ٠ӠՠΩΠȠРȮРȠŠ͠Ġ̠ҠҮРǠͮРӠӠ̮ΠӠĮĠΠϠŠŠӠĮР͠ĠΠϠŮŠӠƠӭΠŠŠΠŠŠȠũӠŠŮΠŠƩΠήĠĠҠȮŠΠĩŠàĩΠӠԠҠӠĮРƠĠŮӠӠ̮ؠҠΠǠȮŠȠƍӠ #  PROGRAM CLASSIFIED= - PUBLIC DOMAIN -D _ LAST MOD. FEB.1983el  ' RECIPE READER 'CC:16298,0::2032&2034:10MCT$"* * * THE END * * *":2040:w PRINT CENTER ROUTINE. 20(CT$)2CT$""  GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS.  R NAME IN LINE 130":2040; PAUSE ROUTINE. _21:" PRESS THE 'ESC' TO END"22:"< PRESS THE SPACE BAR TO CONTINUE...>"(16384)1552036(16384)1602024 SPECIAL END ROUTINE. 16368,0:936  INITIALIZE.(CT$(40):2034P TITLE PAGE ROUTINE. w3:CT$"* RECIPE READER *":2040CT$"BY MARTY COHEN":2040:CT$"THIS IS A RECIPE STORAGE":2040CT$"AND RETRIEVAL PROGRAM":2040CT$"PLACE YOU002 :255D)ND$;"CLOSE RECIPE"6X0:1002Ab24:1al"PRESS RETURN TO CONTINUE"mv23:26w676X$"P"ī195019601:1002"NUMBER NAME""--------------------------------------": RECIPE,L1000"(D$;"WRITE RECIPE,R";M8N$:C$:I$OD$;"CLOSE RECIPE"\0:1002gX$"X"p580 PRINTER SUB-ROUTINE22:1:" DO YOU WANT A PRINTED COPY (Y/N)"22:37H$H$"Y"18201&X$"P"011550 J:>T"NAME ";N$F^:xh"CONTENTS ";C$r:|"INSTRUCTIONS ";I$:24:1:"STORING RECIPE #";M;" ON DISK.": D$(4):D$;"OPEN X$"X","PRESS RETURN TO CONTINUE ";Z$5580;G13:15Mb"HAPPY COOKING"hq255I12000:I2036 WRITE RECIPES TO DISK17601550"D$(4),::6"NEW RECIPE NUMBER? ";M@PE #";M;":"N$#::9"INGREDIENTS: "?GC$Q ::^0:1002" PRESS RETURN TO SEE INSTRUCTIONS";Q$(X$"P"134021350<1:1002F:P"INSTRUCTIONS: "ZdI$n:x0:1002 RECIPE,L1000")BD$;"READ RECIPE, R";M4L1140DVN$:C$:I$[`D$;"CLOSE RECIPE"ej1200rt0:1002x~"NO RECIPE NUMBER ";M;" IN FILE"H$"Y"Ċ1:1002::"REENTER RECIPE NUMBER ";M1040 "NAME OF RECIX$"X"24:15"PRESS RETURN TO CONTINUE";K$>580[ READ RECIPES FROM DISKai:" GETTING RECIPES"::177024:1"ENTER RECIPE NUMBER ";M1751140$.D$(4)8D$;"OPEN M11000!W1545015+ ZMW:*Z1İ1870A4We>D$(4):D$;"OPEN RECIPE,L1000"HD$;"READ RECIPE,R";MRN$\900f" "M12);N$pMzD$;"CLOSE RECIPE":"NEXT AVAILABLE RECIPE NUMBER IS ";M:0:1002"(4) QUIT:::<"ENTER YOUR CHOICE BY NUMBER ";IDVID700,1530,960,1450d:1760: GO TO DISK AND GET RECIPE NAMES25516:"MENU":"NUMBER NAME""---------------------------------------"IPE,"3 :" ENTER ITS NUMBER AND REWRITE IT."= &2024C 0I :O DY N580b X255 b:"YOU CAN CHOOSE ANY OF THE FOLLOWING:" l: v"(1) SEE THE MENU" :"(2) ENTER A NEW RECIPE" :"(3) GET A RECIPE FROM THE FILE" :"(4) TO KEEP EVERYTHING LINED UP,"S :" DO NOT TYPE A WORD PAST THE END OF"Y  " THE SCREEN. USE SPACES UNTIL THE"  " CURSOR RETURNS TO COLUMN 1,"  " THEN CONTINUE TYPING." :"(5) TO CHANGE AN EXISTING RECIONS"4 T" CAN BE NO LONGER THAN 6 LINES EACH."T ^:" IF YOU HEAR A BEEP"^ h198{ r15:24:"WHILE TYPING," |:" YOU'VE EXCEEDED THE CHARACTER LIMIT." " IF THIS HAPPENS PRESS RETURN TO END."   2024 # :55 INSTRUCTIONS 110$ , :U "(1) WHEN YOU ARE ASKED TO RESPOND"[ " ," TYPE IN YOUR ANSWER AND PRESS RETURN" 6"(2) WHEN ENTERING A RECIPE," @:" DO NOT USE ANY COMMAS!!" J:"(3) THE NAME, CONTENTS, AND INSTRUCTN C,I,O" <2000 F135E P" THIS IS YOUR RECIPE READER"K ZQ d\ n10:9b xu "PAPA HIME'S" 10:24 "HOME COOKING" 22 "DO YOU WANT INSTRUCTIONS (Y/N)" 22:32:T$ T$"Y"ī240 580 26 THIS IS A RECIPE STORAGE AND RETRIEVAL PROGRAM<w WRITTEN BY MARTY COHEN SAN FRANCISCO, CALIFORNIA}(2 PLEASE NOTE: THERE MUST BE AT LEAST 1 RECIPE STORED IN THE FILE FOR THE "SEE THE MENU" OPTION TO WORK !! 7(4);"NOMO         CLOSE":45121,2::8:"PRESS 'B' TO BOOT...OR...":7u%"ANYTHING ELSE FOR APPLESOFT":A$::A$"B"ĺ:CD$;"PR#6":{%C:I:J:CD$;"CLOSE":CD$;"LOCK";F$:15002$ ***M$ ON ERR BRANCH - FILEW$ ***$::10::9:"SOMETHING IS WRONG WITH":14:"THE PFS FILE.";CG$:I13000:I:870$ ***$ EXIT THE PROGRAM$ ***4%::10:17::"EXITING."::CD$;"DATA":370:F$""F$CE$F$CL$1120/#n1410#xCD$;"VERIFY";F$;",D";D::20:8:"THAT FILE ALREADY EXISTS!";CG$::I13000:I:1380#:10:13::"SAVING THE DATA:"::1380($CD$;"OPEN";F$;",D";D:CD$;"WRITE";F$:NP:J1NX:I1NP1:SV(J,I)ARE USED.";CG$::I1500:I7"(Z(0):NXM1:45121,2A"2 ***U"< SORT THE DATA_"F ***"P:10:13::"SORTING THE DATA:"::I1NX1:JI1NX:SV(J,1)SV(I,1)āK1NP1:SV(0,K)SV(I,K):SV(I,K)SV(J,K):SV(J,K)SV(0,K):K"ZJ:I$#dA$"PLOT CTSV(M,1)(A$):CTCT1:FL1:1290^!SV(M,L)(A$):LL1:CTCT1:A$" "SV(M,L1)999.999! A$"":I:Z(0):NA0NB0ANA:BNB:X1:70:1190!MM(FL1):(PA0PB0)M201APA:BPB:70:1180"M200Ģ10:5::"ONLY THE FIRST 200 POINTS )1(K1)26(K2)160ĹK,160:K1,160:KK1:1230P (K)160(K)218ĹK,0r K:IX126:(SPAI)01290 A$A$((SPAI)128):II1:I127(SPAI)01240 I126āI11:1290 NM%(CT)0IXCTCTCT1:1290 IX0FL1$!IX1:SV(M,1)M:L2:B$"":A$"":A(P2)128:BA:PA(SPA11):PB(SPB12):X15A(P2)128:BA:NA(SPA127):NB(SPB128):A$B$:J117:B$"":K09:(SPAJK)160(SPAJK)218B$"":1210B$B$((SPAJK)128)4 K:K46267A46394A:(K$910BA$CE$1500;L6:24::868:A$::A$""1160nVIX(A$):580:FL1IX1IXFDIX0:CG$:1160y`1460j ***t READ THE DATA~ ***35,24::10:13::"READING THE DATA.":M1:T0:S0:80:A9:B10:60LFL0:CT,L1,(A$)L)))1:NPNP1xNP10ğ:8:958:4:"TOO MANY PLOTS : 10 IS THE LIMIT!";CG$::I13000:I:8:958:910 ***$ GET 'X' ROW. ***8F$"N/A":K24:L3:IX0:8:958::"THE DEFAULT PRODUCES A SEQUENTIAL COUNT"::6:120:A$CL-"āK((A$,L1,JL1))((A$,J1,BJ1)):NM%(K)1:NPNP1:K:J11:J:1020xJ:NM%(((A$,L1,BL1)))1:NPNP1I:LB:JL1(A$):(A$,J,1)"-"āK((A$,L1,JL1))((A$,J1,(A$)J)):NM%(K)1:NPNP1:K:J11:J:1040J:NM%(((A$40:35,9:5:120:A$""İ500:910EI124:NM%(I)0:I:A$CL$730VA$CE$1500i580:FL1910t *** VALIDATE FIELDS ***5::A$::910B0:L0:NP0:I1(A$):(A$,I,1)" "1020OLB:BI:JL1B1:(A$,J,1)"P; ";::"ESC";::" EXIT; ";::"RETURN";::" DEFAULT."z11:6::"DATA FILE NUMBERS AND NAMES:"::FD13āI1FD:1(I10):I;"..";NM$(I):I:910I112:1(I10):I;"..";NM$(I):I:12:I13FD:21:I;"..";NM$(I):I!F$"":K1:L39:35,10:59:(SPAJK)160(SPAJK)218B$"":850JHB$B$((SPAJK)128)QRKl\ANA:BNB:70:X1:760f::4:"CONVERT 'PFS' DATA TO 'PLOT' DATA."::4:"FIELD NUMBERS TO PLOT :"9p6:"'X AXIS' FIELD NUMBER :":10:"USE ";::"<-";::" BACKUI10:JJ(JX)(XJ):K09:((SPAJK)160(SPAJK)218)JKIA$"":810b(JK)I810 A$A$((SPAJK)128)*K:NM$(CT)A$:A$"":B$"":CTCT1:CT25NA0:NB0:FD24:I11:I:8704I:NA0NB0FDCT1:870->J117:B$"":K0:"THANK YOU":::10:"ONE MINUTE TO READ THE":15:"FORMAT DATA"M ***j READ THE 'PFS' FORMATu ***T0:S0:80:A1:B2:60:CT1:X15:B$""A(P2)128:BA:NA(SPA127):NB(SPB128):A$B$IX126:(SPAI)186820P J THE 2ND X-AXIS VALUE":"ITEM THE 2ND PLOT 1 Y-AXIS VALUE":"ITEM THE 2ND PLOT 2 Y-AXIS VALUE":" ..."21:2:"PLACE THE 'PFS' DATA DISK IN DRIVE #1":7:"& PRESS ANY KEY TO CONTINUE":16368,0:A$::A$CE$A$CL$1500B:10:16:AL ACCESS FILE":10:"WITH THE DATA STORED IN"10:"THE FOLLOWING ORDER:"::"ITEM #1 THE NUMBER OF PLOTS":"ITEM #2 THE 1ST X-AXIS VALUE":"ITEM #3 THE 1ST PLOT 1 Y-AXIS VALUE":"ITEM #4 THE 1ST PLOT 2 Y-AXIS VALUE":" ..."v"ITEM ::I13000:I:8:958:Z(0):+ ***? ON ERR BRANCHJ *** S650] ***v WORKING PAGE SETUP ***.:::8:"'PFS' DATA CONVERSION TO A":6:"STANDARD APPLESOFT TEXT FILE.":::10:"THE DATA IS SAVED AS A":10:"SEQUENTIX32)İ650:FL1:I11:I:XI:I1(A$):(A$,I,1)"-"ĭ(A$,I1,1)"0"(A$,I1,1)"9"(A$,I1,1)"0"(A$,I1,1)"9"İ650:FL1:I11:I:bI:Z(0):l ***v UNKNOWN ERROR ***!:8:958:8:"SOMETHING IS QUITE WRONG!";CG$:5:"2-4 ";::"OR";::" 3,7,18 ";::"OR";::" 6 4 8 ";::"OR";::" 20&1-5":^& ***u0 VALIDATE NUMERIC: ***DFL0:I2(A$):(A$,I,1)","(A$,I,1)"&"A$(A$,1,I1)" "(A$,I1)NI:I1(A$):X((A$,I,1)):X57(X48X45;D:24:"FILE NAME IS : ";:F$"":K16:L23:120:F$A$:A ***[ NO DEFAULT REMINDERe ***:8:958:8:"YOU MUST PROVIDE A VALUE.";CG$::I13000:I:8:958: *** EXAMPLE NUMERIC ***T8:868:15::"FOR EXAMPLE:"::D4F$"CAT"İ460:FL1:F$CL$F$CE$F$""370FF$"CAT"390RFL0ıFL0::19:11::"USE 'CAT' TO VIEW":11:"DISKETTE CATALOG":10:12:C$::13:"FILE NAME IS : ";F$:380 *** CATALOG MAKER ***7:CD$;"CATALOG,D"' DISKETTE"t:FL0:19:11:"USE 'CAT' TO VIEW":11:"DISKETTE CATALOG.":10:12:C$::13:"FILE NAME IS : ";:F$"":K16:L23:120:F$A$wF$""F$CL$F$CE$ı|15:"DISK DRIVE # : ";::"1";::15:16:16368,0:A$::D(A$):DD(D0):15:16K1(A$):F$(A$,K,1):(F$"+"F$"9"F$","F$"/")F$"E"Ģ8:958:8::"THE VALUE IS NOT A NUMBER.";CG$::K13000:K:K1:8:868:JK:K0:T ***^ FILE NAME GETTERh *** r:4:8:"REPLACE THE 'PFS' DISKETTE":12:"WITH A 'DATAA$A$B$:(36)K260C B$;:(F$)1F$B$(F$,(F$)1):130R F$B$:130x (36)K1(F$)ĺB$;:F$A$:130 F$(F$,(36)K)B$(F$,(F$)((36)K)1):B$;:130  *** " NUMERIC TESTER , *** 6A$""A$CL$A$CE$K0:@. B$CE$(B$CL$(36)K)ĺ:A$B$:Z(0):? B$CL$190n 36,(36)1:(A$)1A$(A$,(A$)1):130} A$"":130 (B$)21220 A$A$(F$,(36)K1,1):(36)K1(F$)A$A$" ":F$A$ 36,(36)1:130 (B$)32(B$)94130 2T):TT(B8):PAR(S,2):SAR(S,1)- M ***B N ENTRY POINT 2M O ***l P45975,T:45976,S:45111:v Z *** d INPUT GETTER n *** xA$"":KK1:36,K:868::F$;::36,K (36)LK1Z(0): 16368,0:B$:(B$)13ĺ:Z(0):0,2,9,1,9,2,8,1,8,2,7,1,7,2,6,1,6,2,5,1,5,2,4,1,4,2,3,1,3,2,2,1,2,2,1,1,1,2,15,1,15,2:I031:J12:AR(I,J):J:I:730 9 *** : APPLE 'RWTS' SETUP ; *** <A(SPA):B(SPB) C *** D ENTRY POINT 1 E ***" FT(A32):SA(3NITIALIZE  ***| (255:::CD$(4):AR(31,2),SV(200,11),NM%(24),NM$(24):CE$(27):CL$(8):CG$(7):45121,1:SP46266 / *** 0 POINTERS TO THE 'PFS' TRACK LOADING SCHEME 1 ***x 20,1,0,2,14,1,14,2,13,1,13,2,12,1,12,2,11,1,11,2,10,1,1| *****: CONTRIBUTED TO 'OXFORD APPLE CLUB'O OCTOBER 1982k BY GEORGE ZIMMERMANy ***** PLEASE FORWARD ANY INPROVEMENTS TO: JOE SIMPSON MIAMI UNIVERSITY OXFORD, OHIO 45056 ***  I         O CONTINUE";B$::::`[%:"TO INPUT FEDERAL ESTIMATED TAXES, CHANGE DATA LINE 8130-8160"::[&"HIT RETURN TO CONTINUE";B$:: OF EXEMPTIONS,CHANGE DATA LINE 8040":hZ%"TO INPUT POLITICAL CONTRIBUTIONS, CHANGE DATA LINE 8045":Z%"TO INPUT RESIDENT ENERGY CREDIT, CHANGE DATA LINE 8050":Z%"TO INPUT FEDERAL TAXES WITHHELD, CHANGE DATA LINE 8071-8099":[%"HIT RETURN TAGES/SALARY/TIPS, CHANGE DATA LINE 7931-7959":wY%"TO INPUT STATE AND CITY TAX REFUND, CHANGE DATA LINE 7971-8019":Y%"TO INPUT OTHER INCOME, CHANGE DATA LINE 8022":Y%"TO INPUT ADJUSTMENTS TO INCOME,CHANGE DATA LINE 8025-32":'Z%"TO INPUT NOEDUCTIONS,CHANGE DATA LINES 7780-7830":MXv%"HIT RETURN TO CONTINUE";B$::X%:"TO INPUT INTEREST INCOME, CHANGE DATA LINE 7851-7879":X%"TO INPUT DIVIDEN INCOME, CHANGE DATA LINE 7891-7909":X%"HIT RETURN TO CONTINUE";B$::/Y%"TO INPUT W:8WD%" TAXES PAID, CHANGE DATA LINES 7530-7680":tWI%" INTEREST EXPENSE, CHANGE DATA LINES 7700-7710":WN%" CONTRIBUTIONS, CHANGE DATA LINE 7721-39":WS%" CASUALTY LOSSES, CHANGE DATA LINES 7750-7760":(XX%" MISCELLANEOUS DNTINUE";B$:::V4%V5%:gV6%"TO INPUT FORM 3468 INVESTMENT TAX CREDIT, CHANGE DATA LINE 7480":V7%"HIT RETURN TO CONTINUE";B$:::V8%V:%:V;%"TO INPUT SCHEDULE A - DEDUCTIONS,FOR":W?%" MEDICAL AND DENTAL, CHANGE DATA LINE 7510"?U&%"TO INPUT COST OF GOODS SOLD DATA,CHANGE DATA LINE 7090":xU+%"TO INPUT DEDUCTIONS,CHANGE DATA LINES 7110-7440":U-%"HIT RETURN TO CONTINUE";B$:::U.%U0%:U1%"TO INPUT CHILD CARE EXPENSES,CHANGE DATA LINE 7460":V3%"HIT RETURN TO CORPORATIONS, CHANTE DATA LINES 6500-6990":QT%"HIT RETURN TO CONTINUE";B$:::WT%_T%:T%"TO INPUT INCOME ITEMS AND DOLLAR AMOUNTS (GROSS RECEIPTS/SALES),CHANGE DATA LINES 7021-7069":T!%"TO INPUT RET/ALLOWANCE DATA,CHANGE DATA LINE 7080":"Y"İ9720S$:::S%:tS%"TO INPUT RENTAL INCOME HOUSES AND RENTAL RECEIVED,CHANGE DATA LINES 6021-6069":S%"TO INPUT RENTAL DEDUCTIONS, CHANGE DATA LINES 6101-6439":*T%"TO INPUT PART II PARTNERSHIPS, ESTATES OR TRUST, SMALL BUSINESS COATA FOR SCHEDULE B,INTEREST OR DIVIDEN INCOME?(Y/N)";I3$PRd$(I3$,1)"Y"İ9600ZRh$::Rr$"DO YOU WANT TO CHANGE DATA FOR -FORM 1040-?(Y/N)";I3$R|$(I3$,1)"Y"İ9640R$"DO YOU WANT TO CHANGE YOUR ESTIMATED FEDERAL TAX?(Y/N)?";I3$ S$(I3$,1)::UQ$"DO YOU WANT TO CHANGE DATA FOR FORM 3468 INVESTMENT TAX CREDIT ?(Y/N)";I3$mQ $(I3$,1)"Y"İ9525wQ $::Q$"DO YOU WANT TO CHANGE DATA FOR SCHEDULE A - DEDUCTIONS ?(Y/N)";I3$Q$(I3$,1)"Y"İ9530Q$::8Rc$"DO YOU WANT TO CHANGE DAL INCOME?(Y/N)";I3$,P#(I3$,1)"Y"İ94906P#::rP#"DO YOU WANT TO CHANGE DATA FOR SCHEDULE C ?(Y/N)";I3$P#(I3$,1)"Y"İ9500P#::P#"DO YOU WANT TO CHANGE DATA FOR FORM 2441 CHILD CARE EXPENSES?(Y/N)";I3$P$(I3$,1)"Y"İ9520Q$SCHEDULE B--INTEREST AND DIVIDEND INCOME"^O#" FORM 1040--INCOME TAX RETURN, FRONT AND BACK"O#:"****************************************":O#"HIT RETURN TO CONTINUE";B$:::O#O#:::P#"DO YOU WANT TO CHANGE DATA FOR SCHEDULE E,RENTOLLOWING FORMS;"AN#" SCHEDULE E--SUPPLEMENTAL INCOME SCHEDULE"N#" SCHEDULE C--PROFIT OR LOSS FROM BUSINESS OR PROFESSION"N#" FORM 2441--CHILD CARE EXPENSES"N#" FORM 3468--INVESTMENT TAX CREDIT"N#" SCHEDULE A--ITEMIZED DEDUCTIONS")O#" O THE AMOUNT OF INCOME, AND SO ON."::"****************************************":}M=#:"TO EXIT PROGRAM HIT CTRL RESET":M#"HIT RETURN TO CONTINUE";B$M#:"****************************************":N#"THIS TAX PROGRAM FIGURES DATA FOR THE FICE WHICH OCCUPIES 1/10 OF THE ENTIRE HOME. CHILD-CARE CREDITS ARE A COMPLICATED BUSINESS: EXPENSES ARE ONLY ALLOWED IF BOTH PARENTS WORK, AND IF EACH MAKES MORE THAN THE CHILD CARE EXPENSE. LIKEWISE, HOME"SM<#"OFFICE DEDUCTIONS ARE ONLY ALLOWABLE UP TROGRAM":0K9#"HIT RETURN TO CONTINUE";B$:::K:#"THE PROGRAM CURRENTLY ASSUMES YOU ITEMIZE DEDUCTIONS. THE STATUTORY CREDIT OF $3,400 IN LINE 18201830 APPLIES ONLY TO A MARRIED COUPLE FILING JOINTLY. THE SAMPLE FIGURES ARE"L;#"BASED ON A HOME OFF PRINTED IN BOTH NAME AND DOLLAR AMOUNT. AT THE END OF THE MINOR CATEGORY THE DESCRIPTION IN THE" K8#"DATE +S/+E STATEMENTS FOLLOWED BY THE TOTAL DOLLAR AMOUNT WILL BE PRINTED. NEW FORMS MAY BE ADDED BY FOLLOWING THE PATTERN OF ONE OF THE FORMS IN THE P. LINE 7030 MAY BE CHANGED TO"$I-#yI2#"DATA SOAP SOLD,345..NOTE..ONLY WHOLE DOLLAR AMOUNTS, NOT CENTS.. CAN BE USED."aJ5#"IF YOU WANT, YOU CAN BREAK DOWN A MINOR HEADING BY USING THE PATTERN IN LINES 6010-6070. EACH DATA ITEM IN THE CATEGORY WILL BE.627H(#:"****************************************":I+#"TO USE FIRST SET ALL NUMBERS AFTER THE COMMAS TO ZERO IN THE DATA STATEMENTS, THEN INSERT YOUR NUMBERS. THE NAMES OF THE DATA ITEMS BETWEEN THE +S AND +E MAY BE CHANGED TO FIT YOUR SITUATION,I.EGG******************$G4G HUSB,2000DG WIFE,2000^G +E FED TAX WITHHELDdGjGG ** ESTIMATED TAX PAYMENTS **G +S FED EST TAX L.62G APRIL,10G JULY,10G OCTOBER,10G JANUARY,10 H +E FED EST TAX L EXPLOYEE BUS EXP L.24,1006F^ IRA PAYMENT L.25,2000QF` MARRIED DED L.29,500mFf +E ADJ TO INCOME L.31sFgFh NO OF EXEMPT,3Fm POLITICAL CONTRIBUTIONS,0Fr RES ENERGY CR,15FwF| ** TAXES WITHHELD **FG +S FED TAX WITHHELD !E, HUSB ST TAX REF,250 ;E6 WIFE ST TAX REF,250UE@ HUSB CITY TAX REF,5oEJ WIFE CITY TAX REF,5EO +E INC TAX REFUNDS ETEU 40% OF LONG TERM GAIN,500EV OTHER INC,12EX +S ADJ TO INCOME L.31EZ MOVING EXP L.23,100F\ +E DIVIDEND INCOME L.15 D:D******************* @DVD ** FORM 1040 **\DsD +S WAGE/SAL/TIPSD HUSB WAGES,10000D WIFE WAGES,10000 D +E WAGE/SAL/TIPSDD DIV/INT EXCL L.9B,200DE" +S INC TAX REFUNDS *********************/C ** SCHEDULE B **5CKC +S INTEREST INCQCcC FED BANK,10{C FIRST CTY BANK,50C +E INTEREST INCOMEL.87850 DATA +S INTEREST INCOME L.8CC +S DIVIDEND INCOME L.15C ITTY BITTY MACH CO,10DOSSES **!BF LOSS BEF REIMB,2009BP INSURANCE REIMB,0?BWYBX********************_BYBZ ** MISCELLANEOUS DEDUCTIONS **B[Bd UNION DUES,100Bn EDUC,50Bx PROF,100B OTHER,0B INC TAX PREP,30B EMPLOYEE EXP,50 BCTAX ON YACHT,10&A +E GENERAL SALES,A?A OTHER TAX,10EA\A*****************bAA  ** INTEREST EXPENSE **AA HOME MTGE,1000A OTHER INT,1000A#A( ** CONTRIBUTIONS **A2 CASH CONTRIB,500A7B< ** CASUALTY LIFE STATE INC,500'@ WIFE CITY INC,5@@ +E STATE/LOCAL INCF@]@ REAL ESTATE,1000c@z@ +S GENERAL SALES@ 5% SALES TAX,100@ 8% SALES TAX,100@ SUPERMKT SALES TAX,10@ NEW CAR SALES TAX,100@ OTHER SALES TAX,10A ENT,1000?=(?>********************.??R?B ** SCHEDULE A - DEDUCTIONS **X?Gw?L ** MEDICAL AND DENTAL **?V 1/2 OF PREMIUMS,100?[?` ** TAXES **?e ?j+S STATE/LOCAL INC?t HUSB STATE INC,500?~ HUSB CITY INC,5@ WF PAINTING,15(> ADD ELECTRICITY,10 D> 1/10 HOUSE DEPREC,100]> +E HOME OFFICE EXPc>> ** 2441 - CHILD CARE EXPENSES **>$ AMOUNT SPENT,5000>)>********************* >+>. ** 3468 INVESTMENT TAX CREDIT **?8 AMOUNT SP L.28,25)= OTHER - COPYING L.31A,100B=*******************H=j= OTHER - EXP ACCT L.31B,100= OTHER - MACH COST,50= OTHER - OUT HELP,50== +S HOME OFFICE EXP= 1/10 OF EXPENSES,100= 1/10 OF CLEANING,10 > 1/10 OL/PROF L.20,25<]: 1/10 OF HOME INS,20;H +E INSURANCE;M;R INTEREST L.18,25<\ LEGA: RET/ALLOW L.1B,100:9: ** COST OF GOODS **?:a: COST OF GOODS SOLD L.2,100g:~: ** DEDUCTIONS **:: ADVERTISING L.6,100: BANK CHARGES L.9,100:: +S CAR/TRUCK EXP L.9: EXPENSES,100; GASOLINE,** SCHEDULE C **#9b ** INCOME **)9gD9l +S GROSS RCPTS/SALES^9v SELLING CIGARS,2000u9 SELLING MAG,20009 SELLING BOOKS,20009 OTHER SALES,20009 +E GROSS RCPTS/SALES L.1A99*****************99 ** RET/ALLOW **81)8d ** PART II PARTNERSHIP **C8i DATA +S PAR TOTAL \8n VISTA XX-YYYY,5000t8x FIFTH YY-XXX,60008}DATA +E PAR TOTAL8~8****************************************88 ** LOSSES **8 FIFTH AV,20008N8S9X 7 7 CHANDLER EXPENSES,0<7 +S CHANDLER TOTAL EXPW7 1/10 OF EXPENSES,100q7 1/10 OF CLEANING,107  1/10 OF PAINTING,15 7 ADD ELECTRICITY,107 1/10 HOUSE DEPREC,1007( +E CHANDLER TOTAL EXP 7/70*********************EACH TOT EXP"6 SUPPLIES 25,10056 TAXES 26,100R6 TRAVEL/ENTERTAIN 27,50h6 TELEPHONE 28,506 OTHER - COPYING 31A,1006 OTHER - EXP ACCT 31B,1006 OTHER - MACH COST,506 +E FT WALTON BEACH TOT EXP67*******************ORAL CHASE EXPENSES,045o +S MEMORAL CHASE TOT EXPK5t LEGAL/PROF 20,25_5y INTEREST,2000t5~ OFFICE SUP,1005 POSTAGE,1005 +E MEMORAL CHASE TOT EXP55************************55 FT WALTON BEACH EXP,0 6 +S FT WALTON B00 4. +E RUSHWOOD TOTAL EXP&45=46*****************W48 BIRMWOOD EXPENSES,0s4= +S BIRMWOOD TOTAL EXP4B ALLSTATE,204L STATE FARM,204V 1/10 OF HOME INS,20 4` +E BIRMWOOD TOTAL EXP4g4h********************4i5j MEMRENTAL EXPENSES **.3**********************43O3 RUSHWOOD EXPENSES,0m3 +S RUSHWOOD TOTAL EXP3 BANK CHARGES 9,1003 ADVERTISING,1003 EXPENSES,1003 GASOLINE,503 TOLLS/PARKING,503 WASHING,104$ DEPRECIATION,1***********)2p ** SCHEDULE E RENTAL **<2z ** INCOME **`2 +S TOTAL RENTAL INCOME L.3At2 RUSHWOOD,20002 BIRMWOOD,20002 MEMORIAL CHASE,20002 FT. WALTON BEACH,20002 CHANDLER,20002 +E TOTAL RENTAL INCOME L.3A3 ** ---------------------------------"(1.1_1 SUBROUTINE TO LEAVE OUT STOP WHEN PRINTINGe1u1PR1ī45301"HIT RETURN TO CONTINUE";B$11[1f***************************1g1hDATA STATEMENTS FOLLOW1i 2j***************>0:(N$,2)"**"4440: --AT END OF LAST DATA LINE BEFORE **H0DDDTi0N4400: READS NEXT DATA LINEo0Xu0]0b: SUB TO PUT HEADINGS ON FORM PAGES0g0l"****************************************"0v:N$:0YN$:SSN$:"1"-------: SAME HERE/TTA,/4210: READ MORE>/N$(N$,4,32)Q/" ";N$;29);e/T: SAME HEREk/q/w//4510/ **********************/ SUB TO ADD ALL DATA LINES BETWEEN **// ***********************/&D0/04080"A.," ";N$;29);>.6A: R/S CC TURNED ON PRINTER HEREN.@TA: TOTALT.JZ.O|.T ADD UP TOTAL MINOR CATEGORY.Y.^(N$,2)"+S"ij.hT0.rN$.|(N$,2)"+E"4290:MUST BE END.(N$,1)"*"ij.A." ";N$;25); /A LEFT --" ",K$;29)$-D*-0-8-N$- SUBROUTIME TO READ ONE DATA LINE THEN RETURN OR SUMMARIZE THEN RETURN--L$(N$,1): FIRST CHARACTER OF DATA-L$"*"ı: MAJOR CATEGORY-L$"+"4190: START OF MINOR CATEGORY.--------------------".,^ "SPOUSES SIGNATURE"?,h (4);"PR#0"E,m K,r g,| **********************m, , SUBROUTINE TO PRINT K$ TITLES AND VALUE OF D,," ";K$;34);,D: SAME HERE,,- SUBROUTINE TO PRINT DATA CLOSER TO******************"+ >+" X0DX:K$"TAX DUE L.71":4000q+, X0DX:K$"TAX REFUND L.69":4000:"PAY TO"z+6 YN$+@ :::"----------------------------------------"+J "YOUR SIGNATURE DATE",T :::"--------------------THHELD **"ij* 4080?* DT:K$"TOT TAX WITHHELD L.60":4000I* 4080S* 4510}* N$"** ESTIMATED TAX PAYMENTS **"ij* 4450* 4080: EST TAX PAYMENTS* DTD:K$"TOTAL TAX PMTS L.67":4000* XXD* :4510+ "**********************IT L.44":4000 )F T1D: CREDIT/)P K$,D:P1D9)Z 4000])d DI1:K$"INV TAX CR L.43":4000m)n K$,D:4000)x T1T1DI1P1:DT1:K$"TOTAL CREDITS":4000) XXT1:DX:K$"BALANCE L.50":4000) K$"TOT TAX L.59":4000) 4080 * N$"** TAXES WIX L.38":4000N( :"** FORM 2441 **": R/S CC TURNED PRINTER ON HERE 2 TIMESn( DC2:K$"LINE 3 AMTS":4000( D4000D4000( K$"LINE 4 MAX":4000(( C2D5:DC2:K$"L.12 CREDIT":4000(2 : R/S CC TURNED PRINTER ON HERE)< K$"CHILD CARE CRED K$"GROSS-DEDUC L.35":4000L' K$,D:K$,D:R/S CC TURNED PRINTER ON HERE_' D1000D:WWD' K$"EXEMPT X 1000 L.36":4000' K$"TAXABLE INCOME L.37":DW:4000' "LOOK UP TAX ON $";W' "IN TAX TABLE AND ENTER IT."' X ( DX:K$"GROSS TA0&L 4080: ADJUSTMENTS9&V WWT:DW: INCOME LESS ADJX&` K$" ADJ GROSS L.32":4000~&j : R/S CC TURNED PRINTER ON HERE&t 4510&~ "** SIDE 2 OF FORM 1040 **"& K$"ADJ GROSS L.33":4000& DD1:K$"SCH A DEDUCT L.34A":4000& WWD1:DW'003%4080:K$"CAPTIAL GAIN(LOSS) SCH D L.13":DTB% 4000:C4D]% IF Z$ = "C" THEN 1490% DR1:K$"SCHEDULE E RENTAL L.18":4000%$ 4080: OTHER INCOME%. IF Z$ = "R" THEN W = W + R1%8 WWTC1R1C4:DW: TOTAL&B K$"TOT INCOME L.22":400D L.9A":4000$D2I2D29$DD2:K$"TOTAL L.9C":4000O$4080: EXCLUSIONf$D2D2T:D20D20$DD2:K$"TAXED D+I L.8E":4000$4080: TAX REFUNDS$WWD2T: INCOME SO FAR$DT:K$"TAX REF L.10":4000%DC1:K$"BUS INCOME L.12":40'S NAME"6#R" SECOND CHILD'S NAME 2"d#\"LINE 6.E TOTAL # EXEMPTIONS CLAIMED 4"#f"----------------------------------------"#p4510#z4080#WT:DT:K$"WAGES ETC L.7":4000#DI2:K$"INTEREST L.8":4000 $DD2:K$"DIVI---------"*" :"** FILING STATUS **":S""L.2-X-MARRIED FILING JOINT RETURN"" "----------------------------------------":4510:"*"** EXEMPTIONS **":"4"6.A -X-YOURSELF"">"6.B-X-SPOUSE 2"#H"6.C FIRST CHILDZIP"!"YOUR OCCUPATION":!"SPOUSE'S OCCUPATION"::`!"PRESIDENTIAL ELECTION CAMPAIGN"!"DO YOU WANT $1 TO GO TO THIS FUND---NO":!"IF JOINT RETURN, DOES SPOUSE WANT $1 TO GO TO THIS FUND?--------NO" ""------------------------------- HERE N4510- XN$"** SCHEDULE B **"ij7 b4450X l4080:I2T: INTEREST INCOME^ v 4080:D2T: DIVIDEND INCOME : R/S CC TURNED PRINTER ON HERE 4080 4510 N$"** FORM 1040 **"ij 4450 "STREET"!"CITY,STATE,K$"GROSS DEDUCT L.28":4000LD1D13400:D10D10: STATUTORY CREDIT&D3400:K$"STAT CREDIT":4000: STANDERD DEDUCTION IS TAKEN OFF HERE MUST BE CHANGED AS NECESSARY0:DD1:K$"TOTAL DEDUCT L.30":4000 D: R/S CC TURNED PRINTER ON10DT1:D1D1T1AK$"TOT CAS/THEFT LOSS FORM 4684":4000JT10T4080ZN$"** MISCELLANEOUS DEDUCTIONS **"ijN$: R/SCC TURNED PRINGER ON HERE4360K$"TOTAL MISC DEDUCT L,26":4000D1D1DDD1":4000D1D1D"<,N$"** CASUALTY LOSSES **"ijc6N$: R/SCC TURNED PRINTER ON HEREi@J4080: READS ONLY ONE DATA LINETT1T^4080: INSURANCE REIMBhT1T1T:DT1rK$"LINE 27 DIFF":4000|4510T1T1100:T10T"** INTEREST EXPENSE **"ijBN$: R/SCC TURNED PRINTER ON HEREHR4360pK$"TOTAL INTEREST":4000|D1D1DN$"** CONTRIBUTIONS **"ijN$: R/SCC TURNED PRINTER ON HERE4360: CONTRIBUTIONSK$"CONTRIBUTIONS4080: MEDICAL AND DENTAL&(N$:024080O<D1T: ITEMIZED DEDUCTIONSYF4080cP4510iZdN$"** TAXES **"ijnN$: R/SCC TURNED PRINTER ON HEREx4360: INCOME TAXK$"TOTAL TAXES":4000D1D1D4510N$N$"** 3468 INVESTMENT TAX CREDIT **"ij44450>4360lI1(D260.5)1000: ACTUAL INV TAX CR uDI1{K$"ACT INV TAX CR":40004510: R/SCC TURNED PRINTER ON HERE N$"** SCHEDULE A - DEDUCTIONS **"ij4450LK$"TOTAL DED L.31":4000.VC1ID:DC1P`K$"SCH C NET P/L L.32":4000sj: RS TURNED PRINTER ON HERE}t4510~N$"** 2441 - CHILD CARE EXPENSES **"ij44504360C2D: CHILD CARE AMOUNT: R/SCC TURNED PRINTER ON*T OF GOODS **"ij!G1G1D:DG18K$"BALANCE":4000W4360: COST OF GOODS SOLDbDG1D~K$"GROSS PROFIT":4000K$"TOTAL INCOME":4000ID: SCHED C INCOME$N$"** DEDUCTIONS **"ij.N$84510B4360: DEDUCTIONS7" \4000f3p"HIT RETURN TO CONTINUE";B$QzN$"** SCHEDULE C **"ij[4450e4080"FEDERAL TAX NUMBER":N$4360: SCHEDULE C GROSS RCPTS/SALESN$"** RET/ALLOW **"ijG1D4360: RETURN/ALLOWANCEN$"** COS"TOTAL DED":4000#R1R2D:DR1AK$"RENTAL NET P/L":4000GoN$"** PART II PARTNERSHIP **"ij N$:4510:4360PD N$"** LOSSES **"ij*N$:43604DPD>K$"TOTAL PAR L.29":4000HER1D:DERK$"SUM SCH E L.3N$N4080: RENTAL INCOME &XDTBbK$"TOTAL INCOME":4000ZlR2D:RENTAL INCOME`vj4080N$"** RENTAL EXPENSES **"ijN$4510D04080: DEDUCTIONS (N$,2)"**"730: AT END OF DEDDDT690K$U HAVE ANY RENTAL PROPERTY";Z$:REM IF LEFT$ ($,1) = "N" THEN Z$ = "C":REM GOTO250:REMZ$ = "R" j4080N$"** SCHEDULE E RENTAL **"ij4450"HOUSE 1, RESIDENTIAL"&" STREET ADDRESS"0" TOWN, STATE":4080D***************************":I"DO YOU WANT TO CHANGE DATA?(Y/N)";B$`(B$,1)"Y"İ9200:"****************************************":"OUTPUT TO PRINTER (Y/N)";A$(A$,1)"Y"PR1:490PR0(4);"PR#";PR` INPUT "DO YO D THE TOTAL VALUE IN THAT BLOCK. THIS IS THE KEY ROUTINEtr TAB SET LINES ARE 4010;4050,4140 AND 4300;AND 4250|:"****************************************":"DO YOU WANT INSTRUCTIONS?(Y/N)";B$:(B$,1)"Y"İ9000::::"*************RGELY OF CALLS TO SEVERAL SUBROUTINES. A DATA READ SUBROUTINE 4080 READS EACH(ONE) DATA LINE AND GIVES VALUE TO T AND PRINTS A.h PRINT SUBROUTINE4000 PRINTS K$ AND VALUE OF D.9m READ SUBROUTINE 4350 READS ALL DATA LINES BETWEEN ** STARS. IT GIVESHE DATA,5991-8120, AND A SUBROUTINE FOR INSTRUCTIONS,9000-9730T THE DATA STATEMENTS ARE OF THREE TYPES,MAJOR HEADINGS IDENTIFIED BY ** ,MINOR HEADINGS,AND SUBMINOR HEADINGS IDENDIFIED BY +S (START) AND +E (END).^ THE MAIN PROGRAM CONSISTS LA ** GR--GROSS RECEIPT:, ** YN$--YOUR & SPOUSE NAMEY6 ** SSN$-SOCIAL SECURITY`@ >J THE PROGRAM CONSISTS OF FOUR PARTS, THE MAIN PROGRAM,10-2920, SUBROUTINES TO READ AND PRINT DATA,4000-4530, A SET OF DATA STATEMENTS WHICH CONTAIN ALL TR1--SCHEDULE E INCOME OR LOSS< **R2--SCHEDULE E INCOME ** T-VARIABLE USED TO INPUT DATA FROM SUBROUTINE AT LINE 6050 **T1-USED TO SUBTOTAL AMOUNTS ON SCHEDULE A AND BACK OF FORM 1040 **W-GROSS AND TAXABLE INCOME **X-TAX"H SUBROUTINE 4080M **N$-VARIABLE USED TO INPUT TITLE IN SUBROUTINE 4080 **PR#-EQUALES 0 FOR SCREEN AND 1 FOR PRINTER **PC - POLITICAL CONTRIBUTIONS **B--VARIABLE USED WITH HIT RETURN TO CONTINUE **R--RENTAL INCOME  **ED DEDUCTION FROM SCH A3 x**D2 DIVIDEND INCOME Q **I SCHEDULE C INCOMEs **I1 INVESTMENT TAX CREDIT **I2 INTEREST INCOME **K$-VARIABLE USED TO PRINT TITLE OF VARABLE D AT SUBROUTINE LINE 4000 ** L$-TEMPORARY VALUE USED WIT**** < VARIABLES USED T F ** A--DOLLAR AMT READ FROM LAST DATA STATEMENT{ P **C1--SCHEDULE C INCOME OR LOSS Z **C2-AMOUNT SPENT FOR CHILD CARE d **D--VARIABLE USED TO SEND DATA TO SUBROUTINE AT LINE 6000 n *D1 TOTAL OF ITEMIZ AS A RESULT OF USING OR MISUSING THIS PROGRAM"5 -~ 2"ENTER YOUR NAME AND ADDRESS ON LINES 51-52 BY CTRL-RESET AND LIST" 3YN$"YOUR & SPOUSE'S NAME": GO TO LINES 1980-2010 TO INPUT OTHER DATA 4SSN$"YOUR SOCIAL #" 6 7 ****************982" :"REVISED FOR APPLE II BY WILLIAM C VASSER; 4939 STRATHAVEN DR; DAYTON,OHIO 45424. REQUEST IMPROVEMENTS/REFINEMENTS BE SENT TO ABOVE FOR COMPLITATION":/ ("NEITHER AUTHOR CAN BE RESPONSIBLE FOR THE ACCURACY OF PROGRAM,OR DIFFICULTIES WITH IRSS :::"****************************************":" INCOME TAX ESTIMATOR PROGRAM":"****************************************" "WRITTEN BY PETER A. STARK,P.O.BOX 209;MT KISCO ,NY 10549 FOR A RADIO SHACK COLOR COMPUTER IN 80 MICRO, OCTOBER 1"!!! ! ! ! ! !!!!!!!!!                            $% 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 """"""""ON, OHIO *!  ****************6 PAGE 2 COMMENTS< VO Q>=QUIT" 700& KB209ė::'Q'K KB195ė::D$;"CATALOG"::'C' KB205ĺ:D$;"BRUN MENU 3.1":: KB="M"? "";:640 KB(16384):KB128700 16368,0   ****************  * APPLE-DAYTON *  * DAYTX: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 "; :700 NI 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- S=: APPLE-DAYTON HELLO PROG. MASON FRIAR, DTD 5 JUL 80.WVOL35:MTH$"MARCH 1983"`700D$"":D$;"NOMON C,I,O"::5002000600:2:13::" APPLE-DAYTON "::4:"THE APPLE USERS GROUP OF DAYTON, OHIO":3 "GOAL-""" " " " "