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?:;6723./*+&'"#>>::6622..**&&""=>9:5612-.)*%&!"==995511--))%%!!<=89.(**(&&(""=(>9(:5(61(2-(.)(*%(&!("(==(99(55(11(--())(%%(!!<(=8(94(50(1,(-(()$(% (!(<<(88(44(00(,,(((($$( ?(<;(87(43(0/(,+(('($4P50P1,P-(P)$P% P!P<(?:(;6(72(3.(/*(+&('"(#(>>(::(66(22(.ιP??P;;P77P33P//P++P''P##>P?:P;6P72P3.P/*P+&P'"P#P>>P::P66P22P..P**P&&P""=P>9P:5P61P2-P.)P*%P&!P"P==P99P55P11P--P))P%%P!!"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPО PRW` @ @ @ @ii``󠠠D$;"NOMON C,I,O"XD$;"BLOAD ";F$;",A$3B8"3:"APPLE ][ EDITOR-ASSEMBL %  Q  Q  i0 i ` PRW  ` ʽ  %ȑ8ؠ    Л`l   I` 8'ȱ    K.":"COPY IS COMPLETE."M"INSERT SYSTEM DISK TO REBOOT DOS.":7000T6X49168,0::"HIT RETURN WHEN READY.";A$:TD$"N"ė:"INSERT ";:2006600N:"NOW RECORDING THE NAME:"::N$::"ONTO THE NEW DISK."ZI130m X((N$,I,1))~2BUF116I,X<IFC2:200P6600d:"REMEMBER THAT THE NAME OF THE 'HELLO' FILE HAS NOT BEEN EMBEDDED IN THE DOS ONTHE NEW DIS, IT IS NECESSARY TO EMBED THE NEW VOLUME NUMBER INTO THE DOS TRACKS OFTHE COPY."cV(RWTS%24):"THE NEW VOLUME NUMBER IS:";V:"IT WILL NOW BE RECORDED."S1:T0:C1:200BUF235,V:C2:200S10:T1:C1:200BUF102,V:C2:6600=.:"THE DOS ON THE NEW DISK IS NONSTANDARD.":6500O8DT$"Y"6600q=:"NEW DISK HAS MASTER DOS."{B6400DT$"Y"6350:"NEW DISK HAS SLAVE DOS."S10:2006400Q:"SINCE THE DISK BEING COPIED HAS THE SLAVE DOS00DT$"N"HR%065003C1:BUFBA%:T1:S12<200DX0OI02dXX256(BUFI)kIX42819216200X110800776300$DT$"Y"ĺ:"THE DOS ON THE DISK BEING COPIED IS NOT RECOGNIZABLE. THE COPY MAY NOT BOOT PROPERLY."+TD$"Y"D2::"WRITING TO NEW DISK."9I0K%1IL%L%(J%I)[BUFBA%256ItT(L%13):SL%13T}200J%I1,"T=";T,"S=";SI DONE?N%06000J%J%K%7100:"SOURCE DISK.":70003000pIN$"N"66%)256 READ SOURCE DISK* CRD:D1N K%M%:N%J%M%K%N%J%1:N%0\ I0K%1l L%L%(J%I)~ BUFBA%256I T(L%13):SL%13T 200 J%I1,"T=";T,"S=";S I WRITE NEW DISKCWR:V07100:"NEW DISK.":7000J:J:J%39"4T334:BY%564TD>Y%(BA%BY%):X%(BA%BY%1)PHX%X%8[RI04\H%X%2:X%2H%L%(J%)13TI:J%J%1fX%H%:IpI512zH%Y%2:Y%2H%L%(J%)13TI:J%J%1Y%H%:ITN%J%1:J%0M%(47025BA117I))I:N$m:"THIS NAME WILL BE RECORDED IN THE DOS TRACKS OF THE NEW DISK IF POSSIBLE."}HR%1:2000 FIND SECTORS IN USE::"NOW DETERMINING WHICH SECTORS ARE":"IN USE."J%0DT$"N"2100J038 L%(J)LL NOT BE RECORDED IN THE DOS TRACKS OF THENEW DISK."E=HR%0:2000f@"BE A ":"MASTER DISK."::pJ1675T"BE A":"SLAVE DISK."::YS10:200"THE NAME OF THE 'HELLO' FILE ON THE":"SOURCE DISK IS:"N$"":I029N$N$((BUFX0I02&XX256(BUFI)-IS:"THE SOURCE DISK APPEARS TO ";g"X42819211600|,X1108007716206"HAVE A":"NONSTANDARD VERSION OF DOS. "5;:"THIS PROGRAM IS UNABLE TO DETERMINE THE NAME OF THE 'HELLO' FILE AND SO IT WINS.":::"THIS PROCESS WILL TAKE":"ABOUT 100 SECONDS."F.CFM:200h8::"FORMATING IS COMPLETE."B7100:"SOURCE DISK.":7000 FIND HELLO NAME IF DOS TRACKS ARE NOT COPIEDDT$"Y"2000T1:S12:BUFBA%300200:RWTS%19,BH% RWTS% 9 ***** PROGRAM BEGINS[ D1:V0:CRD:BUFBA%:S0:T17d 200v V(RWTS%24) IN$"Y"1500 :TD$"N"ĺ"INSERT NEW DISK FOR FORMATING."::"HIT RETURN WHEN READY.";A$ TD$"Y"D28$:"FORMATING BEGIWTS%22:SLRWTS%15:TLRWTS%14:VLRWTS%13:DLRWTS%12M RWTS%11,(1528)d V=VOLUME D=DRIVE{ S=SECTOR T=TRACK C=COMMAND RD1:WR2:FM4 1000 DL,D:VL,V CL,C:SL,S:TL,T BH%BUF256:BL%BUF256BH% RWTS%18,BL% 2 169,3,160,10,32' 4 217,3,96,0,08 7 1,96,1,0,0L 9 0,32,3,152,58\ < 0,0,0,0,0o > 96,1,0,0,0,0 A 0,0,1,239,216 dPG%3:RWTS%PG%256 xI035 }X%:RWTS%I,X% I RWTS%1,PG% RWTS%17,PG% RWTS%41,PG%7 CLR"DO YOU WANT THE DOS TRACKS COPIED?"::"(Y OR N): ";:DT$:DT$"N"DT$"Y"^ !IN$"Y"ĺDT$s "IN$"N"DT$"Y"} #:: (TD$"Y"ĺ"INSERT SOURCE DISK IN DRIVE - 1":"INSERT NEW DISK IN DRIVE - 2" )TD$"N"ĺ"INSERT SOURCE DISK." *7000)255XĹMT,X:202 "48K MEMORY IS REQUIRED.":X "ARE TWO DISK DRIVES AVAILABLE?" :"(Y OR N): ";:TD$:TD$"Y"TD$"N" TD$ :"HAS THE NEW DISK EVER BEEN INITIALIZED?"::"(Y OR N): ";:IN$:IN$"Y"IN$"N" IN$L IN$"Y"ĺ: 0:0BA%7857%(BA%1)4L%(3513)S :" S-COPY"s " (VERSION 2)  :" BY I. M. ISAACS":: (57344)76ĺ"ROM APPLESOFT OR LANGUAGE CARD REQUIRED.": MT49151:X(MT):MT,255X:(MT     e"CLUB. THE TRS-80 VERSION APPEARS ON":"PAGE 150 OF THE AUGUST 1981 ISSUE OF":"INTERFACE AGE."kdP)"VTAB23:PRINTTAB(22)"P1$"PRESS SPACE BAR"P1$";:GET Q$":70upLN$(CU)LN$(CU)"POKE34,0:REM NORMAL SCREEN":70{"THIS APPLESOFT VERSION OF DAVID BUSCH'S":"'TRS-80 PROGRAM WRITER' WAS ADAPTED BY""BILL DECOURSEY OF THE MINNI'APP'LES"4:VTAB 8":70B>LN$(CU)LN$(CU)"FOR X=1TO6:PRINT B$:NEXT X":70zHLN$(CU)LN$(CU)"VTAB10:HTAB INT(12-"(T1)")":70RLN$(CU)LN$(CU)"PRINT"P1$F$P1$:70\LN$(CU)LN$(CU)"NORMAL:POKE32,0:POKE33,40:POKE34,20:POKE35,23":70@fLN$(CU)LN$(CULN$(CU)LN$(CU)"FOR X1=33 TO 8 STEP -1:VTAB 7:PRINT TAB(X1)A$:VTAB14:PRINTTAB(X1)A$:NEXTX1"e 70*LN$(CU)LN$(CU)"FOR Y=8TO13:VTABY:PRINT TAB(33)A$:VTABY:PRINT TAB(8)A$:NEXT Y":70 4LN$(CU)LN$(CU)"INVERSE:POKE 32,8:POKE33,25:POKE34,7:POKE35,1LL THIS PROGRAM HAVE A TITLE?";AN$9(AN$,1)"N"2200A70LN$(CU)LN$(CU)"TEXT:HOME:A$="P1$"*"P1$":B$="P1$" "P1$:70"WHAT IS TITLE OF PROGRAM?" "NOTE: LIMIT OF 24 CHARS)?";F$T1((F$)2)]N1D$;"CLOSE"J:"TO SEE YOUR PROGRAM TYPE THE FOLLOWING:":n(93);"NEW "(93);"EXEC ";F$;" ":"THEN AFTER FILE LOADS TYPE:"::(93);"LIST " CREATE TITLE MODULE""WI$)" Z70(dLN$(CU)LN$(CU)"RETURN"Pn**SAVE FINISHED MODULES TO DISK **Xx:F$""Ą"ENTER THE NAME OF THIS PROGRAM ";F$F$F$".TEXT"D$(4)"ONE MOMENT PLEASE"D$;"OPEN";F$D$;"WRITE";F$N11CULN$(N1)TO 'GET' BY KEN SLINGSBYA "DO YOU WANT 'GET' SUBROUTINE";AN$X(AN$,1)"N"1400`70(LN$(CU)LN$(CU)" REM ** GET INPUT SUBROUTINE **"270<LN$(CU)LN$(CU)"GET A$ :IF A$="P1$P1$" GOTO "(LN)F70PLN$(CU)LN$(CU)"A=VAL(A"RETURN"&** ADD MISC. MODULES **X"DO YOU WANT A CLEAR SCREEN SUBROUTINE?";AN$o(AN$,1)"N"1290w70LN$(CU)LN$(CU)" REM ** CLEAR SCREEN SUBROUTINE **"70LN$(CU)LN$(CU)"HOME:PRINT:PRINT:RETURN" 'INKEY$' CONVERTED :70&`LN$(CU)LN$(CU)"PRINT DA$(N"NjDI2LN$(CU)LN$(CU)",COL)":1150foLN$(CU)LN$(CU)")"n~70LN$(CU)LN$(CU)"NEXT"DI2LN$(CU)LN$(CU)" COL,N"70LN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"P1$70 LN$(CU)LN$(CU)70<LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN"P1$";F$"D70{$LN$(CU)LN$(CU)"PRINT D$;"P1$"WRITE "P1$";F$")70.LN$(CU)LN$(CU)"PRINT NF"870BLN$(CU)LN$(CU)"FOR N=1TONF"L70VDI2LN$(CU)LN$(CU)"FOR COL=1 TO NC"(CU)"RETURN"/** CREATE DISK OUTPUT MODULE770wMI0LN$(CU)LN$(CU)" REM** SAVE FILE TO DISK **":1020LNNU(N1):LN$(CU)(NU(N1))" REM** SAVE FILE TO DISK **"70LN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$";F$"1 TO NC":70.zLN$(CU)LN$(CU)"INPUT DA$(N"UDI2LN$(CU)LN$(CU)",COL)":910mLN$(CU)LN$(CU)")"u70LN$(CU)LN$(CUU)"NEXT"DI2LN$(CU)LN$(CU)" COL,N"70LN$(CU)LN$(CU)"PRINT D$;"P1$"CLOSE"70 LN$(CU)LN$";F$"*70D4LN$(CU)LN$(CU)"PRINT D$;"P1$"OPEN "P1$";F$"L970>LN$(CU)LN$(CU)"PRINT D$;"P1$"READ "P1$";F$"C70HLN$(CU)LN$(CU)" INPUT NF"R70\LN$(CU)LN$(CU)"FOR N=1TONF"f70 pDI2LN$(CU)LN$(CU)"FOR COL=Y, I NEED A STRING ARRAY DEFINED TO BR";A$:10H**CREATE DISK MODULEMI0LN$(CU)LN$(CU)" REM**LOAD FILE FROM DISK":790 LNNU(N):LN$(CU)(NU(N))" REM**LOAD FILE FROM DISK"70 LN$(CU)LN$(CU)"INPUT "P1$"ENTER FILE NAME :"P1$70*LN$(CU)LN$(CU)"GOTO "(IM(1))[**INSERT REMARKS AT FUTURE MODULE LOCATIONSnN1MIIOFLAGv70LNNU(N):LN$(CU)(NU(N))" REM ** INSERT "MENU$(N)" SUBROUTINE HERE ""**"NIOFLAG2123070.DI0Mĺ"SORRU$NU$(NU)","DN1NNU$(NU$,((NU$)1))9X70vbLN$(CU)LN$(CU)"INPUT"P1$"ENTER CHOICE : "P1$";CH$"~l70vLN$(CU)LN$(CU)"CH=VAL(CH$): IF CH<1 OR CH> "(MI)" GOTO"((LN$(CU1)))70LN$(CU)LN$(CU)"ON CH GOSUB"NU$SK I/O DESIRED, CREATE THESE MENU CHOICESIOFLAG2İ70:LN$(CU)LN$(CU)P$(N)".)"" LOAD FILE FROM DISK"P1$:70:LN$(CU)LN$(CU)P$(N1)".)"" SAVE FILE TO DISK"P1$70LN$(CU)LN$(CU)"PRINT"&N1MI0NUNUIC50:NU(N)NU:NFILE TO DISK' AND":"'LOAD FILE FROM DISK'";AN$J (AN$,1)"Y"IOFLAG2X CH(CH$)i CHCHIOFLAGu N1CH "ENTER MENU CHOICE # ";N MENU$(N) N N1CH 70 LN$(CU)LN$(CU)P$(N)".) "MENU$(N)P1$ N)**IF DI NEED A MENU?";AN$( @(AN$,1)"N"7400 J70 TLN$(CU)LN$(CU)"HOME:PRINT:"P$" ********** MENU **********"P1$":PRINT" ^IM(1)LN h"HOW MANY CHOICES ON THE MENU";CH$ rMI(CH$) |DI0410/ :"WILL THE CHOICES INCLUDE ":"'SAVE  DI2ī250 > "HOW LARGE SHOULD THE ARRAY BE?";ROWd LN$(CU)LN$(CU)"DIM DA$("(ROW) DI1LN$(CU)LN$(CU)")":310 LN$(CU)LN$(CU)","(COL)")" 70 "LN$(CU)LN$(CU)"NC="(COL) ,**CREATE A MENU 6"WILL THIS PROGRAMD" :2000I "WILL THIS PROGRAM STORE DATA IN A STRING ARRAY?";AN$_ (AN$,1)"N"310g 70m "WILL THE ARRAY HAVE 1 OR 2 DIMENSIONS?";AN$ DI(AN$) DI1DI2200 DI2ĺ:"HOW MANY ELEMENTS BY HOW MANY ELEMENTS":ROW,COL% P**ENTER LINE NUMBER PARAMETERS/ Z::V d"ENTER BEGINNING LINENUMBER";BLN$ n:"ENTER LINE NUMBER INCREMENT";IC$ xIC(IC$) LN(BLN$)IC **CREATE 'CLEAR' AND 'DIM' STATEMENTS 70 LN$(CU)LN$(CU)"HOME:D$=CHR$(4):REMCNTL-m0:"***** AUTOMATIC PROGRAM WRITER ******"<:5000f:"PRESS RETURN TO RUN PROGRAM";ANS$l zLN$(100)P$" PRINT "(34)" "(P1$(34)290< **INCREMENT LINE NUMBER COUNTERS FLNLNIC:CUCU1:LN$(CU)(LN)" ":          .:r'~qs?~~/?~?~|?r'.:\9N\9N\9N\9N\9N\9N\9N\9N\9N\*z #XIJ    կҠ Ġ̠ӮԠ   ůàΠ͠$ůΠ: ǯҠӠǯҠŠǯԠŠ5կϠ͠կנ٠ĠϠĠϮʠՠ¯̠Ӡ ¯ԠҠůӠůǠŠ 8ؑi=iagj`Ȅ 0`8aa```VɍȄ e 閥%з ݖɛ, X 閥0 ,,`` 9* * COMMENTS */ * IF APPLICABLE*F ****************x GOSUB 560 REMOVE REM FOR WAIT FOR KEYPRESS~ ******************* * TITLE CENTERING * * MODULE * *******************(20(TI$)2):TI$:> TO CONTINUE";:35,22:70 5,39:6,1:7,25:(HM108)C: :2040Z ****************q * TERMINATION * * MODULE * **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWO ND-BY":* D$"READ "TF$:HM46:250,160K (64435)6Ĺ38600,176:3100 :"DO YOU HAVE LOWER CASE?(Y/";::"N";::")";:2500:(KB128)"Y"ČHM357:250,32 D$"CLOSE":TF1& 251,21:23:" PRESS TO EXIT READ MODE":10);"KB195ė::D$;"CATALOG":3550: 'C'[HKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'vR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(1================"U 12:8:"'CALL 1016' FROM BASIC":8:"'CONTROL-Y' FROM MONITOR"19:"=RUN MENU PROGRAM =CATALOG DISK"::"=READ ";:TF$;:" =QUIT TO BASIC" 23:7::"PRESS LETTER FOR SELECTION";:*25004KB209ī3500: 7:"";+ h25001 rH  ****************_  * MAIN MENU *v  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::50009:8:"TO RE-RUN MENU PROGRAM":8:"======7:30":= 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"h @"SECY- BOB RENNARD, (513) 426-3579": J"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," T"FAIRBORN, OHIO 45324"! ^24:"THE APPLE USERS GROUP OF DAYTON, OHIO":h "GOAL- PROMOTE THE INFORMED USE OF APPLE":"COMPUTERS": ""MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" ,"MEETING- 2ND THURS EACH MONTH, WRIGHT ":"STATE UNIVERSITY ,A"HM:LG1080, .1090:LOGO NOT IN MEMORY; 8T11:2500D BT10L L:V V1500` `4000j j2000  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ***************** :13::" APPLE-DAYTON ":::42, OCTOBER 1983"+ TF0:TEXT NOT LOADEDe HM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 LG0:DEFAULT TO LOGO NOT LOADED :((12290)(8800))(12000)Ĺ16304,0:16302,0:LG1 D$(4):D$"NOMON C,I,O": $D$"BRUN A-D HELLO.OBJ  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TF$"A-D VOL 42" ,VO$"VOLUME      HM$"RW"ī880?RD$;"OPEN ";A1$;" , D";D:D$;"DELETE ";A1$d\D$;"OPEN ";A1$:D$;"WRITE ";A1$rfN11:890pD$;"APPEND ";ZA$;" , D";D:D$;"WRITE ";ZA$zIN1NN$(N%(I),0):N$(N%(I),1):N$(N%(I),2)D$;"CLOSE ";A1$K2İ2" "ZC$ N%(N)N:)  DELETE A NAME7 :M$"RW"A 1040N JIN1` N%(J)N%(J1)f p NN1v   EXIT ROUTINE D$;"MON C,I,O" :K0 *M$"Y"M$"RW"940 4KK1 >K2ė:"BACK UP DISC ?";B$:(B$,1)"Y"930M$"RW"M$"Y" &N0570O 0"FILE NAME ?";F$:M$"RW":A1$F$" MAIL LIST"[ :NN1:p D DEFAULT VALUES} NA$(0)"" XA$(1)"" bA$(2)"" lST$"OH" vZC$"" IN 1980 N$(N,0)A$(0) N$(N,1)A$(1) N$(N,2)A$(2)" "ST$0 A$"D"İ700# A$"E"ī7804 A$"L"İ960F A$"M"İ2620X A$"N"İ2790j A$"O"İ2370| A$"P"İ1800 A$"R"ī1520 A$"S"İ1680 A$"X"İ2950 A$"W"İ1350 A$"Z"C(0) 150  ADD A NAME ROUTINE :ABETICAL ORDER)"% ""P)RINT LABELS"? ,"R)EAD IN NAME LIST"a 6"S)ET UP PRINTER FOR LABELS"} @"W)RITE LIST ON PAPER" J"X)CHANGE DISK DRIVE" T"Z)AP STRINGS" ^32,0 h23:"WHAT IS YOUR CHOICE ?";:A$: rA$"A"İ530 |A$"C"İ120T":" :F$;::30);N;" NAMES", 32,2F 28);"DISK DRIVE ";DY "A)DD A NAME"o "C)HANGE A NAME" "D)ELETE A NAME" "E)XIT" "L)IST NAMES ON SCREEN" "M)OVE A NAME" "N)UMERICAL ORDER BY ZIP CODES" "O)RDER LIST (ALPHd MAILING LIST PROGRAM8n BY DAN LONN 12/26/81TxT%0:D$(4):D(47082)N%(400),N$(400,2),A$(2),N1$(400),ZC(400),Z$(100)768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 ::14);"MAILING LIS      ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж 4<=>?BC ,ڍ ԧLS T  m鷽 ݌ 0 X '1  x)ȹx)ȹx)    [$ $ q L {{l       ɍ  ` @ ``$ $ $I$ $) ʩ`@ ȱ`'$ɍI$ $)?)ߑө`  T%N%(I) 730 NN1- JNI11? N%(J)N%(J1)F JT N%(I1)T%Z  ZIP CODE NUMERICAL ORDER ROUTINE :M$"RW" I1N ZC(N%(I))((N$(N%(I),2),5)) I J0" C0, 10:"WORKING ON ";J;"TH TIME THRU LIST A$(N1$(N%(I)),J1)= N1$(N%(I))(N1$(N%(I)),LJ)" "A$D( IJ2 ]< MOVE AN ITEMkF :M$"RW"P "MOVE WHICH NAME ?"::34,3:Z 1040:JId 34,2::"BEFORE WHICH NAME ?"::34,3:n 1040:I1Ix 34,2: IJ II1I1I11 C1  I@ JJ1:868:"THERE ARE ";C;" ITEMS OUT OF ORDER"N C02410T  "LAST NAMES LISTED FIRST ?";A$::(A$,1)"Y"ī2610 I1N N1$(N%(I))N$(N%(I),0) L(N1$(N%(I))) JL11 (N1$(N%(I)),J,1)" "2580 J$:DF$"C"CC$(27)"Q":CD$(27)"N":1= ::KB ALPHABETIZE ROUTINEYL :M$"RW"cV 2510k` J0sj C0t 10:"WORKING ON ";J;"TH TIME THRU LIST"~ IN111 N1$(N%(I))N1$(N%(I1))2470 T%N%(I):N%(I)N%(I1):N%(I1)T% CPRINTING9 CC$(15):CD$(18): SHIFT IN AND SHIFT OUT\ "A)LL, O)NE OR R)ANGE ?";A$: (A$,1)"O"İ1040:KI:LI:2360$ (A$,1)"R"ĺ"LOW LIMIT":1040:LI:"UPPER LIMIT":1040:KI:2360. L1:KN(8 "EPSON OR C. ITOH PRINTER (E/C) ?":DF5Ğ:"ZIPCODE MUST HAVE FIVE DIGITS"::2170O:"ADDRESS AS TYPED IN:"::ZA$(0)eA$(1)A$(2);" ";ST$;" ";ZC$:"MAILING LIST NO. = ";I22:"IS IT OK (YES OR NO) ?";:B$:B$"N"1980 SUB TO DETERMINE RANGE OF (2):H9:"STATE ";ST$)R9:7:C$<\C$""ST$C$xf(ST$)2Ģ10::"USE TWO DIGIT CODE FOR STATE"::2120p9:8:868:ST$:z11:"ZIPCODE ";ZC$11:9:"";C$(C$)3ZC$"55"C$:2220C$""2220ZC$C$-(ZC$)NE3:"NAME ";A$(0)-3:6:C$BC$""A$(0)C$[3:7:868:A$(0):u5:"ADDRESS ";A$(1)5:9:C$ C$""A$(1)C$5:10:868:A$(1): 7:"CITY ";A$(2)*7:6:C$4C$""A$(2)C$>7:7:868:A$&(A$,1)"N"İ1680 0:2310<:"NUMBER OF TIMES ?";I2KDD$;"PR#1"XNI11I2cXMLKnbI02l(N$(N%(M),I))33ĺCC$;:N$(N%(M),I);:CD$:1920vN$(N%(M),I)I::MI1D$;"PR#0" CHANGE SUBROUTI PRINTER ON ?";:A$:&:D$;"PR#1"7"DANA LONN"Q"1600 NOKOMIS COURT"m"MINNEAPOLIS MN 55417"w::D$;"PR#0"23:"IS THAT OK (YES OR NO) ?";A$(A$,1)"N"1710 PRINT LABELS"PRINTER SET UP ?";A$40 ZA$F$2980,"D$;"MON C,I,O"G,D$;"OPEN ";ZA$;",D";D[6D$;"READ ";ZA$j@IN1400JN$(I,0):N$(I,1):N$(I,2):N%(I)IT^216,0hD$;"NOMON C,I,O"rNI1:N1N1150 SET UP LABELS"LABELS IN ANDI216ĺ(12):I20M4CD$: NORMAL PRINTCD$;"PR#0"Ia READ IN DATA FILE:I20:N0Ą"START NEW FILE ?";A$:(A$,1)"Y"N0"FILE NAME (C/R FOR CATALOG) ?";F$ (F$)0ĺD$"CATALOG":"PRESS RETURN TO CONTINUE";A$::15N$(N%(I),1)A$(1)82N$(N%(I),2)A$(2)" "ST$" "ZC$><QF: PRINT LIST[Z2310jdD$;"PR#1"nCC$: COMPRESSEDxI20MLK3I102N$(N%(M),I1);:36,44:N$(N%(M1),I1);:36,88:N$(N%(M2),I1)I1I2I21INE:M$"RW"10401A$(0)N$(N%(I),0)GA$(1)N$(N%(I),1)\L(N$(N%(I),2))L8A$(2)"":ST$"MN":ZC$"55417":1300ZC$(N$(N%(I),2),5)ST$(N$(N%(I),2),L7,2) A$(2)(N$(N%(I),2),L9)1980N$(N%(I),0)A$(0)(A$,1)"E"150#.(A$,1)"N"1120<8:"PRINT LIST ?";A$RB(A$,1)"Y"İ960nL:"NUMBER OF NAME ?";IxV1180`:"NAME ?";A$jL(A$)tI1N~A$(N$(N%(I),0),L)1180"NAME NOT FOUND":1050 CHANGE ROUT950:820D$;"NOMON C,I,O"(::C LIST NAMES ON SCREENITI1NmI;".) ";N$(N%(I),0)(I20)(I20)ľB$::A$"L"Ģ23:B$: NAME OR NUMBER SEARCH ROUTINE"N)AME, L)IST NUMBER OR E)XIT ?";A$ $(EEN POSITION OF$ POINT IN ARRAY* >*A((X1)6)8RD4]> CALCULATE VERTICALvH SCREEN POSITION OFR POINT IN ARRAY\fB(Y1)28pz SET SCREEN POSITIONS, CHECK FOR DIMENSION ON Z, AND PRINT  VALUE 4,4,2)", "INVERSE COLORS ARE THE SECOND"@ "VALUE FOR Z "a  PRINT ARRAY ON SCREEN l X14w Y14 Z12   DECIDE WHERE Z MUST  GO ON SCREEN  Z1R0 Z2R2   CALCULATE HORIZONTAL  SCR   CHECK FOR END OF7  ALPHABET. IF FOUND,R  START USING NUMBERS.X g &R91R49z 0A$(X,Y,Z)(R) :X DY NZ X PRINT SCREEN HEADER b: l"THIS IS AN ARRAY NAMED A$(X,Y,Z)" v"ITS DIMENSIONS ARE: DIM A$( T IN MEMORY USING+ ^ LETTERS OF THEF h ALPHABET AND NUMBERSL r[ |A$(4,4,2)a {  USE DECIMAL NUMBERS  FOR ASCII CODES.  (SEE PAGES 138,139  IN APPLESOFT MANUAL)  R64 Z12 Y14 X14 RR1"BY DOING."< :" THE IMPORTANT THING TO REMEMBER IS"d "THAT IN AN ARRAY, IT TAKES ALL ";s :"THREE"y  "NUMBERS TO FIND "; :"ONE"; ":" MEMORY LOCATION." ,:: 6"HIT RETURN TO CONTINUE ";B$ @ J SET UP ARRAY USING A CONTROL J* BEFORE AND AFTERC THE REMARK ITSELF.I u " ARRAYS ARE SOMETIMES DIFFICULT TO" "VISUALIZE. THIS PROGRAM WILL GIVE YOU" "PRACTICE ON A THREE DIMENSIONAL ARRAY." "AFTER ALL, THE BEST WAY TO LEARN IS"  PRACTICE ARRAY + COPYWRITE BY= JOHN FALUDIS( 8 APRIL, 1980 k2 7255 STEWART ROAD< DANE, WISCONSIN, 53529F (608)-849-7248 PZ9d INTRODUCTION nx REMARKS CAN "FLOAT" FREE IN A REM BY      ES"( "IN INCREMENTS OF 1/4 PERCENT."I .:"HIT RETURN TO START ";W$O 8 WNE IS SET FOR EPSON."4.:"HIT RETURN TO START ";W$48 (Y2Y1)23):YR(4)Y2 K "THIS PROGRAM WILL CALCULATE PAYMENTS ON"y "LOANS OF VARIOUS RATES AND MATURITIES." " THE PROGRAM WILL CALCULATE THE LOAN" "PAYMENTS TO THE NEAREST DOLLAR FOR FOUR" "YEARLY PERIODS AND FOR INTEREST RATY)12 P(Y)(AA(S)) YT ,SA100;10);P(1);18);P(2);26);P(3);34);P(4)\ 6SAk W$"Y"Ċ0 :"ANOTHER PROBLEM (Y/N) ";W$ (W$,1)"Y"ī100  "NUMBER OF YEARS (MIN,MAX) ";Y1,Y2 YR(1)Y1:YR(2)(Y1(Y2Y1)3):YR(3)(Y1 "PRINTER OUTPUT?";W$ - W$"Y"Ċ1F "FOR LOAN OF $";A:[ :20)"YEARS": "RATE";10);YR(1);18);YR(2);26);YR(3);34);YR(4) W$"Y"ĺ"---------------------------------------" SAXX1.25 SSA1200 Y14 NUMYR(Q"PROG: PAYMENT CALCULATOR L2 FROM ALAN PETERMAN 721-3295XF:1000vPA(W)(1(1W)(NUM))Wd:"AMOUNT ";Ai500n"LOWEST INTEREST RATE ";Xx"HIGHEST INTEREST RATE ";X1}X1ĺ"INPUT RATES IN PERCENTAGES":110    NDLER> D$;"CLOSE ";ZA$:768:(222)5ĺ"ABNORMAL ERROR":W IN1A1$ZA$:1630t IN1ĺD$;"DELETE ";ZA$ I211630 ZA$F$" MAIL LIST":I21:1580":I21:1580B"6 IN1112@ ZC(N%(I))ZC(N%(I1))2910XJ T%N%(I):N%(I)N%(I1):N%(I1)T%bT CC1i^ Ih JJ1:12:868:"THERE ARE ";C;" ITEMS OUT OF ORDER"r C02850|  EXCHANGE DISK DRIVE D1D2: D1: INPUT ERROR HAOUR CAR ? ";MP$:MP(MP$):MP0110q xMP82ĺ:::"TOO BAD YOU GOT A TICKET FOR SPEEDING":Y12000:Y::110 MP0110 MP10Ė5:7:"NOT FAST ENOUGH, TRY AGAIN ":Q11500:Q:958:110 958:4:7:"WHAT IS YOUR REACTION TIME ") 7:9THE SPEED OF YOUR CAR": <7:14:"2) YOUR REACTION TIME"^ F7:16:"3) GOOD OR BAD BRAKES" K6:20:"AVERAGE REACTION IS .75" M P2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "80 ZZP0 d:# n3:5:958:"WHAT IS THE SPEED OF YL9 ::2:2:"CAR STOPING SIMULATION, BY T.PETERSON "Q T140:3:"=";:TZ$" ":H521:H::Z$:H2:7:"THIS PROGRAM WILL SHOW YOUR REACTIONS"(10:9:"AND THE IMPORTANCE OF " 27:12:"1)     ENEVER YOU USE THE+ ONERR COMMAND, YOUF MUST RESET A POINTERa IN MEMORY BEFORE YOUy$ GO BACK INTO YOUR. PROGRAM. THE COMMAND8 POKE 216,0 DOES THISB FOR YOU.L V 216,0` j GO BACK TO PROGRAMt ~ 1100CIDENTAL ENTRY' WHERE THE ENTRY IS? NOT A NUMBER. ITX IS SET UP TO CATCHn AN ERROR ON ALL THREE ENTRIES."YOU MUST ENTER A WHOLE NUMBER! ""START OVER. " WHYS. START WITH SMALL ONES OR"IH"YOUR DATA WILL SOON BE IN DISARRAY!"QR18\"P.S. READ THE PROGRAM LISTING":"CAREFULLY AND YOU WILL LEARN SOME":"INTERESTING PROGRAMMING TECHNIQUES."fp ERROR TRAP z THIS WILL CATCH AN AC WINDOW AGAIN AND CHECK5 FOR ANOTHER ENTRY;H34,20:^:"ANOTHER? ";S$t(S$,1)"Y"1080  PROGRAM ENDING ROUTINE : 11*" NOW THAT YOU HAVE HAD SOME"4"PRACTICE, YOU CAN TRY OUT YOUR OWN">"ARRAAGAIN.  A((X1)6)8R0&B(Y1)2860Q: FLASH VALUE IN ARRAYiD AND THEN LEAVE ITN WITH THE NEW VALUE.XbB:Al:I$v DELAY LOOPW13500:Z2ĞB:A:I$: SET TEXTT SHOW ARRAY VALUES2^ AND DATA CONTENTSHh IN TEXT WINDOW.NrT|`"A$(";hX;r",";zY;",";Z;") = ";I$Z1R0Z2R2 CALCULATE HORIZONTAL AND VERTICAL POSITIONS ";Z $ AND HERE IS A THIRD? WAY TO CATCH ERRORS!E_Z0Z3Z(Z)ī1570"Z MUST BE A WHOLE NUMBER, EITHER 1 OR 2"1490","ENTER THE CHARACTER YOU WOULD LIKE TO"6"PUT IN THAT LOCATION ";I$@A$(X,Y,Z)I$JHAN 4":1200Z&d ENTER Y VALUE,nHx"ENTER THE Y VALUE ";YNh HERE IS ANOTHER WAY~ TO CATCH ERRORSY1Y4Y(Y)ĺ"Y MUST BE A WHOLE NUMBER FROM 1 TO 4":1400  ENTER Z VALUE"ENTER THE Z VALUE NUMBER!"12002 CHECK IF NUMBER ISI  WITHIN RANGE AND^ PRINT AN ERRORr MESSAGE IF IT( IS ILLEGAL.2<X1X4ī1400FX1ĺ"YOU MUST ENTER A NUMBER GREATER THAN 0":1200 PX4ĺ"YOU MUST ENTER A NUMBER LESS TOORDINATES"V+` SET UP A ROUTINE TOGj TRAP AN ILLEGAL ENTRYbt AND PRINT A MESSAGE.i~ t2250z ENTER X VALUE"ENTER THE X VALUE ";X CHECK FOR WHOLE NO.X(X)ī1340 "X MUST BE A WHOLEIN ARRAY.BA(Z2Ğ7A$(X,Y,Z)=DZKYRXXn SET TEXT WINDOW TO THE BOTTOM OF THE SCREEN AND$ CLEAR IT..834,18:B INTERACTIVE ROUTINE L"ENTER LOCATION TO CHANGE BY CC"2:" <5> SQUARE CM TO SQUARE INCHES"b:" <6> SQUARE INCHES TO SQUARE CM":" <7> SQUARE METERS TO SQUARE FT":" <8> SQUARE FEET TO SQ. METERS":" <9> CUBIC METERS TO CUBIC FEET"!:" ONS MENU ******E:1:6::" OTHER CONVERSIONS MENU ":s:" <1> KM/HOUR TO METERS/SECOND":" <2> METERS/SECOND TO KM/HOUR":" <3> METERS/SEC TO MPH & FT/SEC":" <4> FT/SEC OR MPH TO METERS/SETO MILES/HOUR"@ :" <9> DEGREES CELSIUS TO DEGREES F"a 23:" EXIT TO MAIN MENU"23:31:" CHOICE? ";B$:B$(81)B(B$)B$(81)1000B6000,6100,6200,6300,6400,6500,6600,6700,6800 3000 ****** OTHER CONVERSI& INCHES". :" <3> METERS TO YARDS"W :" <4> KILOMETERS TO MILES" :" <5> GRAMS TO OUNCES & POUNDS" :" <6> KILOGRAMS TO POUNDS & OUNCE" :" <7> LITERS TO GALLONS" :" <8> KILO PER HOUR B$(81)1000D  B5000,5100,5200,5300,5400,5500,5600,5700,5800N " 2000T T ***** METRIC TO ANGLO CONVERSION ****** :1:10::" METRIC TO ANGLO MENU ": ::" <1> CENTIMETERS TO INCHES" :" <2> METERS TO FEET <6> POUNDS TO KILOGRAMS & GRAMS"J :" <7> GALLONS TO LITERS"{ :" <8> MILES PER HOUR TO KILO/HOUR" *:" <9> DEGREES F TO DEGREES CELSIUS" 423:" EXIT TO MAIN MENU" 23:31:" CHOICE? ";B$:B$(81)B(B$) ::" ANGLO TO METRIC MENU ":M ::" <1> INCHES TO CENTIMETERS"v :" <2> FEET TO METERS & CM" :" <3> YARDS TO METERS" :" <4> MILES TO KILOMETERS" :" <5> OUNCES TO GRAMS, KG & ML"# :" ERSIONS MENU"$ :" <4> END" :::" (ENTER ALL VALUES WITHOUT COMMAS)"::" PRESS < Q > TO RETURN HERE ": $:17:"CHOICE? ";A$:A$:A(A$) .A2001,3001,4001,9999 81000  *****ANGLO TO METRIC MENU ****** :1:10" ****** MENU ******#:LN$" METRIC CONVERSION PROGRAM "]6::N$:::14:"MENU SELECTION":14:"---- ---------" :::" <1> ANGLO TO METRIC MENU":" <2> METRIC TO ANGLO MENU" :" <3> OTHER CONV          "6"A$"7"A$"8"A$"9"590-A$"2"650E::"SAFE DRIVING"KT"BR DIST ";(DB.5) &DTRTDBA02:24:"TL DIST ";(DT.5);f:17:22:"(0) CHART,(1) GRAPH ";D17:23:"(5) ANOTHER,(2) END ";NA$:A$"0"Ĺ16303,0:590XA(A$):A0590bA$"1"Ĺ16304,0:590lA$"5"100vA$"3"A$"4"A$1)20DTDBRT6RX(RT.50.5):DX(DT.50.5)rB:1,HRX,H:1,H1RX,H1:C:RX,HDX,H:RX,H1DX,H11:21:"0";:5:" ";:7:"100";:14:"200";:21:"300";:25:" ";:29:"400";:36:"500"2:22:"RE DIST ";(RT.5)2:23:FST(FSFS)(220)S r2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "370:a |21:958m ZPZP1| ZP8ZP1 ZP1đ ZP1470 H027550 H150HH2 H250H250 7:H,0H,159:H B2:C3:16304,0H5(ZPDTDBRT 5 "MILES PER HR..............";MP; f ""FEET PER SEC..............";(FS.5)l , 6"REACTION DISTANCE.........";(RT.5) @ J"BRAKING DISTANCE..........";(DB.5) T ^"TOTAL DISTANCE............";(DT.5) hDT:958:"BETWEEN .01 AND 1.0 ";T$> T(T$):T0160Q T.01T1160a FSMP1.467n VVFSFSz RTFST 11:958:"YOUR BRAKES ARE (1) GOOD OR (2) BAD ? ";DB$:DB(DB$):DB1DB2220 DB1DBVV(220) DB2DBVV(217) IT." 9500 6805: X ****** KM/H TO M/SEC ******o ]::" KILOMETERS/HOUR TO METERS/SECOND ":y b9100 gM.2778V::" ";V;" KILOMETERS/HOUR EQUALS ";M::" METERS/SECOND." l9500 v7005! ****** M/SEC TO KM/HOUR ";V;" KPH EQUALS ";M;" MPH."'@95001J6705n ****** DEGREES CELSIUS TO DEGREES FAHRENHEIT ****** ::" DEGREES CELSIUS TO DEGREES F. ":9100 F1.8V32:::" ";V;" DEGREES CELSIUS EQUALS "::3:F;" DEGREES FAHRENHE**0:5::" LITERS TO GALLONS "::9100uG.2642V:::" ";V;" LITERS EQUALS ";G;" GALLONS."95006605, ****** KPH TO MPH ******1::" KILOMETERS/HOUR TO MILES/HOUR ":69100;M.6125V:::" O POUNDS &OUNCES ******Oi:2::" KILOGRAMS TO POUNDS & OUNCES ":Yn9100sP2.205V:O35.27V:::" ";V;" KILOGRAMS EQUALS ";P;" POUNDS"::" OR ";O;" OUNCES."x95006505 ****** LITERS TO GALLONS **** ****** GRAMS TO OUNCES & POUNDS ******\:3::" GRAMS TO OUNCES & POUNDS ":f 9100O.353V:P.002205V:::" ";V;" GRAMS EQUALS ";O;" OUNCES "::" OR ";P;" POUNDS."95006405d ****** KILOGRAMS TGY1.094V:::" ";V;" METERS EQUALS ";Y;" YARDS."@L9500JV6205k ****** KM TO MILES ******:7::" KILOMETERS TO MILES ":9100M.6215V:::" ";V;" KILOMETERS EQUALS ";M;" MILES."95006305' ETERS TO FEET & INCHES ":(9100F3.281V:D39.37V:::" ";V;" METERS EQUALS ";F;" FEET"::" OR ";D;" INCHES."950061058 ****** METERS TO YARDS ******=:8::" METERS TO YARDS ":B9100658050p ****** CENTIMETERS TO INCHES ******bu:3::" CENTIMETERS TO INCHES ":lz9100M.394V:::" ";V;" CENTIMETERS EQUALS ";I;" INCHES."95006005 ****** METERS TO FEET & INCHES ******:3::" M;K;" KPH."X9500b5705Z ****** DEGREES FAHRENHEIT TO DEGREES CELSIUS ****** ::" DEGREES F. TO DEGREES CELSIUS ":9100C.56(V32):::" ";V;" DEGREES FAHRENHIET EQUALS "::3:C;" DEGREES CELSIUS."9500 GALLONS TO LITERS ":(9100cL4.546V:::" ";V;" GALLONS EQUALS ";L;" LITERS."m9500w5605D ****** MPH TO KPH ******I::" MILES/HOUR TO KILOMETERS/HOUR ":N9100 SK1.609V:::" ";V;" MPH EQUALS "******>:2::" POUNDS TO KILOGRAMS & GRAMS ":H9100K.4536V:G453.6V:::" ";V;" POUNDS EQUALS ";K;" KILOGRAMS"::" OR ";G;" GRAMS."95005505 ****** GALLONS TO LITERS ******:5::" CES TO GRAMS, KG & MILLILITERS ":."9100'G28.35V:K.02835V:M29.57V:::" ";V;" OUNCES EQUALS ";G;" GRAMS "::" OR ";K;" KILOGRAMS."::" ";V;" OUNCES EQUALS ";M;" ML.",950065405| ****** POUNDS TO KG & GRAMS 5" ****** MILES TO KM ******R:5::" MILES TO KILOMETERS ":\9100K1.609V:::" ";V;" MILES EQUALS ";K;" KILOMETERS."95005305 ****** OUNCES TO GRAMS,KILOGRAMS & MILLILITERS ****** $::" OUN";V;" FEET EQUALS ";C;" METERS"::" OR ";D;" CENTIMETERS."Q9500[ 5105P ****** YARDS TO METERS ******U:8::" YARDS TO METERS ":Z9100_M.9144V:::" ";V;" YARDS EQUALS ";M;" METERS."d9500n520CHES TO CENTIMETERS ":&9100dC2.54V:::" ";V;" INCHES EQUALS ";C;" CENTIMETERS."n9500x5005 ****** FEET TO METERS & CM ******:4::" FEET TO METERS & CENTIMETERS ":9100GC.3048V:D30.48V:::" <10>CUBIC FEET TO CUBIC METERS"Bh23:" EXIT TO MAIN MENU"q23:31:" CHOICE? ";B$:B$(81)B(B$)B$(81)1000B7000,7100,7200,7300,7400,7500,7600,7700,7800,79004000 ****** INCHES TO CM ******:4::" INCAN BE EASILY MODIFIED":"TO BETTER SUIT YOUR NEEDS. SIMPLY":"ERASE THIS DATA, WHICH IS CURRENTLY" a"CONFINED WITHIN LINES 100 AND 500, AND":"SUPPLY YOUR OWN. ALL DATA WILL BE":"RANDOMLY MIXED EACH TIME THE PROGRAM":"IS RUN." b:"IF THIS PROGRWISE WOULD":"INEVITABLY OCCUR, THIS PROGRAM CLEVERLY":"MIXES ALL DATA EACH TIME IT IS RUN." ^:"TYPE ANY CHARACTER TO CONTINUE: ";:P$ _:8:3:"IN THE EVENT THAT YOU DO NOT SPEAK":"GERMAN OR DON'T CARE TO BE QUIZZED ON"d `"IT, THIS PROGRAM VER YOU DIDN'T":"CHOOSE. AFTER YOU HAVE DECIDED UPON AN":"ANSWER (REGARDLESS OF WHETHER YOU TAKE" \"THE TIME TO TYPE IT), SIMPLY PRESS ":"RETURN, AND THE CORRECT ANSWER WILL BE":"DISPLAYED. TO AVOID MEMORIZATION OF"^ ]"WORD PATTERNS WHICH OTHEULARY"4 U8:3:"THIS PROGRAM IS DESIGNED TO TEST" W9:"YOUR KNOWLEDGE OF GERMAN VOCABULARY.":"WHEN IT IS RUN, YOU WILL BE GIVEN THE":"CHOICE OF SEEING EITHER THE ENGLISH" Y"WORD OR ITS GERMAN EQUIVALENT AND WILL"d ["BE ASKED TO SUPPLY WHATE~8G$(700),E$(700)7 ********************R * *m * BY DAVID LAU *( * *2 * 9/07/81 *< * *F ********************HK P::11:"GERMAN VOCAB                 NOV 27, 1981 A* COMMERCIAL RIGHTS RESERVEDx* PERMISSION GRANTED TO USE, MODIFY, COPY* AS LONG AS THIS MESSAGE IS INCLUDED.XEM)#8:" PLEASE ENTER VALUE TO BE CONVERTED"::" WITHOUT COMMAS... ";VS)#)%::"WOULD YOU LIKE ANOTHER CONVERSION? Y/N ";C$:C$"N"ġ:1000)%)':24:19:"BYE!":I124::J1150:J:I* BY WARREN OSTLUND ETERS EQUALS ";F::" CUBIC FEET."0(9500:(7805i( ****** CUBIC FEET TO CUBIC METERS ******(::5:" CUBIC FEET TO CUBIC METERS ":(9100(M.02832V::" ";V;" CUBIC FEET EQUALS ";M::" CUBIC METERS."(9500)7905METERS ":'9100`'#M.0929V::" ";V;" SQUARE FEET EQUALS ";M::" SQUARE METERS."j'(9500t'27705'x ****** CUBIC METERS TO CUBIC FEET ******'}::5:" CUBIC METERS TO CUBIC FEET ":'9100&(F35.31V::" ";V;" CUBIC MFEET ******<&::4:" SQUARE METERS TO SQUARE FEET ":F&9100&F10.764V::" ";V;" SQUARE METERS EQUALS ";F::" SQUARE FEET."&9500&7605& ****** SQUARE FEET TO SQUARE METERS ****** '::4:" SQUARE FEET TO SQUARE  ****** SQUARE INCHES TO SQUARE CENTIMETERS ******i%Q::" SQUARE INCHES TO SQUARE CENTIMETERS ":s%V9100%[C6.54V::" ";V;" SQUARE INCHES EQUALS ";C::" SQUARE CENTIMETERS."%`9500%j7505 & ****** SQUARE METERS TO SQUARE ERS/SEC."$9500$7305U$ ****** SQUARE CENTIMETERS TO SQUARE INCHES ******$::" SQUARE CENTIMETERS TO SQUARE INCHES ":$9100$I.155V::" ";V;" SQUARE CENTIMETERS EQUALS ";I::" SQUARE INCHES."$9500$74054%LO METERS/SEC ":]#:"<1> MPH TO M/S <2> FT/SEC TO M/S <";A$:A(A$):A7310,7314g#7305q#9100#M.3048V::" ";V;" FEET/SEC EQUALS ";M;" METERS/SEC.":9500#7305#9100 $M.4473V::" ";V;" MILES/HOUR EQUALS ";M;" METTERS/SEC TO MPH & FEET/SEC ":*"*9100"/M2.237V:F3.28V:::" ";V;" METERS/SECOND EQUALS ";M;" MPH"::" AND ";F;" FEET/SECOND.""49500">7205" ****** MPH OR FEET/SE TO METERS/SEC ******#::" MPH OR FEET/SEC T ****** <><><><><><><><><><><><><><><><><><><>":18:"<><><><><><><><><><><><><><><><><><><><>"t $70 .5:8:"WE THE COMPUTER RACE FROM THE":5:10:"PLANET KORPZON, WOULD LIKE TO":5:12:"PUT YOU THROUGH A TEST OF YOUR":5:14:"HUMAN ************":15:"****************************************"T H$"KEITH MCCONNE"d S2771: 12:868:(S):H$:I110:I,S J$"LL PRESENTS..." T27201:868:T:12:J$:T I13000:I :I123:I)"COLOR BARS!!!":I:J11))160E 11:8:"INVALID NUMBER! REENTER! ":20:13:E:20:13:E_ 20:14:F:20:14:Fy 20:15:G:20:15:G ELİ6500:60 FMİ7000:60 GPİ7500:60 ADDADD1 8000 60 = 9:"***************************4000:PX%+ nI1100:I:::I11000:I x3:2:"NOW TELL ME, ";A$:3:4:"WHAT WAS THE ORDER OF COLORS FROM":3:6:"LEFT TO RIGHT? (GIVE THE NUMBERS)" HUE4500,4500,4500,5000,5500,6000 :(E0)(E(HUE1))(F0)(F(HUE1))(G0)(G(HUEȺ"YOU LIKE, ";A$;"?":17:14:"(3-6)":19:16:HUEC +3500:10000I -] 2HUE3HUE640 <11:12:"GET READY, ";A$;"!!":I13000:I AHUE2000,2000,2000,2500,3000,3500 F PYA6:ZA14:4000:LX% ZYA16:ZA24:4000:MX% dYA26:ZA34: :I1200:I:10000ADD0:NULL066:9:"TO AVOID ANY FUTURE HASSLES,":6:11:"OR YOUR BASIC HUMAN BING-BANG," 6:13:"WILL YOU PLEASE ENTER""6:16:"YOUR NAME? ";A$::15002 (:9:10:"HOW MANY COLORS WOULD":9:12:       G(T)@BQTJ@:15:B;" REMAINING":11:3:E$(X):14:12:"-> ";:A$i@@14:16:G$(X):E1550:Ev@T:3000|@ P"::Y?"DO YOU WISH TO BE GIVEN GERMAN WORDS":"OR ENGLISH? (TYPE 'G' OR 'E'): ";:D$j?D$"E"7800u?T1Q?XG(T)?BQT?L:15:B;" REMAINING":11:3:G$(X):14:12:"-> ";:A$?14:16:E$(X):E1550:E?T:3000@xT1Q:XNGS":::QX5>:7:14:"SORTING":7:22:"DATA":?>G(Q)c> REARRANGE ORDER BEFORE CHOICEn>F1Qy>G(F)F>F>K1((910)Q)2>R((1)Q)1>S((1)Q)1>NG(R)>G(R)G(S)>G(S)N>K?p7:14:" DATA SORTEDO MORE"= DATA AND ALLOWS IT == TO ESCAPE THE LOOPC=_= ********************{= ********************="Z","Z"=X15000=LG$,E$=QG$"Z"1340=WG$(X)G$:E$(X)E$=X ><::::4:"THERE ARE CURRENTLY ";X;" LISTI(4)E(5))(E(1)E(3)E(3)E(5))Ė1:868:"YOU HAVE A FULL HOUSE, IN ";E(1);"'S AND ";E(5);"'S.":I15000:I:2000 E(1)2E(2)3E(3)4E(4)5E(5)6Ė1:868:"YOU HAVE A HIGH STRAIGHT.":I15000:I::20008 E(1)1E(2)2E(3)3E(4)4E(5)5ĖLO:D(C)7:AA1:A627158 I15:D(I)E(I):I:1000 E(1)E(5)Ė1:868:"YOU HAVE 5 OF A KIND, IN ";E(1);"'S.":I15000:I::2000 (E(1)E(4))(E(2)E(5))Ė1:868:"YOU HAVE 4 OF A KIND, IN ";E(3);"'S.":I15000:I:2000s (E(1)E(2)E. 9 TO END ";: J$:J(J$):(J1J5)(J9)ĺ"":2510H J92600c D(J)((1)6)1:2510} ( 1000:AA1:A32510 FIGURE OUTCOME AND PRINT REORDER ARRAY AND PLACE IN E A1 LOD(1):C1:X25:D(X)LOLOD(X):CX X:E(A)? (Y/N) ";:A$:A$"Y"A$"N"20008 A$"N"ė:5200C 62450Z  RANDOM DICE ROLLy I15:D(I)((1)6)1:I  ` 1000: PRINT DICE REROLL (MAX 2 MORE) A1 21:I15:(I1)91:I;:I 1:23:956:"ENTER DIE TO REROLLH27,V24:! 62450::3:V707 I15:H(I1)60@ 130W D(I)1İ170:1200r 140:200:D(I)21200 D(I)3İ170:1200 160:180:D(I)41200 D(I)5İ170:1200 $150:190 J1100:J,I $ ::12:11::"PLAY AGAIN V24:I H17,V14H19,V14H19,V16H17,V16H17,V14H18,V15: H26,V5H28,V5H28,V7H26,V7H26,V5H27,V6: H26,V14H28,V14H28,V16H26,V16H26,V14H27,V15: H26,V23H28,V23H28,V25H26,V25H26,V23dD(6),E(5)|22(}5000:2200UH1,VH33,VH33,V30H1,V30H1,V:H7,V5H9,V5H9,V7H7,V7H7,V5H8,V6:H7,V14H9,V14H9,V16H7,V16H7,V14H8,V15: H7,V23H9,V23H9,V25H7,V25H7,V23H8,     "CORRECT!"::I11000:I::O':I16:BAR(I):J13:0,39(I1)7J:J,IZ'1:21'" RED, WHITE, BLUE, YELLOW, PINK, GREEN":"ADJUST THE TV AND THEN PRESS RETURN";:XA$:: 17:16:"PINK 5".19:16:"GREEN 6"H21:20:E:21:20:Eb22:20:F:22:20:F~23:20:G:23:20:G:d18:12:"NO!!":I11000:I::X17:12:"SORRY!":I11000:I::L17:12:"SORRY!":I11000:I::@16:12::ITE 2"13:16:"BLUE 3"715:16:"YELLOW 4"O17:16:"PINK 5"i19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:p9:16:"RED 1"z11:16:"WHITE 2"13:16:"BLUE 3"15:16:"YELLOW 4"F:20:20:F(21:20:G:21:20:G:@11:16:"RED 1"X13:16:"WHITE 2"p15:16:"BLUE 3"17:16:"YELLOW 4"19:20:E:19:20:E20:20:F:20:20:F21:20:G:21:20:G:|9:16:"RED 1"11:16:"WH:B BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11:BAR(6)12:VX%((1)HUE)1gTBAR(X%):TCOLUMNYAZA:5,20COLUMN:COLUMN:13:16:"RED 1"15:16:"WHITE 2"17:16:"BLUE 3"19:20:E:19:20:E 20:20:HALL"35:14:"WE SHALL PROCEED WITH THE TEST."gI13000:I:22:"THANK YOU FOR YOUR TIME ";A$xI12000:I~BAR(1)1:BAR(2)15:BAR(3)2: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13: BAR(1)1:BAR(2)15:BAR(3)2:BAR(4)13:BAR(5)11LIEN I'VE EVER MET!"::1700`|RUT2Ė13:12:"ARE YOU SURE??: FOR I= 1 TO 1000: NEXT I: HOMEi2554:11:"WHAT IS/WAS YOUR FATHER'S NAME?"17:13:DAD$:5:10:"NOW THAT WE HAVE RECEIVED THE"5:12:"NECESSARY INFORMATION, WE SS"+V7:12:"DETECT A TRACE OF UGLINESS"UX7:14:"ABOUT THE STRUCTURE OF YOUR"Z7:16:"FACIAL SYSTEM!":I14000:I^:1700hSEX1RUT2Ė5:12:"SAY FELLA - YOU'RE KINDA CUTE!":I11000:I::1700rRUT1Ģ12:"YOU ARE THE CUTEST AӠ)a(Πٮ)`Uca()ca(ӠΠϠԠΩ)GR@d\]Рx\ ]נ!}d6?ed6?ed6?e*~q/?rq/?rq/?r\]Ҡ)RAa(̠ŠȠŠӬ)a(ƠȠӠ٠Ӯ)YKca(Š٠ҠԠ͠Š)a(ӠĬҠǠ)gPa(ӠԠŠĠƠŠŮ)a(ŬŠҠԠЖ3_} N@"(r KM6 qqq q(dedede-o2]Ġ٠ .7a()P<ca(Ӡ͠Ӡ̠)a(ŮԠӠĠ           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""DIE: 140-200 PLOT DIEe: 1000-1005 HIRES MODE& SET COLOR, CENTER DIE ON SCREEN, PLOT 60 APART: 1010-1200 PLOT DOTS, TIME BETWEEN EACH DIE PLOT N: BY MARK ANDERSON MAY 1980 THIS WILL ":11:"BEGIN THE REROLL."01000021:10:"WHEN READY TO BEGIN,":11:"HIT THE SPACEBAR. ";:A$:A$" "5128: 2200P12:12:"HAPPY GAMBLING !":I13500:I::'I14500:I:: 100-DIMENSION: 130-PLOT SQUARE FOR 7:"TYPE IN ALL FIVE NUMBERS."R9:"****************************************"11:"THE NUMBERS WILL NOT SHOW ON THE SCREEN."13:"****************************************"%16:5:"WHEN DONE WITH YOUR SELECTION ":5:"TYPE NUMBER '9', AS11:"9) A '#' HIGH"D21:3:"THIS IS THE ORDER FROM HIGH TO LOW"22:5:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "51059362:9:"TO REROLL CERTAIN DIE,":3:"TYPE IN THE DIE NUMBER TO REROLL.":11:"TO REROLL ALL DIE,":936$3:11:"1) FIVE OF A KIND"D5:11:"2) FOUR OF A KIND"`7:11:"3) FULL HOUSE"9:11:"4) HIGH STRAIGHT"11:11:"5) LOW STRAIGHT"13:11:"6) THREE OF A KIND"15:11:"7) TWO PAIR"17:11:"8) ONE PAIR"19:COND AND THIRD ROLLS,"b7:14:"YOU MAY REROLL ANY OR ALL":7:16:"OF THE DIE ON THE SCREEN."5:22:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "508093613:7:"THE POSSIBLE COMBINATIONS":"":11:"YOU CAN ROLL ARE:":I12000:I:(Y/N) ";:A$:A$"Y"A$"N"50553A$"N"220094:"THE OBJECTIVE OF THIS GAME IS TO GET THE":8:6:"SAME FACE ON ALL FIVE DIE."3:8:"TO DO THIS, YOU HAVE TWO ADDITIONAL":4:10:"ROLLS AFTER THE PRELIMINARY ROLL.":5:12:"IN THE SE2222:I:936:1I8:"****************************************"17:11:"MARK V":6:13:"MAY BE MORE COMMONLY KNOWN AS ":14:15:"'POKER DICE' "18:"****************************************":10000:936"12:10:"INSTRUCTIONS ? J1100:J,I36:8,968,7617,8426,7626,96W68,9676,7685,96:72,8681,86128,96128,76140,76147,81140,86147,96:128,86140,86188,96188,76:204,76188,86204,96249,76257,96265,76:246,76268,76:252,96260,96I1E(4)E(5)Ė1:868:"YOU HAVE A ";E(5);" HIGH.":I15000:I::2000:3:22:"WELCOME TO THE WONDERFUL WORLD OF...":I12000:I:936::I12000:I:936:15:V70I15:H(I1)60H1,VH33,VH33,V31H1,V31H1,VND, IN ";E(3);"'S.":I15000:I:2000 E(1)E(2)E(2)E(3)E(3)E(4)E(4)E(5)Ė1:868:"YOU HAVE 1 PAIR, IN ";(E(1)(E(1)E(2)))(E(2)(E(2)E(3)))(E(3)(E(3)E(4)))(E(4)(E(4)E(5)));"'S.":I15000:I:2000E E(1)