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`$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. 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     eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00            ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ   B(20((A$)2)):B0B1) B:A$:A*}D$(4): CTRL-D">D$;"BLOAD LOADER.OBJ0"DJq4096: FAST LOAD IN INTEGER BASICw10C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":180:23D$;"BRUN MENU" CENTER STRING A$  :u:(10):(15):"NORMAL EOJ":(23): PQ):(HT):SM$(Q):QQQ:10550#O)-T)6100PX)EN(222):LN(218)(219)256mY)EN255ĺ(7);:16368,0^)LN10540ī10540c)LN10555ī10555 N:(10):"ERROR NO. "EN:"IN LINE NO. "LN:/u ***********0u *** END ***1u ***********%I;". ";SM$(I):I.))::(20(SEL$)2):SEL$K,)Q(16384):Q12710540y1)16368,0:QQ176:Q1QSMĺ(7);:105406)(VQ):(HT)::SM$(Q);):QQ(16384):QQ12710555@)16368,0:QQ14110575E)QQQQ176:QQ1QQSMĺ(7):10550J)(VENU110515)10506-)X140:X$;:X:: ):10504] )X221:(X):X$;:(40):X$:Xn)(22):10504)(3):(20(MN$)2):MN$)MENU110525):10504)(7):(4):"YOUR SELECTIONS ARE:"")V9:HH11:HT14:I1SM')(VI):(HH)::(11):"INSERT ANOTHER DISK"::(19):"THEN"=P#RT12:6200SZ#D$;"VERIFY ";PN$d#:(10):(9):"THIS IS THE SAME DISK!!":RT12:6200:216,0:5000n#D$;"PR#6") ********************) *** MENU ROUTINE ***) ******************** )M|SM$(4)"PRINT LABELS")SM$(5)"QUIT"4X$"X"XSEL$"< ENTER YOUR SELECTION >"cMENU1n10500Q1000,1000,2000,4000,5000'# **************(# *** REBOOT ***)# **************2#D$(13)(4):ERR(222)<#9070-F#:(8)&SIZE3LOWER17:CHARS36:VT2:I? ****************************l@ *** INITIALIZE MAIN MENU ***A ****************************JSM5TMN$"LABEL PRINTER"^SM$(1)"ENTER COPY"hSM$(2)"EDIT COPY"rSM$(3)"PRINT TEST LABEL"EDIT1ıVMN$"LABEL SIZE"(`SM3CjSM$(1)"15/16 X 3-1/2"[tSM$(2)"1-7/16 X 4"v~SM$(3)"2-7/8 X 3-7/8"SEL$"WHAT SIZE ARE YOUR LABELS?"MENU2:10500SIZEQSIZE1LOWER5:CHARS34:VT9:SIZE2LOWER8:CHARS37:VT7:bLABELSTARTFINISH,lLINEUPPERLOWERCvCOLUMNLEFTRIGHTcIN$(LINE);Y(IN$(LINE)))qCOLUMN:}LINE:(FINISHLABEL)ROWSRIGHTRIGHT1LABEL:K ******************L *** LABEL SIZE ***M ****************** QRETURN ROUTINE ***69 **************************** B16368,0:(RT):958:(8):"PRESS ";::"";::" TO CONTINUE"L(16384)1416220V16368,0:W: ********************X: *** PRINT LABELS ***Y: ********************0.:(8):"ALIGN PAPER FOR PRINTOUT":IDS1>RT17:6200Q(4);"PR#";SLWv ************************ *** TURN PRINTER OFF *** ************************ (4);"PR#0"7 ****************************8 *** PRESS OF PROGRAM ":X$"X":105002Q8000,9000,30000So **************************tp *** INITIALIZE PRINTER ***q **************************zIDS16040:(10):"WHICH SLOT IS PRINTER CARD IN? ";A$:SLOT(A$)SLOT1SLOT7ĺ(7):602TROWS)6000:7000:6100:TEST0:8000K ***************************m *** ENDING ROUTINE MENU *** ***************************10580SM3SM$(1)"RESTART PROGRAM"SM$(2)"BOOT ANOTHER DISK"SM$(3)"QUIT"MN$" END**** *** PRINT LABELS ***: ********************HYCHARS3:(10):"HOW MANY LABELS ACROSS PAGE? ";A$:ROWS(A$)TEST1FINISH1:4060:"HOW MANY LABELS WOULD YOU LIKE? ";A$:FINISH(A$)FINISH((FINISHROWS).5)RIGH******************2 *** EDIT COPY ROUTINE ***R *************************\ (VT)r LINEUPPERLOWER (39CHARS):IN$(LINE) LINE (21):(11):"ENTER NEW LINE OR"::(6):"PRESS FOR NEXT LINE"  ****************31150 jIN$IN$(X), tIN$(LINE)IN$:If ~(VTLINE1):(39CHARS):IN$(LINE);:(39):"!":LINE RT21:6200:EDIT0:8000  ************************  *** PRINT TEST LABEL ***  ************************ TEST1:4000 *******EUPPERLOWER:(VTLINE1):(38CHARS):"!";:(39):"!":LINEg $(39CHARS):DASH1CHARS:"-";:DASHy )EDIT1İ3000 .(VT):LINEUPPERLOWER:EDIT1IN$(LINE)" " 8(39):"!";:(38CHARS) BIN$"":662 LI512767 VX(I)128 `X1N$(20) 8000*  ******************C  *** ENTER COPY ***\  ******************w START1:UPPER1:LEFT1 :MENU1Q2EDIT1 7500:51,161 :(VT1):(39CHARS):DASH1CHARS:"-";:DASH (VT1):(39(CHARS2)):"+"= LINSED 1/20/82, APPLESOFT, PARSHALL, N.D., 58770J qPN$"LABEL PRINTER V1.1"[ s(4);"PR#0"u xA768798:B:A,B:A 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96,104,168,104,166,214,154,72,152,72,32,234,3,76,18,212 10580 SM$(20),I' *****************3 * *L * LABEL PRINTER *e( * *~2 * BY *< * *F * RON FOLDEN *P * *Z *****************d- n VERSION 1.1, REVI             :u:(10):(15):"NORMAL EOJ":(23): PQ):(HT):SM$(Q):QQQ:10550#O)-T)6100PX)EN(222):LN(218)(219)256mY)EN255ĺ(7);:16368,0^)LN10540ī10540c)LN10555ī10555 N:(10):"ERROR NO. "EN:"IN LINE NO. "LN:/u ***********0u *** END ***1u ***********%I;". ";SM$(I):I.))::(20(SEL$)2):SEL$K,)Q(16384):Q12710540y1)16368,0:QQ176:Q1QSMĺ(7);:105406)(VQ):(HT)::SM$(Q);):QQ(16384):QQ12710555@)16368,0:QQ14110575E)QQQQ176:QQ1QQSMĺ(7):10550J)(VENU110515)10506-)X140:X$;:X:: ):10504] )X221:(X):X$;:(40):X$:Xn)(22):10504)(3):(20(MN$)2):MN$)MENU110525):10504)(7):(4):"YOUR SELECTIONS ARE:"")V9:HH11:HT14:I1SM')(VI):(HH)::(11):"INSERT ANOTHER DISK"::(19):"THEN"=P#RT12:6200SZ#D$;"VERIFY ";PN$d#:(10):(9):"THIS IS THE SAME DISK!!":RT12:6200:216,0:5000n#D$;"PR#6") ********************) *** MENU ROUTINE ***) ******************** )M|SM$(4)"PRINT LABELS")SM$(5)"QUIT"4X$"X"XSEL$"< ENTER YOUR SELECTION >"cMENU1n10500Q1000,1000,2000,4000,5000'# **************(# *** REBOOT ***)# **************2#D$(13)(4):ERR(222)<#9070-F#:(8)&SIZE3LOWER17:CHARS36:VT2:I? ****************************l@ *** INITIALIZE MAIN MENU ***A ****************************JSM5TMN$"LABEL PRINTER"^SM$(1)"ENTER COPY"hSM$(2)"EDIT COPY"rSM$(3)"PRINT TEST LABEL"EDIT1ıVMN$"LABEL SIZE"(`SM3CjSM$(1)"15/16 X 3-1/2"[tSM$(2)"1-7/16 X 4"v~SM$(3)"2-7/8 X 3-7/8"SEL$"WHAT SIZE ARE YOUR LABELS?"MENU2:10500SIZEQSIZE1LOWER5:CHARS34:VT9:SIZE2LOWER8:CHARS37:VT7:bLABELSTARTFINISH,lLINEUPPERLOWERCvCOLUMNLEFTRIGHTcIN$(LINE);Y(IN$(LINE)))qCOLUMN:}LINE:(FINISHLABEL)ROWSRIGHTRIGHT1LABEL:K ******************L *** LABEL SIZE ***M ****************** QRETURN ROUTINE ***69 **************************** B16368,0:(RT):958:(8):"PRESS ";::"";::" TO CONTINUE"L(16384)1416220V16368,0:W: ********************X: *** PRINT LABELS ***Y: ********************0.:(8):"ALIGN PAPER FOR PRINTOUT":IDS1>RT17:6200Q(4);"PR#";SLWv ************************ *** TURN PRINTER OFF *** ************************ (4);"PR#0"7 ****************************8 *** PRESS OF PROGRAM ":X$"X":105002Q8000,9000,30000So **************************tp *** INITIALIZE PRINTER ***q **************************zIDS16040:(10):"WHICH SLOT IS PRINTER CARD IN? ";A$:SLOT(A$)SLOT1SLOT7ĺ(7):602TROWS)6000:7000:6100:TEST0:8000K ***************************m *** ENDING ROUTINE MENU *** ***************************10580SM3SM$(1)"RESTART PROGRAM"SM$(2)"BOOT ANOTHER DISK"SM$(3)"QUIT"MN$" END**** *** PRINT LABELS ***: ********************HYCHARS3:(10):"HOW MANY LABELS ACROSS PAGE? ";A$:ROWS(A$)TEST1FINISH1:4060:"HOW MANY LABELS WOULD YOU LIKE? ";A$:FINISH(A$)FINISH((FINISHROWS).5)RIGH******************2 *** EDIT COPY ROUTINE ***R *************************\ (VT)r LINEUPPERLOWER (39CHARS):IN$(LINE) LINE (21):(11):"ENTER NEW LINE OR"::(6):"PRESS FOR NEXT LINE"  ****************31150 jIN$IN$(X), tIN$(LINE)IN$:If ~(VTLINE1):(39CHARS):IN$(LINE);:(39):"!":LINE RT21:6200:EDIT0:8000  ************************  *** PRINT TEST LABEL ***  ************************ TEST1:4000 *******EUPPERLOWER:(VTLINE1):(38CHARS):"!";:(39):"!":LINEg $(39CHARS):DASH1CHARS:"-";:DASHy )EDIT1İ3000 .(VT):LINEUPPERLOWER:EDIT1IN$(LINE)" " 8(39):"!";:(38CHARS) BIN$"":662 LI512767 VX(I)128 `X1N$(20) 8000*  ******************C  *** ENTER COPY ***\  ******************w START1:UPPER1:LEFT1 :MENU1Q2EDIT1 7500:51,161 :(VT1):(39CHARS):DASH1CHARS:"-";:DASH (VT1):(39(CHARS2)):"+"= LINSED 1/20/82, APPLESOFT, PARSHALL, N.D., 58770J qPN$"LABEL PRINTER V1.1"[ s(4);"PR#0"u xA768798:B:A,B:A 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96,104,168,104,166,214,154,72,152,72,32,234,3,76,18,212 10580 SM$(20),I' *****************3 * *L * LABEL PRINTER *e( * *~2 * BY *< * *F * RON FOLDEN *P * *Z *****************d- n VERSION 1.1, REVI            X0$X0$;" ";2,"*****VOID*****"; 570AGSFF1ıaI1FF1iA$pIv"RUNHELLO" D" : D N X b% l, q05 v120D N121730Y FF(N120)1020n FF(N120)1020x 1000 X0$ X0$; A3N1(N110)10 A30760 "-"; FFA3 FFA3 1000 740 FFN1 FFN1 1000A1A1N11E3 N1(A1100)- N104406 640G "HUMDRED ";X A1A1N1100e N1(A1)s N10490 A1500 510 640 "DOLLARS "; A1A1N1 A1.01600 A1550 " AND "; &A1A1100 0(A1.5);" CENTS(DD110000)100)- D3(D(D1100D2)100): FF27D1D 1000M X0$T 1n ,,X0$" ";D2;" ";D3t  ,,"$";A " ,,F$;" ";L$ 6 @A0770 JA1A TN1(A11E3) ^N199770 hN10390 r640 |"THOUSAND ";  x"FIRST NAME OF PAYEE ";& F$, > F$"END"790Z "LAST NAME OF PAYEE ";b L$h "AMOUNT OF CHECK "; A "TURN ON PRINTER" PAUSE13000 "HIT RETURN TO BEGIN PRINTING";X$ D1(D10000) D2(,"FORTY"9 <"FIFTY","SIXTY","SEVENTY","EIGHTY","NINETY"x F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER" d"DATE (MMDDYY) ";D m n" (TO STOP PROGRAM TYPE 'END')" s  ( 2:14:"CHECK WRITER". :::: "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"( "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN" 2"SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY"       LL TELL YOU..":::" THE FORMULA IS TOO COMPLEX ":j22::" PRESS (RETURN) TO BEGIN THE PROGRAM ! ";:J$:::8:110 L REACH (X) VALUE'":::" WHEN WILL THE DATA REACH 6 ? "::iL23:"PRESS ANY KEY TO CONTINUE ";:J$:V3:" SINCE A PLOT OF THIS DATA":"WOULD BE A STRAIGHT LINE, THE":"DATA WILL ";::"NEVER";::" REACH":"A VALUE OF 6":>`:" THE PROGRAM WI*$:"THIS IS FUNCTION 4 ON THE MENU":W.23:"PRESS ANY KEY TO CONTINUE ";:J$:82:"CONSIDER THIS PROBLEM.."::"THE 3 DATA VALUES INPUT ARE"::"NUMBER 1 = 5":"NUMBER 2 = 5":"NUMBER 3 = 5":<B"USING # 2 FROM THE MENU,":"'TIME DATA WILLTER HAVING PRESSED 2 FOR":"'TIME DATA WILL REACH (X) VALUE'"j23:"PRESS ANY KEY TO CONTINUE ";:J$:q3" THIS PROGRAM CAN GENERATE":"A HI-RESOLUTION GRAPHICS PLOT":"OF THE DATA THE OPERATOR INPUTS,":"WHEN REQUESTED, DURING THE PROGRAM":023:"PRESS ANY KEY TO CONTINUE ";:J$::e"PROBLEM 2":"WHEN WILL SALES BE 2500.00 ?"::"PROBLEM 2 CAN BE SOLVED USING":::" 2 TIME DATA WILL REACH (X) VALUE "::=" YOU WOULD TYPE IN 2500.00":"THEN PRESS THE RETURN KEY,":"AFN THE GRAPH":"YOU WOULD TYPE 12, THEN PRESS":"THE RETURN KEY WHEN ASKED":"'WHICH POINT ON THE GRAPH ?' ,AFTER":"PRESSING 1 FOR TREND LINE ANALYSIS":" THIS SAME RELATIONSHIP WILL WORK":"ON DAILY, WEEKLY, MONTHLY, AND":"YEARLY INPUT DATA":EN WILL SALES":13:"REACH 2500.00 ?":P"PRESS ANY KEY TO CONTINUE ";:J$::"PROBLEM 1..":"WHAT WILL SALES BE IN DEC. ?":3:" PROBLEM 1 CAN BE SOLVED USING":::" 1 TREND LINE ANALYSIS":::" SINCE DEC. WOULD BE POINT":"NUMBER 12 O6:"4";:16:"APR.";:26:"1900.00":6:"5";:16:"MAY";:26:"1800.00"s6:"6";:16:"JUN.";:26:"2100.00":" THIS PROGRAM CAN SOLVE 2":"TYPES OF PROBLEMS.."::'"PROBLEM 1..";::" WHAT WILL SALES BE IN DEC. ?"::"PROBLEM 2..";::" WHY TO CONTINUE ";:Q$::3000p::"* EXAMPLE *"::3:" LETS SAY MONTHLY SALES HAVE BEEN":::" INPUT # MONTH AMOUNT ":::6:"1";:16:"JAN.";:26:"1200.00"z6:"2";:16:"FEB.";:26:"1800.00":6:"3";:16:"MAR.";:26:"1600.00"H(M)79)T8):52534Y1(D(M)79)T8:Y1159Y1159CY10Y11VX1279X1279iY1159Y1159xM05265Y1159Y1159X1,Y1:5270X1,Y1X1X1J2:M23:" AVERAGE INPUT DATA VALUE = ";::T8:24:"PRESS ANY KEP11,1620,16"Z11,14320,143:nM02796:M,79:MCxX15i}BOTH C(X)-REV & D(X)-NOR OK HERE~T80:M0O1:T8T8C(M):M:T80T81T8T8O:T925250GET HERE ONLY IF POSITIVE DATAT81T81M0O1T91Y1158((D J2280O1J2=279 (X) / O (# OF DATA INPUTS)AT2(HILO)vT2=THE RANGE BETWEEN THE HIGH & LOW DATA VALUESS1=159/T2  S1=THE Y LENGTH PER INPUT UNIT ()3*0,0+6245020,0279,0279,1590,1590,0F15,1215,20 5100.FIND HIGH AND LOW OF INPUT DATAIC(X) OK AT THIS POINT]J10:M0(O2)tC(M)C(M1)5080T1C(M)C(M)C(M1)C(M1)T1J11MJ115020:21:" 1 ";::15:" INPUT DATA ";38:O :" WHICH ? ";:J::::4:"SORTING DATA BASE"::T9J:J1J23041O 5000] J43042g 3000:8::"THE FORMULA IS TOO COMPLEX"::J12000:J:::100BM SUNDAY 2/24/79HRG PLOT SUB OF INPUT DATAD(0)0T913042E":"POINT NUMBER 1"::S J1ĺ"AT WHAT";A$;"POINT ON THE GRAPH ?";:" ";E:300y :J2Ą"INPUT (X) VALUE ";F:400 J3ė::8:110 3045 :8:"WAS THE INPUT DATA + OR - DATA ?":::8:"1 POSITIVE (+) ":8:"2 NEGATIVE (-) "::E UNCTION DO YOU WANT ?":_ 7:"1 TREND LINE ANALYSIS":7:"2 TIME DATA WILL REACH (X) VALUE" 7:"3 START A NEW PROBLEM":7:"4 GRAPHICS PLOT OF INPUT DATA ": "WHICH FUNCTION ? ";:J : " REMEMBER.."::13:"FIRST INPUT IS REFERENCPF:265:PP(1C)&220:A040004HPA:PH:8:" THE PROJECTED POINT ON THE GRAPH"::"THAT THE DATA WILL REACH ";F;" IS AT":::P;::B$19:"PRESS ANY KEY TO RETURN TO THE MENU ";:J$::3000 ::4:" * MENU * "::7:"WHICH FLABEL C 220:BV((1Y)A)* CBT0 "= ,LABEL DE 6QET @220:QQAc J265:GCQl O:7 T" THE PROJECTED VALUE OF THE"::"DATA AT ";E;B$;"IS ";::G: ^19:"PRESS ANY KEY TO RETURN TO THE MENU ";:J$::3000 LABEL E}C(M1)N:D(M1)C(M1)' ~NLOLON6 NHIHIND ZN:VVNR UU(N2)\ TT1l YYT:ATZ WWA: A = STEP 027 VALUE X(T2)X M 3000 LABEL B SYT RSVW J4000:(SYX)0J AR(SYX)  B$(6):B$" DAYS "C uJ2ĆA$(8):A$" WEEKLY ":B$(7):B$" WEEKS "w vJ3ĆA$(9):A$" MONTHLY ":B$(8):B$" MONTHS " wJ4ĆA$(8):A$" YEARLY ":B$(7):B$" YEARS " xJ1J4ė:12:112 y:5:M1O::"INPUT DATA VALUE NUMBER ";M;" ";:" ";N ALUES";::::"DO YOU HAVE TO INPUT ";:"? ";O:O2ė::8:110S oC(O1),D(O1) p:" ARE THE DATA VALUES"::7:"1 DAILY":7:"2 WEEKLY":7:"3 MONTHLY":7:"4 YEARLY": qJ(0) s"WHICH TYPE OF READINGS ? ";:J tJ1ĆA$(7):A$" DAILY ": LEAST-SQUARES FIT":"OF POINTS (X,Y), WHERE Y IS":"INPUT AND X IS INTEGRALLY INCREMENTED" j"BEGINNING WITH 1, IS DETERMINED":"BY THIS PROGRAM" k::" INSTRUCTIONS ? (Y/N) ";:J$:J$"N"ė:8:110 l6000@ n"HOW MANY ";::"INDIVIDUAL DATA V 16384M TREND LINE ANALYSIS ISSUE # 1 B MARTIN 2/23/79] ISSUE # 20j"":255::8:10::"TREND LINE ANALYSIS"::J11000:J:15:"BILL MARTIN 3/16/79"(::dINSTRUCTIONS[ i"THE LINEAR             YEARLY DIVIDEND= ";TYD<"YEARLY DIVIDEND YIELD= ";YDYB% f"PERCENT CHANGE= ";E(I)+ g2 pI8 q> rb "VALUATION OF TOTAL PORTFOLIO" "----------------------------"  "ORIGINAL VALUE= ";S "CURRENT VALUE = ";S1 "PERCENT CHANGE IN VALUE ";PC"TOTALI PC(S1S)S1100- YDYTYDS11008 *I1NT 4"STOCK # IS ";IZ 5y >"NUMBER OF SHARES= ";A(I) ? H"ORIGINAL PRICE= ";B(I) I R"CURRENT PRICE= ";C(I) S \"DIVIDEND= ";D(I) ]ES ";A(I)+ ""ENTER ORIGINAL PRICE ";B(I)L 6"ENTER CURRENT PRICE ";C(I)h J"ENTER DIVIDEND ";D(I)n Ku TI~ ]S0 bS10 hTYD0 lI1N E(I)(C(I)B(I))B(I)100 SSA(I)B(I) S1S1A(I)C(I) TYDTYDA(I)D(I) *****************************"$ {* |M A(10),B(10),C(10),D(10),E(10)v "NUMBER OF STOCKS IN PORTFOLIO- ";N| "ENTER NUMBER OF SHARES, ORIGINAL PRICE," "AND DIVIDEND AS REQUESTED." I1N "STOCK # ";I "ENTER # OF SHARTHE". F"PROGRAM RETURNS THE PERCENT CHANGE"Z P"OF EACH STOCK, VALUE OF THE ORIGINAL" Z"PORTFOLIO, NEW PORTFOLIO VALUE, PER-" d"CENT CHANGE IN VALUE AND ANNUAL DIV-" n"IDEND YIELD AS A PERCENT OF CURRENT" x"MARKET VALUE." y z"*C+ "**********************************"U"**** STOCK PORTFOLIO VALUATION ***""**********************************"("USER INPUTS THE INITIAL STOCK PRICES,"2"NUMBER OF SHARES, CURRENT MARKET" <"PRICE AND THE ANNUAL DIVIDEND. :ЂY:XSAVX:YSAVY:9060*#I1FC%:I$(I)E$D$"CLOSE MATURITY";I$L$IT$21:"LONG TERM MATURITY GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::00F#D$"READ MATURITY";P$4K#J110:B(F%,J):JIZ#B(F%,1)0ī9200m_#P%1YSAV4.18B(F%,W%)167.2yd#W%W%1n#W%10P%FC%P%P%1:P$(P%):W%0:9030x#W%10ī9014}#B(F%,W%)0ī9014#Y4.18B(F%,W%)167.2:XXSAV5:XSAV,YSAVX,"READ FILE-COUNT",#FC%4.#D$"CLOSE FILE-COUNT"I0#I1FC%:I$(I)c1#D$"OPEN MATURITY";I$j2#I3#:CSAV7:F%0:CSAV4#0,00,159279,1596#X(0):F%F%1:P%1:P$(P%):W%1:XSAV0:CSAVCSAV1:CSAV<#CSAV4CSAV3:CSAVA#F%10ī92)0ī8014+Y15.9A(F%,W%)318:XXSAV5>XSAV,YSAVX,YVXSAVX:YSAVY:8060k I1FC%:I$(I) D$"CLOSE YIELD";I$& Il 21:"LONG TERM YIELD GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::(#)#D$"OPEN FILE-COUNT"*#D$XSAV0:CSAVCSAV1:CSAV1TCSAV4CSAV3:CSAVBYF%10ī8200Y^D$"READ YIELD";P$qcJ110:A(F%,J):JrA(F%,1)0ī8200wP%1YSAV15.9A(F%,W%)318|W%W%1W%10P%FC%P%P%1:P$(P%):W%0:8030W%10ī8014 A(F%,W%O RETURN TO MENU";:KEY$: &@?AD$"OPEN FILE-COUNT"XBD$"READ FILE-COUNT"aDFC%{FD$"CLOSE FILE-COUNT"HI1FC%:I$(I)ID$"OPEN YIELD";I$JIL:CSAV7:F%0:CSAV:0,00,159279,159NX(0):F%F%1:P%1:P$(P%):W%1:"WRITE YIELD";FC$) ZERO OUT NEW FILEGI110:J110:Z1:J:I`D$"CLOSE YIELD";FC${D$"OPEN MATURITY";FC$D$"WRITE MATURITY";FC$I110:J110:Z1:J:ID$"CLOSE MATURITY";FC$ "NEW FILES CREATED":"HIT ANY KEY TLES INITIALIZED"::73001D$"OPEN FILE-COUNT"JD$"READ FILE-COUNT"SFC%mD$"CLOSE FILE-COUNT"D$"OPEN FILE-COUNT"FC%FC%1D$"WRITE FILE-COUNT"FC%D$"CLOSE FILE-COUNT"FC$(FC%)D$"OPEN YIELD";FC$D$hI110:J110:Z1:J:I3iD$"CLOSE YIELD1"KjD$"OPEN MATURITY1"dkD$"WRITE MATURITY1"lI110:J110:Z1:J:ImD$"CLOSE MATURITY1"nD$"OPEN FILE-COUNT"pD$"WRITE FILE-COUNT"rFC%1:FC%tD$"CLOSE FILE-COUNT"v"FISHORT TERM FILES":KEY$:.ZKEY$"2"ī7050G\D$"OPEN FILE-COUNT"`]D$"READ FILE-COUNT"i^FC%_D$"CLOSE FILE-COUNT"`I1FC%:I$(I)aD$"DELETE YIELD";I$bD$"DELETE MATURITY";I$dIfD$"OPEN YIELD1"gD$"WRITE YIELD1"0XSAV,YSAVX,Y&XSAVX:YSAVY06100{821:9:"MATURITY GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::X::4:"NEW SHORT TERM FILE ROUTINE"::"ENTER NUMBER OF DESIRED FUNCTION"::"1-ADD NEW SHORT TERM PERIOD"::"2-REINITIALIZE AV7:F%0:CSAV:0,00,159279,159DW%1:XSAV0:CSAVCSAV1:CSAV]CSAV4CSAV3:CSAVvF%F%1:F%10ī6200B(F%,1)0ī6200YSAV4.18B(F%,W%)167.2W%W%1:W%10ī6050B(F%,W%)0ī6050Y4.18B(F%,W%)167.2XXSAV2F%,1)0ī5200)YSAV15.9A(F%,W%)318BW%W%1:W%10ī5050XA(F%,W%)0ī5050q Y15.9A(F%,W%)318XXSAV20XSAV,YSAVX,Y(XSAVX:YSAVY25100P21:10:"YIELD GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::"p:CS10:B(I,J):J:I.D$;"CLOSE MATURITY";FC$I"MATURITY FILE SAVED"y:"HIT ANY KEY TO RETURN TO MENU";:KEY$::CSAV7:F%0:CSAV:0,00,159279,159W%1:XSAV0:CSAVCSAV1:CSAVCSAV4CSAV3:CSAVF%F%1:F%10ī5200 A(TES(Y/N)";:Q$:Q$"Y"ī4020R:"SAVE UPDATED FILE(Y/N)";:Q$::Q$"Y"ī4500ktD$"OPEN FILE-COUNT"vD$"READ FILE-COUNT"xFC%zD$"CLOSE FILE-COUNT"{FC$(FC%)|D$;"OPEN MATURITY";FC$D$;"WRITE MATURITY";FC$I110:J1:K:"ENTER FUND # ";F%:F%10ĺ"ONLY 10 FUND NUMBERS PERMITTED":4020"ENTER WEEK # ";W%:W%10ĺ"ONLY 10 WEEKS PERMITTED":4030"ENTER NEW MATURITY ";M:M2M40ĺ"INVALID MATURITY":4040B(F%,W%)M:"UPDATE APPLIED":"ANY FURTHER UPDA D$"CLOSE FILE-COUNT"% FC$(FC%)> D$;"OPEN YIELD";FC$W D$"WRITE YIELD";FC$y I110:J110:A(I,J):J:I D$"CLOSE YIELD";FC$ "YIELD FILE SAVED" :"HIT ANY KEY TO RETURN TO MENU";:KEY$:::9:"MATURITY UPDATE ROUTINE"";Y:Y10Y20ĺ"INVALID YIELD":30404 A(F%,W%)Yy "UPDATE APPLIED":"ANY FURTHER UPDATES(Y/N)";:Q$:Q$"Y"ī3020 Q$"Y"ī3020 :"SAVE UPDATED FILE(Y/N)";:Q$::Q$"Y"ī3500 D$"OPEN FILE-COUNT" D$"READ FILE-COUNT" FC%ABLE COMPLETE":"HIT ANY KEY TO RETURN TO MENU";:KEY$::` ::10:"YIELD UPDATE ROUTINE": :"ENTER FUND # ";F%:F%10ĺ"ONLY 10 FUND NUMBERS PERMITTED":3020 "ENTER WEEK # ";W%:W%10ĺ"ONLY 10 WEEKS PERMITTED":3030% "ENTER NEW YIELD HT6:J:IV ::"YIELD TABLE COMPLETE":"HIT ANY KEY TO RETURN TO MENU";:KEY$:: :5:"MATURITY TABLE"::"WK# FUND1 FUND2 FUND3 FUND4 FUND5" I110::I;:HT7 J15 HT:B(J,I)0ĺB(J,I);: HTHT6:J:I: ::"MATURITY TKEY$"9"ĺ"INVALID KEY":I1200:I:3009 KEY$"0"Āx 4(KEY$)1000,2000,3000,4000,5000,6000,7000,8000,9000:300 :7:"YIELD TABLE"::"WK# FUND1 FUND2 FUND3 FUND4 FUND5" I110::I;:HT7 J15 HT:A(J,I)0ĺA(J,I);: HTE":4:"4-UPDATE MATURITY FILE"::4:"5-PRODUCE YIELD GRAPH":4:"6-PRODUCE MATURITY GRAPH": 4:"7-BEGIN NEW SHORT TERM FILE":4:"8-PRODUCE LONG TERM YIELD GRAPH":4:"9-PRODUCE LONG TERM MATURITY GRAPH"::4:"0-END PROGRAM") X4:KEY$:KEY$"0" D$"OPEN YIELD";FC$. D$"READ YIELD";FC$P I110:J110:A(I,J):J:Ii D$"CLOSE YIELD";FC$ ,:18:"MENU":::"PRESS KEY FOR INDICATED FUNCTION :": ^4:"1-PRINT YIELD TABLE":4:"2-PRINT MATURITY TABLE":^ 4:"3-UPDATE YIELD FIL&216384:A(10,10),B(10,10):D$""?pD$"OPEN FILE-COUNT"XrD$"READ FILE-COUNT"atFC%{vD$"CLOSE FILE-COUNT"xFC$(FC%)zD$"OPEN MATURITY";FC$|D$"READ MATURITY";FC$~I110:J110:B(I,J):J:ID$"CLOSE MATURITY";FC$          T 1979.GARY B. LITTLE5.#101-2044 W. 3RD AVE.Q.VANCOUVER,B.C. V6J 1L5REACH AMOUNT"7-N"15. DECLINING-BALANCE DEPRECIATION"T-N"16. <<>>"-N22:958:"WHAT NUMBER ?";A$:I(A$):I1I1620180-NI1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000-N:.(C) COPYRIGH"8. FACE VALUE OF DISCOUNTED PAPER"M,N"9. PROCEEDS OF DISCOUNTED PAPER"o,N"10. INCOME FROM INVESTMENT",N"11. EFFECTIVE ANNUAL INTEREST RATE",N"12. INTEREST ON INVESTMENT",N"13. PRESENT VALUE OF A FIXED DEBT" -N"14. TERM REQUIRED TO RE VALUE OF ORDINARY ANNUITY"J+HN"3. PRESENT VALUE OF ORDINARY ANNUITY"w+RN"4. PAYMENTS REQUIRED TO PAY OFF DEBT"+\N"5. PAYMENTS REQUIRED FOR FUTURE VALUE"+fN"6. TERM OF ANNUITY FOR FUTURE VALUE"+pN"7. TERM OF ANNUITY TO RETIRE DEBT"%,zNNUE":"(OR ENTER 'S' TO STOP): ";A$5*;A$"S"20010;*;F*;15160* N:"<<>>":"PRESS 'RETURN' TO SEE THE MENU: ";A$**N::10);::"FINANCIAL PROGRAMS"::" BY GARY B. LITTLE":5*4N"1. AMORTIZATION SCHEDULE"+>N"2. FUTU,5).;J0:DF0:DC0:BVC.)8;JJ1:JN20000>)B;DCIBV100K)L;BVBVDCX)V;DFDFDC)`;DMDC:100:DC$DM$:DMBV:100:BV$DM$:DMDF:100:DF$DM$)j;J;16(BV$));BV$;27(DC$));DC$;38(DF$));DF$)t;(37)2015160#*~;:"PRESS 'RETURN' TO CONTI"PRESS 'RETURN' TO SEE":"THE DEPRECIATION TABLE":"(OR ENTER 'S' TO STOP): ";A$c(;A$"S"20010(;:"DEPRECIATION RATE = ";D$;"%":"PURCHASE PRICE = $";C$:(;" BOOK DEPREC DEPREC":"YEAR VALUE CHARGE FUND")$;34ON";::"***"*':::"ORIGINAL COST: ";C?':DMC:100:C$DM$Y'::"SCRAP VALUE: ";SVp':DMSV:100:SV$DM$'::"DEPRECIATION PERIOD (IN YEARS): ";N':D1(SVC)(1N):D100D':DMD:100:D$DM$'::"THE DEPRECIATION RATE IS ";D$;"%."Q(::NNP:100:N$DM$&7:"A SUM OF $";P$;" WHICH IS":"INVESTED AT ";I;"% INTEREST":"COMPOUNDED ";NP;" TIMES PER YEAR":"WILL BE WORTH $";S$:"IN ";N$;" YEARS."&720000&:DECLINING-BALANCE DEPRECIATION ':::"***";::"DECLINING-BALANCE DEPRECIATI**";::" TO REACH A CERTAIN AMOUNT ";::"***"J%6::"INVESTMENT: ";P_%6DMP:100:P$DM$y%6:"FINAL AMOUNT: ";S%6DMS:100:S$DM$%6:"INTEREST RATE: ";I%6:"COMPOUNDING PERIODS PER YEAR: ";NP%7N((S)(P))((1I(NP100)))& 7DM0:P$DM$$"3:"THE PRESENT VALUE OF A DEBT":"OF $";S$;" PAYABLE IN ";N;" YEARS":"AT ";I;"% INTEREST COMPOUNDED":NP;" TIMES PER YEAR IS $";P$$,320000$6TIME TO ACCUMULATE VALUE0%6::" ***";::"TERM REQUIRED FOR INVESTMENT";::"***":" *z#X±    ̠Ҡֱ ŭԠ à*ՠ ؠҠ)! ٠Ԡ(٠ԠˠϠΠ ĠŠӠ ˠҠ ̮Ϡ Ϡ Үʰ̠?ӠԠFˠҠ ȠӠ͠  ҠҠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp ***************************a OUTPUT EMPLOYEE INFORMATION ***************************936:(12): CLEAR SCREEN AND MOVE CURSOR TO LINE 12"ENTER EMPLOYEE NAME: ";F$990: READ FILE 1280:6:170-C$: OUTPUT FROM COMPUTER TO DISK;B56:170CE$QB74:170YG$gB90:170oH$}B97:170 I$B114:170 J$*B120:1704K$>B125:170HL$RB133:170\MfB138:170pPNz1806 NUMERALS ONLY"::6007l"MARRIED?(1=NO,2=YES): ";M[vPN0: *** SETS PAY PERIOD TO 0R0:150: *** OPEN FILE - RECORD # 0B0:170: *** WRITE TO RECORD-SECTION # 0F$B25:170: *** WRITE TO FILE - SECTION # 25B$B3R RATE OF PAY ($.$$) : ";J$!5z:(J$)5ĺ(7):"RATE OF PAY MUST HAVE 2 OR LESS NUMERALSAFTER DECIMAL POINT"::560D"ENTER # OF EXEMPTIONS: ";K$NX"ENTER DATE STARTED (MMDDYY) : ";L$]b(L$)6ĺ(7):"STARTING DATE SHOULD BE 15ĺ(7):"MAX STATE LENGTH IS 15 CHARACTERS"::500O"ENTER ZIP CODE: ";H$W :(H$)5ĺ(7):"ZIP CODE MUST BE 5 NUMERALS"::520"ENTER POSITION: ";I$!&(I$)16ĺ(7):"MAX POSITION LENGTH IS 16 CHARACTERS"::5400"ENTES ONLY"::440/"ENTER STREET ADDRESS: ";C$5w(C$)19ĺ(7):"MAX ADDRESS LENGTH IS 19 CHARACTERS"::460"ENTER CITY: ";E$(E$)17ĺ(7):"MAX LENGTH OF CITY IS 17 CHARACTERS"::480"ENTER STATE: ";G$4(G$)φ OPEN A NEW EMPLOYEE FILEC  *****************************M 936m "ENTER EMPLOYEE NAME: ";F$s  (F$)23ĺ(7):"MAX. NAME LENGTH IS 23 CHARACTERS"::420 "ENTER S.S. #: ";B$ (B$)9ĺ(7):"S.S.# MUST BE 9 NUMERALī3600,::,R1PN&,$936/,.150<,8B0:160H,BPP$(R)V,LB20:160^,VREl,`B25:160t,jRJ,tB32:160,~O,B38:160,OJ,B46:160,T,B52:160,W,B60:160,A,B68:160,I-B76:16*********************+ 936)+ (10)I+ "ENTER EMPLOYEE NAME: ";F$S+ 1010Y+ ~+ "OUTPUT TO PRINTER ?";:AA$::+ "OUTPUT EMPLOYEE INFORMATION ";:UI$::+ AA$"Y"İ5990+ UI$"Y"ĺ:::1290::::+ AA$"Y"ī3600,UI$"N"* B52:170* W#* B60:170** A8** B68:170?*4 IM*> B76:170T*H Yb*R B84:170j*\ DIs*f 180*p " HIT ANY KEY TO CONTINUE ";:V$:V$""::*z 190* *************************** OUTPUT PAYROLL INFORMATION+ ***** INFO ON DISK): R123200%)D 150-)N R0<)X B138:170c)b PN: *** LAST PAY PERIOD RECORDEDl)l 180u)v RPN~) 150) B0:170) PP$) B20:170) RE) B25:170) TZ) B32:170) O) B38:170) UY) B46:170* TTDT( 34)"------"-( "TAKE HOME PAY";B( U10XX4:3070X( U100XX5:3070o( U1000XX6:3070x( XX7( 40XX)(U)".";:(((100(U1)0.5)),2)( 34)"======"( AA$"N"ī3120( XX117::XX(& AA$"Y"İ6050 )0 ** ENTERME";'T TH10XX4:29401'^ TH100XX5:2940I'h TH1000XX6:2940R'r XX7'| 40XX)(TH)".";:(((100(TH1)0.5)),2)' "LESS TIPS";' T10XX4:2990' T100XX5:2990' XX6' 40XX)(T)".";:(((100(T1)0.5)),2)( UW((100(Y1)0.5)),2)'& 25)"------"7& TDADIIYT& "TOTAL DEDUCTIONS ARE";j& TD10XX4:2840& TD100XX5:2840& XX6& 40XX)(TD)".";:(((100(TD1)0.5)),2)&" THWTD&, 34)"------"&6 AA$"N"2890&@ 'J "NET INCOY(.10(ST288))16.50:2710M% ST327ST365Y(.11(ST327))20.39:2710q% ST365Y(.12(ST365))24.57% Y(Y100.5)100% Y0Y0% "N.Y. STATE INCOME TAX";% Y10XX4:2770% Y100XX5:2770% XX6& 31XX)(Y)".";:(ST96ST135Y(.05(ST96))3.07:2710Y$P ST135ST173Y(.06(ST135))5.02:2710$Z ST173ST212Y(.07(ST173))7.30:2710$d ST212ST250Y(.08(ST212))10.04:2710$n ST250ST288Y(.09(ST250))13.08:2710%x ST288ST327# CALCULATE N.Y. STATE TAX;# W168.30D13.50:2580W# W288.50D32.70:2580k# D(W.16)13.50}# SD(K13.50)# STWS#( ST19Y.02ST:2710#2 ST19ST58Y(.03(ST19)).38:2710#< ST58ST96Y(.04(ST58))1.55:2710)$F I(.28(G369))62.91:2480J" G454G556I(.32(G454))86.71:2480l" G556I(.37(G556))119.35" I(I100.5)100" "FED INCOME TAX ";" I10XX4:2530" I100XX5:2530" XX6" 31XX)(I)".";:(((100(I1)0.5)),2)!!L G433I(.39(G433))103.39+!V 2480@!` G46I0:2480d!j G46G127I.15(G46):2480!t G127G210I(.18(G127))12.15:2480!~ G210G288I(.21(G210))27.09:2480! G288G369I(.24(G288))43.47:2480" G369G45427G63I.15(G27):2480G  G63G131I(.18(G63))5.40:2480u $ G131G196I(.21(G131))17.64:2480 . G196G273I(.26(G196))31.29:2480 8 G273G331I(.30(G273))51.31:2480 B G331G433I(.34(G331))68.71:2480CULATE N.Y.S. DISABILITY&DIW200:DI.30ĪDI.30RDI(DI100.5)100o"DISIBILITY INSURANCE";27)(DI)".";:(((100(DI1)0.5)),2) *** CALCULATE FED. INCOME TAXGW(K19.23)M2ī2400 G27I0:2480  G6:2120>XX7?H40XX)(W)".";:(((100(W1)0.5)),2)XR *** CALCULATE FICAg\AW.0613}fA(A100.5)100pz"SOCIAL SECURITY TAX";A10XX4:2200XX531XX)(A)".";:(((100(A1)0.5)),2) ** CAL31XX)(UY)".";:(((100(UY1)0.5)),2);"TIPS";PT10XX4:2050fT100XX5:2050oXX631XX)(T)".";:(((100(T1)0.5)),2) 25)"------""TOTAL INCOME"; W10XX4:2120*W100XX5:21204W1000XX10 <|XX7<<33XX)(Z9)".";:(((100(Z91)0.5)),2)S<"N.Y. STATE TAX";i<T110XX4:5570<T1100XX5:5570<T11000XX6:5570<XX7<33XX)(T1)".";:(((100(T11)0.5)),2)<"DIS INSUR";<T210XX4:5610=X5400 ;#;"SOCIAL SECURITY";9;"Z810XX4:5450P;,Z8100XX5:5450h;6Z81000XX6:5450q;@XX7;J33XX)(Z8)".";:(((100(Z81)0.5)),2);T"FEDERAL INCOME TAX";;^Z910XX4:5510;hZ9100XX5:55105zZ1REZ1K5Z2RJZ2W5Z3OZ3d5Z4OJZ4p5Z5TZ55Z6Z2Z4Z55Z7WZ75Z8AZ85Z9IZ95T1YT15T2DIT25T3TDT35T4SZT45T5THT5#6RE0:RJ0:O0:OJ0:T0:E HOME PAY";%4TH10.00XX4:4640?4 TH100.00XX5:4640H4XX6y4 39XX)(TH)".";:(((100(TH1)0.5)),2)4*32)"======="44AA$"N"ī47004>::::4HAA$"Y"İ60504RAA$"Y"47105\" HIT ANY KEY TO CONTINUE ";:V$:V$"":32XX)(T)".";:(((100(T1)0.5)),2)<326)"------"I3SZTDTX3R154570q3SZ10.00XX4:45603SZ100.00XX5:45603XX6338XX)"-"(SZ)".";:(((100(SZ1)0.5)),2)3THWSZ3R154730333)"------" 4"TAK226)"------"#2TDAIYDI22&R154510K20"TOTAL DEDUCTIONS";a2:TD10XX4:4440x2DTD100XX5:44402NXX62X32XX)(TD)".";:(((100(TD1)0.5)),2)2b"PLUS TIPS";2lT10.00XX4:44902vT100XX5:44902XX6*3100XX5:42901XX6F132XX)(I)".";:(((100(I1)0.5)),2)]1"N.Y. STATE TAX";r1Y10XX4:43401Y100XX5:43401XX6132XX)(Y)".";:(((100(Y1)0.5)),2)1"DIS INSUR";228)(DI)".";:(((100(DI1)0.5)),2)100XX5:41800JXX6F0T39XX)(W)".";:(((100(W1)0.5)),2)L0^e0h"SOCIAL SECURITY ";z0rA10XX4:42400|A100XX5:42400XX6032XX)(A)".";:(((100(A1)0.5)),2)0"FED. INCOME TAX";0I10.00XX4:42901IѭOJ100XX5:4070/XX6L/32XX)(OJ)".";:(((100(OJ1)0.5)),2)Y/"TIPS";n/T10XX4:4120/T100XX5:4120/XX6/32XX)(T)".";:(((100(T1)0.5)),2)/"26)"------"/,"TOTAL INCOME";/6W10XX4:41800@WOURS";.ZRE10ĺ21)RE:3950+.d20)RE8.n"COST";N.xRJ10XX4:3990e.RJ100XX5:3990n.XX6.32XX)(RJ)".";:(((100(RJ1)0.5)),2)."OVERTIME HOURS";.O10ĺ21)O:4030.20)O."COST";.OJ10XX4:4070/0-Y-B84:160- DI'-1806-R154380I-(AA$"Y"İ5990-2"PAYROLL PERIOD - "20)(PP$(R),2);(47);(PP$(R),3,2);(47);(PP$(R),5,2);(32);(45);(32);-<(PP$(R),7,2);(47);(PP$(R),9,2);(47);(PP$(R),2)-F"("R")":.P"REG HFD1(A$)# d(A$,FD,1)"S"3600 fFD:354> h140:354} :810::" ENTER FIRST OR FULL NAME."::810::M$ 800 120:A$"END"İ200:400 M$(N$,(M$))İ140 420  APPLE CORPS LIST M$"APPLE CORPS":800120 RESTORE :A$"1000"P "+++++ END OF SEARCH. ";E1;" ENTRIES. +++++":E0X 23 "PRESS M FOR MENU, SPACE FOR NEXT SEARCH";:M$:M$"M"ġ:10 ,I139:".";:I:: ^ STORE LIST `M$"STORE":800 b120:A$"END"İ200:350 cX(B$):39X);B$" C$"*"1809 X(C$):39X);C$} 5);"# ";((123))(((124))256);:E$"*"ĺ39(E$));E$:191 300 LL6:L16ı 300 23:"PRESS M FOR MENU, SPACE FOR NEXT PAGE.";:R$:R$"M"Į:10 800 TO END PROGRAM.") Z:M$:M$"1"4009 [M$"2"500I \M$"3"600Y ]M$"4"700i ^M$"5"900y _M$"6"350 `M$"7"450 aM$"8"650 cM$"9"998 d90 xA$,N$,B$,C$,D$,E$ yEE1 z PRINT LINE :N$;", ";D$ Y FIRST OR FULL NAME."::"2 LOOK UP BY LAST NAME.":Y T"3 LOOK UP BY HAM CALL.": U"4 TO ADD OR CHANGE AN ENTRY." V:"5 TO LIST ENTRIES." W:"6 TO LIST STORES." X:"7 TO LIST APPLE CORPS." Y:"8 TO LIST 'MARCS'."::"9_D *************************?* PHONE DIRECTORY III *^* *}* BY: JOHNNY GRAHAM ************************** :E0:81011);"PHONE DIRECTORY"R11);">> SELECT ONE <<":8107 S:"1 LOOK UP B                    150E160EVV$!E180=E"OLD DATA READS - "VV$EE:qE"WHAT SHOULD CORRECTED DATA BE - ";XY$yER0E::" ITEM BEING CORRECTED "E150E170EXY$E180EVV1ī190EE"D$;"RENAME "F$","XY$E,1905RRIED (1=YES,2=NO)"D:KD"ENTER NUMBER OF ITEM TO BE CORRECTED ";VVYD(VV1B0hD2VV2B25wD<VV3B36DFVV4B56DPVV5B74DZVV6B90DdVV7B97DnVV8B114DxVV9B120DVV10B125DVV11B133DR0E5)" 3. STREET ADDRESS"C~1C5)" 4. CITY"7CKC5)" 5. STATE"QChC5)" 6. ZIP CODE"nCC5)" 7. POSITION"CC5)" 8. RATE OF PAY"CC5)" 9. # OF EXEMPTIONS"CC5)"10. DATE STARTED"C D5)"11. MA********BD$;"PR#0"B#B-B9367B(12)eB"WHICH PAY PERIOD IS TO BE CORRECTED ";RkBB8 *** CORRECT EMPLOYEE DATA ***BB936BD"ENTER EMPLOYEE'S NAME ";F$BL5)" 1. NAME"BVB`5)" 2. SOCIAL SECURITY #"BjCtZ60:Z70:Z80:Z90%ARAA$"Y"ī190\A\" HIT ANY KEY TO CONTINUE ";:V$:V$"":::190sAf ***************Ap TURN ON PRINTERAz ***************A936AD$;"PR#2"AA ****************A TURN OFF PRINTERB ********10XX4:5920$@T5100XX5:5920<@T51000XX6:5920U@ T510000XX7:5920^@XX8@ 41XX)(T5)".";:(((100(T51)0.5)),2)@*AA$"N"Ģ(22)@433)"========"@>AA$"Y"İ6050AHT10:T20:T30:T40:T50:Z10:Z20:Z30:Z40:Z50:25)"--------"'?Z5T310XX4:5820A?Z5T3100XX5:5820\?Z5T31000XX6:5820e?XX7?40XX)"-"(Z5T3)".";:(((100((Z5T3)1)0.5)),2)?AA$"N"Ģ(20)?33)"--------"?AA$"N"Ģ(21)?"TOTAL TAKE HOME PAY"; @T53XX)(T3)".";:(((100(T31)0.5)),2)i>DT5T3Z6.009āYU110:(7):YU:"ERROR IN TAKE HOME PAY"{>N"PLUS TIPS";>XZ510XX4:5760>bZ5100XX5:5760>lZ51000XX6:5760>vXX7>33XX)(Z5)".";:(((100(Z51)0.5)),2)?X54=33XX)(T2)".";:(((100(T21)0.5)),2)}=T3Z8Z9T1T2.009āYU110:(7):YU:"ERROR IN TOTAL DEDUCTIONS"=25)"--------"="TOTAL DEDUCTIONS";=T310XX4:5690=T3100XX5:5690=&T31000XX6:5690=0XX7)>:3S TX 75275,B/692-2749,W5VCl A,MICHAEL SANTOVEC,3747 BROOKHAVEN CLUB DR #449,DALLAS TX 75234,H/247-6991, A*R,GREG GRAHAM,2014 BAMBOO,MESQUITE TX 75150,H-279-7453,WB5WGA A,DR. ANTHONY E. STEPHENS,AUSTIN COLLEGE,SHERMAN TX 75090,H/214/892-4TE ALLAN,2115 BAMBOO,MESQUITE 75150,H-279-9419,K5PD A,MITCH MAYBORN,4703 W. LOVERS LN,DALLAS TX 75209,H/351-1263 B/358-3456, A,DON RAY WILLIAMS,7830 GLENNEAGLE DR,DALLAS TX 75248,H/661-0415 B/661-6469, A,BOB MONAGHAN,PO BOX 2182 SMU,DALLA690-0847,\  A,RUDI OTTO,2111 COLUMBIAN CL DR.,CARROLLTON TX 75006,H/242-4956 B/369-0181,  A,CID NEWBERRY,3206 KNIGHTS HAVEN LN,GARLAND TX 75042,H/495-5493 B/634-4230, A,????? G. FRANK,1814 VILLANOVA,RICHARDSON TX 75081,H/234-5600,3 *,PE,H/363-1117 B/742-4411,j A,CURTIS IRWIN,1505 MEADOWVIEW DR,RICHARDSON TX 75080,H/238-9547 B/748-8511, *,SARA GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,279-7453,WB5UJU  A,HOWARD L. STROKES,2913 WHITEMARSH CIRCLE,RICHARDSON TX 75080,H/235-2227 B/Y GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,H/279-7453 B/634-4463,WB5TRY A,ROD LEHMAN,7185 KENDALLWOOD,DALLAS TX 75240,H/239-2966, A,THOMAS ROELKE,6814 PRESTONSHIRE,DALLAS TX 75251,H/369-9449, A,DAVID BOCK,5210 ROYAL CREST DR.,DALLAS TX 75229H/357-5904 B/357-1555,Z A,EDWARD KUEMIERZ,1405 HOMESTEAD,GARLAND TX 75042,H/495-8596, A,BOBBIE FERRELL,13551 CHALLABURTON,DALLAS TX 75234,H/243-6347 B/661-1211, A,DAVID LEMONS,1900 SAM BASS APT. H-6,DENTON TX 76201,382-1792,D AM,JOHNNROBERT D. BOWSER,1029 FORESTGROVE,DALLAS TX 75218,H/327-3274 B/350-8821, A,DAVE KNIGHT,5746 ENSIGN DR.,FT. WORTH TX 76119,H/478-9356,  A,BART GRAHAM,2014 BAMBOO,MESQUITE TX 75150,279-7453, A,JIM J. MAYS,3651 MID PINES DR.,DALLAS TX 75229,":"SAVE ADDRESS LIST"31023,0::"RUN HELLO"J DATA STATEMENTS A,ROBERT F. ZANT,906 LYNHURST,DENTON TX 76201,H 817/382-6353 B 788-2311, A,DAVID H. HARLOWE,8567 SOUTHWESTERN BLVD. #2226,DALLAS TX 75206,H/369-5022 B/651-5528,H A, THE DATA STATEMENT, THEN RUN.":17:\ :810:" SEARCH FOR >> ";M$;" <<":L1:810:u*I139:"-";:I:: LIST ALL ENTRIESM$"ALL"800120:A$"END"İ200:900140970:(1023)1Ģ10:" DATA BEING SAVED...$X$""B$X$$8P:16:X$6X$""C$X$H10P:16:X$ZX$""D$X$l 12P:16:X$~ X$""E$X$14P:16:X$X$""A$X$18:" ";M;" DATA ";A$;",";N$;",";B$;",";C$;",";D$;",";E$1023,1%22:"COPY OVERR THE FOLLOWING."/4:"NAME : ";N$M6:"ADDRESS : ";B$k8:"CITY / STATE : ";C$10:"PHONE # : ";D$12:"CALL : : ";E$14:"LOOK UP CODE : ";A$:7204P:16:X$X$""N$X$6P:16:X120(M((123))((124)256)744M((123))((124)256)ĺ:"  **** ";M$;" ENTRY NOT FOUND ****"::200:700:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":752:1:"ENTER DATA OR RETURN FO(124))256)!N2MMN2:715.NM:7109MM10aN$"":B$"":C$"":D$"":E$"":A$""j750s79022:"'A'=APPLE CORPS, 'S'=STORE, 'M'=MARCS"::810::"ENTER THE ENTRY NUMBER TO BE CHANGED."::810::MM$(M):L0140662H:810::"CHANGES OR ADDS MADE BY DATA STATEMENTS"S:300:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.":810:I$:I$"2"P1:740P0I$"1"700N1000120:A$"END"714 M((123))((T LETTERS)"Z:810$\:16:M$-b800Jl120:A$"END"İ200:600cvM$(E$,(M$))İ140l620} LIST MARCSM$"MICRO USERS"800120:A$"END"İ200:650FD1(A$)(A$,FD,1)"M"668FD(E$,1)"+"662:A$"END"İ200:450$FD1(A$)<(A$,FD,1)"A"460IFD:454W140:454:810::" ENTER LAST NAME."::810::M$800120:A$"END"İ200:500M$(N$,(M$))İ140520 X:810::" ENTER CALL (ALL OR LASDZMJ- A,DAN DAVIS,3904 BOISE CT,IRVING TX 75062,H/255-9257 B/661-3390,- A,ALAN M. VILLIERS,5053 CEDAR SPRINGS #241,DALLAS TX 75235,H/526-1366 B/361-8608,- A,JILL P. DAVID,221 WOODCREST,RICHARDSON TX 75080,H/234-1420,-. A,FRANCO ROBBA,905 LAS TX 75243,H/349-7462,o,z A,JIM ADKISSON JR,6301 CHAPMAN DR,GREENVILLE TX 75401,H/214/455-8867 B/455-6122,,| A,SCOTT LONG,922 HERITAGE CIR.,GARLAND TX 75043,H/270-9167 B/238-5951,-~ 1150,BOB DUKE,13526 PYRAMID DRIVE,DALLAS 75234,241-2888,+ K54,H+r A,DON SMALL,P.O. BOX 6992,TYLER TX 75711,H/593-6104 B/593-2100,+t 1140,THOMAS HATCHER,P.O.BOX 943,FORNEY 75126,226-1387,+ WD5DTG+v A,TERRY MUNCEY,PO BOX 1810,DALLAS TX 75221,B/387-2755,WB5OAS,x A,JIM BOOTH,9475 FOREST SPRING #2102,DAL-4524,+ WD5DRI`*l A,JOHN M. SKINNER,2728 WELBORN #236,DALLAS TX 75219,H/526-7538 B/363-2223,*n A,STEVE MARRERO,1302 N SHILOH RD #152,GARLAND TX 75042,H/272-4906 B/234-5956,+p A,NORMA HORTON,RFD-3-BOX 92A,LEWISVILLE TX 75056,H/242-8079 B/386-240ICHARDSON TX 75081,H/231-7350,s)f A,SAM B. MARCUS,2355 STEMMONS FRWY #907,DALLAS TX 75204,H/361-1155 B/637-6700,)h A,C. COLLINS PIPPIN,2111 JUANITA DR,ARLINGTON TX 76013,H/265-3825 B/265-1351,*j 1130,GARY TURNER,2601 ARROYO #328,DALLAS 75219,522WETZEL,3311 BEVERLY DR.,DALLAS TX 75205,H/321-7515 B/742-7201,(` 1120,HOWARD CUNNINGHAM,5759 PINELAND APT.1076,DALLAS,369-0480,+ WD5DBC(b A,JAMES & ANNE CHASTAIN,130 OAKRIDGE,LEWISVILLE TX 75067,H/436-5460,)d A,CRAIG LARSEN,4 GREEN VIEW CIR.,R,+ WD5CVDc'X A,WALTER T. MCKAY JR,1428 CROSS BEND RD,PLANO TX 75023,H/423-7925 B/423-8323,W5SFP'Z A,B.C. HUNSUCKER,600 TRACY,GREENVILLE TX 75401,H/455-1863 B/455-4220,'\ A,SCOTT MIDDLETON,BOX 841,CORSICANA TX 75110,H/214/872-2481,>(^ A,OTTO D TX 75042,H/495-1757 B/658-2971,t&R A,TOMMY R. RODGERS,6631 ROUND ROCK RD,DALLAS TX 75248,H/233-2920 B/748-9421,&T A,WILLIAM P. SMITH,2032 HAYMEADOW,CARROLLION TX 75006,H/242-4308 B/238-5065, 'V 1110,EDDIE HILL,1704 WESTLAKE,PLANO 75075,423-6300JOHN L. SNIDER,5001 BOWSER #116,DALLAS TX 75209,H/528-8689,%L *M,PAUL EVANS,340 WILLOW WOOD DR.,PLANO 75074,424-8365,K5AT%N A,HAROLD WESTERHEIM,1905 WEST WAY,GARLAND TX 75042,H/276-4730 B/276-8382,!&P A,KENT A. KOEHLER,3110 TEAKWOOD DR,GARLANB5ABGW$D A,JACK P. MORGAN,P.O. BOX 35887,DALLAS TX 75235,H/351-6261 B/358-2431,W5LQR$F A,EARL BORN,4326 PINERIDGE DR,GARLAND TX 75042,H/276-2716 B/387-2755,$H A,BOB MATZINGER,P.O. BOX 13446,ARLINGTON TX 76013,H/817/275-2910 B/2665-8122,;%J A,75209,H/357-9708 B/689-2833,W5GITs#> A,JIM & DONNA HOLLOWAY,2419 WINTHROP,DALLAS TX 75228,H/328-1217 B/996-5952,#@ A,BOB R. PEEPLES,1604 DRAKE DR.,RICHARDSON TX 75081,H/690-4667 B/241-5182,$B *M,RANDY NORTHCUTT,BOX 254,ROXTON 75477,742-8438,W SANDER-CEDERLOF,2519 KLONDIKE,DALLAS TX 75228,H/327-3444 B/238-5051,"8 *M,SKIP BYNUM,6219 MARTEL,DALLAS 75214,821-4933,WD5AAZ": A,MIKE LAUMER,1832 SCHOOL RD.,CARROLLTON TX 75006,H/245-3927,!#< A,R.R. REMBER M.D.,4254 SHORECREST DR,DALLAS TX B]!0 A,RAY M. THOMPSON,1206 CHEROKEE PLACE,RICHARDSON TX 75080,H/231-0765 B/996-6337,W5OUS!2 A,TOM BONFIELD,7411 CARTA VALLEY DR.,DALLAS TX 75248,H/661-9530 B/573-2313,!4 A,N.C. DEALEY,3000 HOOD ST.,DALLAS TX 75219,H/528-8909 B/SAME,E"6 A,BOBH/522-6790,f * A,DR. J.H. NICHOLSON II,9230 CORAL COVE DRIVE,DALLAS TX 75231,H/341-3681 B/327-4375, , A,JOHN BRODERICK,8635 SHAGROCK,DALLAS TX 75238,H/341-8567 B/341-1635,!. *M,JOHN DASHNER,11621 DENNIS RD. APT.103,DALLAS 75229,243-2427,WA4CYIR.,DALLAS TX 75234,H/241-4696 B/631-5560,q$ *M,ROBERT W. FLATT,2610 PROVINCE LANE,DALLAS 75228,328-5510,*& A,FRANK A ST.CLAIRE,12123 SHIREMONT,DALLAS TX 75230,H/233-9639 B/651-1645, ( A,CAROL GLITSCH BURNETT,3525 PRINCETON,DALLAS TX 75205,966 B/892-9101,s A,PATRICIA & JOE ENTESARI,4004 RIDGLEA C/C DR. #203,FT. WORTH TX 76126,H/738-0118 B/266-4372,  A,ROBERT D. WHITTINGTON,7373 VALLEY VIEW LN #1014,DALLAS TX 75240,H/233-4504 B/243-6721,*" A,PAUL E ATKINSON,14223 CORAL HARBOVR Cr 1650,DON ALFONSO,1711 AUBURN DR.,RICHARDSON 75081,238-8883,+ W6KCN=|1660,JIM BENNETT,732 PARKHURST DR.,DALLAS 75218,324-1651,+ N5ABZ=1670,HERB BLAIR,4213 TYNES DR.,GARLAND 75041,494-6191,+ WA5YKO>1680,WAYNE CAMP,2526 LIVENSHIRE,GARLAJ 1610,JERRY DUNN,2713 MANOR DR.,GARLAND 75041,271-5720,WB5ULNr2110,CORKEY YANT,3537 BEVERLY DR.,FT. WORTH 76117,817-834-6824,+ WB5SKI JH2120,PAUL ZETTLER,8237 NORVELL DR.,-3097,+ K5DMVH 2060,ROB TUBBS,7831 BLACKBIRD LN.,DALLAS 75238,349-0293,+ WB5OQGH2070,GORDON TURNER,BOX 2694,DALLAS 75221,350-9939,+ WB5QYLH 2080,BRITTON VINCENT JR.,3338 DARBYSHIRE,DALLAS 75229,351-6867,+ W5UPV6I*2090,ROBERT VINCENT, BOX 212-E,MCKINNEY 75069,442-2149,+ WD5EWWxG2030,JOSE SANCHO,1000 SUMMIT CIR.,CARROLTON 75206,242-2997,+ WB5YFUG2040,RON SHIPMAN,722 LONGBEACH DR.,GARLAND 75043,271-2129,+ N5AAPH2050,CARROLL SMITH,831 NORTHLAKE DR.,RICHARDSON 75080,23581,+ K5VXMVF1970,BARRY MERRILL,10717 CROMWELL DR.,DALLAS 75229,351-1966,+ W5GNF1980,BOB MONNAGHAN,SMU P.O.BOX 2182,DALLAS 75275,692-2749,+ W5VCF2000,TIM OLMSTEAD,1623 ROSEMONT,MESQUITE 75149,288-0371,+ WB5PFJ-G2010,DON PORTCH,RT.2S,1604 WILLIAMSBURG,PLANO 75074,423-0407,+ WD5GIKsE1940,FRANK KAMP,907 DUMONT,RICHARDSON 75080,235-0610,K5DKZE1950,PAT KUYKENDALL,6529 SUMMIT RIDGE,WATAUGA 76148,817-485-2771,+ WB4SFY F1960,HANK LEVINE,10617 MARSH LN.,DALLAS 75229,350-71G 75060,*,+XDl1900,STEVE HEIMS,249 SUNNYDALE DR.,HEWITT 76643,817-662-4583,+ WD4PAADv1910,ALLEN JACOBSON,P.O. BOX 15,PARAMUS NJ. 07652,201-261-6800,+ WA2WSBD1920,JOHN JOHNSON,RT.2 BOX 260,MCKINNEY 75069,442-1664,+ K5AXH3E1930,REX JONED1860,DOUG GIBSON,3616 WEEBURN,DALLAS 75229,357-2717,+ W5PDCN1870,PETE GOUDREAU,13555 KIT LN. APT.#138,DALLAS 75240,783-4982,+ WB5RKCCX1880,BILL GUNDERSON,BOX 1432,DALLAS 75221,526-1813,+ W5PSN Db1890,DAVID HASTINGS,651 FRANCINE DR.,IRVIN76118,817-498-2785,+ W5SGXcB&1830,PETE FISHER,7253 EDGERTON DR.,DALLAS 75231,341-1120,+ KA5CRTB01840,RON FRANKLIN,6125 FORREST EDGE,FT. WORTH 76119,817-536-9467,+ WD5GICB:1850,ERNEST GAW,3714 LEGENDARY #137,DALLAS 75224,357-7106,+ W5MXC?CRRY DREWS,3705 WALTON AVE.,FT. WORTH 76133,817-292-5932,+ W5VDCA1800,CLIFF ELSTON,2826 WASKOM ST.,DALLAS 75228,327-3757,+A1810,ALLEN ERICKSON,13868 FAR HILLS LN.,DALLAS 75240,661-2293,+ WD5CGBB1820,CURLY FIELDS,4116 MORGAN CIR.,FT.WORTH -2058,+ WB5YPSZ@1760,LUKE DAVIS,1333 CEDAR KEYS,LEWISVILLE 75067,436-7409,+ KA5CXM@1770,GLEN DEEN,629 WINCHESTER DR.,RICHARDSON 75081,235-4391,+ AG5L@1780,BURTON DENMAN,1008 BLUE RIDGE PL.,RICHARDSON 75080,235-4359,+ W5YAKAA1790,JEAMYG?1720,STEVE CORDER,800 GRUBB,MESQUITE 75149,288-7889,+ WB5LHL?1730,JAMES COSBY,312 ISLAND DR.,RICHARDSON 75081,235-2255,+ WD5FYU?1740,JIM COUNTS,1715 BROOKS DR.,ARLINGTON 75012,*,+@ 1750,BILL DALLIN,984 PEAVY RD.,DALLAS 75218,321ND 75042,278-3858,+ A5EQXh>1690,GARY CARIKER,313 E. HARVARD DR.,GARLAND 75041,271-1954,+ WA5QWQ >1700,PHIL CLEMENTS,1313 APPLEGATE LN.,LEWISVILLE 75067,221-2222,+ K5PC?1710,JIM COKER,5350 AMESBURY DR. #1913,DALLAS 75206,696-2326,+ WA5"END OF SAVINGS PROGRAM JAN 1, ";(UY);"."G12:"(";Y;" YEARS)"k:"IS THIS CORRECT (Y/N)? ";A$|A$"N"ī190RR100.5IU(UY)1P12P1ĺ"JULY 1, ";I;"."P2ĺ"JANUARY 1, ";I1;"." KIUP1ĺ"TH N"STATUS OF ACCOUNT #";7 X(ACC$)1ĺ" (NONE)"L b(ACC$)0ĺACC$R l v"CURRENT BALANCE INCLUDING CONTRIBUTION FOR ";U;" OF $";C;", IS $";T;"."  "ANNUAL CONTRIBUTIONS WILL BE $";C :"INTEREST SEMI-ANNUAL AT ";R;"%." .  410 Z "CURRENT TOTAL SHOULD INCLUDE CONTRIBUT- ION ON JAN 1, ";U;"."y "ENTER CURRENT TOTAL $";T  "ENTER INTEREST RATE ";R  &"ENTER ANNUAL CONTRIBUTION ";C 0 :"START OF SAVINGS PROGRAM JAN 1, ";U;"." D$ @3 J"ENTER YEAR TO START CALCULATION ";U:C TU1700410R ^"ENTER ";X he r"FOUR";k | " DIGITS PLEASE!": 330 "HOW MANY YEARS DO YOU WANT CALCULATED?";Y Y0490   "I CAN'T WORK WITHOUT FIGURES!" YEAR.". :"TOUCH 'RETURN' TO CONTINUE!";G$4 : H ACC$(50)S D$""Y } "OUTPUT TO PRINTER (Y/N)? ";Q$ Q$"N"310 Q$"Y"290 "ENTER ONLY 'Y' OR 'N'!"::240 "D$;"PR#1" ,: 6"ENTER ACCOUNT NUMBER:";ACCOUNDED EACH SIX":"MONTHS, ADDING THE ACCUMULATED INTEREST TO THE PRINCIPAL, AND AT THE START OF" "EACH YEAR ADD THE CONTRIBUTION TO THE":"ACCOUNT. ACCRUED TOTALS WILL BE DIS-":"PLAYED FOR EACH SIX MONTH PERIOD. THE PROGRAM IS BASED ON A 360 DAY  d:12:"SAVINGS PROGRAM"$nSx"BY HAROLD JEFFERY *** KNIGHTSTOWN, IND."[:"THIS PROGRAM WILL CALCULATE YOUR EARN-":"INGS FROM THE 1ST OF JANUARY EACH YEAR""TO THE 31ST OF DECEMBER OF THE LAST YEAR";a "AND ADD INTEREST COMP  ;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380T";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT):A1(R1)A1:A10A1Rī450B :"ENTER THE COLUMN NUMBER ";Q$n A2((Q$)):A2(C1)A2:A20A2Cī470 "OLD VALUE = ";A(A1,A2) :"ENTER THE NEW VALUE ";Q$ Q(Q$):QA(Q):A(A1,A2)Q:100  ----------------  ENTER BY COLUMNROW AT A TIME"7 T:5:"3. A SPECIFIC ROW AND COLUMN"U ^:5:"4. RETURN TO MENU"w h::"ENTER NUMBER ==> ";:Q$ mQ((Q$)) rQ1Q4ī310 |Q500,750,450,2000  ----- SPECIFIC ENTRY :::"ENTER THE ROW NUMBER ";Q$ A1((Q$) ";TT, "TO CONTINUE PRESS RETURN ";Q$9 A(0,0)TC 2000^ * --------------------s + ENTER ROUTINE , -------------------- 1R1C1ī8200 6:5:"HOW DO YOU WANT TO ENTER DATA. " @:5:"1. A COLUMN AT A TIME" J:5:"2. A C:TTTTA(Y,X):X:A(Y,0)TT:Y8 ----- TOTAL COLUMNU T0:Y1R:TTA(Y,0):Yk ----- TOTAL ROW TT0:X1C:TTTTA(0,X):X ----- CHECK BALANCE TTTī250 :"TOTALS OUT OF BALANCE": "COLUMN TOTAL = ";T "ROW TOTAL =' 1010-_ --------------------I` TOTALS ea --------------------d::"CALCULATING TOTALS NOW "::n ----- COLUMNS ..xX1C:T0:Y1R:TTA(Y,X):Y:A(0,X)T:X ----- ROWS ... Y1R:TT0:X1                !!! ;6)a()E@;@)a()E@)h)]ĠŠ̤ĠŠȧ0uQ)E@a@E()E@Xa@a@cc a(Ҡ)E@cca̱@E()E̲@a̳@E()E̴@ a̵@E()E̶@a̷@E()E̸@a̹@E()E̱@'c'P2a() (c;)a()E@Š)&̴@VS(ҠŠ)&̵@XS(ҠŠ)&̶@ZS(ҠŠ)&̷@\S(ҠŠ)&̸@^S(ҠŠ)&̹@S(ҠҠ̠)&@$S(ҠҠԠӮ)&@#S(ҠҠ٬Ŭ)&@;a(Ԡ)&@S(ҠԠ)&@,S(Ҡ٬Ŭ)&@.S(Ҡ)&@/c#1ca(ҠȧӠԠ)/5P a()6S(ҠŠ)&̱@@S(ҠŠ)&̲@JS(ҠŠ)&̳@TS(Ҡɣ M6 N@"(r N@"(r N@"(r_Ṉ@"<rC̲@"<rC̳@"<rC̴@"<rC̵@"<rC̶@"<rC̷@"<rC̸@"<rC̹@"<rC̱@"<r (N@"(r 2N@"(r 3N@"(r <N@"(r FN@"(r(dS(ҠҬҠԠ)&@nS(Ҡ  ? ";A$BA$"Y"190L)11000("ACCOUNT NUMBER ";ACC$;"."0:a"STATUS OF YOUR PLAN AS OF JAN 1, ";I;".":{"TOTAL INTEREST $";Z"TOTAL OF CONTRIBUTIONS $";QC$"TOTAL SAVINGS IN KEOGH $";TC.D$;"PR#0"8:"ANOTHER CALCULATION (Y/N)KLfTTGpZZG>z"TOTAL ACCUMULATED INTEREST $";Zb"TOTAL IN SAVINGS TO DATE $";TnL0:K0v:}PTTCQQCI::" *** *** *** *** *** ***":(ACC$)1ĺ"ACCOUNT # (NONE)"(ACC$E PRINCIPAL OF $";T;" INCLUDES":"JANUARY 1, ";U;" CONTRIBUTION OF $";C;"."Y IUī820*:P1ĺI" CONTRIBUTION $";C;", TOTAL $";Q4P1LTR>P1ĺ"INTEREST FOR PERIOD ONE $";LHP2KR(TL)RP2ĺ"INTEREST FOR PERIOD TWO $";K\G10ZQ$"C"R11&\Q$"D"R1.19^Q$"E"R1.01R`B(X)(XR1.5)R1ltNB(A(0,0)):NU$(N)z~PL(NU$)PL3PL3NCPL1NC5NC5NC(C1)70ī4100NC10NC10SZ((C1)NC)10:SZ80SZ80 -----------.::68"CHOOSE THE TYPE OF ROUNDING YOU WANT.":W="(NUMBER OF DECIMAL PLACES)kB"A = 12345.67"D"B = 12345.8 "F"C = 12346. "H"D = 12350. "J"E = 12300. "LQ$:QQ$"A"Q$"E"ī3660VQ$"A"R1100XQ$"B"R1SIZE OF THE FIELDS IN YOUR MATRIX.) N "(MAX= 4 CHAR FLD.= 14 COLUMNS)w :"PRESS ANY KEY TO CONTINUE";:945::"ENTER A TITLE YOU WANT PRINTED AS A HEADING ON THE PRINTOUT.""==> ";T$:(T$)0T$"MATRIX"$(T$)75ī36000:11  j "THIS PRINTING ROUTINE IS DESIGNED TO WORK WITH A 80 COLUMN PRINTER. (SILENTYPE)"p  "IF YOUR PRINTER IS DIFFERENT THIS ROUTINE MAY NOT PRODUCE PROPER RESULTS." # "THE NUMBER OF COLUMNS PRINTED IS LIMITED BY THE (BL$((N.005))"."((((N100)100.5)),2),10)c (NU$(Z),2)"00"NU$(Z)(NU$(Z),7)" "i  ---------------------- PRINTER ROUTINE  ----------------------  R1C1ī8200 ::" WARNING ";: 33,30:32,1Z' R$(X);:9:NU$(2);:19:NU$(1);2 Y0ĞD 30:NU$(0):O& R9ĺV0 X: 21:"TO CHANGE COLUMNS USE ==><== KEYS":"TO RETURN TO MENU USE 'ESC' KEY"D Q$::Q$(27)ī2000N Q$AR$C1C13X Q$AL$C1C13b 30104 NU$(Z)е ----------------& VIEW ROUTINE< ----------------E C1CX R1C1ī8200g C12C12v C1CC1C YCC1 :2:11:C$(Y2);:21:C$(Y1); Y0Ğ 32:" ";C$(Y):: XR01 X0Ğ: Z02:NA(X,YZ):3200:P2:P22ī2050*206024 CHECK FOR ROUTINEH>P6ī8100: LOAD`CP8ī7000: CREATEwDP10ī300: ENTEREP12ī3000: VIEWHP14ī8000: SAVEMP16ī3500: PRINTNP18ī8280: INSTRUCTIONSRP20ī9998: END208039;I1LS1ĺ" ";N$;" MATRIX HAS BEEN LOADED":2039qI2CS1ĺ" A MATRIX HAS BEEN CREATED":2039BX$;M$(I):I23:"(SELECT = RETURN KEY / MOVE = ANY KEY)"P6CS1LS1P10 P:5:Q$Q$(13)ī2110 PO HAVE MENU` DISPLAY FIRST7 -----------------O MENU ROUTINEm -----------------------:::I13:BL$:I:2:10:" SELECT OPTION":16368,06I18:4I1CS1ĺ(BL$,15):2039I2LS1ĺ(BL$,15):20 MATRIX":M$(6)"PRINT MATRIX":M$(8)"END PROGRAM"d$DD$" TOT SAT FRI THU WED TUE MON SUN".MD$" TOT DEC NOV OCT SEP AUG JUL JUN MAY APR MAR FEB JAN"8A(X)(X100.5)100BAL$(8):AR$(21)L8280 V REMOVE 1100 TIZE -----------------!6D$(4): CTRL DhBL$" "wBX$"[ ] "M$(7)"INSTRUCTIONS":M$(2)"CREATE MATRIX":M$(3)"ENTER MATRIX DATA":M$(4)"VIEW MATRIX DISPLAY"1M$(1)"LOAD MATRIX":M$(5)"SAVE ----------------1I1SZ:"-";:I:::H ----------------"IF TOTAL O.K. THEN PRESS RETURN IF TOTAL NOT O.K. THEN PRESS ANY KEY TO REENTER FIGURES.":Q$Q$"E"ġ:2000 ----------------- INITIALT0:"ENTER ROW - ";R$(Y):, XC11<X10ĺ" ";]C$(X);" = ";A(Y,X);" ==> ";e Q$w*(Q$)0ī850>Q$"E"ī2000HQ(Q$):A(Y,X)A(Q)RTTA(Y,X):X\:"COLUMN TOTAL = ";T:f940pQ$(13)ī765zY100(Q$):A(Y,X)A(Q)#NTTA(Y,X):Y=X:"ROW TOTAL = ";T:Fb940ZlQ$(13)ī515avXj100 ----------------- ENTER BY ROW -----------------::I13:BL$:I:2:10:"ENTER DATA BY ROW":YR115:958  ----------------M ::I13:BL$:I:2:10:"ENTER DATA BY COLUMN":] :XC11j 5:958 T0:"ENTER COLUMN - ";C$(X): YR11 Y10ĺ" "; R$(Y);" = ";A(Y,X);" ==> "; &Q$ 0(Q$)0ī590 :Q$"E"ī2000DQ NOT USABLE UNTIL":"A MATRIX HAS BEEN CREATED OR LOADED. ", 10:"TO SEE HOW THIS OPTION WORKS YOU MAY LOAD THE ' TEST ' MATRIX AND THEN TRY IT AGAIN.", 20:"PRESS ANY KEY TO RETURN TO THE MENU";:Q$:2000,X D$-Y INSTRUCTIO+I0C:C$(I):I*+I0R:R$(I):I<+Y0R:X0CH+A(Y,X)Q+X,Yh+D$;"CLOSE MM-";N$+15:"THE ";N$;" MATRIX HAS BEEN LOADED."+20:"PRESS ANY KEY TO CONTINUE ";:Q$:+2000>, :05::" NOTICE ":::" THIS OPTION IS---------------------*:5.*LS1ī8155A*(N$)0ī8155w*"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000*(N$)0ī2000*LS1*10:"LOADING THE ";N$;" MATRIX"*D$;"OPEN MM-"N$:D$;"READ MM-";N$*C,R+A(R,C),R$(R),C$(C)M-";N$)OC:R%)TI0C:C$(I):I:)^I0R:R$(I):IL)cY0R:X0CX)hA(Y,X)a)mX,Yx)rD$;"CLOSE MM-";N$)uD$;"LOCK MM-";N$)w15:"MATRIX HAS BEEN SAVED AND LOCKED.")|8160) --------------------) LOAD ROUTINE* TAL ":7670&(= --------------------=(> SAVE MATRIX Z(? ---------------------c(@:5v(CR1C1ī8200(E"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000(F10:"SAVING THE ";N$;" MATRIX ON DISK"(JD$;"OPEN MM-";N$)LD$;"WRITE MR$(R),C$(C):Z1:X012:C$(X)(MD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TOTAL ":7670 (<R10:C07:R$(R),C$(C):Z1:X007:C$(X)(DD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TO12:C$(X)(MD$,Z,5):ZZ5:X:7330^& Z1:R12:R$(R):X012:R$(X)(MD$,Z,5):ZZ5:X:7670&Z1:C7:C$(C):X07:C$(X)(DD$,Z,5):ZZ5:X:7330&Z1:R7:R$(R):X07:R$(X)(DD$,Z,5):ZZ5:X:7670&(26:C2639:"-";:C::~'2R10:C12:R ROW TITLES"'%"(LIMIT TO 8 CHAR.)"7%:XR11[%" ROW #";R(X1);" ";:"";Q$v%(Q$)1(Q$)8ī7620%R$(X)Q$%X%R$(0)" TOT "%%N$"CREATED"%A(R,C)%::10:" MATRIX CREATED ":8160"&Z1:C12:C$(C):X0$R1R52ī7330$R$(R)'$75901$7670N$8:"ENTER COLUMN TITLES"h$B"(LIMIT TO 8 CHAR.)"x$L:XC11$VA$(C(X1)64)$`"COLUMN #";A$;" ";:"";Q$$j(Q$)1(Q$)8ī7520$tC$(X)Q$$~X$C$(0)" TOT "$ %:"ENTEzQ$"D"ī7700#C(Q$)/#C1C52ī7240:#C$(C)D#7480J#b#:"NUMBER OF ROWS"v#" (M=MONTHS)"#" (D=DAYS)"#" (?=ANY NUMBER)##:" Y = ";:#" ";Q$:#950#Q$"M"ī7690#Q$"D"ī7710#R(Q$)"NUMBER OF COLUMNS",">" (S=MONTHS X 10)"C"?" (W=DAYS X 10)"Z"@" (M=MONTHS) r"A" (D=DAYS OF WK)""B" (?=ANY NUMBER)""C"H:" X = ";:"R" ";Q$:"WQ$"E"CS0:2000"\Q$"S"ī7730"fQ$"W"ī7740"pQ$"M"ī7680#22:"O 3 0 0 0 0 0")!22:"W ."8!22:"S ."E!24:"."i!24::"Y";::" 0 0 0 0 0"s!7720!22:"TOT 0 0 0 0 0"!7720! 33,20:5:1!"DESIGN YOUR OWN BY"! "ENTERING A CODE OR"!*"THE MATRIX SIZE""410:S1ī7675 bCS1O l:::(BL$,20):" CREATE MATRIX ":(BL$,20)::3r v27:"STANDARD":28:"FORMAT": :28:"COLUMNS":27:"A B C...";::"X";::" TOT" 7720 24:"1 0 0 0 0 0"  24:"2 0 0 0 0 0" 22:"R"! TOO LARGE AND THE REPORT FORMAT WILL BE MESSED UP."k:"DO YOU WANT TO CONTINUE PRINTING ANYWAY""(ENTER Y OR N)"":Q$:,Q$"Y"ī374062000U ---------------------V CREATE ROUTINEW --------------------- XC915XR01 X0İ915,R$(X);; T10:36,TIYC01vNB(A(X,Y)):NU$(" "(N),PL)NU$;:TTNC:Y0TT136,T:Y::1:X::207:2000:" POTENTIAL ERROR " ::"DATA FIELDS ARE- BEGIN PRINTING* ------------W:10:6::"NOW PRINTING THE MATRIX ":1:12528,7:12527,1:12526,81:12529,0:12530,2:136,((SZ(T$))2):T$:915T9(NC(C$(C))):36,TXC01:C$(X);:TTNC:36,T:X::LUE{::" ***";::"PERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" PRODUCE A FUTURE VALUE ";::"***"::"FUTURE VALUE: ";SDMS:100:S$DM$:"INTEREST RATE: ";I:"NUMBER OF YEARS: ";N:"NUMBER OF PAYMENTS NP100)(1(1I(NP100))(NPN))7DMR:100:R$DM$:"A DEBT OF $";P$;" CAN BE RETIRED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";I;"%."20000PERIODIC PAYMENTS FOR FUTURE VAERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" RETIRE A DEBT ";::"***"}::"AMOUNT OF DEBT: ";PDMP:100:P$DM$:"INTEREST RATE: ";I:"NUMBER OF YEARS: ";N:"NUMBER OF PAYMENTS PER YEAR: ";NP"RPI(P:100:P$DM$ :"THE PRESENT VALUE FOR AN ANNUITY":"WITH A PERIODIC PAYMENT OF $";R$:"MADE ";NP;" TIMES PER YEAR FOR ";N;" YEARS":"AT AN INTEREST RATE OF ";I;"%":"IS $";P$ 20000PERIODIC PAYMENTS TO PAY OFF DEBT_::" ***";::"P"*";::"PRESENT VALUE OF AN ORDINARY ANNUITY";::"*"V ::"PERIODIC PAYMENT: ";Rk DMR:100:R$DM$ :"INTEREST RATE: ";I :"NUMBER OF YEARS: ";N :"NUMBER OF PAYMENTS PER YEAR: ";NP PR(1(1I(NP100))(NNP))INP100 DMI(NP100))(NPN)1)I(NP100)5*DMS:100:S$DM$4:"PAYMENTS OF $";R$;" MADE":NP;" TIMES PER YEAR FOR ";N;" YEARS":"HAVE A FUTURE VALUE OF $";S$:"IF INVESTED AT AN INTEREST":"RATE OF ";I;"%.">20000 PRESENT VALUE OF ANNUITY6 ::ITYD ::"**";::"FUTURE VALUE OF AN ORDINARY ANNUITY";::"**"d ::"PERIODIC PAYMENT: ";Ry DMR:100:R$DM$ :"INTEREST RATE: ";I :"NUMBER OF YEARS: ";N :"NUMBER OF PAYMENTS PER YEAR: ";NP I0SRNNP:2090  SR((1 PO(PO$):IP(IP$):R(R$)/ POPOIPRB (37)201290 :"PRESS 'RETURN' TO CONTINUE":"(OR ENTER 'S' TO STOP): ";A$ A$"S"20010  J DMIT:100:IT$DM$ :"TOTAL INTEREST = $";IT$ (20000 FUTURE VALUE OF ANNU TERM = ";N;" YEARS"::"PMT# BALANCE INTEREST PAYMENT"J ~34,4X J112Ni IPI1200POv ITITIP J12N1210 DMPOIP:100:R$DM$ DMIP:100:IP$DM$:DMPO:100:PO$DM$ J;16(PO$));PO$;27(IP$));IP$;38(R$));R$EARS ARE REQUIRED TO"U L"PAY OFF A LOAN OF $";P$:"AT AN INTEREST RATE OF ";I;"%." V:"PRESS 'RETURN' TO SEE":"THE AMORTIZATION SCHEDULE":"(OR ENTER 'S' TO STOP): ";A$ `A$"S"20010 jPOP:IT0@ t:"PRINCIPAL = $";P$:"INTEREST = ";I;"% ULE";::"***"' ::"PRINCIPAL: ";P< DMP:100:P$DM$W :"INTEREST RATE: ";It :"NUMBER OF YEARS: ";N $I0RP(N12):1080 .RP(I1200(1(1I1200)(N12))) 8DMR:100:R$DM$ B:"PAYMENTS OF $";R$;" PER MONTH":"FOR ";N;" YR& 220010#dDOLLAR SUBROUTINE,nFL0PxDM$((100(DM(DM)).5)100)j(DM$)2DM$DM$"0"DM$"0"DM$".00"DM$"1"DM$".00":FL1DM$((DM)FL)DM$MORTGAGE PAYMENTS ::" ***";::"MORTGAGE PAYMENT SCHED! ! ! !!!!!!!!!""" " " " " """""""""      BY *"/ R* *+20000 .EFFECTIVE INTEREST ON INVESTMENT*!.::" *RATE OF ";I;"%":"COMPOUNDED ";NP;" TIMES ANNUALLY":"IS $";ID$Jt'20000n*EFFECTIVE ANNUAL INTEREST RATE+::" ***";::"EFFECTIVE ANNUAL INTEREST RATE";::"***" +::"NOMINAL INTEREST RATE: ";I+:"COMPOUNDING PERIODS PER YEAR: ";NP"INTEREST RATE: ";I?B':"COMPOUNDING PERIODS PER YEAR: ";NPlL':"LENGTH OF INVESTMENT (IN YEARS): ";NV'IDP((1I(NP100))(NPN)1)`'DMID:100:ID$DM$?j':"THE INCOME FROM THE SUM":"OF $";P$;" INVESTED FOR ";N;" YEARS":"AT AN INTEREST TE OF ";I;"%":"WILL GENERATE PROCEEDS OF $";P$:"IF DISCOUNTED BY ";D;"%":MM;" MONTHS BEFORE MATURITY."t#20000'EXACT SIMPLE INTEREST'::" ***";::"INCOME FROM INVESTMENT";::"***"$'::"INVESTMENT: ";P.'DMP:100:P$DM$8':Z#:"TERM OF NOTE (IN MONTHS): ";M>d#:"DISCOUNT RATE: ";Dpn#:"MONTHS TO MATURITY ON DISCOUNT DATE: ";MMx#PF(1IM1200)(1DMM1200)#DMP:100:P$DM$i#:"A ";M;"-MONTH NOTE HAVING A":"FACE VALUE OF $";F$:"AND BEARING AN INTEREST RA$";F$20000=(#PROCEEDS OF DISCOUNTED COMMERCIAL PAPER2#::" ***";::"PROCEEDS OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"<#::"FACE VALUE OF NOTE: ";FF#DMF:100:F$DM$P#:"INTEREST RATE: ";I# NOTE (IN MONTHS): ";M1|:"DISCOUNT RATE: ";DUFP((1IM1200)(1DM1200))jDMF:100:F$DM$:"A ";M;"-MONTH NOTE BEARING":I;"% INTEREST WILL YIELD $";P$:"WHEN DISCOUNTED BY ";D;"% ON THE":"DAY OF MAKING IF IT HAS":"A FACE VALUE OF @PROCEEDS OF DISCOUNTED COMMERCIAL PAPERJ::" ***";::"FACE VALUE OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"T::"PROCEEDS AT MATURITY: ";P^DMP:100:P$DM$h:"INTEREST RATE: ";Ir:"TERM OFNTS PER YEAR: ";NP>N(R(RPI(NP100)))(1I(NP100))VDMNNP:100:N$DM$:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL RETIRE A DEBT OF $";P$:"AFTER A PERIOD OF ";N$;" YEARS."20000*0000)XTERM OF ANNUITY TO PAY OFF DEBTgb::"***";::"TERM REQUIRED TO RETIRE A DEBT";::"***"l::"AMOUNT OF DEBT: ";PvDMP:100:P$DM$:"PERIODIC PAYMENT: ";RDMR:100:R$DM$:"INTEREST RATE: ";I:"NUMBER OF PAYME"NUMBER OF PAYMENTS PER YEAR: ";NPLN(SI(RNP100)1)(1I(NP100))dDMNNP:100:N$DM$:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL AMOUNT TO $";S$:"AFTER A PERIOD OF ";N$;" YEARS."2I;"%."200008pTERM OF ANNUITY FROM FUTURE VALUEyz::"***";::"TERM OF ANNUITY FROM FUTURE VALUE";::"***"::"FUTURE VALUE: ";SDMS:100:S$DM$:"PERIODIC PAYMENT: ";RDMR:100:R$DM$:"INTEREST RATE: ";I":PER YEAR: ";NP;RSI(NP100)((1I(NP100))(NPN)1)PDMR:100:R$DM$:"AN ANNUITY HAVING A FUTURE":"VALUE OF $";S$;" CAN BE CREATED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";