' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L65 & "L}"BB5L&]655555553L36 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`SHA>VD;;P >(ED Z> ?$0x?5*?5+?755L ? H8`B5C5 5L"55B55ܭ57B57C?ȱB7ȱB7 ? B7ȱB7Ȍ?5575755 ?55757 ?L>L&  `   v:LD7c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌ}8~|8zz I7H7@)*AL@m@AAA,+i(ˢ3Z@[A@ /@z {m@8/e@@eAA3]ͥ@\ƊiY?A}C@B@B΀ACLT$VXZdflpx|~**7777 (*3]67V<<8:i::=???@##u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L> 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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ɠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#250 HwL70HxX9L71*HyX99L728H{L1(PX$)tH(VI$(X))0Ģ(9LX):(7L7):X11L)T$"%"17L1)"$"PX$~H7065HPA1ī7080H22:1:"PERIOD #"X" "HLX10:22::"TO CONTINUE PRESS RETURN." ILX10LX0: ""G14:8:"TYPE? ";RS=GRS1RS2ĺ(7):4470KGRS(RS1)QGwGX:8:"VARIABLE INTEREST:":LX0:Gb9:4:"PERIOD RATE PAYMENT"GlX1255GnXNPī7100Hv(VI$(X))0PX$(PS$(X)):T((VI$(X))100):LXLX1:T AMORTIZATION TYPE & PRESS RETURN.":?Fb6:8:"1. STANDARD"\Fl8:8:"2. RULE OF 78,S" Gv18::"NOTE: THE RULE OF 78'S MAY ONLY BE USED TO COMPUTE THE EARLY PAYOFF OF A LOAN. MANY LENDING INSTITUTIONS DO NOT USE THERULE OF 78'S. NES66E:E&rE0::" ENTER THE FIRST YEAR OF THE LOAN AND PRESS RETURN. ":E:12:6:"FIRST YEAR? ";FYEDFY1000FY9000Ģ15::(7)"ERROR! INPUT MUST CONTAIN 4 DIGITS."::4410ENEXVI1ı&FY::"SELECNTER AMOUNT OF BALLOON PAYMENT. "@D18:"AMOUNT? $";BP_D:10:13:"***WORKING***"DNPCTL:IBIC:AMBP:AMAM(1IB)DOO1(NP1)DAM((AMPMT)(1IB)):DBL3:TI((PMT(NP1))BP)AM:FT0:TBP:250DBP$T$:1260ESPACELIHS":RTERM(RTERM2)*CTERM1CQ$"YEAR"0C?CVI11230C:::"WILL THERE BE A BALLOON PAYMENT AT THE END OF THE TERM? "C10:"ENTER Y OR N."C10:15:A$C(A$,1,1)"N"(A$,1,1)(110)ė:1230(D15:1:"E MONTHS? (Y OR N)."#B:16:23:A$MB<(A$,1,1)"Y"(A$,1,1)(121)CP12XB@33,40hBJMYMY(1):tBT TERMB^C12CT$"WEEKS"BhC24CT$"MONTHS"BrCQ$"YEARS":TERM(NPC):RTERM(NP(CTERM)):RTERM(RTERMCT)C|C24RTERM0CT$"MONTPRESS RETURN. (1 THRU 12) ":EAX114:31:(4X)::" "KAuAX19::32:(5X):" "X"="F$(X1):AX1012:32:(5X):X"="F$(X1):A33,30A"12:"FIRST MONTH? ";MYA,MY1MY124130A6(MY)MY4130B8CP0:16:"SHOW;PMT@PMT0ĺ(7):4020@PMTTĢ15::(7)"ERROR! PAYMENT AMOUNT MUST BE GREATER THAN THE INTEREST AMOUNT. ":4020@@:MY0 A:"ENTER THE NUMBER OF THE MONTH IN WHICH THE LOAN BEGINS & THE FIRST PAYMENT WILLBE MADE, & ERM IS GREATER THAN ORIGINAL":6?(7):33,29:3720j?::" "?1:"ENTER AMOUNT OF "C$" PAYMENT,"?"AND PRESS RETURN. "?AM0Ģ5:C$" INTEREST AMOUNT $"T$:@12:"AMOUNT? $"(T$)">(INAXIC:EE1:RP(NPX)[>*IN0IN0:EP1:EJ1:NP(X1):EE0:BPER(T$):3940i>2TIN:250y><TITI(T$)>FEE0:XNPBPAX(T$):3940>PPRPMT(T$):AXAXPR:ERET:ETAX>Z:>dTBP:250>nBP$T$:?x:20:(7)"ERROR! NEW T1NP=22:9:X$=X255ī3880Z=(VI$(X))0B51I(VI$(X)):PMT(VP$(X)):3880=(VI$(X))0I(VI$(X)):PMTAX((1((1IC)(RP)))(IC)):TPMT:EE1:VM1:250=(VI$(X))0PMT(T$):EE0:VP$(X)(PMT):TPMT:250>(VI$(X))0PS$(X) C  #z S  L25 , 2 # (/ S , .L)q + 2 # (/Ġ S . .LIq ^, 0 # (/Π S . .Lpq .+ f 0 # (/ؠ S . .Lq .+ f 0 # (/ S .( # LqLt S A. ` w򩱠$   ک S / - 6 S 0- / / 0 n/ 2 S %. ` 2 Z z$   کj S :. ` 2 Z $   کt S . ` 2 Z $   ک~ S 2  2   S :. ` $  f #  S 2  2   S B, /Lp `/ !/ (/ + -Lq S + .Lp . 2 # (/ S ^, .L q S  ` ؠ   ک S     5 S  S X S  ` O   کà S  `  Z Ƞ S          & -  4 ;L" ٠ +L#Ҡ S          & B  4 ; S . ` 2 Z *$   ک S . ` 2 Z 4$   ک$ S + ` 2 Z >$   ک. S + ` 2 Z H$   ک8 S . ` 2 Z R$   کB S + ` 2 Z \$   کL S . ` 2 Z f$   کV S , ` 2 Z p$   ک` + , + , , 5 ʠ S I, ` H. Z w#   W, sԠ S ^, ` 2 Z #   کޠ S + ` 2 Z #   ک S , ` 2 Z $   ک S + ` 2 Z $   ک S , ` 2 Z $   ک S + ` 2 Z $   ک   /  ک S + ` . . . - 6 S 5#   0-  ک S A. ` wM#   ک S . ` i#   s򩬠 S + ` #  f  2 S + .Lm X S 2  2  S w + ` #   s S 2  2  ʠ S S 2 #   2 . ک> S 2  کH S + 1 1R S # Ġ L[lL_\ S 2 #   Lkf S B, .LlLlh S + .Ll qj S +F + Հk S Lmn S p S X w#   sz S ^, ` Y/ *#"  f Р & S L@ S X w ,  B,  S ,   S "   s o S "  -x+ K +}+ P +U  5 S 2 z + Lk 2 z >- 1 E-  , 2 - -K * S + ` "   s4 LsL S X . ` Y!   n/ .!   ک S + ` . Z s򩋠!  f  2 S + 2 >- n/ 2 S-Lj +   Lj S P{Ơ S + 1LJР S +   کڠ S %. ` w򩌠!   L0b S X w-"   ک S A. ` + ` . Z !  f  2 N S + 2 >- n/ 2 S-LLi +   LhX S P{b S + , >- + , S-Lyi I5l S kv S w2 !   ک S X A. ` w!   ک S + ` + Z G!   s򩔠 S w2 U!   2 . ^, ` w򩢠   0  s S + ` s򩾠   ک S . 2 >- . 2 #쩌 Lhh B, 0 S + S + i2 S + , >- + , S-Lh I5 S k& S L \0 S X s + i2 + 1: S . `   n/ .!   کD S S X w n/ .P   Y/ R   /  ک̠ S B, /Lg + ` + / .a   Y/ c   / r   کΠ S + .Lg + ` Y/ t   /    ک֠ S B, /Lg ^, `   /  ک S + /Lh   0-  ک| S 1 - 6 S    0 1 ;    0-  ک S 1 - 6 S    0 m1 ; 4   0-  ک S + 0Lf 1 - 6 S + 0Lf6   0 1 ; I   0-  ک S w2 K   ک  L9e ک   @0 .   1 .   1 . کJ S . 20Le ک   @0 .   '1 51 Ǡ   1 .ʠ   1 . کT S 1 - 6^ S Ҡ   0 1 ;    0-  کh S 1 - 6r S    0 1 ; 20LdX   ک" S 0 - + 1 6, S . +0L~d 0 t1 ; @0 . C1 J1 ; Q1  X1 _1 ; f1  0 m1 ; 0-  ک6 S . 20Ld 0 0 ` + Z + ; '1 51  0 <1 ; @0 . C1 J1 ; Q1  X1 _1 ; f1  0 m1 ; 0-  ک@ S . +0Ƞ S +   L0bҠ S +  , ,  &, -, 4, ;,ܠ S w2 $   ک S X s + p2 S + , >- + , S-Lc I5 S +  , ,  &, -, 4,  S  +   2 . ک S . +0Lc ک/   ک S . S + ` ڠ   ک S , `    ک S A. ` w  f K S + ~2 >- , 2 . >-s+   .LbLj S . . >- + ~2 . >- , 2 .Lb $v S , $0 >- + $0 S-Lb { S K h b4[rhjhc   ک2 S A. ` b2 Z l,< S B, i2 B, 0 B,Š + B, p2 B, - B, - B, 0F S w2 i   کP S X s B, 1 :. Z n   کZ S + ` u   کd S + `    کn S . `    کx S + `     کLOADING PROGRAM INTO MEMORY"C S190,180,170,200,210,220,225,230L 120^ D$;"RUN TBA"o D$;"RUN TC" TYPE1ĺD$;"RUN TLA" D$;"RUN LOAN" D$;"RUN TSA" D$;"RUN TWA" D$;"RUN TLW" D$;"RUN APR" ::(7) 33,40     C   {    L3; C ZL_ S C      C   {    Lx;  ZL_ S m   L: S  S }   a h    }    S   C  # S  L25p S } v    7   S L( S     S X wϠ   ک S ؠ   ک S  ` y   s򩾠 S a ` ʠ   کȠ S - ` w   کҠ S - ` ( Z נ S _ ` 4 Z    sܠ S C   S    #۠ S ᠔ % ;  V , ;    W B , ;     ^ 3 ( ; Ġ   l נ 3 ; s .  3 ;  Ơ  렔 % ; ; Ƞ   ک S T ʠ   ک S X s2 L8   ک S  L=8k   C  S I  #  S     à S <᠔ L8 <  Cܠ +Ġ S W  Š S V L8    Ǡ S l  ̠ S s    נ +Π  렔 +멺 S L(Ӡ S o >  a  E@ S  T S C *  m 1 L`7 h S   | S C L7 _ ` J Z w򩽠   s򩐠 S C L7 T Ҡ   [ . ک S  L7֠   ک S ;PMT@PMT0ĺ(7):4020@PMTTĢ15::(7)"ERROR! PAYMENT AMOUNT MUST BE GREATER THAN THE INTEREST AMOUNT. ":4020@@:MY0 A:"ENTER THE NUMBER OF THE MONTH IN WHICH THE LOAN BEGINS & THE FIRST PAYMENT WILLBE MADE, & ERM IS GREATER THAN ORIGINAL":6?(7):33,29:3720j?::" "?1:"ENTER AMOUNT OF "C$" PAYMENT,"?"AND PRESS RETURN. "?AM0Ģ5:C$" INTEREST AMOUNT $"T$:@12:"AMOUNT? $"(T$)">(INAXIC:EE1:RP(NPX)[>*IN0IN0:EP1:EJ1:NP(X1):EE0:BPER(T$):3940i>2TIN:250y><TITI(T$)>FEE0:XNPBPAX(T$):3940>PPRPMT(T$):AXAXPR:ERET:ETAX>Z:>dTBP:250>nBP$T$:?x:20:(7)"ERROR! NEW T1NP=22:9:X$=X255ī3880Z=(VI$(X))0B51I(VI$(X)):PMT(VP$(X)):3880=(VI$(X))0I(VI$(X)):PMTAX((1((1IC)(RP)))(IC)):TPMT:EE1:VM1:250=(VI$(X))0PMT(T$):EE0:VP$(X)(PMT):TPMT:250>(VI$(X))0PS$(X)<C1NP(NP12)(<C2NP(NP6)<<C4NP(NP3)Q<C24NP(NP2)j<C26NP(NP2612)<C52NP(NP5212)<NP(TLC)ī3960<22::" PERIODS CALCULATED "<TPMT:250<PMT$T$:AXAM:RPNP:TI0= X:" 9 = 108"&;B13:31:"10 = 120"?;L14:31:"12 = 144"X;V15:31:"15 = 180"q;`16:31:"20 = 240";j17:31:"25 = 300";t18:31:"30 = 336";~33,29;17:"ENTER NUMBER OF MONTHS. ";NP;33,40;NP0NP(CTL):EP1:3820:: 2:31:"YRS = MTH"2: 3:31:" 1 = 12"J: 4:31:" 1.5= 18"b: 5:31:" 2 = 24"z: 6:31:" 3 = 36":7:31:" 4 = 48":8:31:" 5 = 60":9:31:" 6 = 72":$10:31:" 7 = 84":.11:31:" 8 = 96" ;812:31RN AFTER ENTRIES."59 8:"ENTER DESIRED PAYMENT.":N9 10:"AMOUNT? $";PMTZ9 VI1ėe9 33,299 :13:"NUMBER OF MONTHS TILL BALLOONPAYMENT? ENTER 0 TO CHANGE PAYMENT AMOUNT ONLY. ":9 33,40: Z119:(Z):30::" ":ZLINESLINES(1)8R HS$""ı38\ ZL$;"PR#0":3330C8f VI0ī3438S8h VI1İ3820b8j B51:9000l8k 3510}8n POKE 33,298p ::"PRESENT DATA:":8z 2:C$" PAYMENT $"PMT$8 3:TAMIC:2508 "INTEREST ONLY PAYMENT $"T$9 22::"PRESS RETUPRESS RETURN ";A$7 720,7 ::16368,097 ZL$(4)q7 "ENTER A TEXT HEADING AND PRESS RETURN. "::6577 HS$"":SS512767:(SS)141HS$HS$((SS)128):SS7* 3::" ****TURN ON YOUR PRINTER**** ":74 ZL$;"PR#"S7> HS$8H   F2 .   M2  ک S B, T2 >- B, 12 .LV` 82 .   ?2  ک S B, *2 >- B, [2 .L` F2 .   M2  ک S + {1L`La S +a  >- + / . >- B, . .L` O. ` w   ک( S A. ` wO        S  L.6L86 S Q S   S C  &   5 S #   S            S  L6L6 S Q  L6 S 7   S  # S S C SL5 ,:t S C L25  ZL;~ S  Z     S a h + L  oe f v  +멊 S }       }   +멋 S }  S C    5 S    S      ک  0L28 S ) .   C  LA4 C = S . ) +B S 7 > E CQ +L S 4 ` z Z 򩢠   s` S b S   LL4L;e S   LL4L;j S C S  C=  L4 ,:l  S       L73L~3 S   "L~3Ԡ S t  "Lh3L3 S m   L2 S ) 5  S ) 0 S 4 ` z Z w     sL2$ S  . +) S . L4 m  L2 C 4 S  ` +멂  H S t ` _ Z    کJ S t `  Z w򩕠   s .   sR S ` L2 m   L11\ S   p S 4 ` - Z  $  S   "L2L3  ک S J ` e Z w}   l  s  S t `  Z   f   S       L1 m   L11 S   L1L.2  S C   {        L1 m   L11* S  `   C  L0 S b  L!0L0 S C  c    C   {   Ln0e  L0 S C   {        L0 m   L/Р S   j     #ՠ S     S J ` B Z k   B +멀 S m ` _ Z 6   ک S m ` _ Z wH   ^  s򩊠 S L L/ m   L- S J ` e Z J  f   S L      L/M   C L0 S R  L0T   C  f  N S 3      L?. m   L-S S 4  LZ.L/X S C   {        L. m   L-b S  L   C  L. C l S  L +5  L  #q S à  L-L-0 S C   {        LR- m   L,5 S   Lm-L-7 S  [ +     #9 S    : S  ` P Z    ک< S  ` P Z w W  sD S m ` _ Z 1*" $  " $ e$ S " $L/A " " S " B$ " S " &$L]A " " S " $LtAL_ S "q + I$v +{  5  S  S %!  5 # "L_  % #L@ %  " $۠ S ! U  # " % #LR@ %  " $ S ! S  # " % #L@ %  " $ S ! Q  # " % #L@ %  " $ S % !   ک S L_ S !  # S # _  # " % #L+? 0%  " $Ǡ S ! ]  # " % #Lb? >%  " $̠ S ! [  # " % #L? L%  " $Ѡ S ! Y  # " % #L? Z%  " $Ӡ S " #L@֠ S ! W  # " S # ` wE!   sڠ S LZ- S % !   # . ک S " # # # $ #Lb? S " # # # $ #L? S ! c  # " % #L> o%  " $ S ! a  # " % #L> "%  " $  S ! e$4!  )%5!  7%6!  E%7!  S%8!  a%9!  h%:!  %;!  %!   کРL_Π S B, /LA_ n/ .   Y/    /  کؠ S B, / >- + 0 .Lt_   /  ک S + / >- B, / .L_Ҡ   0  ک S w ک   s S B, *2 >- B, 12 .L` 82 .   ?2  멾 S L_Ƞ S X sҠ S $ Z   کܠ S " `   ک S " ` Ǡ   ک S v% `   ک S " `   ک S *# ` w!  f   S " % # " # #L9 S " %L-4" S 3!  کP S " ` %  کZ S v% `    کd S " ` %  کn S # ` M   کx S " ` P$  ک S wLw5 S " 8# $  L;L< S P$  + I$ # $1 L; " %L< S " % P$  +%  کؠ S # ` >%  ک S " ` L%  ک S # ` Z%  ک S " ` %  ک S # ` %  ک  S v% ` %  ک S " ` P$  ک S Lm5( S Z%  ک2 S " ` Z   ک< S # ` %  کF S # `   % L   # . ک~ S P$  ک S % P   ک S "% )% 0% 7% >% E% L% S% Z% a% % h% % % % % % % P$ % S X s򩦠 S % V   }% . ک S # $L9L: S o%  کĠ S # ` "%  کΠ S " ` 0$L08 w# `    $ .   wLw5` S #   $   کb S D  $Lm8 $ e$ &>c S " 8# $F  L8 " $ @d S " $L8 " $L9j S J  $L8 $ e$L % E% L% S% Z% a% P$ h%> S s XH S # $LQ4L4R S o%  ک\ S " ` "%  کf S " ` 0%  کp S " ` >%  کz S v% ` L%  ک S " ` P$  ک S L. S L%  ک S " ` w򩛠 $ #L/ S   $L,3 $ e$ &> S " 8# $  LV3 " $ @ S " $Ls3 " $L-4  S   $L3 $ e$L < S % % e$ S " %L4 S %    # . ک  S P$  ک* S %   2 "   ک S " $ # # $ #LR2 *# ` y   $ .   w S " $ # # $ #L2 " ` Ġ   $ .$   ک S " $ # # $ #L2 $ ` c   w S " $ # # $ #L>/ S " $ # # Р S ^$ $ ՠ S x  e$ l$ s$ z$ $ $ 5 ՠ S $ z $Li1 $ z # $ $  M# P$ $ e$ $ڠ S ; S " $ # ;$ $ #L1 w# ` I$ Z I$ $ $  ک S " $ # ~# &$ #L1 # ` ~# B$ Z I$ $ $  ک S " $L   ک S # $L.0 $ ` K   ک S ~# &$ # " -$ #Ls0 $ ` 4$  ;$ B$  t   L0 S " -$L0 $ ` 4$  I$  v   ک S ~# &$L0 # ` 4$  ;$ B$  sL0 S w# ` 4$  I$  sƠ S P$ W$کb S wl S " ` 8   کv S $ ` a   ک S $ ` # #Le/   ک S # ` # #L/   ک S # $L/ # ` " Z ܠ   ک S # $L/ " `    ک S # $L0 $ ` " CANNOT BE PRINTED OR DISPLAYED DUE TO THE SIZE OF THE SCREEN & LENGTH OF THE LINE. ":27106 ::" ERROR! THE LENGTH OF THE LOAN IS LESS THAN THE FIRST PAYMENT PERIOD. "7 22:"TO CONTINUE, (Z$);"PR#"S:1490T5 :12:"START DISPLAY AT WHICH PERIOD? (1 TO "NP")."m5 13:12::"";SELECT5 SE(1)SE(NP)ĺ(7):32305 44005 GG1:14205 (7)d6 16::" AMORTIZATIONS WITH PAYMENTS OF ONE MILLION DOLLARS OR MORE X+ S p#  "  0 S w   s5 S # ` " Z   f  : S # # # # # #L. "   L3.D S " #L)5N S XX S s] S # $L. *# ` 8   ک_ S # $L/ " ` r   L-L- S "   LM, S X s S p#  "   S w򩟠   s S " ` Ƞ  f   S "  # "  # # # # #L- "   LZ- S # #L- "   L= S ! S #  #& SL- S # # F#>" ꩶ  #C" ꩶ  # #LM, " # " #L-  S # ` wc   sǠ S " ` # Z 1#̠ S " 8# ?#   # " 8# ?# M# T#  [# #L, " #L-֠ S " 8# ?#   # " 8# ?# M# i#  [# #` g   کh S w# ` Ϡ   کj S # `    کo S p#  "  r S *# ` wI  f k & | S  S p#  "   S X s򩐠 S 4" z +9" z +멤 S # # F# "  #L, " # " # S " 8# ?#   F# " 8# ?# M# T#  [# b#LA* " #L*, S " 8# ?#   F# " 8# ?# M# i#  [# b#L* # #L|+1 S "   L)6 S @ S X " Z    کJ S # `    کT S # `    ک^ S " S "   L' S *# ` " Z    ک S p#  "  S w# `   f ꠕ  S "ꠕ  F# "ꠕ  b#L) "   LI) S X s  S p#  "   S " ` <   ک S " ` ~# Z 1# S " S " `    کנ S " ` " Z 1#ܠ S " 8# ?#   F# " 8# ?# M# T#  [# b#Lu( " "L) S " 8# ?#   F# " 8# ?# M# i#  [# b#L(L) S " 8# ?#   F# " 8# ?# M#"  [# b#L( " ##L) e " " S " ` # Z    ک S # ` ڠ   ک S "Ԡ +! ٠ +ޠ  5 S " S X " "Q  # S " # S w # ` # Z R   کȠ S s "ʠ + " ##͠ S *# ` wv   sҠL^Lq^ S V.  >-i+ ]. >- , "- 0 # >- , "- ]. - S ^,p +V   , .f   ک S w کh   s򩺠 S B, /L^ + / .z   Y/ |   /  کĠ S + / >- + 0 .L_   0   ک` S n/ / 2 - 6j S B, /LK] + / / #2 - ,z + 6o S + .Lo] /٠ - 6t S %   0 2 ; 0-  کy S + .L]L}~ S w5   ک S sD   3. T   ک S 3.  >- , L-    ک S / - 6 S Xx S ک   0 2 ; 0-  ک$ S + /Lg\ + -. S n/ / 2 >- / E- -8 S B, / >- + . S-L\ 1 -B S , 2 + - 6L S ٠ - 0-  2 B, - 6V S    0 2 ; 0- ,_+  , S-L[LPc S + s, z,   >- + s, z, ,d+  , S-L_[Laʠ S n/ 0LaԠ S . 2 >- . 2 #쩌 L[ +ޠ S B, 0L[ + S B, 0 + 1 + S + j0La S X ,  B,  s + Z. >- B, 2 .LEZ 0 J1 Z 0-    1 .   1 . ک S + {1 >-Z+ ꩢ  .LpZ { S + {1LZ L \ S +   ک S / ` ^, Z wà   s򩬠 S / ` + Z l, S + s, z,   >- + s, z,  4 S F+ z 1> S K+ u LBY 1u 1H S 1u  >- n/ 0 S-LiYLYR S . 0LY B, 0\ S 1 LY +f S + {1L[p S + {1 >- . . . >- B, 2 .LY 1 - 6z S + {1 >- . .    0 1 ; Z   0-  ک S 1 - 6 S + ` \   0 1 ; t   0-  ک S 1 - 6  S O. ` v   0 1 ;    0-  ک S 1 - 6  S - `    0 m1 ;    0-  ک* S ,  B,1 51 '   1 .*   1 . s򩲠 S 0U 碄 +멼 S + / >- n/ 0 .LtWz 1 1 0Ơ S + 0LW 1 - 6Р S + 0LW A. ` , Z 1   0 1 ; A   0-  کڠ S 1 0 1 1 - 6 S . ` C  1 .   کv S + {1LX S 1 1LDV B, - S :. ` A+ Z w    ک S . +0LV :. ` e, Z w 1 .   1 . s򩞠 S :. ` w   @0 .   s򩨠 S . 20L,W :. ` / Z w 'Z    کX S 1 1 >- + E- >- . ]. - + # - 1 1 >- . ]. 1 + # 1 + 穉 碎 +b S + {1 >- ꩑  .LU 1 - B, - 6l S + {1 >- 1 1 .LV + 1 1 0 J1 Z 0-    1 . . C1 J1 ; Q1  X1 _1 ; f1  0 m1 ; 0-  ک& S + {1LOT + 1 10 S + {1 >-<+ ꩢ  .LT B, 1 ک: S + j0LT 0 0 ` 0 0 Z w @0 . sD S 0 +N S 1 1 >- + j0 .LU :. ` . LbS 0 0 ` + Z + ; '1 51  0 <1 ; @0 . C1 J1 ; Q1  X1 _1 ; f1  0 m1 ; 0-  ک S + 0LS 0 0 ` + Z 0 t1 ; @0 . C1 J1 ; Q1  X1 _1 ; f1  0 m1 ; 0-  ک S + $0 >- . +0 .L2T 0 0 ` + Z 0 t1 ; @0 3. Ѡ   Y/ ֠   @0 c0  ک S . .LR . 1 >- . ]. #좝 + . 1 >- . ]. >- E-* 7+ 1 '1 # >- + .1 1 S +  LR + 1 S + LR . 1 S + $0 >- . 20 . ک̠ S + j0 >- B, 0 . >- +  . >- B, 0 .LZQ %. ` 0 0 Z + 0 . ک֠ S + 0 B, 1 S + j0LQ / ` ^, Z w򩚠   s S + 90LQL,R S @0 G0  >- B, N0 >- + $0 .L,R ^, 1 1 ک  - / - 6 S 0 0 0-  / - 6 S 0 + 0-  0 - 6 S B, 0 S . 90LyP + 0 S 0 90LP ^, 0 S 2+ 90LP + 0  S + j0 >- B,  . >- B, 0 .LQ 0 0 ` 0 Z + 0 . 0 ].٠ ޠ + @0 / g/Ԡ + + -ޠ - , - 6T S @0 / >- 0-  0 >- ^, ].Ϡ +^ S n/ 0LO 0-  0 - B, 0LOh S 0-  / - / 0 0r S 0-  0 0t S Š LO +| S B, - 0- s -s.L:N w + ` Y/    @0 c0    s S  S + 0LXNLN S . . q0 - + -" S B, x0LN B, -, S / - 66 S n/ 0LN 0 - B, 0LO@ S 0-  / - / 0 0LOJ S @0 / g/*  >- +#   ک S . 20 >- + $0 .L- B, N0LM @0 G0  - @0 U0  / @0 G0  \0  - +蠔 + @0 c0 / S @0 G0  >- B, N0 >- + j0    0  sȠ S + 0LCL w , ` . Z ٠   ک͠ S + .LsL w , ` + Z    کҠ S / 0 + 0LL + ` s   کܠ S + $0 >- . +0 .LL + ` s!   ک S + 0 >- + $0 .LMJ + / .h   Y/ j   / y   ک S / ` + Z {   s򩪠 S B, /LK ^, ` s򩉠   /  ک S B, / >- + / . >- B, . .LK ^, ` w򩣠   0  ک S + / >- + 0 .LL ^, ` w򩽠 - 6F S 0- P S /  ,L8J B, -Z S / - 6d S 0- /n S + /LlJ xlx S + /LJL[} S ^, / >- + . S-LJ q S L[ S X w n/ .W   Y/ Y   /  ک S B, /L6K + ` >- n/ u/ |/ >- . . ]. / / S / - + - + - 6 S 0-  / B, - S n/ # /L8J  S n/ # (/ S B, /Lj S / -( S + + n/ +  5 ( S 2 S . .  - / / - / - +< S A. ` w9   ک S A. ` , Z l,Ġ S + s, z,G   >- + s, z, , ,  , S-LmH + -Π S X . ` + Z I   sؠ S + .LH `/ !/ (/ . . g/ >- n/ u/ |/ >- . . ]. / / B, .L I S `/ !/ (/ . . g/S + ` + Z w֠   / .   6/    st S + K/ >- + R/ S-LcGLE~ S A. ` // Z l, S + Р LGР   .LE S + .LGL;y S X + `    Y/  ک S . ` 0   ک S . )- D/ /8 S ^, =/L5F  / . )- D/ /B S + =/ >- +2  .LiFà  / / /L S + =/ >- + . .LFɠ  / / /V S Π  LF +   LE` S + K/ >- + R/ S-LF +   کϠ  /j  S X wE   / . s S , ` U   ک S + ` + Z r   ک S . ` + Z {   ک S + ` + Z    ک S A. ` w򩏠   ک S A. ` // Z $ S 6/  .. S + =/L F  / f 2  S B, . >- + . .LGD , ` w򩳠   LC S B, . >- + . .L}D , ` w  LC S B, .LD . . . - 6ʠ S B, .LD .2 + + . ^, - uԠ S ^, /LD?  / / / . !/ (/L I+ .L C  - , . + .p S , .LJC  - ^, . , .z S + .LtC  - + . . . S + .LC u S X w򩷠   ک S . ` w   ک S B, .LC O. ` Y   s򩬠 S . `  f < 4 S + . >- + . S- >- . #<  S-LNB +   LA> S + .LxBt  - . . + .H S ^, .LB{  - . . ^, .R S + .LB  - . . + .\ S , .LB  - . . + .f S   ک S , ` + Z    ک S . ` + Z    ک S + ` + Z    ک S . ` + Z    ک  S . ` + Z %   ک S %. ` + Z 2   ک  S . ` + Z C   ک* S . ` wO  , ,L7@ k. r. P, 3.  >- V. ].   + d.L@ S + s, z,   >- + s, z, , ,  , S-L@  -L; S +   LM=Р S + .L@ X w򩢠   L@ՠ S X w򩺠   3. Р   کڠ S , ` sҠ L; S + s, z,   >- + s, z, , ,  , S-LK?  -L; S +   L= S + s, z,   >- + s, z, , ,  , S-L? k. r. y. 3.  , V. f  .  -L; S + s, z,   , + s, z, ,*  L; S + .L>La? S ,  B,   S + s, z,   >- + s, z, , ,  , S-L> 3.  >- V. ]. -L@ S + s, z,   >- + s, z, ,*  , S-L? 3.  >- V. ]. ֠  3.  >- V. ]. - + d.  -S +   LX< S 3.Ơ 5 - S . ` :. Z 3. 1   Lr< S + .L= A. ` + Z w3   sL= S A. ` + Z wQ   s򩞠 S A. ` H. Z l, S +A L> +   کo  - w O. ` p  .L%< s . `   f A @ S + . >- B,A  .LX< +   L;D S . `    کN S . ` %. Z Ơ X S Π* Ơ  >-Ӡ* Ơ  .L S + ֠ S + , , , 5 ֠ S  S v-à  5 o- + }- >- + , , v- - o- + }- h- + S v-̠ 5 , 0-  >- + E- ,L_ S B, - B, -Š  -Ơ Ơ  B, - B, - B, -Ǡ  - S B, - B, - B, - S B, - B   , 0-  >- + E- >- + L- ,L19L_ S 0-  >- + L- >- +  S-La9L_ S 0-  >- + E- Z- S + a- h- + 7- S + L9 + a- Z-Lz9  S B, L9 + h-̠ S +Π B̠  - o-8 , - - B, -Lw8J S , L-8L8T S + -  L]8 ^, "- )- - -Lw8^ S ^, "- )-Ϡ -h S ,  , B, +r S +ʠ L8 0-  5 ,L8| S 0-  5 , S + , - , B, 7- B, , S + -L 7 B, , S , , ,  , ,Ϡ  ,LM7  , + ,L8 S + + + +à  5  S " S + ,  L7 + ,L7, S +6 S , , , + ,  +@ S +  , B,  ,L   , + s, z, , ,  , ,L*6LV6Ƞ S +   Lr5Ҡ S ,  B,  ܠ S , ` + Z   f ٠ S + , , + , , , ,٠  ,L6 +   L@6 S L_ S , #   , B, , ,  , S , # ,Ђ S B, , + , , 5 S  ] I,Ԡ P P, # W, S L: S X w + ` ^, Z    s򩠠 S + ` C   ک S + ` e, Z l, S + s, z,   , + s, z, , ,  , ,L5 +٠ +L_ S + s, z,`* e2 S + ` + Z ڠ   ک< S + ` + Z    کF S + ` + Z    کP S + e + ` , Z    کZ S + ,* , , 5 Z S +d S + c +n S + e +  , ,  &, -, 4, ;,x S L 0L0L0LiLꢺLj*LL+뢲LLkL+!LL+L+멬LLL S + c + s X + Z q   ک S + + + +  5  S  S + Z    +( S + Z    xLLf*L穇L٠L+iLkLfLfLꩴLkLꩲLkLfLn+L㠔L+\L+ҠLKLKL٠LŠL ŠLŠLKLĠLLL +Lꩌ+L꩑+L꩖+L#LfAL+0L+5L+:L+뢬L+멢L碢L+L碘L+멘LxLԠLj*LLt*L穸LLĠ*L究Le*LQ*L㠔LL꩓LxLꢓL+nL꩎LL+_LϠL +L穄LʠL+Ly*LLuL+P+LU+LLZLLL+KLKLLLLLԠLLԠL*LԠL㠔LL}LLLL#L驌LʠLʠL+ԠLL+뢶L+-+LꩬLLꩃ*L穃*LL穱LLꢱ-L+dLL2L(L+(@<h80p HlL # TO CONTINUE PRESS RETURN. A BALLOON PAYMENT OF $TERM: & PLUS A BALLOON PAYMENT OF $TERM: TERM: PRESENT DATA AT PERIOD ORIGINAL PAYMENT $ PRESS RETURN AFTER ENTERIES.DARD2. RULE OF 78,SNOTE: THE RULE OF 78'S MAY ONLY BE USED TO COMPUTE THE EARLY PAYOFF OF A LOAN. MANY LENDING INSTITUTIONS DO NOT USE THERULE OF 78'S. TYPE? VARIABLE INTEREST:PERIOD RATE PAYMENT%$PERIODER Y OR N.NENTER AMOUNT OF BALLOON PAYMENT. AMOUNT? $***WORKING*** ENTER THE FIRST YEAR OF THE LOAN AND PRESS RETURN. FIRST YEAR? ERROR! INPUT MUST CONTAIN 4 DIGITS.SELECT AMORTIZATION TYPE & PRESS RETURN.1. STANHICH THE LOAN BEGINS & THE FIRST PAYMENT WILLBE MADE, & PRESS RETURN. (1 THRU 12) ==FIRST MONTH? SHOW MONTHS? (Y OR N).YWEEKSMONTHSYEARSMONTHSYEARWILL THERE BE A BALLOON PAYMENT AT THE END OF THE TERM? ENTAL ENTER AMOUNT OF PAYMENT,AND PRESS RETURN. INTEREST AMOUNT $AMOUNT? $ERROR! PAYMENT AMOUNT MUST BE GREATER THAN THE INTEREST AMOUNT. ENTER THE NUMBER OF THE MONTH IN W12 1.5= 18 2 = 24 3 = 36 4 = 48 5 = 60 6 = 72 7 = 84 8 = 96 9 = 10810 = 12012 = 14415 = 18020 = 24025 = 30030 = 336ENTER NUMBER OF MONTHS. PERIODS CALCULATED ERROR! NEW TERM IS GREATER THAN ORIGIN PRINTER**** PR#PR#0PRESENT DATA: PAYMENT $INTEREST ONLY PAYMENT $PRESS RETURN AFTER ENTRIES.ENTER DESIRED PAYMENT.AMOUNT? $NUMBER OF MONTHS TILL BALLOONPAYMENT? ENTER 0 TO CHANGE PAYMENT AMOUNT ONLY. YRS = MTH 1 = SIZE OF THE SCREEN & LENGTH OF THE LINE. ERROR! THE LENGTH OF THE LOAN IS LESS THAN THE FIRST PAYMENT PERIOD. TO CONTINUE, PRESS RETURN ENTER A TEXT HEADING AND PRESS RETURN. ****TURN ON YOURPERIOD? (1 TO ).PR#0 PRESS SPACE BAR TO ABORT PRINTING ***WORKING***PR#START DISPLAY AT WHICH PERIOD? (1 TO ). AMORTIZATIONS WITH PAYMENTS OF ONE MILLION DOLLARS OR MORE CANNOT BE PRINTED OR DISPLAYED DUE TO THE AID$ TOTAL PAYMENTS $ CURRENT YEAR INTEREST $ INTEREST REBATE$PR#0 PAYMENTS OF $ PAYMENTS OF $ PAYMENTS OF $ PLUS A FINAL PAYMENT OF $PLUS A BALLOON PAYMENT OF $PERIOD INTEREST PRINCIPAL BALANCESTART PRINTING AT WHICH ATALOGSELECT NUMBER & PRESS RETURN.RUN HIPR#PERIOD INTEREST PRINCIPAL BALANCEMONTH PERIOD INTEREST PRINCIPAL BALANCEAFTER PAYMENTS: -YEAR #AFTER PAYMENTS: , -YEAR # TOTAL INTEREST PAID$ TOTAL PRINCIPAL PHE INCREASE IN PAYMENT HAS CAUSED THE LENGTH OF THE LOAN TO BE SHORTENED. TO CONTINUE, PRESS RETURNPR#0*MENU*1. RUN LOAN ANALYZER AGAIN2. DISPLAY FINAL DATA3. PRINT FINAL DATA DISPLAY4. DISPLAY AMORTIZATION5. PRINT AMORTIZATION6. GO TO MAIN CAY***AMOUNT FINANCEDTOTAL INTEREST TOTAL PAYMENTS INTEREST RATE:ANNUAL RATE OF %DAILY RATE OF %PAYMENT SCHEDULE: PAYMENTS OF $PLUS A BALLOON PAYMENT OF $ PAYMENTS OF $PLUS A FINAL PAYMENT OF $PLUS A FINAL PAYMENT OF $TERM: & TYEAR -YEAR AFTER PAYMENTS:, -YEAR INTEREST REBATE$ TOTAL INTEREST PAID$ TOTAL PRINCIPAL PAID$ TOTAL PAYMENTS $ CURRENT YEAR INTEREST $ TOTAL INTEREST IN , YEAR A=ABORT, P=PRINT, RETURN=CONTINUEPA***FINAL DATA DISPLINTEREST PRINCIPAL BALANCEPERIOD INTEREST PRINCIPAL BALANCERULE OF 78'SMONTH PERIOD INTEREST PRINCIPAL BALANCE PAYMENTS OF $ PRESS SPACE BAR TO PAUSE *INTEREST RATE % - PAYMENT $ TOTAL INTEREST IN , TE A BALLOON PAYMENTOR CHANGE THE AMOUNT OF THE PAYMENT?ENTER Y OR N.Y***WORKING*** PAYMENTS OF $ PAYMENTS OF $ ***WORKING***PLUS A FINAL PAYMENT OF $PLUS A FINAL PAYMENT OF $PLUS A BALLOON PAYMENT OF $RULE OF 78'SVARIABLE INTERESTPERIOD OAN.ERROR! THIS OPTION IS NOT AVAILABLE WITHVARIABLE INTEREST.YEARSLENGTH OF LOAN HOW WAS THE LENGTH MEASURED?1. WEEKS2. MONTHS3. YEARS.SELECT CORRECT PERIOD & PRESS RETURN. WEEKSMONTHSYEARSYEAR LENGTH OF LOAN DO YOU WISH TO COMPU MEASURED IN WEEKS, MONTHS,OR YEARS. ENTER ONLY THE NUMBER, AT THIS TIME. IF YOU WISH TO FIND THE LENGTH OR TERM, ENTER 0. LENGTH? ERROR! THE AMOUNT TO BE FINANCED WAS NOTENTERED. REENTER THE LENGTH OF THE L BI-WEEKLY3. SEMI-MONTHLY4. MONTHLY5. QUARTERLY6. SEMI-ANNUALLY7. ANNUALLYSELECT CORRECT NUMBER & PRESS RETURNWEEKLYBI-WEEKLYSEMI-MONTHLYMONTHLYQUARTERLYSEMI-ANNUALANNUALENTER THE LENGTH OF THE LOAN, AND PRESS RETURN. NGES & PRESS RETURN. PERIOD? INTEREST RATE? %CORRECT? (Y, N, OR FINISHED).CORRECT? (Y, N, OR VARIABLE).PERIOD CANNOT BE GREATER THAN 255YVNYFNVARIABLE INTEREST RATE ANNUAL INTEREST RATE %HOW OFTEN WILL PAYMENTS BE MADE?1. WEEKLY2.RN. TO FIND THE AMOUNT THAT CAN BE FINANCED WITH A GIVEN PAYMENT, ENTER 0. AMOUNT? $ENTER THE ANNUAL NOMINAL INTEREST RATE AND PRESS RETURN. ENTER THE PAYMENT PERIOD AT WHICH THE INTEREST RATE CHAOPYRIGHT DAN GRIFFITH 1983,1986****BE SURE YOUR PRINTER IS ON!****IS YOUR PRINTER INTERFACE BOARD IN SLOT #1? (Y OR N).YNENTER CORRECT SLOT# AND PRESS RETURN.0.00.-00.00-,ENTER THE AMOUNT TO BE FINANCED, AND PRESS RETU`L! L9<<    cLs3JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ABC,*********************************** ***********************************THE LOAN ANALYZERBYCORE CONCEPTSCȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^z4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з  "                                                             !!!!!!!"" " " "  S C   {        L=, m   L+ S  e +   S C ` P Z    ک S C ` B Z w I . s& S  ` P Z   f  + S   ~  e  L, m   L+- S  ک| S C ` B Z   f   S C      C   {ؠ   Lj+L]' S C      C   {ݠ   L+L07 S    ꩓ L+ m   L+ S   L+L[,  sܠ S C ` B Z I .Ԡ   ک S  ` P Z W ڠ   ک, S m ` ɠ Z    ^    ک@ S J ` e Z    l    کT S t `  Z s .   کh S 4 ` z Z    d S  ` wР   کe S & `    کf S - `    sn S  ` H   کx S m ` b   ک S J ` t   ک S t `    ک S 4 `    ک S f ` w򩹠   ; Ҡ  & ` w򩐠  f {  S { h 6(99M( S m   L' S t  {      ( S T    ک< S X s     F S Cj +멫 o +t  5 F S     P S C `    ک 5  C   X  {  M  X   Q` S ͠ 5 w    X  iL_t S  S X # Z wE   s򩜠 S m `  Z P   ک S  `  Z \   ک S  Ġ S  `  Z z   کؠ S  S    m   C  L.&L_Ԡ S    X   S X   C  S X L& X  LG& S  L& X $ S XϠ B͠   8 S C    5 8 S L S C S C 8  L*%     LD%H S    \ S b  w  +p S C L% :  5 wL% S =  5 w S X   w     S C A       C   m  L%L_L$1  w C iL%Р S C +  +멭  5 Р S  S C 6  Lt$ C pL~$ S Q  S    C   + S C     L$     LD%  S  L$L^%4 à 0 S X `    sD S T '   [ . کX S F  کl S + Ѡ Lt#L_ S T ,   XL_" S b #   i  p b  w S b # ~L#  i S b       f Ԡ  S C *  m 1   Ԡ  LL" m   L! S X    S wנ   s򩃠 $  S   8 à +멍 Ƞ +͠  5  S ? z  L# ? z  ꩘  { F M 8 S J ` i   کh S  ` j Z | S C      C   {    Lz! CԠ +LL" S C      C   {    L!L! S m   L  S     ̠ S # ` C Z   S < ` f Z    کܠ S m ` t Z    ک S B e t  {       S  `  Z    ک S  ` Π   ک, S C [   5 , S QL(@ S X   w < `  Z E   sTL+ǠL栔L+٠LL᠔L+LL-Ld S   c s X < Z =   کx S C + J +  5 x S S < Z \   Q S < Z {   ک$ e򩴠 S X ` _ Z    کȠ =   ک< S " + " +  5 < S F S " Z \   کP S "Z S " Z {   کd S Ơ! e " "n S " ` " Z    کx S " ` " Z    ک S " ` " Z    ک S ߠ! RT PRINTING AT WHICH PERIOD? (1 TO "NP")."I4D 13:12:"";SELECTi4N SE(1)SE(NP)ĺ(7):3130s4X 44004b S(1)S(7)İ1504l 33304v (Z$);"PR#0"4 :22::" PRESS SPACE BAR TO ABORT PRINTING "4 5::13:"***WORKING***":5 8L+8L3L+LꢽLLLL L.Lf$L+ɠLGLL+L`LLLL$LLL꩓LL穓LfLLf L+L+L+L L L LLfL+LL𠔕L碀L+ˠLˠLLɠLLꩵLꩺLǠLLeLĠLŠLàLΠLɠL`LӠLLL&LLLLꩱLLꩿLLL[LŠLLVL+QLGL+=L+oLꩱLLtLyL~LԠLԠLѠLàLѠLL5ՠLԠL꩹LꢾL+뢴L+ϠL`LL꩘LϠLL穹L碹L+뢙L+ϠL+LLfϠLL+뢓L+멓L穓LLL+멅<h@H@q'ŬHm7` LLLL )L.L3L8L=LꢱLGLꢯLLL5ՠLLLQLVLޠL+㠕L+蠕L `L٠L+eLӠL LӠLL+R Y OR N.WORKINGYN z@`P0@ @`r\p$@? z# >0z(8XPH@Z`Hd8NzGY LOAN BUT DID NOT CHANGE THE MONTHLY PAYMENT AMOUNT. THE MONTHLY PAYMENT AMOUNT IS NOT CORRECT IF COMPUTED WITH THE ENTERED TERM, INTEREST RATE, AND LOAN AMOUNT. TO COMPUTE A NEW MONTHLY PAYMENT AMOUNT ENTER Y.ENTE MONTHLY TERM INTERESTPOINTS FEE'S FINANCED PAYMENT IN YEARS RATE APR===============================================================================0.00$$$%%PR#0WARNING!YOU HAVE CHANGED THE CONDITIONS OF THE MP $ $$FINDIINTEREST ONLYFFIND $ YEARS%WORKINGINTEREST ONLYFINDTURN ON YOUR PRINTERPR#PREPAID PREPAID AMOUNT T MONTHLY PAYMENT: F=FIND. DO NOT USE COMMA'S PREPAID FEE'S (IF ANY)? $AMOUNT OF LOAN? $MONTHLY PAYMENT AMOUNT? $TERM OF THE LOAN? NOMINAL INTEREST RATE? ACTUAL PERCENTAGE RATE: % $ $ YEARS% ****TURN ON YOUR PRINTER**** PR#PR#00.00.-00.00-,***MENU***1. RUN APR!2. CONTINUE WITH PRESENT DATA3. GO TO MAIN CATALOGSELECT NUMBER & PRESS RETURN.RUN HINUMBER OF PREPAID POINTS? AT POINTS: P=PRINT, M=MENU. ACOMPILER. THE EINSTEIN COMPILER IS A TRADEMARK OF THE EINSTEIN CORP.****BE SURE YOUR PRINTER IS ON!****IS YOUR PRINTER INTERFACE BOARD IN SLOT #1? (Y OR N).YNENTER CORRECT SLOT# AND PRESS RETURN.ENTER A TEXT HEADING AND PRESS RETURN. `L! L9ה<<<֔    cL:******************************* *******************************APR!BYCORE CONCEPTSCOPYRIGHT 1984 DAN GRIFFITHTHIS PROGRAM HAS BEEN COMPILED USING THEEINSTEIN LoLeL5ŠLiLaLcL_LaL]L_L[L]LYL[LYLcL"LꩱLWLULWLSLULQLSLQLL+멂LL S S  S ( S s X2 S " ZLL\"La"Lf"Lk"L堕LLp"Lu"L堕L堕LeLgLz"LeL"LꢖL+멄"LꢛL+멠L Lꩉ"L"L1LOL5L L堕LLeL+L꩓"LeLgLeLL+:"PLUS A FINAL PAYMENT OF $"AY$S3 BL1Ģ2::"PLUS A BALLOON PAYMENT OF $"BP$:3 3::"PERIOD INTEREST PRINCIPAL BALANCE"3 PE(12)(PE12)V03 3 PA13 S(1)S(7)İ1503 33303& 231030 ::PA1:LINES(3)24: 12:"STAURRENT YEAR INTEREST ";11L)"$"T$62 RS1TRB:250b2 RS1ĺ" INTEREST REBATE";18L)"$"T$q2 Z$;"PR#0"2 ::NP" "C$" PAYMENTS OF $"PMT$2 BL0Ģ1:(NP1)" "C$" PAYMENTS OF $"PMT$" "2 VI1Ģ1:C$" PAYMENTS OF $"PMT$" " 3 AY0Ģ2ȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^4 4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з              !L!LoLϠL+!LŠL+"LmL !LmL6L+OL "LOL6L"L"L "L%"LL+*"L/"LꩻL6LL+1L+1LH"LM"L1LLꠕLiLR"LꩬLW"LϠ0r\Lp{{_p@ ` ( $@? 8/`P!Lꩼ!L!LL ꠕL+ˠ!LР!Lՠ!Lڠ!L!L堕L+!L4. GO TO MAIN CATALOGSELECT NUMBER & PRESS RETURN.RUN HIERROR! YOUR PRINTER INTERFACE CARD AND YOUR 80 COLUMN CARD CANNOT BE IN THE SAME SLOT.PR#PR# 0 H@P`0@@-------------------------------------------------------------------------------------------------------------------------------------------------------------.LM*MENU*1. CONTINUE WITH PRESENT TEXT2. CLEAR TEXT & CONTINUE3. CLEAR TEXT & CHANGE OPTIONSz#     נ; Π Ҡ6ɠԠ*à9I ELb, S  ` o Z   f # &  S s " S   7 Z  v aL{/    L+ S   v Z  v L+ S }  Z   Z # B   aL0 }  Z  Z    L a Z  L aL3.    L+ S   hLT. s "Lp= S  ` o Z S  ک S  EL /ʠ S   7L.  ` P Z  "   کԠ S   7L. S   "  `  Z )ޠ S   L    L    L    L    L L[- s "Lp= S S  v   S  Z{  L- `  Z w      sL+ S ޠ  L Z  L a Z  L a Z  s "f S  ` P Z )p S   0      0 &q  4 ;Lb,L S   7   7 ;L,  > S   7L0 S  E   L      S  `   f   S   G5  S  `    ک* S  `   Z      ک4 S  > S   H S  ` P Z -   کR S e ` wD   ک\ S s  `    کa S  꾠  S    S l  s   S X w   ک S s  ` Р  f  Ơ S      L=Р S  L*ՠ S    کڠ S I `  Z    ک S LE* S  S X s S  Z /  f Ϡ  S Ϡ   Ϡ  ;  Ϡ  ;L_)    L( S X wU   s򩠠 S o S ~  S ꢾ +X à +Ƞ  5  S  z ] L*  z b  &     s  l S  `    کq S  ` N Z v S   +       & -  4 ;L( Ϡ +L_) S   -       & B  4 ;L(L( S    L( S l  s   S W ` S  ` e Z 0 S          & -  4 ;LP'L': S          & B  4 ;L'L+*D S    L&N S X    کX S w  `  Z à   کb S s Ԡ +g S l  Z    ک S I `    ک S  `  Z    ک S P `  Z    ک S  `    ک S  ` D   ک S z ` w򩏠  f   S X s! S l  s  & S  `    ک+ `  Z נ   ک S W `  Z    ک S  `    ک S  `  Z %   ک S e `  Z C   ک S z ` w]  f    S X s̠ S x   ک֠ S  `  Z    ک S  ` S e `  Z ՠ   ک; S l  s  @ S z ` w  f  J S X sT S  Z 7   ک^ S  ` L   کh S  ` ? Z ws   sr S  `  Z z   ک| S  `    ک S L#L&ܠ S    LJ" S X S  Z    ک S  `    ک S I `  Z נ   ک S  `  Z    ک S P `  Z    ک" S W `  Z P   ک, S ^ `  Z    ک6 ING A$& B(20((A$)2)):B0B13 B:A$:,4  :: D$(4): CTRL-D;2:A$"APPLE II":1000l(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JULY 12, 1983":1000P10:958:A$"COPYRIGHT APPLE COMPUTER,INC. 1980,1982":1000_X11000:dD$;"RUN CAT"  CENTER STR L&:: S  V Lj:D S   کN S کX S  ] Z   +  کb S  l S N L:v S d k Z S   r  y    ;      L: S d k Z S   r  y   ک S 9 H  &    S s  5   S L9֠ S q LN9Lh9 S u  5 L9 S {  5  S     L_ S  S s! S  L9  & S O   Ϡ . ک0 S  V L: S  +h  L!8L39r S  % b +   ] +  X +멐 S  3 L8 ۠ S +멚 S  : L8j   A  &    S  : L8o   A  &    S  : Z  3 aL S  f  L 7L{7 S s     5  S  S   Lg7     S " S L7, S s     5 , S 6 S   L7    @ S J S   T S  % , ^ S  % , h l +멠 S l 멞  Z l  aLQ6]    L9 S    S      5  S Ƞ S  d  L6  Ҡ S  S  I Z  g + S g L6L792 S  ` wI     s7 S s Q  < S L+F S  #     d S S  L5  L5n S   L5 s x S s  S  멞  Z   aL5V    L9 S     S A  7L54    S C  7L]4     S E  7 Z    aL4 L4  S G  7L4   f  S G5 S  `   Z w   ک( S Ԡ L5  `   Z 9   ک S  L:3  G5Ġ S  LX3  Π S       5 Π S ؠ S  ` ޠ ꩹  Z ;   ک S ޠ  S   Z=  7 aL3L4 S ?  7L 4   h aL21  L?t S 3  7 Z5  h aLQ27  L+~ S X S   Z   ک S     S    S G5 S   v +멺 S  `  Z S    ک S  L3 aL1    L+L S   L Z  L a Z  h aL{1 X  ` w     s  L*V S   7 Z"  h aL1  ` ^ Z $   ک` S +  7L1  `  Z )j S -  L Z/ 颅 +   S }   S   7 Z  v a Z    aLh0    L+$ S   vL0Lp=. S   7L0  ` P Z    ک8 S   7L0  `  Z S  )B S   7 Z  hECT NUMBER & PRESS RETURN"# =2553 F23:30:A$K PL12:C(49200):^ ZA$(13)ī120{ dA$"1"A$"8"ĺ(7):70 i:(6(S2)):5:F$(S): nS(A$):(6(S2)):5:F$(S) s70 xS0ĺ(7):70 D$(13)(4)  10:6:"82"# #4:12::" "A (5:12:" "a *6:12:" ":{ -6:29:"VERSION 3.2" 28:A18:"("A") "F$(A)::: 4P113:(150(P4)):5:13::(P$,1,P):C(49200):C(49200): 6SPEEP200 <23::"SEL1 A18:F$(A):: THE LOAN ANALYZER,THE CALCULATOR,THE BALANCING ACT,THE SAVING ANALYZER,THE WAGE ANALYZER,THE LINE WRITER,APR!,EXIT TO BASIC ::10:"***CORE CONCEPTS*** P$"WORK FORCE II" 2:"P.O. BOX 24157 TEMPE, AZ. 852 ***CATALOG*** ::8:" WORK FORCE II, THE BALANCING ACT, THE LINE WRITER ARE TRADEMARKS OF CORE CONCEPTS."K1700::18:"COPYRIGHT 1986, 1985, 1983 DAN GRIFFITH"K11500:TYPE0 (637)223TYPE   D$D$((ZL)128):Z:,dZ$;"PR#"P4nD$:xD2260N:X0v(A$,1,1)"Y"(A$,1,1)(121)X1(A$,1,1)"N"(A$,1,1)(110)X2(A$,1,1)"F"(A$,1,1)(102)X3X1ĴK760,830,1050,180,280,565,1320,3200,3290,3370LOT#1? (Y OR N)."!11:28:A$/K7:1430=(P1:1340K-16368,0215:1:"ENTER CORRECT SLOT# AND PRESS RETURN.";P7P1P7P6ĺ(7):1330<::"ENTER A DATE OR COMMENT & PRESS RETURN. ":A657FD$"":ZL512767:(ZL)14139DCC(Q)DC#Q0192CFG(Q)CF8DQ099SWCF(Q)WCYkAX1820,1280zAX2:1150P8P01370 ::5:2:"****BE SURE YOUR PRINTER IS ON!****":10:"IS YOUR PRINTER INTERFACE BOARD IN S::" "8K3:1430LE(M)CN:F(M)CWZ.MM1:J2n8X3ADD12810|BX31140LM1001520V:"NEXT CHECK OR WITHDRAWAL."`960t:5:"****DATA ENTRY IS COMPLETE****"~DC0:CF0:WC0Q0":ZX11010212::"CHECK NUMBER? ";CN$DCN$"N"ZX1RCN(CN$)jCN9999ĺ(7):95010::" "16::"AMOUNT? $";CW22::"CORRECT? (Y, N, OR F=FINISHED)."22:32:A$* 22:1 ARE NOT REFLECTED ON YOUR BANK STATEMENT "cM100ī1520ZX0Ģ4:" IF YOU DO NOT WISH TO ENTER ANY CHECK NUMBERS, ENTER N, AND PRESS RETURN. "96010::"CHECK NUMBER MUST BE 4 DIGITS OR LESS!Y, N, OR F=FINISHED)."&,22:32:A$[/22:1::" "i4K2:1430~>C(N)D:NN1:J1HX3ADD12810RX3900\N401520f:"NEXT DEPOSIT."p795R::" ENTER ALL CHECKS AND WITHDRAWALS THAT :1::" ";K1:1430LADD1ī2810[ N401520::" ENTER ANY DEPOSITS OR CREDITS THAT DO NOT APPEAR ON YOUR BANK STATEMENT. "16368,0 :12:"AMOUNT OF DEPOSIT? $";D*22::"CORRECT? (00:YP0:4000;22::"TO CONTINUE PRESS RETURN.";A$KADD12810::" ENTER THE ENDING BALANCE, AS SHOWN ON YOUR BANK STATEMENT, & PRESS RETURN. "12::"ENDING BALANCE? $";B22::"CORRECT? (Y OR N)."22:19:A$-22N ADDEDTO YOUR CHECKBOOK, & PRESS RETURN. "L 6:"ONE ENTRY ONLY!":Z 16368,0t 12:"INTEREST? $";I$ I(I$) &22::"CORRECT? (Y OR N)." (22:19:A$ +22:1::" " 0K6:14305TEB:16O1 "OBEB:EB(EBSC)' ,TOB:16006 6YP1:4000k X3ADD1Ģ22::"TO CONTINUE PRESS RETURN.";A${ ADD12810 X3500 J3 :10:"NEXT:" 2300 ::" ENTER ANY INTEREST YOU EARNED ON YOUR CHECKING ACCOUNT THAT HAS NOT BEEBEEN DEDUCTED FROM YOUR CHECKBOOK. "3 16368,0B O201520c 15::"ENTER CHARGE: $";SC$q SC(SC$) 22::"CORRECT? (Y, N, OR F=FINISHED)." 22:32:A$ 22:1::" " K5:1430 G(O)SC:OCE? $";EB) 22::"CORRECT? (Y OR N)."9 22:19:A$n 22:1::" " DBEB:K4:1430 ADD12810 O201520% ::" ENTER ANY BANK SERVICE CHARGES OR FEE'SLISTED ON YOUR BANK STATEMENT, THAT HAVENOT 3:11:"THE BALANCING ACT"+ Z5:19:"BY"G d7:13:"CORE CONCEPTS"P n255{ x11:6:"COPYRIGHT 1983 DAN GRIFFITH" Z13000: ::" ENTER THE ENDING BALANCE, AS SHOWN IN YOUR CHECKBOOK, & PRESS RETURN. ": 12:"ENDING BALANA($ COPYRIGHT 1983 DAN GRIFFITH*P C(39)::E(99):F(99):G(19):AX1bZ$(13)(4):5:"******************************"K110(5:"* *"2K<5:"******************************"F95 P               "E ENTRY*")& 5:"(1) DEPOSIT OR CREDIT.K& 7:"(2) CHECK OR WITHDRAWAL.g& 9:"(3) CHARGE OR FEE.& 11:"(4) INTEREST.& 13:"(5) YOUR CHECKBOOK BALANCE."& 15:"(6) RETURN TO MAIN MENU.& 22::"SELECT NUMBER AND PRESS RETURN";SN' :DEPOSITS & CREDITS.=%| 7:"(2) ADD TO CHECKS & WITHDRAWALS.b% 9:"(3) ADD TO CHARGES & FEE'S.% 11:"(4) RETURN TO MAIN MENU.% 22::"SELECT NUMBER AND PRESS RETURN.";SN% :% SN780,900,190,2140% (7):2920% SN0 & 13:"*CHANGNGE*"$ 5:"(1) ADD A NEW ENTRY.I$" 7:"(2) CHANGE AN EXISTING ENTRY.f$, 9:"(3) RETURN TO MENU.$6 22::"SELECT NUMBER AND PRESS RETURN.";SN$@ :$J SN2910,3020,2140$T (7):2820$^ SN0:ADD1$h 14:"*ADD ENTRY*"%r 5:"(1) ADD TO ARGES & FEE'S"# AX1ĺ*# Q0(O1);# TG(Q):1600O# (T$)0T$" "`# (Q1)9R1z# (R):(Q1)".";H);T$# # # AX2ī1830# 24::"TO CONTINUE, PRESS RETURN.";X$# 1810# *****# ::SN0:ADD0$ 12:"*ADD OR CHA;HAC);T$)" Q18Q38Q58Q78ī26103"( 2650B"2 AX22650m"< 24::"TO CONTINUE, PRESS RETURN.";X$"F ::10:"CHECKS & WITHDRAWALS""P AX1ĺ"Z "d AX2ĺ:2690"n 24::"TO CONTINUE, PRESS RETURN.";X$" R2:S2:# ::12:"CH (T$)0T$" ""! (Q1)9R13! (Q2)9S2E! (Q2)99S1S! AB0:AC0e! CN1000AB1v! CN100AB2! CN10AB3! E(Q1)1000AC1! E(Q1)100AC2! E(Q1)10AC3 " (R):(Q1)". #"(CN);HIAB);TI$;S);(Q2)". #";E(Q1) 8 (R):(Q1)".";HI);TI$;6S);(Q2)".";H);T$6 B H L AX2ĺ:2400s V 24::"TO CONTINUE, PRESS RETURN.";X$ ` ::10:"CHECKS & WITHDRAWALS" j AX1ĺ t R2:S3 ~ Q0(M1)2 TF(Q):1600 CNE(Q):HIH:TI$T$ TF(Q1):1600!AND PRESS RETURN.";SN8SN1260,2260,1810,2820,5,3470H(7):2220j::11:"DEPOSITS & CREDITS"wAX1ĺR2:S2Q0(N1)2TC(Q):1600 HIH:TI$T$ TC(Q1):1600 (T$)0T$" "$ (Q1)9R1. (Q2)9S10::KA0:AX0%f13:"*MAIN MENU*">p4:"(1) PRINT DATA"`z6:"(2) DISPLAY ALL ENTRIES"8:"(3) DISPLAY FINAL DATA"10:"(4) ADD OR CHANGE AN ENTRY"12:"(5) RUN PROGRAM AGAIN"14:"(6) GO TO CATALOG"22::"SELECT NUMBER TERED"2115B 18:"YOUR CHECKBOOK SHOWS $";T$;" MORE THAN"v*19:"IT SHOULD, ACCORDING TO THE DATA ENTERED"42115>17:8::"YOUR CHECKBOOK BALANCES."@CZ$;"PR#0"DAX22140H22::"PRESS RETURN TO DISPLAY MENU.";NO$\OK BALANCE:";H2);T$0TEB(T$):16008CTJ(T$)02110[T(T):160017:4::"YOUR CHECKBOOK DOES NOT BALANCE!":C(C)ī208018:"YOUR CHECKBOOK SHOWS $";T$;" LESS THAN" 19:"IT SHOULD, ACCORDING TO THE DATA EN:";H1);T$bTCF:1600 gIl5:"TOTAL CHARGES & FEE'S:"H6);T$WvTI:1600u6:"INTEREST:";H19);T$TEB:1600:9:"PRESENT CHECKBOOK BALANCE:";H2);T$IN1ī1970T(BDC)WC:160013:"CORRECT CHECKBO1770T$T$"00"&T$(T$,L3)2H(7)L8GAX1:1150O:]&TB:1600i+AZ2ĺ0"BANK STATEMENT BALANCE:";H5);T$:TDC:1600D2:"TOTAL DEPOSITS & CREDITS:";H3);T$NTWC:1600 X3:"TOTAL CHECKS & WITHDRAWALS|(T)(T)T.01T$"0.00":L1:17703TNT(1)^(TN)(T)TN.01T$"0.00":L1:1770jT$(T)(T$,1)"-"TT((1(103))):1698TT((1(103)))T$(T)Z110(T$,Z,1)"."Y1Y1ī1760T$T$".00"GORY IS FULL. ADDITIONAL ENTRIES CANNOT BE ACCEPTED. "KADD1J4v,22::"TO CONTINUE, PRESS RETURN.";A$6J900,1140,500,2810@(T).01(T).008TT(.001)JL$((T))TL(L$)^L$"-1"L1:1650h(L$)0L0rY0%7X2ĴK730,800,960,150,230,520,1330,3140,3230,3320pX3ĴK740,830,1050,160,280,550,1300,3160,3260,3340z(7)K740,810,1030,160,260,550,1300,3160,3260,334012::" "<15:" SORRY, THIS CATE MONTHS? (Y OR N)."#B:16:23:A$MB<(A$,1,1)"Y"(A$,1,1)(121)CP12XB@33,40hBJMYMY(1):tBT TERMB^C12CT$"WEEKS"BhC24CT$"MONTHS"BrCQ$"YEARS":TERM(NPC):RTERM(NP(CTERM)):RTERM(RTERMCT)C|C24RTERM0CT$"MONTPRESS RETURN. (1 THRU 12) ":EAX114:31:(4X)::" "KAuAX19::32:(5X):" "X"="F$(X1):AX1012:32:(5X):X"="F$(X1):A33,30A"12:"FIRST MONTH? ";MYA,MY1MY124130A6(MY)MY4130B8CP0:16:"SHOW3 ޠ S  `   Z    ک S  ` w򩽠     s S Š   S L+ S  L&  >   Z  S   7L>>  8   S   7 Z s8  aLx>   Z   S   7 Z s8  aL>       ک S   3 + S G5ʠ S    Ԡ S   ?(=H S    L S H h = =s  L;  Z    ک S   LE;  Z    ک S  Lp;  Z    ک S  ] Z      ک S O    ک S s s򩼠 S = + PB +G  5  S Ơ S = `  TURN. ":/20::"NOTE: ANY CHARGES OR FEE'S ENTERED EARLIER WILL BE SUBTRACTED FROM THIS CHECKBOOK BALANCE! INTEREST WILL BE ADDED TO IT."/12:"ENDING BALANCE? $";XB/EB((EBDB)XB):DBXB:TEB:1600 0:10:"YOUR NEW BALLYLQ. LQLLYLJ.6:" ============"l.6:" ";23LY)" "."8:" ".)16368,0.,/::" ENTER THE ENDING BALANCE, AS SHOWN IN YOUR CHECKBOOK, & PRESS RE-TI:1600!-YP1TSC:1600V-YA0Ģ5:" PLUS INTEREST";9L)T$-YP1Ģ5:" LESS CHARGE OR FEE ";8L)T$-YP0EB(EBI):LQL:TEB:1600-YP1TEB:1600-7:" NEW BALANCE";8L)"$"T$.LQ CAT",YP0I0ī700,,YP1SC0ī450`,::" ENTER IN YOUR CHECKBOOK ",2:" ",3:" ",4:" OLD BALANCE";9L)T$,LQL 1)NA:EBEBNA+4 TNA:1600@+> :"ENTER IN YOUR CHECKBOOK:"b+H 4:10:"CHARGE OR FEE. $";T$q+R TEB:1600+\ 10:10:"NEW BALANCE. $";T$+f 22::"TO CONTINUE PRESS RETURN.";A$+p 2810+z :ADD1:EBEBI:500+ Z$(13)(4), Z$;"RUNES OR FEE'S *"2* 10:"ENTER ENTRY NUMBER. #";ENT* 15:"ENTER NEW AMOUNT. $";NAt* 22::"CORRECT? (Y OR N)."* 22:19:A$* 22:1::" "* EN0ENOĺ(7):3320* K10:1430+* SCG(EN1):EBEBSC:G(EN #";CN$)) 16:"ENTER NEW AMOUNT. $";NAK) 22::"CORRECT? (Y OR N).":[) 22:19:A$) 22:1::" ") EN0ENMĺ(7):3230) K9:1430) CN(CN$):E(EN1)CN:F(EN1)NA) 2810* 6:" * CHANGE CHARG "*(b EN0ENNĺ(7):3140\(g 22::" "b(l p(v K8:1430( C(EN1)NA( 2810( 2:"CHANGE CHECK OR WITHDRAWAL*( 6:"ENTER ENTRY NUMBER (1 TO 100). #";EN) ZX0Ģ11:"ENTER CHECK NUMBER.&'& SN3130,3220,3310,3450,5000,21406'0 (7):3030[': 3:"*CHANGE DEPOSIT OR CREDIT*"'D 10:"ENTER ENTRY NUMBER (1 TO 40). #";EN'N 15:"ENTER NEW AMOUNT. $";NA'X 22::"CORRECT?(Y OR N)."'Z 22:32:A$(] 22:1::" ALL DATA EXCEPT THE MEMORY.TO CONTINUE, PRESS RETURN.**USING THE MEMORY**TO STORE THE 1ST NUMBER OR THE :RESULT1. ENTER S & PRESS RETURN.TO DIVIDE, MULTIPLY, SUBTRACT, OR ADD THE RESULT TO THE MEMORY:1. ENTER S2. ENTER THE OPERATION (+-*/)ER AND PRESS RETURN.3. IT IS NOT NECESSARY TO SHIFT WHEN ENTERING + OR *.4. IF YOU ENTER THE WRONG OPERATION (+-*/), ENTER N & PRESS RETURN.5. ENTER F & PRESS RETURN WHEN YOU ARE FINISHED.6. ENTER C & PRESS RETURN TO CLEAR EEINSTEIN COMPILER. THE EINSTEIN COMPILER IS A TRADEMARK OF THE EINSTEIN CORP.DO YOU WISH ADDITIONAL COMMENTS AND INSTRUCTIONS TO BE DISPLAYED? (Y OR N)YN***A FEW INSTRUCTIONS***IN RESPONSE TO: NEXT ENTRY?1. ENTER OPERATION. (+-*/)2. ENTER NUMB`L! L93<<?2    cL ******************************* *******************************THE CALCULATORBYCORE CONCEPTSCOPYRIGHT 1983 DAN GRIFFITHTHIS PROGRAM HAS BEEN COMPILED USING THȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^Ȉ74864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з                   ""G14:8:"TYPE? ";RS=GRS1RS2ĺ(7):4470KGRS(RS1)QGwGX:8:"VARIABLE INTEREST:":LX0:Gb9:4:"PERIOD RATE PAYMENT"GlX1255GnXNPī7100Hv(VI$(X))0PX$(PS$(X)):T((VI$(X))100):LXLX1:T AMORTIZATION TYPE & PRESS RETURN.":?Fb6:8:"1. STANDARD"\Fl8:8:"2. RULE OF 78,S" Gv18::"NOTE: THE RULE OF 78'S MAY ONLY BE USED TO COMPUTE THE EARLY PAYOFF OF A LOAN. MANY LENDING INSTITUTIONS DO NOT USE THERULE OF 78'S. NES66E:E&rE0::" ENTER THE FIRST YEAR OF THE LOAN AND PRESS RETURN. ":E:12:6:"FIRST YEAR? ";FYEDFY1000FY9000Ģ15::(7)"ERROR! INPUT MUST CONTAIN 4 DIGITS."::4410ENEXVI1ı&FY::"SELECNTER AMOUNT OF BALLOON PAYMENT. "@D18:"AMOUNT? $";BP_D:10:13:"***WORKING***"DNPCTL:IBIC:AMBP:AMAM(1IB)DOO1(NP1)DAM((AMPMT)(1IB)):DBL3:TI((PMT(NP1))BP)AM:FT0:TBP:250DBP$T$:1260ESPACELIHS":RTERM(RTERM2)*CTERM1CQ$"YEAR"0C?CVI11230C:::"WILL THERE BE A BALLOON PAYMENT AT THE END OF THE TERM? "C10:"ENTER Y OR N."C10:15:A$C(A$,1,1)"N"(A$,1,1)(110)ė:1230(D15:1:"E +  5 ( S 2 S  Z \   ک< S  F S  Z {   کP S ֠ eZ S  `  Z    کd S  `  Z    کn S  `  Z    کx S  e򩂠 S  `  Z    L+멭L 'LLѠL̠Lf'LBLXLbL]LSL+L{LѠLvL꩞LvLL+LNL+뢴L+)L 8L S S  S   c s X S  Z =   ک( S  + ̠L'L+L+'LL+뢊L+%L %L%L%LL%L %LL+L)LL#L#LLfꢀL+!L5L{L+!LLL穔LLLLL+qL+멙L'LL+뢨L L 1L ̠L1LL+L LLLLLL!L&L+L0L5L:L/L&DLIL-LL-LL5gL+LLL)LLꢞL+멙LlL穹L꩙L@r\@p(@`? pL<h`HHhxsQZ0ǠL̠LѠL۠LLLLLLLޠL+㠕L+TINUE WITH PRESENT DATA.(3) CONTINUE WITH PRESENT DATA BUT CHANGE DECIMAL OR PRINT OPTIONS.(4) GO TO CATALOG.SELECT NUMBER AND PRESS RETURN.RUN HISC+-*// MEMORY= >@P`0@MMCCLEARCN MNCMEMORY=MCMEMORYMNC NC %-*+-*//MEMORY= -10.00000.0000.-E.000.000.00000000%PR#MEMORY=========================PR#0 *MAIN MENU*(1) RUN PROGRAM AGAIN.(2) CONMBER. N=CANCEL C=CLEAR CM=CLEAR MEMORYM=MEMORY S=STORE F=GO TO MENU NEXT ENTRY? F=;+8:*C+*-/SNENTER OPERATION FIRST! (+-*/)+*-/SSSSTORES/0N%/E BOARD IN SLOT #1? (Y OR N).YNENTER CORRECT SLOT# AND PRESS RETURN.ENTER A DATE OR COMMENT & PRESS RETURN. ENTER NUMBER OF DECIMAL PLACES TO BE DISPLAYED AND PRESS RETURN. DECIMAL PLACES? UP TO 4 ONLY! ENTER FIRST NU %, & PRESS RETURN.UP TO 4 DECIMAL PLACES CAN BE DISPLAYED.ALL ENTRIES WILL BE ROUNDED TO THE NUMBER OF DECIMAL PLACES SELECTED.TO CONTINUE, PRESS RETURN.PRINT DATA? (Y OR N)YN****BE SURE YOUR PRINTER IS ON!****IS YOUR PRINTER INTERFACTO ENTER MEMORY VALUE IN NEXT ENTRY:1. ENTER THE OPERATION (+-*/)2. ENTER M & PRESS RETURNTO CONTINUE, PRESS RETURN.TO CLEAR THE MEMORY:1. ENTER C2. ENTER M & PRESS RETURNUSING PERCENT:1. ENTER THE OPERATION (+-*/).2. ENTER THE NUMBER FOLLOWED BY"_18::"MEASURED IN WEEKS, MONTHS,OR YEARS. ENTER ONLY THE NUMBER, AT THIS TIME. "FT0Ģ20:"IF YOU WISH TO FIND THE LENGTH OR TERM, ENTER 0. ":12:"LENGTH? ";LNHLN0FT1Ģ15::"ERROR! THE AMOMONTHLY":C24:CT12\C4C$"MONTHLY":C12:CT1SfC5C$"QUARTERLY":C4:CT3vpC6C$"SEMI-ANNUAL":C2:CT6zC7C$"ANNUAL":C1:CT12FT1İ3980::"ENTER THE LENGTH OF THE LOAN, AND PRESS RETURN. MONTHLY! 14:3:"5. QUARTERLY?16:3:"6. SEMI-ANNUALLYX 18:3:"7. ANNUALLY*24::"SELECT CORRECT NUMBER & PRESS RETURN";C4C7C1(C)Cĺ(7):810>C1C$"WEEKLY":C52:CT1HC2C$"BI-WEEKLY":C26:CT2RC3C$"SEMI-(110)I$"":560!(7):655OVI1ė::"VARIABLE INTEREST RATE ":730u::"ANNUAL INTEREST RATE "I$"%"4::"HOW OFTEN WILL PAYMENTS BE MADE?"6:3:"1. WEEKLY"8:3:"2. BI-WEEKLY10:3:"3. SEMI-MONTHLY12:3:"4. 0):I(I$)100:VI1:I$"":572M(A$,1,1)"N"(A$,1,1)(110)I$"":560\(7):660(A$,1,1)"Y"(A$,1,1)(121)VI$(VC)((I$)100):I$"":572(A$,1,1)"F"(A$,1,1)(102)VI$(VC)((I$)100):VI1:720(A$,1,1)"N"(A$,1,1)ECT? (Y, N, OR VARIABLE).":,22:30:A$tVC255ĺ(7):I$""::20:"PERIOD CANNOT BE GREATER THAN 255":574VI1ī694(16368),(0)(A$,1,1)"Y"(A$,1,1)(121)I(I$)100:720(A$,1,1)"V"(A$,1,1)(118)VI$(1)((I$)10VC0ĺ(7):574,D12:"INTEREST RATE? "<N12:16:R$XXR$(47)R$(58)ī640jbR$(46)640}lR$(13)ī655v(7):580I$I$R$12:17:I$"%":590VI1Ģ22:1::"CORRECT? (Y, N, OR FINISHED)."::67022:1::"CORR";AM0AM0FT1v:::"ENTER THE ANNUAL NOMINAL INTEREST RATE AND PRESS RETURN. "::ZC1<VI1ė::"ENTER THE PAYMENT PERIOD AT WHICH THE INTEREST RATE CHANGES & PRESS RETURN. ">VI1ĝ:9:"PERIOD? ";VC@VI1I02BP0:BL0:TI0:EE0:C$"":EP0:(16368),0::"ENTER THE AMOUNT TO BE FINANCED, AND PRESS RETURN. "21:"TO FIND THE AMOUNT THAT CAN BE FINANCED WITH A GIVEN PAYMENT, ENTER 0. ":&12:"AMOUNT? $E3COMMA(COMMA3):430/ PLACE0PLACE(3)V TC$((T$,3)):COMMA$((T$,PLACE))b Z1PC COMMA$COMMA$",":COMMA$COMMA$((T$,PL1,3)):PLPL3: T$COMMA$TC$:L(((T$))3): LV0:I0:I$"":R$"":AY0:PR0:IN0:HS$""MY0:CX0:C(T$,1)"-"TT((1(102))):3609 ^TT((1(102)))J hT$(T):SC0c rY1T$T$"00":390s |T$T$".00" T$(T$,L3):PC0:Z0 (T$,1)"-"((T$))1(7)ı (T$)(7)EE1ı COMMA(((T$))3) PLACE(COMMA3):PCPC1 PLACRESS RETURN.";S+ S1S7S6ĺ(7):2101 N L(((T))):Y0:T$(T)^ (T)0L0 (T).01T.01T$"0.00":L1:390 N111 "(T$,N,1)"."Y1:310 , 6TR((T$,L4,1)) @VM1TR0TT(.01):VM0:360 JTR4ī370$ T***":U 10:"IS YOUR PRINTER INTERFACE BOARD IN SLOT #1? (Y OR N)."e 11:28:A$ (A$,1,1)"Y"(A$,1,1)(121)S1: (A$,1,1)"N"(A$,1,1)(110)ī220 (7):160 (16368),(0) 15:1:"ENTER CORRECT SLOT# AND P"COPYRIGHT DAN GRIFFITH 1983,1986"3 ZZ13500:_ d:F$(13):VI$(255):VP$(255):PS$(255)v n255:Z$(13)(4) x JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ABC Z011:F$(Z):Z 500 ::5:2:"****BE SURE YOUR PRINTER IS ON!*D4 :::3:"**********************************"@K110o3:"* *":(3:"**********************************":12523:11:"THE LOAN ANALYZER"<5:19:"BY"F7:13:"CORE CONCEPTS"# P255:11:4:                    1TRB:250<&RS1Ģ22:4:"INTEREST REBATE";18L)"$"T$S&TTITTP:TIT:250&18:" TOTAL INTEREST PAID";14L)"$"T$&TTP:250&19:" TOTAL PRINCIPAL PAID";13L)"$"T$&TTT:250& 20:" TOTAL PAYMENTS ";18L)"$"T$'TCI:INTEREST IN "FQ", YEAR "LV" -%vPA12090>%LWLVCX0T%17:37::" "z%CP12Ģ17:28::FQ"-YEAR "LV:%17::"AFTER "PE" PAYMENTS:":%CP12Ģ17:23::F$(JA)", "FQ"-YEAR "LV:%TP(AMAX)%BL1PENPTTBT:ITTI &RSLINES0::::::6$:PA1Ģ(4V):(4LO)::PE:@$DLZLOe$NLWLVPA1Ģ17:26:" "$XLV((PEMY)1)C:LV(LV1):LW((PEMY)C):LW(LW1):FQ(FYLV1)$bPA1LVLWTCI:CX0:250%lPA1LWLVLINESLINES(1):(7L):T$" TOTAL AJA12R#ZC5CP12Ģ(4V):1:1)F$(JA);5LO)PE;7L1)IN$;9L2)PR$;11L)T$#ZC5Ģ(4V):1:3LO)PE;7L1)IN$;9L2)PR$;11L)T$#ZC5CP12Ģ(4V):1:3LO)PE;7L1)IN$;9L2)PR$;11L)T$#&PA1LINESLINES(1)$0PA1LINES(60):2::" PRESS SPACE BAR TO PAUSE ":C"PE255ī1770"(VI$(PE))0ZC5LINESLINES2::"*INTEREST RATE "I$"% - "C$" PAYMENT $"PS$(PE)"C12JB((PE12)12):JA((((PE12)12)JB)12).1:JA((JA)MY1)"JA1JA11#JA11J(T$)):CICX:TIN:2500!L1L:IN$T$:TPR:250J!L2L:PR$T$:TAX:250S!LO0b!PE9LO1r!PE99LO2!PE999LO3!PA1V(0)GG0Ģ(4V):(4LZ):(PE1)!PA1V(0)PE(1)GG0Ģ16:(4LO):(PE1)!VV1:GG01"PA1Ģ23AX:AX0:1650. @PRPMT(T$):AXAXPR:1650u JIK((2(NPPE1))(NP(NP1)))ST:NK(NPPE1):EE1:TIK:INT:250 TRB((NPPE)(T$))2 ^PENPPRAX(T$):AX0:1650 hPR(PMT(T$)):AXAXPR rIT(IT(T$)) tPESELECTĂ!|EE0:CX(CX255ī1540^(VI$(PE))0I(VI$(PE)):PMT(VP$(PE)):I$((VI$(PE))100):W41:PMT$PS$(PE)(VI$(PE))0PA1Ğ:1:C$" PAYMENTS OF $"PS$(PE)" ": RULE OF 78'SRS1ī1610INAXIC:EE1"IN0IN0,TIN:250 6PENPPRAXAM:ZC5Ģ3::"PERIOD INTEREST PRINCIPAL BALANCE"ZC5CP12Ģ3::"PERIOD INTEREST PRINCIPAL BALANCE"RS1ZC5ĺ"RULE OF 78'S"CP12ZC5Ģ3::"MONTH PERIOD INTEREST PRINCIPAL BALANCE"PERIOD1NP PE**WORKING***":?AY0Ģ2::"PLUS A FINAL PAYMENT OF $"AY$xBL0EP1VI0Ģ2::"PLUS A FINAL PAYMENT OF $"BP$BL1EP1Ģ2::"PLUS A BALLOON PAYMENT OF $"BP$:RS1Ğ:4:14:"RULE OF 78'S"VI1Ğ:4:11:"VARIABLE INTEREST">PMTIN:AYAYPR: <TAY:250+FAY$T$>P(AY$)0AY0MZTPMT:250YdPMT$T$inBL1İ3430yxBL1ī2300}BL2VI1İ38202300::NP" "C$" PAYMENTS OF $"PMT$BL0Ģ1:(NP1)" "C$" PAYMENTS OF $"PMT$" "23:13::"*KING***":JFT1NPCTL:AMPMT((1((1IC)(NP)))(IC)):FT0:1260yNPCTL:PMTAM((1((1IC)(NP)))(IC))TPMT:EE1:VM1:250PMT(T$):EE0((NP))NP1370 NP(NP)NP03300AYAM(XX1NP2INAY(IC):PRA$(13)LP(A$):1070+FT1ī4250:10:"DO YOU WISH TO COMPUTE A BALLOON PAYMENTOR CHANGE THE AMOUNT OF THE "C$12:"PAYMENT?"22::"ENTER Y OR N."22:15:A$(A$,1,1)"Y"(A$,1,1)(121)BL1 :12:13::"***WORLN(152).8LP2LP$"MONTHS":TLLN(112)PBLP3LN1LP$"YEARS":TLLNpLLP3LN1LP$"YEAR":TLLNVLP$""ĺ(7):1040`LP3LP1ĺ(7):LP$" "j1:1::"LENGTH OF LOAN "LN;" "LP$" ":tLP3LP1ī1040~22:39:A$500:1260(::"LENGTH OF LOAN "LN:O4:"HOW WAS THE LENGTH MEASURED?"e7:3:"1. WEEKS"|9:3:"2. MONTHS"11:3:"3. YEARS."22::"SELECT CORRECT PERIOD & PRESS RETURN. "22:39:LP$$LP(LP$) .LP1LP$"WEEKS":TLUNT TO BE FINANCED WAS NOTENTERED. REENTER THE LENGTH OF THE LOAN.":940LN0VI1Ģ15::"ERROR! THIS OPTION IS NOT AVAILABLE WITHVARIABLE INTEREST.":940LN0T(AM(IC)):250LN0LN500:LP3:BL2:3980 BL2LP$"YEARS":TLLN:NPC(X)T$L#B60::ZX11L)T$"%"17L1)"$"PX$@LPA1ī7080XL22:1:"PERIOD #"XLLX10:22::"TO CONTINUE PRESS RETURN. ":LLX10LX0:22:27:A$LXLBL1EP1PA1ĺ" A BALLOON PAYMENT OF $"BP$M:20:" TERM:x#B61Ģ4:"ORIGINAL "C$" PAYMENT $"PS$(X)yK#21:" PRESS RETURN AFTER ENTERIES. DO NOT USE COMMA'S."K#:8:"ENTER DESIRED "C$" PAYMENT.":K#10:10:" "K#10:"AMOUNT? $";PMTK#VP$(X)(PMT)K#TPMT:250L#PS$1:"TERM: "RTERM" "CT$ J25807J(# VARIABLE PAYMENT[J-#::" PRESENT DATA AT PERIOD "gJ<#X1NPyJ?#:1:25:X:JF#X255ī9200JP#(VI$(X))0B61:I(VI$(X)):9070Ji#B60ī9200Jn#B61Ģ4::" "+K22:27:A$IXEIBL1EP1PA1ĺ" A BALLOON PAYMENT OF $"BP$IRTERM0TERM0Ģ21:"TERM: "TERM" "CQ$" & "RTERM" "CT$IBL1EP1PA1Ģ20:"PLUS A BALLOON PAYMENT OF $"BP$IRTERM0TERM0Ģ21:"TERM: "TERM" "CQ$JRTERM0TERM0Ģ2250 HwL70HxX9L71*HyX99L728H{L1(PX$)tH(VI$(X))0Ģ(9LX):(7L7):X11L)T$"%"17L1)"$"PX$~H7065HPA1ī7080H22:1:"PERIOD #"X" "HLX10:22::"TO CONTINUE PRESS RETURN." ILX10LX0:J CP12ĺ:"AFTER "PE" PAYMENTS: "F$(JA)", "FQ"-YEAR #"LVP1T TIT:250z1^ " TOTAL INTEREST PAID";14L)"$"T$1h TTP:2501r " TOTAL PRINCIPAL PAID";13L)"$"T$1| TTT:2501 " TOTAL PAYMENTS ";18L)"$"T$1 TCI:250"2 " C2ĺ"MONTH PERIOD INTEREST PRINCIPAL BALANCE"F0" TAX:GG1:250y0, CP12ĺ3LO)PE;7L1)IN$;9L2)PR$;11L)T$06 CP12Ģ(4V):1:1)F$(JA);5LO)PE;7L1)IN$;9L2)PR$;11L)T$0@ CP12ĺ:"AFTER "PE" PAYMENTS: "FQ"-YEAR #"LVB1C6İ4060/ ZC4ZC5İ4440C/ ZC100,2300,3080,3230,3120,2770S/ (7):2710e/ Z$(13)(4)v/ Z$;"RUN HI"/ ::PB1/ S(1)S(7)İ150/ PZ$(13)(4)/ PZ$;"PR#"S/ CP12ĺ:"PERIOD INTEREST PRINCIPAL BALANCE"30 CP1SPLAY FINAL DATA"7.n 9:"3. PRINT FINAL DATA DISPLAY"Z.x 11:"4. DISPLAY AMORTIZATION"{. 13:"5. PRINT AMORTIZATION". 15:"6. GO TO MAIN CATALOG". 22::"SELECT NUMBER & PRESS RETURN.";ZC. ZC3ZC6PMT(999999.99)ī3280 / C12ZC3Z IN PAYMENT HAS CAUSED THE LENGTH OF THE LOAN TO BE SHORTENED. "l-( 22::"TO CONTINUE, PRESS RETURN"|-2 22:27:A$-< PA0:V0:SE0:PB0:CX0:CI0:IT0-F Z$;"PR#0"-P ::LI0:17:"*MENU*"-Z 5:"1. RUN LOAN ANALYZER AGAIN".d 7:"2. DINAL PAYMENT OF $"AY$C, EP1BL0ĺ"PLUS A FINAL PAYMENT OF $"BP$V, ::"TERM:":, RTERM0TERM0ĺTERM" "CQ$" & "RTERM" "CT$, RTERM0TERM0ĺTERM" "CQ$, RTERM0TERM0ĺRTERM" "CT$, PA1ī2620E- EJ1BL1VI0Ģ20::"THE INCREASE(I100)365)104))(104):+ DE2:"DAILY RATE OF "T"%"Y+ ::"PAYMENT SCHEDULE:":+ BL0ĺ(NP1)" "C$" PAYMENTS OF $"PMT$+ BL1EP1ĺ"PLUS A BALLOON PAYMENT OF $"BP$:2540+ BL0ĺNP" "C$" PAYMENTS OF $"PMT$, AY0EP1ĺ"PLUS A FI250%*V "TOTAL INTEREST ";22L);T$:*` TPMTNPAY:250`*j BL0T(PMT(NP1))BP:BTT:250y*o VI1T(STAM):250*t "TOTAL PAYMENTS ";22L);T$*y VI1ī7000*~ :"INTEREST RATE:"* :"ANNUAL RATE OF "I$"%"* (I$)(4)ī2480+ T(((12)Ă)V0Ă )V0:GG1:0)PA12620b):(16368),0::7:"***FINAL DATA DISPLAY***p) TAM:250z) 4180) :"AMOUNT FINANCED";22L);T$)$ BL3BL1). T(PMTNPAY)AM)8 BL0VI1TTI)B STT:EE1:250*L TST:ST(T$):EE0: "FQ", YEAR "LV((PA1LINES45İ4370:(PA1ĺ:2310D((7){(23:2::" A=ABORT, P=PRINT, RETURN=CONTINUE":(23:1:A$((A$,1,1)"P"(A$,1,1)(112)ī2790((A$,1,1)"A"(A$,1,1)(97)ī2620(PENP2620)PE(12)(PE2505' 21:" CURRENT YEAR INTEREST ";11L)"$"T$E'*(16368),0U'4J(16384)l'>J(127)JJ(128)'HJ(32)PENPī2160'RV12V0'\LWLVĂ'fPA12280'pPA1C12MY0TCI:250(zPA1C12MY0Ė(7L):T$" TOTAL INTEREST IN1430C$""(C1C$"INITIAL":C0BC2C$"WEEKLY":C52_C3C$"BI-WEEKLY":C26C4C$"SEMI-MONTHLY":C24C5C$"MONTHLY":C12C6C$"QUARTERLY":C4C7C$"SEMI-ANNUAL":C2C8C$"ANNUAL":C1C$""ĺ(7):NLY"P8:3:"2. WEEKLY"5Z10:3:"3. BI-WEEKLYRd12:3:"4. SEMI-MONTHLYjn14:3:"5. MONTHLYx16:3:"6. QUARTERLY18:3:"7. SEMI-ANNUALLY20:3:"8. ANNUALLY24::"SELECT CORRECT NUMBER & PRESS RETURN";CC8ĺ(7):90,1290(7):12606 P1P$"DAILY":PERIOD365VP2P$"MONTHLY":PERIOD12wP3P$"QUARTERLY":PERIOD4(P4P$"ANNUALLY":PERIOD12:I$"% COMPOUNDED "P$<4::"HOW OFTEN WILL DEPOSITS BE MADE?"F6:3:"1. INITIAL DEPOSIT OT RATE "I$"%":75:"INTEREST COMPOUNDING SCHEDULE"L7:3:"1. DAILYd9:3:"2. MONTHLY"11:3:"3. QUARTERLY"13:3:"4. ANNUALLY"U1100:16368,022::"SELECT CORRECT PERIOD & PRESS RETURN. ";PP1290,1290,12100I$I$R$#12:17:I$"%"-1110?(16368),(0)d22:1::"CORRECT? (Y OR N).":t22:19:A$(A$,1,1)"Y"(A$,1,1)(121)ī1199(A$,1,1)"N"(A$,1,1)(110)I$"":1090(7):1190I(I$)100::"INTERESA0:ZC0:Y0:Z0qB:3::"ENTER THE ANNUAL NOMINAL INTEREST RATE AND PRESS RETURN. ":L12:"INTEREST RATE? "Q(16368),(0)V12:16:R$`R$(47)R$(58)ī1160jR$(46)1160tR$(13)ī1190~(7):11,3))PLACEPLACE3/T$COMMA$TC$AL(((T$))3)Gk ****THE SAVINGS ANALYZER****S0:R$"":I$"":P$"":C$"":LP$"":T$""A0:C0:P0:LN0:LP0:PE0::XA0:AM0:AV0:X0:I0:IA0$G0:EI0:TD0:TI0:T0:TL0:FA0:XT0:Y***RPC0:Z0:&\(T$)(7)ī1020<fCOMMA(((T$))3)PpPLACE(COMMA3)^zPCPC(1)PLACE3COMMA(COMMA3):880PLACE0PLACE(3)TC$((T$,3))COMMA$((T$,PLACE))Z1PCCOMMA$COMMA$","COMMA$COMMA$((T$,PLSN((T$,3,1))/DP4T$".000":T$T$(NF)NDP3T$".00":T$T$(NF)iDP3LA5T$T$(SN)wT$T$"0"830  ***ADD TRAILING ZERO'S***Y1ī820 T$T$".0000"*8304T$T$"0000">T$(T$,L3)H ***ADD COMMA'S0 DN04& N2NTT((1(10N))), X5 b650@ lN04Z v2NTT((1(10N)))` l T$(T)  ***SCIENTIFIC NOTATION CONVERSION*** TD$((T$,4)) ((TD$,1))"E"ī790 DP((T$,1)) NF((T$,1)) LA(T$)LA6(T)T.0001T$"0.0000":L1:830/ TNT(1)] (TN)(T)TN.0001T$"0.0000":L1:830{  ***DECIMAL PLACEMENT*** T$(T) N110 (T$,N,1)"."Y1   ***ROUNDING*** &TR((T$,L4,1)) 0TR4ī660 :(T$,1)"-"ī62DATE OR COMMENT & PRESS RETURN. ":- 8657f :D$"":ZL512767:(ZL)141D$D$((ZL)128):ZLp ;2570  ****NUMERIC FORMATTING**** L$((T)) L(L$) L$"-1"L1:440 (L$)0L0 Y0  ***ZERO DISPLAY***! (T) BOARD IN SLOT #1? (Y OR N)."0 (16368),(0)@ 11:28:A$m (A$,1,1)"Y"(A$,1,1)(121)S1:310 (A$,1,1)"N"(A$,1,1)(110)ī300 "(7):250 '(16368),(0) ,15:1:"ENTER CORRECT SLOT# AND PRESS RETURN.";S# 6::"ENTER A ANALYZER" d5:19:"BY"8 n7:13:"CORE CONCEPTS"A x255l 11:6:"COPYRIGHT 1983 DAN GRIFFITH"| Z13000: 1030 ::5:2:"****BE SURE YOUR PRINTER IS ON!****": Z$(13)(4) 10:"IS YOUR PRINTER INTERFACE c# COPYRIGHT 1983 DAN GRIFFITHH ***THE SAVINGS ANALYZER***R::{5:"******************************"(K11025:"* *"<F5:"******************************"P95 Z3:10:"THE SAVINGS          ;10:" "+O#10:"AMOUNT? $";PMTCO#B61VP$(X)(PMT)_O#B62V3$(X250)(PMT)nO#TPMT:250O#B61PS$(X)T$O#B62P2$(X250)T$O#B60:: "QNx#B61Ģ4:"ORIGINAL "C$" PAYMENT $"PS$(X)N#B62Ģ4:"ORIGINAL "C$" PAYMENT $"P2$(X250)N#21:" PRESS RETURN AFTER ENTERIES. DO NOT USE COMMA'S."N#8:"ENTER DESIRED "C$" PAYMENT."O#10:": M2550$M(# VARIABLE PAYMENTHM-#::" PRESENT DATA AT PERIOD "TM<#X1NPfM?#:1:25:X:wMF#X250ī9050MP#(VI$(X))0I(VI$(X)):B61:9070MZ#X500X251ī9065Md#(V2$(X250))0I(V2$(X250)):B62Mi#B60ī9200#Nn#2::" 03" ::" ****TURN ON YOUR PRINTER**** ":B" Z$;"PR#"SJ" :R"( D$X"- b"2 2240 AGAIN" ! 7:"2. DISPLAY DATA"8! 9:"3. PRINT DATA"T! 11:"4. GO TO CATALOG"! 22::"SELECT NUMBER & PRESS RETURN.";ZC! ZC1030,2240,2550,2535! (7):2510! Z$(13)(4)! Z$;"RUN CAT"! ***PRINT ROUTINE***" S(1)S(7)22 "P$", WILL YIELD" Q ATITD, V A0ATD9 ` TA:390S j 17:"A TOTAL OF $"T$h t ZC3ĺZ$;"PR#0"w ~ ZC32450 22::"TO CONTINUE PRESS RETURN." 22:26:A$ ***MENU TWO*** : 17:"*MENU*"! 5:"1. RUN SAVINGS ANALYZER "%' 14:20:" "I( 15:20:" "m) 16:20:" ". 13:C$" DEPOSITS OF $"T$8 14:"FOR A PERIOD OF "LN" "LP$", AT A NOMINAL"B 15:"INTEREST RATE OF "I$"%, PAID AND" L 16:"COMPOUNDEDT RATE";15L);T$"%""TEI:390P4:"EFFECTIVE INTEREST RATE"13L);T$"%"^TTD:3906:"TOTAL DEPOSITS";21L);"$"T$ TTI:390 8:"TOTAL INTEREST";21L);"$"T$ $ TAM:390% ZC32350& 13:20::" NAL CALCULATIONS***0p *EFFECTIVE INTERESET*?uTDAMCTLUzG(1(1IPE))PEhEI(G1)(100) *TOTAL INTEREST*TIATDI0TI0(1PE)TLTI0TI0TI0 ***DATA DISPLAY***T(I$):390::"NOMINAL INTERESIPE)(FAST):IAIAAV:AV0:AAIA:YAYA152:YAH YA(Y)ī1920YA(Y)(Y(Y))0X(Y(Y))CPERIOD:AA(AMX):2150 YA(Y)ī2150> ***SINGLE DEPOSIT***HYTLPERIODRAAM(1IPERIOD)Y\C1:TL1:TDAMf ***ADDITIOCFASTPEC DY((PETL)FAST)1FYY(.00001)`I2:" OF "(Y)" EQUATIONS CALCULATED."zNY1TDAMCTL:2150XX1bPECXCPElXTRAX((X))vXAMOUNTAMXTRAZ1XAAAM:AVAVA:*AV(AVXAMOUNT)X:AAXA:IAAV(1 ":(7);1:1::"SAVINGS PERIOD "LN;" "LP$" ":PLO1LO3ī1670`22:39:A$~A$(13)LO(A$):1700LP1TLLN(152)LP2TLLN(112)LP3TLLN:12:13:"***WORKING***":&C0ī21100FAST1 :PE11:3:"3. YEARS."H22::"SELECT CORRECT PERIOD & PRESS RETURN. "Y22:39:LO$nLP$"":LO(LO$)LO1LO2LO3LPLOLP1LP$"WEEKS"LP2LP$"MONTHS"LP3LN1LP$"YEARS"LP3LN1LP$"YEAR" LO1LO3LP$" ":n@21::" MEASURED IN WEEKS, MONTHS, OR YEARS. ENTER THE NUMBER ONLY, AT THIS TIME. ":J12:"LENGTH? ";LNT::"SAVINGS PERIOD "LN:^4:"HOW WAS SAVINGS PERIOD MEASURED?"h7:3:"1. WEEKS"r9:3:"2. MONTHS"|14308 ::" "_1:"ENTER AMOUNT OF "C$" DEPOSIT"2:"AND PRESS RETURN. ":"12:"AMOUNT? $";AM,6:"ENTER THE LENGTH OF THE SAVINGS PERIOD, AND PRESS RETURN. LY$(T$,L3)LFL.T((HO40)52):430DYEARLY$(T$,L3)MLGL\ZB22010v" ***DATA DISPLAY***~,:112:"*DATA DISPLAY*"6PD2ĺZ$;"PR#"SJ6:"HOURLY";16LA);HO$T8:"TIME & 1/2";12LB);TI$Y10:"DAILY";17L3) `LJL!dT(HO1.5):4303nTI$(T$,L3)<xLBLOT(HO40):430eWEEKLY$(T$,L3)nLCLT(HO80):430BIWEEKLY$(T$,L3)LDLT((HO40)52)24:430SEMIM$(T$,L3)LELT(((HO40)52)12):430 MTH0):1350-HOURLY((T$)(XD$))(80):1350\(HOURLY((T$)(XE$))(24)(52)(40):13502HOURLY((T$)(XF$))(12)(52)(40):1350<HOURLY((T$)(XG$))(52)(40)FTHOURLY:430PHOURLY$(T$,L3)ZLAL\T(HO8):430^TJ$(T$,50HOURLY((T$)40):1350:HOURLY((T$)80):1350\HOURLY((T$)24)5240:1350HOURLY(((T$)12)52)40:1350HOURLY((T$)52)40:1350 HOURLY((T$)(XA$)):1350HOURLY((T$)(XJ$))(8):1350HOURLY((T$)(XC$))(4D tZ17 ~PERIODZī1180&6(7):1130>:Y11:16::"*WORKING*"ZA2ĴPERIOD1290,1295,1300,1310,1320,1330,1340PERIOD1230,1235,1240,1250,1260,1270,1280 ***TOTALS***HOURLY(T$):1350HOURLY((T$)8):131$4:"ON WHICH PERIOD WAS THE AMOUNT FIGURED?"E.7:"1. HOURLY"X39:"2. DAILY"m811:"3. WEEKLY"B13:"4. BI-WEEKLY"L15:"5. SEMI-MONTHLY"V17:"6. MONTHLY"`19:"7. ANNUALLY"j22::"SELECT NUMBER AND PRESS RETURN.";PERIO05:"ENTER WAGE TO BE ANALYZED & PRESS RETURN"::19:"NOTE: ALL RESULTS WILL BE ROUNDED DOWN TO THE NEAREST CENT. "10:"AMOUNT? $";TTAT:430:ZA2Ğ:"AMOUNT $"T$:ZA2Ğ:"AMOUNT $"AP:$(SN) T$T$"0"*870>4 ***ADD TRAILING ZERO'S***L>Y1ī860^HT$T$".0000"gR870x\T$T$"0000"fT$(T$,L3)p ****THE WAGE ANALYZER****:10:"**THE WAGE ANALYZER**"ZX1::ZA0:ZB0:ZC0:AP0:TOUNDING***6 ***SCIENTIFIC NOTATION CONVERSION***HTD$((T$,4))b((TD$,1))"E"ī830tDP((T$,1))NF((T$,1))LA(T$)LA6SN((T$,3,1))DP4T$".000":T$T$(NF) DP3T$".00":T$T$(NF)DP3LA5T$TL1:480 (L$)0L0" Y0;  ***ZERO DISPLAY***f (T)(T)T.0001T$"0.0000":L1:870t TNT(1) (TN)(T)TN.0001T$"0.0000":L1:870  ***DECIMAL PLACEMENT*** T$(T) &N110 0(T$,N,1)"."Y1 : D ***RMENT & PRESS RETURN. ":" y657[ zD$"":ZL512767:(ZL)141D$D$((ZL)128):ZL {:10::10:"TURN ON YOUR PRINTER!": |Z$;"PR#"S D$ Z$;"PR#0" 990  ****NUMERIC FORMATTING**** L$((T)) L(L$) L$"-1" GU1750:< J(A$,1,1)"Y"(A$,1,1)(121)S1:370e T(A$,1,1)"N"(A$,1,1)(110)ī360t ^(7):320 h16368,0 m15:1:"ENTER CORRECT SLOT# AND PRESS RETURN.";S oS1S7S6ĺ(7):365 r16368,0 w::"ENTER A DATE OR COMON DATA ONLY"= 22::"SELECT NUMBER AND PRESS RETURN.";PDL PD1ī990h PD2PD3ĺ(7):260n " ,:5:5:"****TURN ON YOUR PRINTER!****" 6 @10:"IS YOUR PRINTER INTERFACE BOARD IN SLOT #1? (Y OR N)." E11:28:A$:"THE WAGE ANALYZER"& d5:19:"BY"C n7:13:"CORE CONCEPTS"L x255w 11:6:"COPYRIGHT 1983 DAN GRIFFITH" Z13000: : 11:"***PRINT SELECT***" 6:"1. PRINT NO DATA" 8:"2. PRINT ALL DATA" 10:"3. PRINT COMPARIS# COPYRIGHT 1983 DAN GRIFFITHD ***THE WAGE ANALYZER***N::`Z$(13)(4)5:"******************************"(K11025:"* *"<F5:"******************************"P95 Z3:11           2  Lnp S X w%   ک S + ` +%   Y/ <%   ک S F%   ک S B,U Lu + ` Y/ o%   0-  s򩴠 S . ` %  f  2  S B, Lu +   LuȠ S , Lv , ` -Lt2 S / - 6< S 0- _ -F S B, - n/0 L]t 0-  -LtP S 0-  / - / 0 0& + + 0& +Z S +L_d S 3 - 6n S 0- 3L_x S w O. ` +  ٠$   s򩂠 S +   2 / / - + - + - 6 S 3 G0  >- B, N0Lds 0-  / B, - 3Ԡ P y. /  . / - 6 S 3 G0  >- B, N0Ls 3Ԡ P y. 0- .( S . . q0 - + - 3 / 2* S B, x0Lt B, - + - +a + + 3 (/ B, - 0- + B, -  S + 2 n/ 2 2 5  S  S A. ` . Z 3 . ک S + 3LXrLs S 3 G0  >- B, N0 >- +F  .Lr 3 G0  - 3 U0  /Ls S 3 G0  >- B, N0Ls 3 G0  - . . g/ >-A u/ |/ >- . . ]. f OM OLD WAGE"8"t 9:"3. CALCULATE CHANGE FROM NEW WAGE"Y"~ 11:"4. GO TO MAIN CATALOG"" 22::"SELECT NUMBER & PRESS RETURN.";ZC" ZC2ZC3ZB2" ZC150,1820,1790,2470" (7):2440" Z$(13)(4)" Z$;"RUN CAT";XG$;8LG);YE$;7CG);CG$:! :"AMOUNT OF CHANGE "T$"%"F!$ PD1ĺ`!. PD2PD3ĺZ$;"PR#0"!8 23::"TO CONTINUE, PRESS RETURN.";Q$!B ***MENU TWO***!L :!V 17:"*MENU*"!` 5:"1. RUN WAGE ANALYZER AGAIN" "j 7:"2. CALCULATE CHANGE FR8LJ);TJ$;7CJ);CJ$G 11:"WEEKLY";9XC);XC$;8LC);WE$;7CC);CC$} 13:"BI-WEEKLY";6XD);XD$;8LD);BI$;7CD);CD$ 15:"SEMIMTHLY";6XE);XE$;8LE);SE$;7CE);CE$  17:"MONTHLY";8XF);XF$;8LF);MT$;7CF);CF$! 19:"ANNUAL";9XG)PD2PD3ĺZ$;"PR#"S'PD2PD3ĺK1:10:"***COMPARISON DATA***"Qz3:15:"OLD";8);"NEW";5);"CHANGE"5:"HOURLY";9XA);XA$;8LA);HO$;7CA);CA$7:"TIME & 1/2";5XB);XB$;8LB);TI$;7CB);CB$ 9:"DAILY";10XJ);XJ$;CDL>T(SE$)(XE$):4304HCE$(T$,L3):CELMRT(MT$)(XF$):430d\CF$(T$,L3):CFL}fT(YE$)(XG$):430pCG$(T$,L3):CGLzZA2PC((CNHA)100)ZA1PC(AP100)***COMPARISON DATA PRINT***TPC:430:OUNT***CNHOHA-T(HO$)(XA$):430DCA$(T$,L3):CAL]T(TI$)(XB$):430t CB$(T$,L3):CBLT(TJ$)(XJ$):430CJ$(T$,L3):CJLT(WE$)(XC$):430 CC$(T$,L3):CCL*T(BI$)(XD$):4304CD$(T$,L3): ":n18::"ENTER ONLY THE CHANGE FROM THE OLD WAGE.DO NOT ENTER THE THE NEW WAGE! ":10:"AMOUNT? $";APZA2TAP:1020:11:16::"*WORKING*"AP(AP100)HOURLYHA(HAAP):1350 ***CHANGE IN AMMZ$MZ$MX$c12:11:MZ$"%")d1884Mg22:1::"CORRECT? (Y OR N)":]h22:19:A$i(A$,1,1)"Y"(A$,1,1)(121)AP(MZ$):1970j(A$,1,1)"N"(A$,1,1)(110)MZ$"":1881k(7):1895v::"ENTER AMOUNT & PRESS RETURN. & PRESS RETURN.";ZA)N(ZA)1881,19109X(7):1860IY::MZ$" "rZ:"ENTER PERCENT & PRESS RETURN.":[12:"PERCENT? "\12:10:MX$]MX$(47)MX$(58)ī1890^MX$(46)MX$(45)ī1890_MX$(13)ī1895`(7):1883 bHAHO:XA$HO$:XB$TI$:XC$WE$:XD$BI$:XE$SE$:XF$MT$:XG$YE$|XJ$TJ$:XJLJ:XALA:XBLB:XCLC:XDLD:XELE:XFLF:XGLG:&2::"HOW WILL THE CHANGE BE MEASURED?":07:"1. A PERCENTAGE.":9:"2. AN AMOUNT."D22::"SELECT NUMBER*MENU***:"17:"*MENU*"G5:"1. RUN WAGE ANALYZER AGAIN"s7:"2. CALCULATE INCREASE OR DECREASE"9:"3. GO TO MAIN CATALOG"22::"SELECT NUMBER & PRESS RETURN.";ZBZB150,1790,2470(7):1760 ***COMPARISON***@LJ);TJ$&^12:"WEEKLY";16LC);WE$Gh14:"BI-WEEKLY";13LD);BI$kr16:"SEMI-MONTHLY";10LE);SE$|18:"MONTHLY";15LF);MT$20:"ANNUALLY";14LG);YE$PD2ĺZ$;"PR#0"16368,022::"TO CONTINUE PRESS RETURN.";Q$ ** RUNNING THIS PROGRAM.TO CORRECT MISTAKES MOVE THE CURSOR, USING THE <-OR-> ARROW KEYS, AND RETYPE.ALWAYS BE SURE THE CURSOR IS PAST THE LAST CHARACTER YOU WISH TO BE PRINTED, BEFORE PRESSING RETURN.TO GO TO THE MENU, ENTER @ AT SPACE 1 AND PRES ENTER CORRECT SLOT# AND PRESS RETURN.DO YOU WISH ADDITIONAL COMMENTS AND INSTRUCTIONS TO BE DISPLAYED? (Y OR N)YN***INSTRUCTIONS**IF YOU WISH TO USE THE 132 COLUMN PRINT MODE, YOU MUST SET YOUR PRINTER TO 132 COLUMNS BEFORETHEEINSTEIN COMPILER. THE EINSTEIN COMPILER IS A TRADEMARK OF THE EINSTEIN CORP.****BE SURE YOUR PRINTER IS ON!**** IF YOU DO NOT WISH TO PRINT, ENTER F. IS YOUR PRINTER INTERFACE BOARD IN SLOT #1? (Y, N, OR F).YNF `L! L9q<<A1;p    cL%******************************* *******************************THE LINE WRITERBYCORE CONCEPTSCOPYRIGHT 1983 DAN GRIFFITHTHIS PROGRAM HAS BEEN COMPILED USING ȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^94864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з            !!! ! ! ! ! !!             .L |L_Y S X wϠ'   sb S , ` . Z '   کl S . ` . Z (   کv S . ` w(   ک S . ` . Z (  f   S +  >- ^,  S-L| +   Lh| S +  +멞 3L I S +멛+  +  5  S  S +& S L_0 S X wM'   s: S . ` , Z '  f  D S + ꩉ  >-+ ꩉ  S-L{ , ` w +  '   sLm{N S L_X S + S . ` 5'  f i ֠ S X + ` + Z ?'   ک S `/ !/ (/ . .! + 3 / I3 g/ / / S + + + / +  5  S  S /U >- I3 g/ ]. / + S + - + / / #2 >- / E- - B, . 3 - 6 S 0-&  43 ^,k f B3 S + [2L1y&  ;3 S L_ S + .LmH S X w򩫠&   ک S + ` &   ک S + ` , Z l, S + s, z, '   >- + s, z, , ,  , S-Ly XLmH  S , ` + Z '   ک̠,&   >- + s, z, , ,  , S-L2x . -3@ S 2  2  J S + .1 -L_T S ^ S . .L}x&  43h S . .Lx&  43r S &  ;3 . 2 #f + 82 !/ / B37 k  # B3| S . . >- B, *2 .Ly 2 . 2 2 5  S 1 Z 3 &3 ` 3 .c&   + 3 51  + S 2  H.  " S . ` e&  f x , S +x  >- .x  S-LYw6 S 1 # 2LYw8 S B, -3 %. ` s&   ک: S %. ` / Z l,< S + s, zw +  %   LuҠ S L_ܠ S X B, - S wݠ%   s S + 2 . 2 2 5  S 2 Z 3 0 ` wV&   ک S + S + 2 . 2 2 5  S s 1 Z 3 &3 ` _&   3 .a&   + 3 51  + S + LINE EXCEEDS CHARACTERS! MOVE CURSOR TO END OF TEXT.^.LM@PR#PR# 0PR#------------------------------------------------------------------------------------------------------------------------------------------------------------------- TO PRINT ENTIRE UPPER SCREEN, ENTER ^ IN SPACE * & PRESS RETURN. TO SET LEFT MARGIN ENTER .LM AND LOCATION NUMBER, PRESS RETURN. EXAMPLE: .LM12 * 2 3 3 TO EXIT, GO TO SPACE 1, 0 5 0 5 0 5 0 2 ENTER @, & PRESS RETURN.TO PRINT ENTIRE UPPER SCREEN, ENTER ^ IN SPACE 1 & PRESS RETURN. TO EXIT, ENTER @ IN SPACE * & PRESS RETURN. 6 6 7 7 81...5....0....5....0....5....0....5....0....5....0....5....0....5....0....5....0- B, N0L + + 3 G0  -Li# S B, l3LL܂n# S + l3Ĺ , ` s򩡠)   کx# S + l3L , ` ʠ)   Y/ Ԡ)  / >- + 0 . >- + j0 .L9 O. ` Z)   0  کƠ S B, T2 >- B, 12 .L - ` v)   82 .})   ?2  کР S B, *2 >- B, [2 .Lˀ - ` )   F2 .)   M2  ک S L`(# S -# S X w򩈠)   ک<# S L A. ` w)   S + e3L> B, P3 A. ` b2 Z l, S 0  S + / >- + 0 . >- + j0 .L3)   0  ک S B, *2 >- B, 12 .L - ` K)   82 .R)   ?2 T)   F2 .X)   M2  ک S + 0 3L~ ^, W3{ S ^3  0 S 3 G0  >- B, N0L~ Ġ* ` J1 Z 3 . 0 m1 ; 0- (   C1ݠ* ; (   ^3  ک S L~ S + {1L~L> S A. ` + Z (   3 .)   ک S + e3 S L_X S w . ` (   B, P3 sb S . ` , Z Ϡ(   کl S + 2 + 2 2 5 l S n S n/ 3L}Lv S 3 G0  >- B, N0L} 3 c0  3 G0  \0 - + P3 6w S B, W3x S . 3L} + W3y S LANCE IS $"T$6022:"TO CONTINUE, PRESS RETURN.";A$@02140A