' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌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`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ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^6L65`  \* ?*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`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`S SOLD * *#&f I(I,5)Q(I,5)U(I,5)<&p S(I,5)Q(I,5)03470U&z G(I,1)S(I,5)U(I,5)`& 03520z& S(I,5)G(I,2)03500& G(I,1)I(I,5)(S(I,5)Q(I,5))U(I,2)& 03520& G(I,1)I(I,5)I(I,2)' * * UNIT DELIVERED COST AND TOTAL TRANSPORTATION C03310% X(G(I,2)S(I,5)),% X0034307% J1X?% K5]% S(I,KJ)O(I,KJ)03370g% KK1r% 03340%* S(I,KJ)S(I,KJ)1%4 S(I,5)S(I,5)1%> R(I,KJ)R(I,KJ)P(I,KJ)%H R(I,5)R(I,5)P(I,KJ)%R J &\ * * DETERMINE COST OF GOOD03190$l P1L$v * * UNIT SALES AND REVENUE BY AREA AND FIRMS TOTALS * *W$ J1Nn$ S(I,J)(O(I,J)P)$ S(I,5)S(I,5)S(I,J)$ R(I,J)(S(I,J).5)P(I,J)$ R(I,5)R(I,5)R(I,J)$ J$ P003430$ P103300$ X(O(I,5)S(I,5))% AND ORDERS IN UNITS BY FIRM * **# J1NC# M(I,5)M(I,5)M(I,J)b# O(I,5)O(I,5)(O(I,J).5)i# J# * * GOODS AVAILABLE FOR SALE * *#& G(I,2)Q(I,2)Q(I,5)#0 P0#: O(I,5)003150#D PG(I,2)O(I,5)#N P003170#X PP(1)$b P1)("r * * UNIT COSTS OF PRODUCTION * *3"| J14H" Q(I,J)002980U" U(I,J)0`" 02990y" U(I,J)I(I,J)Q(I,J)" J" I" * * CALCULATE TOTAL MARKETING, REVENUE AND COSTS BY FIRM" I1M" R(I,5)0" T(I,5)0# * * MARKETING )(S2X4X3))!! Q(I,2)002860.!" Q(I,2)0H!, Q(I,2)Q(I,4)02890Z!6 Q(I,2)Q(I,4)l!@ I(I,2)I(I,4)!J Q(I,3)1.1Q(I,2)!T Q(I,1).9Q(I,2)!^ I(I,3)T4(S2(Q(I,3)X4X5)(Q(I,4)Q(I,3))X3)"h I(I,1)T4(S2(Q(I,1)X4X5)(Q(I,4)Q(I,1))X3I)D4 S2.9302790" S2.93S * * TOTAL COST OF CURRENT PRODUCTION * * e I(I,2)A(I,1) * * TOTAL COST AT CAPACITY * * I(I,4)T4(S2(Q(I,4)X4X5))  * * CURRENT PRODUCTION IN UNITS * * ! Q(I,2)((I(I,2)T4S2X5Q(I,4)X33)2:T(2,1)2,s T(2,3)2:T(3,1)2:T(3,2)2Kx T(1,4)1:T(2,4)1:T(3,4)1W X42Z1c X52Z1 ***** CALCULATE PRODUCTION COSTS AND QUANTITIES BY AREA ***** I1M * * PLANT CAPACITY IN UNITS * * Q(I,4)(V(I,1)20) S2D3Z2L((4,J)W(4,J)W(I,J) IE * * ORDERS RECEIVED IN EACH AREA * *P I1M]( O(I,J)0r2 W(I,J)002630< O(I,J)(W(I,J)W(4,J)O(4,J))F IP JZ * * UNIT COSTS OF TRANSPORTATION * *d T(1,1)0:T(2,2)0:T(3,3)0 n T(1,2)2:T(1, P.0102490 P.01[ * OVERALL ORDER PRODUCING EFFECT OF THE COMPANY'S ACTIVITIESo R(I,5)002520 LAST QUARTER REVENUE ZERO ON FIRM I 02540 H9C1Y3L(I)R(I,5) 02550 H91.25 W(I,J)(E(I6,J)E(11,J)Y1)PH9 WT2Z1. ***** TOTAL ORDERS IN EACH AREA *****M8 O(4,J)E(13,J)XYZT1TB JL * * CALCULATE ORDERS FOR EACH FIRM IN EACH AREA * *V J1N` W(4,J)0j I1Mt W(I,J)0~ E(11,J)002560 P(I,J)002560 PX(J)P(I,J)Y2LCULATE Z - EFFECT OF PRICE ON TOTAL ORDERS * *=D11.E08FS30QI1MeP(I,J)002250qM1M11|02260P(I,J)D102270D1P(I,J)S3S3P(I,J)IM1002310X(J)S3M1 ZD1 Z102340 Z1$ ZX1S * * J1NE(10,J)0) I1MW*E(I6,J)((E(I,J)E(I3,J))P1M(I,J))P2t4E(10,J)E(10,J)E(I6,J){>IHM1MRE(11,J)E(10,J)M1\E(10,J)12502170fYE(10,J)125p02190zYB1E(12,J)T3B2(X2E(10,J))/ * * CAPORTS ARE BEING PROCESSED."$S10/I1MOM(I,5)0:O(I,5)0:S(I,5)0 * * CALCULATE X - EFFECT OF R&D ON TOTAL ORDERS * *L(I)GL(I)A(I,2)S1S1L(I)IXB3S1B4 * * CALCULATE Y - EFFECT OF MARKETING ON TOTAL ORDERARE ALL ENTRIES CORRECT - YES OR NO";-XA$Db(A$,1)"Y"01910[g(A$,1)"N"1865il::1540wqI31949~vI:"DO YOU WANT A QUARTERLY REPORT"::"PRINTED";:868A$(A$,1)"Y"(A$,1)"N"Ģ2:19507:"THE RE,2)A(I,3)C(I,2)H1860C"YOUR EXPENDITURES EXCEED YOUR"Z"AVAILABLE CASH."e01800"NEGATIVE DATA NOT ALLOWED.""RE-ENTER FIRM ";I;" DATA:" 22222::1540D CHECK TO SEE IF ENTRIES ARE CORRECTI22:868%N",6"PLANT IMPROVEMENT";:25:(A(I,3).5)V6"PRODUCTION COST";:25:(I(I,2).5)v6"TAXES";:25:(F(I,2).5)6"TOTAL";:25:(C(I,1).5)6:6"INVENTORY ALLOWCATION (NO. ITEMS)"6"================================="67"BEGTOTAL ASSETS";:25:(C(I,4).5)15*P1ĺ:4700<5/22222f5\"DISBURSEMENT ALLOCATATION ($VALUE)"5f"=================================="5p"TRANSPORTATION";:25:(T(I,5).5)5z"MARKETING";:25:(M(I,5).5)6"RESEARCH";:25:(A(I,2).5)EIPTS";:25:(R(I,5).5)A4"DISBURSEMENTS";:25:(C(I,1).5)d4"NET FLOW";:25:(C(I,3).5)4"NEW BALANCE";:25:(C(I,2).5)4"CASH";:25:(C(I,2).5)4 "INVENTORY VALUE";:25:(I(I,5).5)4"PLANT VALUE";:25:(V(I,1).5) 5 "5))3"DEPRECIATION";:25:(V(I,2).5)N3"NET PROFIT";:25:(F(I,1).5)n3"TAXES";:25:(F(I,2).5)3"PROFIT AFTER TAXES";:25:(F(I,3).5)3P1ĺ3" CASH FLOW FINANCIAL ANALYSIS"3" ============================"4"REC22222!211)"PROFIT AND LOSS"<211)"==============="e2"CURRENT INCOME";:25:(R(I,5).5)2"COST OF GOODS SOLD";:25:(G(I,1).5)2"TRANSPORTATION";:25:(T(I,5).5)2"MARKETING";:25:(M(I,5).5)3"RESEARCH";:25:(A(I,2).(R(I,1).5);:17:(R(I,2).5);:23:(R(I,3).5);:29:(R(I,4).5);:35:(R(I,5).5)i1X"DELIVERED"1b"UNIT COST";:ZDD(I,1):45000:11:ZD$;:ZDD(I,2):45000:17:ZD$;1gZDD(I,3):45000:23:ZD$;:ZDD(I,4):45000:29:ZD$1hP1ĺ:44902l3:O(I,3);:29:O(I,4);:35:O(I,5)u0"SHIPMENTS";:11:S(I,1);:17:S(I,2);:23:S(I,3);:29:S(I,4);:35:S(I,5)0"MARKETING";:11:(M(I,1).5);:17:(M(I,2).5);:23:(M(I,3).5);:29:(M(I,4).5);:0&35:(M(I,5).5)X1:"REVENUE";:11: /:6/"FIRM ";I;" PERIOD ";L;" ";B$;"">/:T/"SALES ANALYSIS"j/"=============="p//"AREA 1 2 3 4 TOTAL"/"---------------------------------------"/#0"ORDERS";:11:O(I,1);:17:O(I,2);:24)(D(I,4)100T8)100.rI7.|(A$,1,1)"N"04900?.10k."WOULD YOU LIKE TO HAVE THE TABLES?":."1) PRINTED AT A PRINTER":."2) PRINTED ON THIS SCREEN":.16:868:P$:(P$)1(P$)24247.P(P$):P1İ20200.I13/)M(4,J)0-I1M.-S(4,J)S(4,J)S(I,J)G-M(4,J)M(4,J)M(I,J)N-I]-TTM(4,J)l-SSS(4,J){-"OOO(4,J)-,J-6T8.5-@I13-JD(I,1)(D(I,1)100T8)100-TD(I,2)(D(I,2)100T8)100-^D(I,3)(D(I,3)100T8)100.hD(I,ENTORY + PLANT VALUE * *8,C(I,4)C(I,2)I(I,5)V(I,1)e, * * UNIT COST OF INVENTORY ON HAND * *r,U(I,5)0,Q(I,5)004020,U(I,5)I(I,5)Q(I,5),I, ***** DEVELOP TOTAL SALES, MARKETING, ORDERS * *,TSO0,J1N -S(4,J5)(G(I,2)S(I,5).5)-+O(I,5)Z(I)03900T+(I(I,5)(Z(I)O(I,5))U(I,5)I(I,2)_+203950s+<Q(I,5)003930+FI(I,5)Q(I,5)U(I,2)+P03950+ZI(I,5)0+d * * NEW PLANT VALUE * *+nV(I,1)V(I,1)V(I,2)A(I,3),x * * ASSETS = CASH + INV(I,1)I(I,2)T(I,5)M(I,5)A(I,2)A(I,3)F(I,2)g* * * NEW CASH BAL = OLD CASH BAL + REVENUE - DISBR*C(I,2)C(I,2)R(I,5)C(I,1)* * * CASH FLOW = REVENUE - DISBR * **C(I,3)R(I,5)C(I,1)*  * * COMPUTE NEW VALUE OF INVENTORY * *+Q(I,VENUE - EXPENSES * *-)F(I,1)R(I,5)F(I,4)S) * * INCOME TAX = 50% PROFIT * *h)F(I,2)D6F(I,1)|)F(I,1)003780)F(I,2)0) * * NET = GROSS - TAX)F(I,3)F(I,1)F(I,2)) * * DISBURSEMENTS = PROD+TRANSP+MRKTG+RES+PLT IMP+TAX/*C**** DEVELOP FINANCIAL STATEMENT FIGURES *****9(LI1Md(V * * DEPRECIATION = 2% OF PLANT VALUEy(`V(I,2)D5V(I,1)(j * * EXPENSES = COST OF GOODS + TRANSP + RES + DEPR * *(tF(I,4)G(I,1)T(I,5)M(I,5)A(I,2)V(I,2))~ * * GROSS PROFIT = REOST * *' S(I,5)003610/' PG(I,1)S(I,5):' J1NN' D(I,J)PT(I,J)t' T(I,5)T(I,5)T(I,J)(S(I,J).5){' J' I'03650' ** NONE SHIPPED THUS DELIVERED COST AND TRANS. 0 **'J1N'$D(I,J)T(I,5)0'.J'803580.(B *222:410Fو:5(FفX039:0,39X:XNFَ0,390:0,3939:0,3939:0,390UF٠9Fُ1,141:1,142:1,73:1,64:1,55:1,56:1,67:1,68:9,131Fُ1,714:1,715:1,716:1,717:1,718:1,319:1,320:1,321:1,322:1,323?G ُ1,624:1,6E4D$;"RUN HELLO"+Eȯ DOLLAR FIXER MEɯZD(ZD100.5)100:ZD$(ZD)^EʯZE1(ZD$)yE˯(ZD$,ZE,1)"."45006E̯ZEEͯZD$ZD$".00":45010EίZE2(ZD$)45010EϯZD$ZD$"0"EүFPúD$;"DELETE ";B$:216,0:21:"I CANNOT FIND ";B$:22010:40001ND$(13)(4)_>N(ST)FACE$"COMM, SERIAL OR PARALLEL"İ20350>OFACE$"COMM, SERIAL OR PARALLEL"FACE1P2::ST1:>O:5:"TURN YOUR PRINTER ON AT THIS TIME.":FACE$"COMM, SERIAL OR PARALLEL"FACE1(ST)20290 CAN NOT USE THAT NAME FOR A FILE. CHOOSE A DIFFERENT ONE.":10000:20:1:958f=0M6410,410,43000=811:20:"THAT FILE NAME IS INCORRECT. TRY AGAIN...":10000:1:20:958=j1M6410,410,43000=N:12:"ONE MOMENT PLEASE...">NFACE$OSE THE DISK DIVE DOOR.":10000:1:20:958A<>0M6571,645,4900+P 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,1LOT' )$h+(16384)12711112P$i+16368,0::r$N:12:"ONE MOMENT PLEASE..."$NFACE$"COMM, SERIAL OR PARALLEL"$ND$(13)(4)$N(ST)FACE$"COMM, SERIAL OR PARALLEL"İ20350%OFACE$"COMM, SERIAL OR PARALLE490,330,6700,498,338,6750,506,346h# 6800,514,354,6850,522,362,6900,530,370,6950,538,378,7000,546,386r#:10# "SORRY ";C$;", BUT THE COMPUTER TAX"#!:#""SERVICE WILL NOT BE ABLE TO HELP YOU."#*P1İ11111#543000$$g+24:" PRESS6,200L" 5800,354,207,5850,362,214,5900,370,221,5950,378,228,6000,386,235" 6050,394,242,6100,402,249,6150,410,256,6200,418,263,6250,426,270" 6300,434,277,6350,442,284,6400,450,291,6450,458,298,6500,466,306!# 6550,474,314,6600,482,322,6650,,4850,214,74,4900,221,81,4950,228,88,5000,235,95w! 5050,242,102,5100,249,109,5150,256,116,5200,263,123,5250,270,130! 5300,277,137,5350,284,144,5400,291,151,5450,298,158,5500,306,165" 5550,314,172,5600,322,179,5650,330,186,5700,338,193,5750,3400,67,0,3850,74,0,3900,81,0,3950,88,0,4000,95,0l  4050,102,0,4100,109,0,4150,116,0,4200,123,0,4250,130,0  4300,137,0,4350,144,4,4400,151,11,4450,158,18,4500,165,25  4550,172,32,4600,179,39,4650,186,46,4700,193,53,4750,200,600! 4800,207,672b" THANK YOU FOR ALLOWING THE COMPUTER":ag"TAX SERVICE TO FIGURE YOUR TAX. GLAD":l"TO HAVE BEEN OF SOME HELP."qP1İ11111vP1ĺ(4);"PR#0"{43000 3500,25,0,3550,32,0,3600,39,0,3650,46,0,3700,53,0,3750,60,0/  38" WHICH YOU SHOULD PLACE ON LINE 14."301840b"13) YOUR BALANCE DUE IS ";H;" WHICH YOU"" PLACE ON LINE 15."0::"14) NOW ALL YOU HAVE TO DO IS SIGN YOUR":D" NAME AND SEND THE FORM TO THE IRS."NP1İ11111X::OUR CHOICE (1, 2, 3, 4, 5, OR 6)";:40000:TZN@$T1T62205K$T(T)`$T$(1)"3 MONTHS"s$T$(2)"1 YEAR"$T$(3)"2 1/2 YEARS"$T$(4)"4 YEARS"$T$(5)"6 YEARS"$T$(6)"8 YEARS"$C$(1)"DAILY"$C$(2)"QUARTERLY"$C12306%5 #[:2#\"CERTIFICATES HAVE THE FOLLOWING":K#]"MATURITY OPTIONS:"S#^:u#f" 1) 3 MONTHS OR 90 DAYS":#p" 2) 1 YEAR":#z" 3) 2 1/2 YEARS":#" 4) 4 YEARS":#" 5) 6 YEARS":#" 6) 8 YEARS"#19:868.$"ENTER Y;:868:40000:RZN""R02060*" 166"%RR100]"*"INTEREST ON CERTIFICATES MAY BE"p"+"COMPOUNDED:""4" 1) DAILY"">" 2) QUARTERLY - EVERY 3 MONTHS""C20:868"H"ENTER YOUR CHOICE (1 OR 2):";:40000:CZN"R#SC1C2211OWTH OF MONEY"/!"IN A SAVINGS CERTIFICATE."^!"***************************************"e!8!"HOW MUCH WILL YOU INVEST IN THE"!"CERTIFICATE. ";:868:40000:PZN!P02030! 12!"ENTER THE INTEREST RATE """(7 1/2 =7.5)."PLEASE.":1940  :H " BEGINNING YEARS PRINCIPAL"w "YEAR PRINCIPAL INTEREST PLUS INTEREST" "======================================="   ********* CERTIFICATE INTEREST : !"THIS OPTION ILLUSTRATES GR.w"$";P;" INVESTED AT ";R100;" PER CENT":_"COMPOUNDED ";C1;" TIMES EACH YEAR GROWS":}"TO $";:ZDS:45000:ZD$13"DO YOU WANT A TABLE SHOWING EACH YEARS":"INCREASE";:868:A$ (A$,1)"Y"(A$,1)"N"Ģ21:"YES OR NO T1T1S0ST1(1R1)NT1(:T2T1SE?(37)21BB2İ22222:6DX;:ZDT1:45000:36,(13(ZD$)):ZD$;:ZDS:45000:36,(23(ZD$)):ZD$;EZDT2:45000:36,(36(ZD$)):ZD$NXX1460l:v"AFTER ";Y;" YEARS YOUR INVESTMENT OF":D$;)ZDT2:45000:36,(36(ZD$)):ZD$0X:1460^ *** INTEREST CALCULATED DAILYiC1365vR1R365N365YSP(1R1)N1900(A$,1)"N"1460241T1PS0N365 1955:34,5:6X1Y&900@(A$,1)"Y"İ241/J(A$,1)"N"14605THU1955:34,5:6Q^T1PYhS0amN4lrX1YxT1T1SST1(1R1)NT1T2T1S(37)21BB2İ22222:6X;:ZDT1:45000:36,(13(ZD$)):ZD$;:ZDS:45000:36,(23(ZD$)):Z$;:ZDS:45000:36,(23(ZD$)):ZD$;JZDT2:45000:36,(36(ZD$)):ZD$VT1T1S]XrBB2İ22222::BB1ĺ(4);"IN# 0":(4);"PR# 0"43000 ***INTEREST CALCULATED QUARTERLYC14R1R4N4YSP(1R1)N11210 SIMPLE INTEREST"NY2SP(1R)N<1900R(A$,1)"N"1460[(241a2gFqK1955~P34,5:6nT1PsX1YxN1ST1(1R)NT1T2T1S(37)21BB2İ22222:6$X;:ZDT1:45000:36,(13(ZD$)):ZD 2. QUARTERLY"9L" 3. YEARLY - YEARLY COMPOUNDING IS"aM" THE SAME AS SIMPLE INTEREST"V19:"ENTER 1, 2, OR 3?";:868:40000:CZNpC(C)qC1C31110P((P.005)100)100RR100C11720C21500C38:"ENTER THE INTEREST RATE"F%"(7 1/2 =7.5)?";:868:40000:RZNU&R01060/11:"ENTER THE NUMBER OF YEARS YOUR"0"INVESTMENT IS TO GROW.";:868:40000:YZN1Y01071814:"INTEREST CAN BE COMPOUNDED:"B" 1. DAILY"G" 2000,3000,4000:/ PASS CARD INTEREST]"THIS OPTION ILLUSTATES GROWTH OF MONEY"z"IN A SAVINGS ACCOUNT.""***************************************"6:868"ENTER THE AMOUNT YOU WILL DEPOSIT?";:40000:PZNP01020$:23,24:12,2426:12,2427:28,3012:28,3013/ َ28,2917:28,2918:28,3023:28,3024:10,2636:13,12:13,13:34,3712:33,3813/ ُ14,1633:14,1734:38,14:35,17:35,18:18,2437:19,2238:33,22:33,3723:34,3724/ٱ,٠12a. َ2,712:2,713:14,244:14,245:13,2410:12,2411:12,2414:13,2415:12,12:12,13. ٍ12,17:12,18:12,19:13,17:13,18:13,19:18,12:18,13:12,1619:20,2419:14,2220:18,23:18,24// ُ14,2221:12,1622:20,2422:23,12:23,13:23,23";Y;" YEARS OF MAKING YEARLY":P4"DEPOSITS OF $";X;" IN A SAVINGS ACCOUNT":{4"PAYING ";R100;" PERCENT INTEREST":4"COMPOUNDED ";C;" TIMES A YEAR, YOUR":4&"ACCOUNT BALANCE WILL BE $";:ZDB:45000:ZD$4+146050 **** MONTHLY DEPOSITYEARS WILL YOU CONTINUE"L3r"TO MAKE REGULAR DEPOSITS?";:868:40000:YZNZ3tY14190b3w:n3}RR100y3~C(C)3Y(Y)3A4300,4400,45003 **** YEARLY DEPOSITS3R1(1RC)C3X1XR13BX1(R1Y1)(R11)3:4"AFTER IT?";:40000:XZN 21X04135.2615:868g2@"ENTER THE INTEREST RATE (7 1/2=7.5)?";:40000:RZNv2ER04150~2J172T"HOW MANY INTEREST COMPOUNDING PERIODS"2Y"EACH YEAR?";:868:40000:CZN2ZC365C141702^203h"FOR HOW MANY ***************"1<1"YOU CAN MAKE REGULAR DEPOSITS:"O1" 1) YEARLY"c1" 2) MONTHLY"v1" 3) WEEKLY"111:8681"ENTER YOUR CHOICE (1, 2, OR 3):";:40000:AZN1A1A340851'13:8682,"HOW MUCH WILL YOU REGULARLY DEPOS:36,(38(ZD$)):ZD$0> 1460[0 *********GROWTH OF MONEY BY MAKING REGULAR DEPOSITS e0::0"THIS OPTION ILLUSTRATES THE GROWTH OF"0"MONEY IN A SAVINGS ACCOUNT IN WHICH"0"DEPOSITS ARE MADE REGULARLY."1"************************9(ZD$)):ZD$;X/ ZDC1:45000:36,(29(ZD$)):ZD$;:ZDI2:45000:36,(38(ZD$)):ZD$e/ T1T1I1r/ T2T2I2/% (37)22BB2İ22222/* X/4 36,12:"-------";:36,32:"------"05 36,6:"TOTAL ";:ZDT1:45000:36,(19(ZD$)):ZD$;:ZDT2:45000"---------------------------------------"0. A. 34,6:35,24J. T10S. T20\. S1Pe. C1Pn. N11y. X1T. S1S1I1. C1C1I2. I1(S1(1R))S1. I2(C1(1RC)C)C1/ X;:ZDS1:45000:36,(11(ZD$)):ZD$;:ZDI1:45000:36,(10)?";:868:40000:TZN*-: T0T313170V-D 23:"MAXIMUM IS 30 YEARS. TRY AGAIN."`-N 3115m-b 241::-l " SIMPLE INTEREST COMPOUND INTEREST"-n - " BEGIN. INT. TO BEGIN. INT. TO"- "YEAR PRINC. DATE PRINC. DATE"*. THE COMPOUND INTEREST AS"I, "A WHOLE NUMBER. FOR EXAMPLE COMPOUNDED"x,& "DAILY WOULD BE ENTERED AS 365,QUARTERLY",( "AS 4, ETC.?";:868:40000:CZN,) C365C13075,+ 17,, "ENTER THE NUMBER OF YEARS FOR THE "-. "COMPARISON (MAX. OF 3T IS THE PRINCIPLE (AMOUNT"F+ "TO BE INVESTED):";:868:40000:PZNU+ P03040b+ 9:868+ "ENTER THE INTEREST RATE(7 1/2=7.5):";:40000:RZN+ R03060+ 11+ RR100+ "ENTER THE NUMBER OF COMPOUNDING PERIODS", "EACH YEAR FOR*************************"+*n 34,4:35,241*p [* *********SIMPLE VS COMPOUND INTERESTe* ::* "THIS OPTION ILLUSTRATES THE DIFFERENCE"* "BETWEEN SIMPLE AND COMPOUND INTEREST."* "***************************************"* 6+ "WHAT SUBROUTINES FOR CERTIFICATE INTEREST3)U N2.259)V B)W N21H)X S)Y N22.5Y)Z b)[ N24h)\ q)] N26w)^ )_ N28)` )g :)h " BEGINNING QUARTERLY PRINCIPLE")i "YEAR QTR PRINCIPLE INTEREST + INTEREST"*j "**************36,(17(ZD$)):ZD$;]( ZDS:45000:36,(25(ZD$)):ZD$;:ZDT2:45000:36,(38(ZD$)):ZD$i( Q1Q11( (37)21BB2İ22222:( ((N24))(Q1)2589( Q( X( 36,13:" ========="( 36,12:"TOTAL ";:ZDT3:45000:ZD$(( 1460()' Q14' T1T1S1' S(T1(1R1)(N14))T1=' T2T1SI' T3T3SW' Q12535]' ' X;:36,5:Q;:ZDT1:45000:36,(17(ZD$)):ZD$;' ZDS:45000:36,(25(ZD$)):ZD$;:ZDT2:45000:36,(38(ZD$)):ZD$' 2540( 36,5:Q;:ZDT1:45000: WILL HAVE":3&0 "A VALUE OF $";:ZDS:45000:ZD$A&L T11460I&Q 14z&V "WOULD YOU LIKE A TABLE SHOWING INTEREST":&W "BY QUARTERS";:868&` A$&j (A$,1)"N"1460&t (A$,1)"Y"2385&~ 241& 2919& SQ1T30& T1P& X18 R1R4%N14% 2308(% R1R3653% N1365X% T2901,2903,2905,2907,2909,2911d% NN1N2u% SP(1R1)N% ::%$ "A $";P;" CERTIFICATE MATURING AFTER":%. ""T$(T);" INVESTED AT ";R100;" PERCENT": &/ "INTEREST COMPOUNDED ";C$(C);"T0T72230C"THIS IS NOT A CORRECT CHOICE. TRY AGAIN."M2210bT$(1)"3 MONTHS"uT$(2)"1 YEAR"T$(3)"2 1/2 YEARS"T$(4)"4 YEARS"T$(5)"6 YEARS"T$(6)"8 YEARS"C$(1)"DAILY"C$(2)"QUARTERLY"C12306 R120A\"CERTIFICATES HAVE THE FOLLOWING MATURITY OPTIONS:"af" 1) 3 MONTHS OR 90 DAYS"tp" 2) 1 YEAR"z" 3) 2 1/2 YEARS"" 4) 4 YEARS"" 5) 6 YEARS"" 6) 8 YEARS""ENTER YOUR CHOICE (1, 2, 3, 4, 5, OR 6) ";TAS 7.5) "; R# %RR100W *"INTEREST ON CERTIFICATES MAY BE COMPOUNDED :"i 4" 1) DAILY" >" 2) QUARTERLY - EVERY 3 MONTHS" H"ENTER YOUR CHOICE (1 OR 2) "; RC SC1C22140 T"THIS IS NOT A CORRECT CHOICE. TRY AGAIN."U21P "THIS OPTION ILLUSTRATES GROWTH OF MONEY IN A SAVINGS CERTIFICATE" 24);"------ -- ----- -- - ------- ------------"  "HOW MUCH WILL YOU INVEST IN THE CERTIFICATE "; P "ENTER THE INTEREST RATE (I.E. 7 1/2 PERCENT IS ENTERED (ZD$)45010@ϯZD$ZD$"0"!@үNNING";21);"YEARS";35);"PRINCIPAL" "YEAR";7);"PRINCIPAL";21);"INTEREST";35);"PLUS INTEREST" "----";6);"----------";20);"----------";34);"--------------"   ********* CERTIFICATE INTEREST "AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030J? :R$"Y"Ĭ^?*(1023)123Ār?4D$;"RUN HELLO"?ȯ DOLLAR FIXER?ɯZD(ZD100.5)100:ZD$(ZD)?ʯZE1(ZD$)?˯(ZD$,ZE,1)"."45006?̯ZE?ͯZD$ZD$".00":45010 @ίZE2(ZN$)(((ZN$)))400037>B(ZN$)0ZN$"0"40005e>C24:"THAT IS NOT A NUMBER - TRY AGAIN.";w>D40010:40001>E24:868:CV1(CV23):ZN(ZN$):>JCV1:36,CH:868:>D$(13)(4)>:> 10:"DO YOU WANT TO TRY":?12:868::"ONE MOMENT PLEASE..."/=ZPD$"BLOAD PRINTER"M=dPZN$"10"Ĺ802,82:818,82]=nPST1:775:j=P:ST1:p=P=V24:" PRESS 'SPACE BAR' TO CONTINUE";:16368,0=V(16384)12722223=V16368,0::=@16368,0:CH(36):CV(37)>A"";ZN$:6p"COMPOUNDED ";C;" TIMES A YEAR, YOUR":q6q"ACCOUNT BALANCE WILL BE $";:ZDB:45000:ZD${6v14606 ***** WEEKLY DEPOSITS 6X106M1526NMC526X1X1X(1(N(N))RC)(1RC)(N)6M6R1(1RC)C7S 5:X105DM112%5NNMC12O5XX1X1X(1(N(N))RC)(1RC)(N)V5]Mg5bR1(1RC)C5gBX1(R1Y1)(R11)5l:5m"AFTER ";Y;" YEARS OF MAKING MONTHLY":5n"DEPOSITS OF $";X;" IN A SAVINGS ACCOUNT":6o"PAYING ";R100;" PE%:"DO YOU WANT THE OUTPUT ON THE PRINTER";9&50000A*A$^,(A$,1)"N"İ50002:830.(A$,1)"Y"PR2:20200:8180ZC:"YES OR NO PLEASE.":50001:8102PR08303SD1Č7754::<PR2>HJ0RP90\E10fF1PAYING ";R100;" PERCENT INTEREST"S"COMPOUNDED ";C;" TIMES A YEAR, YOUR"v&"ACCOUNT BALANCE WILL BE $";B+14600 **** MONTHLY DEPOSITS :X10DM112NNMC12XX1X1X(1(NYOSITS ";|Y!}RR100,~C(C)7Y(Y)MA4300,4400,4500h **** YEARLY DEPOSITSzR1(1RC)CX1XR1BX1(R1Y1)(R11)"AFTER ";Y;" YEARS OF MAKING YEARLY""DEPOSITS OF $";X;" IN A SAVINGS ACCOUNT"("40908,"HOW MUCH WILL YOU REGULARLY DEPOSIT ";?6Xy@"ENTER THE INTEREST RATE (I.E. 7 1/2 PCT. AS 7.5) ";JRT"HOW MANY INTEREST COMPOUNDING PERIODS EACH YEAR ";^Ch"FOR HOW MANY YEARS WILL YOU CONTINUE TO MAKE REGULAR"r"DEP-------------------------------",R"YOU CAN MAKE REGULAR DEPOSITS:"e" 1) YEARLY"y" 2) MONTHLY"" 3) WEEKLY""ENTER YOUR CHOICE (1, 2, OR 3) ";AA0A44140"THAT IS NOT AN AVAILABLE CHOICE. TRY AGAIN." "1,T2)5 :TALS#######.#########.##3> 1460o *********GROWTH OF MONEY BY MAKING REGULAR DEPOSITS u"THIS OPTION ILLUSTRATES THE GROWTH OF MONEY IN A""SAVINGS ACCOUNT IN WHICH DEPOSITS ARE MADE REGULARLY."&"--------------------- N11 X1T& S1S1I13 C1C1I2H I1(S1(1R))S1b I2(C1(1RC)C)C1} UG3341,X,S1,I1,C1,I2 :#########.#########.#########.#########.## T1T1I1 T2T2I2* X/ 20);"----------";51);"----------" 4 UG3381,TINTEEST"Lg)v 6);6BEGINING6;20U;"INERES TO"{37)_q "YEAR";6);"PRINCIPAL";20);"ACCUMULATE";37); "PRINCIPAL"51)"ACCeMULADE" "e---"w6);n----e----e";20);"----------"; 37);"----------";51);"----------" T1T20 S1C1P "DAILY WOULD BE ENTERED AS 365, QUARTERLY AS 4, ETC. ";F& C+ "ENTER THE NUMBER OF YEARS FOR THE COMPARISON (MAX. OF 30) ";. 0 T: T0T313170D "MAXIMUM IS 30 YEARS. TRY AGAIN."N 3115=l ~);"SMPLElINTEEST"w37)w"COMOUNDl(AMOUNT TO BE INVESTED) ";' Ph "ENTER THE INTEREST RATE (IE. 6 1/2 PCT. ENTERED AS 6.5) ";o R{ RR100 "ENTER THE NUMBER OF COMPOUNDING PERIODS EACH YEAR FOR THE " "COMPOUND INTEREST AS A WHOLE NUMBER. FOR EXAMPLE COMPOUNDED"?!;"-------------"p F *********SIMPLE VS COMPOUND INTERESTL  "THIS OPTION ILLUSTRATES THE DIFFERENCE BETWEEN SIMPLE" "AND COMPOUND INTEREST." "----------------------------------------------------"  "WHAT IS THE PRINCIPAL HEADER FOR CERTIFICATE TABLE)h Qi 16);"BEGINNING";28);"QUARTERLY";gj 43);"PRINCIPAL"l "YEAR";6);"QUARTER";16);"PRINCIPAL";m 28);"INTEREST";40);"PLUS INTEREST"n "----";6);"-------";15);o "----------";27);"----------";40)Q11$ ((N24))(Q1)2580+ Q2 XI 27);"----------"Y UG2591,T3m :TAL#######.##w( 1460T SUBROUTINES FOR CERTIFICATE INTERESTU N2.25V W N21X Y N22.5Z [ N24\ ] N26^ _ N28` #g T1T2P X18# Q14/ T1T1SL S(T1(1R1)(N14))T1X T2T2Sd T3T3Sr Q12535x  UG2531,X,Q,T1,S,T2 :##########.#########.#########.## 2540 UG2536,Q,T1,S,T2 :########.#########.#########.##  Q1DED######## 8 UG2361,S>9 :WILLHAVEAUEOF$$$$$$$.##DB RL T11460V "WOULD YOU LIKE A TABLE SHOWING INTEREST BY QUARTER ";` A$j A$"NO"1460t A$"YES"2440~ "PLEASE ENTER YES OR NO" 2400  2920 SQ1T30  R4N14 2308* R1R3655 N1365Z T2901,2903,2905,2907,2909,2911f NN1N2x SP(1R1)N~ $ UG2341,P,T$(T)% :A$$$$$$$.##CERTICEMURINGAFTER###########. UG2351,R100,C$(C)/ :INVESTED##.###PERCENTERESTCOMPOUNZSC100C700256&'OZK02:CS(ZK)0Q'OZI02558:CS(ZK)CS(ZK)(ZSZI)::'OCS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)25620500'OSLOT(ZS49152)256'OFACECOMMPAR'O(ZS5)S5(FACE)(ZS7)S7(FACE)20530'PFACE( PFACEOF CHARACTERS PER LINE!&`OF1127'&jO2&tO20550k&~O SEARCH SLOTS FOR A PARALLEL OR SERIAL INTERFACE&OS5(3),S7(3):COMM1:SERIAL2:PAR3&O 24,56,56,24,72,72 &OFACECOMMPAR:S5(FACE),S7(FACE):&OCS(2)&OC10049408:C70050944'OT)202908%O24:"PRESS SPACE BAR TO CONTINUE.";:AA$:J%$OFACE120560%.OFACE$"COMM, SERIAL OR PARALLEL"ĺD$;"PR#";SLOT:20628%8OD$;FACE$:20628%BO10:868:"WHICH SPEED (10 OR 30 CPS) ";%LOZN$:ZN$"10"ZN$"30"20290&VOL180: # $$NFACE$"COMM, SERIAL OR PARALLEL"6$ND$(13)(4)i$N(ST)FACE$"COMM, SERIAL OR PARALLEL"İ20350$OFACE$"COMM, SERIAL OR PARALLEL"FACE1PR0::S1:%O:5:"TURN YOUR PRINTER ON AT THIS TIME.":FACE$"COMM, SERIAL OR PARALLEL"FACE1(S#& C832347#' I91C8,#( Q9$Q9$"0"4#) I9>#* 2348P#+ Q9$Q9$".00"V#, f#'G71999:#'24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0#'(16384)12810005#'16368,0#':#N:12:"ONE MOMENT PLEASE..."MENT) OF ";" "$";T" ." I9(N1R)TA6" 12r" "TOTAL AMOUNT OF INTEREST IS $";(((I9.005)100))100|" 1410" C90" B91" C9C91" A9B92338" B9B910"! 2334"" C9C92"# Q9$(A9)"$ (Q9$)C92348#% C8C9(Q9$)HE CALCULATED PERIOD IS ";N1:.!I9(N1R)A8!2325D!N1N11a!A1R(1((1I)(N1)))I!A1(((A1.005)100))100!:6!R(((R.005)100))100!T(((((AA1)(1I)).005)100))100 "N1;" PAYMENTS OF $";R;" AND"::" 1 (LAST PAYATED INTEREST PER PERIOD IS ":N 6"GREATER THAN PERIODIC PAYMENT AMOUNT,":` 9"TRY AGAIN."k >10000t H500~ RN11 \A1R(1((1I)(N1)))I fA1(((A1.005)100))100 pA1A2200 zA1A2240 N1N11 02140 :8!"TPER PERIOD IS ";(I100);" PER CENT"2I9(RN)A8B2325k"PERIODIC INTEREST RATE ";:CV(37)| 40000:I1ZN I10ĢCV1:868:2050(20):10);::"WORKING"::(20)II1100 AIR02100*02130 4:4:"CALCUL(37)040000:NZN91N1N(N)ĢCV1:868:1830^5(20):10)::"WORKING"::(20)d6q:IT.0001DIR(1((1IT)(N)))ANIIT1910XITI:1860vI((I.000005)100000)100000{:6#"THE CALCULATED INTEREST RATE"::"(A9F1*2332-F1$Q9$+1"TOTALS"M2" ";R1$;:13:E1$;:22:F1$SZn"--------------------------------------":PR2ĺ(13);(4);"PR#0":430001000043000"ENTER YES OR NO"&"TOTAL NUMBER OF PAYMENT PERIODS ";:CVL916PR2122501240$/100008960GJN1090u"--------------------------------------"(37)18PR2ĺ"PRESS 'SPACE BAR' TO CONTINUE.";:A$::DV3:1050A9R12332R1$Q9$A9E1 2332#E1$Q9$R1R!R1((R1.005)100)100*A9R42332?R$Q9$HA9ER2332]E$Q9$fA9Fp2332{F$Q9$A9G2332G$Q9$J;:5:R$;:14:E$;:22:F$;:32:G$;(G$)9ĺJ9(0):AGG01250L9L91((F1F.005)100)1003SR1((R1R.005)100)100=T1170GVEAIaWE((E.005)100)100k`FREaF((F.005)100)100jGAFkG((G.005)100)100tE1E1EuE1((E1.005)100)100~F1F1FF1((F1.005)100)100R1 PAID DUE"@8"--- ------- -------- --------- -------"O=DV31300YBJJ1gCJ11110{L(GAI)R1110MR((GAI.005)100)100NE((RG.005)100)100OF((RE.005)100)100PG0QE1((E1E.005)100)100RF10 pR10(1)C"---------------------------------------"LL90XP9P91" LOAN AMORTIZATION SCHEDULE ";"PAGE NO."P9$"PAY";:5:"PAYMENT";:13:"INTEREST";:22:"PRINCIPAL";:33:"BALANCE"."NO. AMOUNT PAID IS NOW $";ZZ1;" AVAILABLE.") 6000:\ "HOW MUCH NEW MONEY HAVE YOU"::"CREATED? ";l (40000:TZNr - <TZ1ĺ"RIGHT!":3940 P"NO, THE AMOUNT OF NEW MONEY YOU HAVE": Z"CREATED IS $";Z1 d: xH90!"FOR EVERY X NO. OF DOL"COMMUNITY? ";L40000:RZN$`?tRZZ1ĺ"GOOD!":3820OH9103820z"YOUR ORIGINAL DEPOSITORS CAN HAVE":"$";Z;" AVAILABLE TO THEM AND MR. A.S.":"BORROWER HAS $";Z1;" AVAILABLE."H9H9103620 "THERE:36005 "REMEMBER THAT YOU HAD $";G1;" AND YOU":a "HAD TO GIVE $";M1;" TO THE FEDERAL":x "RESERVE BANK.": H9H91 03420H90:6000:$"THERE IS $";N1;" IN YOUR BANK VAULT,":."BUT HOW MUCH IS AVAILABLE TO THE":891: 03200- "NO, THE ANSWER IS ";M154 :?H H90KR 6000:\ "NOW HOW MUCH CASH DO YOU HAVE LEFT IN"::"YOUR VAULT? ";p 40000:NZNz  N1G1M1 NN1ĺ"CORRECT!":3600 H91ĺ"YOU NOW HAVE $";N1;" IN YOUR BANK VAULT."VE $";S;" ON RESERVE IN THE"::"FEDERAL BANK.";b 6000:El H90 "HOW MUCH ADDITIONAL CASH MUST"::"YOU GIVE THEM ? "; 40000:MZN M1SC1  MM1ĺ"RIGHT!!":3380 H9103360 "YOU HAVE ALREADY GIVEN THEM $";C1 H9HTS ON RESERVE.":, F@ "IF YOUR ASSETS ARE NOW $";ZZ1;", HOW":nT "MUCH MUST YOU HAVE IN RESERVE? ";~h 40000:LZNr | L(L.5) S((ZZ1)(Y.01).5) LSĺ"RIGHT!!"0 D Y.01;" X ";ZZ1;" = $";S;" SO YOU MUST":/X "HA:"YOUR ASSETS ARE $";(ZZ1)( 02820N ZZ1;" IS ABSOLUTELY CORRECT!":v "ALL IDLE CASH + LOANS = ASSETS": 20:"= LIABILITIES." 6000: "REMEMBER, THE FEDERAL RESERVE BANK": "REQUIRES YOU TO HAVE ";Y;"% OF YOUR":" "ASSE  18407 "DON'T FORGET THE $";C1;" IN RESERVES."D H9H91T H9202720^( 1840< "YOU STILL HOLD $";G1;" SINCE THAT":F "$";Z1;" YOU LENT MR. BORROWER WAS IN":P "A CHECKING ACCOUNT."d H9H91x H9202720 1840 :FORGOT YOUR IDLE CASH, $";C1;" IN":P. "THE FEDERAL RESERVE AND $";G1;" IN":c8 "YOUR VAULT."pL H9H91` H9202720t 1840 "YOUR LOAN IS ALSO AN ASSET. PLUS THE": "$";Z1;" LOAN MR. BORROWER OWES YOU." H9H91 H9202720SERVE, PLUS":(p"YOUR $";Z1;" LOAN."5H9H91EH9202720O1840}"WHAT ABOUT THE $";C1;" IDLE CASH THE":"FEDERAL RESERVE HOLDS FOR YOU AND THE":"$";Z1;" MR. BORROWER OWES?"H9H91H9202720 1840$$ "YOU GAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030H- :R$"Y"Ĭ\-*(1023)123Āp-4D$;"RUN HELLO"-PCH(36):CV(37):-QâCV1:36,CH:868:-Rù34,ZC1:ZC::34,0:CV2: CH(36):CV(37),A"";ZN$:,B(ZN$)0ZN$"0"40006u,CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001,FZM:868:CV1(CV23):ZN(ZN$):,JCV1:36,CH:868:,D$(13)(4),:, 10:"DO YOU WANT TO TRY"8-12:868:"A169 +P 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 +P 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0 ,@52,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 +P 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,ZN$"10"Ĺ802,82:818,82")PSD1/)P:ST1:P)P CALL775 TO BEGIN PRINTINGb)P "*PRINTER*")P 76,5,3,2,255,255,255,255,24,176,56,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248z*P 7,10 (P:3(P NO KNOWN PRINTER INTERFACE FOUNDG((PFACE1:SLOT1}(2P FOUND INTERFACE 'FACE' IN SLOT 'SLOT'(?|}?~?xp~@|_>?7{ox?s}|q?_}v{}>{o7_?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n{~owxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_"Y"Ĭ+*(1023)123Ā.+4D$;"RUN HELLO"2:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001[*FZM:868:CV1(CV23):ZN(ZN$):t*JCV1:36,CH:868:*D$(13)(4)*:* 10:"DO YOU WANT TO TRY"*12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030+ :R$"RATE.")T6000)h43000%)|Q$>)(Q$,1,1)"Y"00160D))"PLEASE COME BACK ANOTHER TIME AND TEST YOUR KNOWLEDGE."))p24:"PRESS SPACE BAR TO CONTINUE";:A1$::)@CH(36):CV(37))A"";ZN$)B(ZN$)0ZN$"0"400063*CZM (AS A BANKER), RUN"C("THIS PROGRAM AGAIN WITH YOUR TEACHER.":o(:"IF YOU WOULD LIKE TO SEE HOW THE":("FEDERAL RESERVE RATE AFFECTS YOU ABILITY"("TO CREATE MONEY, RUN THIS PROGRAM AGAIN,"),"BUT CHOOSE A DIFFERENT FEDERAL RESERVE"::CE BETWEEN THE AMOUNT OF":E'P"CURRENCY AND THE AMOUNT OF MONEY":l'd"AVAILABLE (YOUR LIABILITIES).":'W1;" - "Z;" = ";A2:'"YOU HAVE CREATED $";A2'6000''"IF YOU ARE NOT SURE THAT YOU UNDERSTAND":("HOW YOU CREATED MONEY MUCH MONEY COULD YOU AS A BANKER"::"CREATE? ";A&40000:AZNG&S&A2W1Zo&AA2ĺ:"RIGHT!":5300&("REMEMBER THAT THERE IS $";Z;" IN":&2"CURRENCY IN YOUR ECONOMY. THE AMOUNT":&<"OF MONEY YOU HAVE CREATED IS THE":'F"DIFFERENXIMUM ASSETS COULD BE ";W1;",":J%V"SINCE ";Y;"% OF THAT WOULD BE ";Z:{%`"REMEMBER THAT YOUR ASSETS = LIABILITIES":%t"SO THAT ";W1;" IS ALSO THE AMOUNT OF":%"MONEY AVAILABLE TO THE PEOPLE IN YOUR":%"COMMUNITY."%6000:1&"HOW BE ONLY ";Y;"%":?$"OF YOUR ASSETS, WHAT IS THE MAXIMUM":c$"AMOUNT YOUR ASSETS CAN BE? ";s$ 40000:WZN$ W1((Z(Y.01)).5)$*$4(WW1)104900$"SORRY, THAT'S NOT RIGHT":$04940$$"THAT'S IT!":$8W1W %L"YOUR MAN":.#X"CURRRENCY, SO YOU HAVE $";Z;" IN":V#l"CURRENCY AVAILABLE TO YOU.":4560#"THAT'S CORRECT. YOU HAVE $";Z;" IN":#"IN CURRENCY AVAILABLE TO YOU."#6000:#"SINCE THE AMOUNT OF CURRENCY AVAILABLE":$"TO YOU ($";Z;") HAS TO000:6""HOW MUCH CURRENCY IS THERE AVAILABLE IN":e""YOUR ECONOMY (THEREFORE IN YOUR BANK)":""FOR YOU TO GIVE THE FEDERAL RESERVE BANK"""TO HOLD FOR YOU? ";"40000:VZN"&:"0VZ04540#D"YOU STARTED YOUR BANK WITH $";Z;" ILARS, YOU WILL":B!"INCREASE BOTH ASSETS AND LIABILITIES IN":m!"THE FEDERAL RESERVE BANK BY ";Y;"%."u!h:!|"YOU CAN CONTINUE TO LEND MONEY AS LONG":!"YOU HAVE ENOUGH CURRENCY TO PAY ";Y;"%":!"TO THE FEDERAL RESERVE BANK.""6ZyxA?ooo}={{^o^k|sg~np{p{~`{{aqjwxO8oJV[_{]n]vox?>pp}xO?_}v}<{o??X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g~~wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nnfw?~oxp67\_{]qcfoxG?G|}x?_}v{}>{o7_?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k~}wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@x`?8ok=?o{z^>?Wt?~Ox?x|}?`

x`?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[m|swsownw_opq?xgz#??     ԠM͠'٠%РϠ"ӠϠ ҠǠŠBˠ̠Ӡ)dQD." ? " "B CLEANUPBC "CLEANUP ALLOWS YOU TO DELETE OLD"gD "FILES THAT WERE USED WITH THE"~E "MANAGE PROGRAM."I" PAYROLL?"PAYROLL IS A SIMULATED PAYROLL PROGRAM." I " "S " "_( TAXES) "TAXES HELPS THE USER COMPLETE AN"* "INCOME TAX FORM."+ " "< "TYPING" = "TYPING GIVES THE USER PRACTICE IN" > "IMPROVING TYPING SPEEANAM /y"LOANAM PERFORMS LOAN ANALYSIS WITH"Kz"AMORTIZATION TABLE." U{" " a|MANAGE}"MANAGE IS A MANAGEMENT SIMULATION FOR" ~"THREE COMPANIES."" "  MONEY"MONEY TESTS USER ON MONETARY PRINCIPLES."" "  " 36,CH:868:. "BUSINESS - VOLUME 1",9; "BANK"e"BANK SOLVES THREE KINDS OF BANKING"w"PROBLEMS."  " "l "INTEREST"m "INTEREST SIMULATES INTEREST AND COM-"n"POUNDING EFFECT ON A SAVINGS ACCOUNT." o " "x LO"N$(Q,1)"INTREST"* D$;"RUN ";N$(Q,1)@ CH(36):CV(37)f "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:68 A$! (A$,1,1)"Y"330; (A$,1,1)"N"ė:280c "PLEASE ANSWER YES OR NO";:1:390v Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." N$(Q,1)"INTERESTYPE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868L ^490:QZN_ hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,2):18:N$(Q,3):20:N$(Q,4)   23:"DO YOU WANT ANOTHER DESCRIPTION";:8$(T,1);:20 T2(T2)ĺ:& T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 6(ZN$,1)"E"Ĺ1023,9::: @QZN:450 J34,15:16:> T16:"T384)12832)JJ1:J40030+ #16368,01 (; dZM24I xN$(24,4)_ D$;"NOMON,C,I,O"m 1023,123| ::255: T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 4 T1N C14 N$(T,C) C T;" ";N  PROGRAM: HELLO2 VERSION: 2.0 (TMB)N LAST UPDATE: 6/18/80T k (C) MECC, 1979v22016D$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 ((16384)12827)((16     L8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&36,CH:868: D$(13)(4)(:F 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"I @24:"PRESS SPACE BAR TO CONTINUE";/ JTT$7 T:M @CH(36):CV(37)u A"";ZN$:(ZN$)(((ZN$)))40003 B(ZN$)0ZN$"0"40006 CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001 FZM:868:CV1(CV23):ZN(ZN$):JCV1:20:"YES OR NO PLEASE";:CV1::240I 20:868:"READY, GET SET...."S 8000^ :130o "34,0:43000 ,:"TIME = ";(C100)100;" SECONDS": 6"WPM = ";((A$)12C100)100 ; @240 ^"READY, GET SET...." c8000 h:130&50 EE$EE$(AA):(AA);:16368,0:CC2:150J (13);:CC59:A$EE$X 16368,0g B$A$300 :"LETTERS INCORRECT!" "WANT TO TRY AGAIN";:868 16368,0 Q9(0) C$ (C$,1,1)"N"290% (C$,1,1)"Y"CV(37):1E10:EE$"":C0:16368,07 CC1:CTC15104:190N (16384)128150n AA(16384)128:AA13190} AA8180 (EE$)0178 (EE$)1179 EE$(EE$,(EE$)1) (0):" ";:(0):16368,0:150 16368,0:150 EE$"":178 F8:958:"ENTER THE SENTENCE WHICH YOU WOULD LIKE"f P:"TO PRACTICE. (39 LETTERS MAXIMUM)":n ZB$ [(B$)39(B$)070 _: d"BEGIN AS SOON AS YOU SEE THE QUESTION" n:"MARK." x8000 }3:" ";B$;:34,3: :"?"; T1 COPYRIGHT MECC 1979 TYPING 8/8/79 FPH AUTHOR: UNKNOWNt ASSOCIATED PROGRAMS AND FILES: NONED$(13)(4):D$"NOMONC,I,O"::255::ZM24("THIS PROGRAM WILL MEASURE YOUR TYPING"2:"SPEED ON ONE SENTENCE.": <     TION EXPENDITURE.";:40000:A(I,1)ZNX"ENTER R AND D EXPENDITURE.";:40000:A(I,2)ZN"ENTER PLANT IMPROVEMENT EXPENDITURE.";:40000:A(I,3)ZNA(I,1)001790A(I,2)001790A(I,3)001790 HM(I,1)M(I,2)M(I,3)M(I,4)A(I,1)A(I1)ZN&X"AREA 2 ";:40000:M(I,2)ZNGZ"AREA 3 ";:40000:M(I,3)ZNh\"AREA 4 ";:40000:M(I,4)ZN|hM(I,1)001790rM(I,2)001790|M(I,3)001790M(I,4)001790"***************************************"$"ENTER PRODUC";:40000:P(I,3)ZN4 "AREA 4 ";:40000:P(I,4)ZNHP(I,1)001790\"P(I,2)001790p,P(I,3)0017906P(I,4)001790ST"ENTER AREA ADVERTISING EXPENDITURES."U"**************************************"V"AREA 1 ";:40000:M(I,;"CLOSE ";B$I1M'Z(I)Q(I,5).I8LL1CI1MK:{"FOR FIRM ";I;" ENTER AREA SELLING PRICES""***************************************""AREA 1 ";:40000:P(I,1)ZN "AREA 2 ";:40000:P(I,2)ZN "AREA 3 13,1),2***READ SAVED VALUES FROM FILE***>3:::D$(4)U7D$"NOMON I, O, C"g<D$;"OPEN";B$yFD$;"READ";B$PLxI1MC(I,2),R(I,5),V(I,1),L(I),Q(I,5),U(I,5),E(I,4),E(I3,4)J1N1E(I,J),E(I3,J)JI D$1.901149T11.1011494T21.01:T3T2:T4T2?01250]T11.01:T2T1:T3T1:T4T1fY10pY2.8yY33X140X24X35Z117.22 Z25.5E(13,4)119.041E(12,4)2.15(E(13,1)54.907:E(13,2)E(13,1):E(13,3)E(4."PRICE SENSITIVITY (.65 X13:Y13:A(X,Y)0:Y:Xh X13:Y12:G(X,Y)0:V(X,Y)0:Y:X X14:Y14:W(X,Y)0:Y:X X13:Y16:Q(X,Y)0:Y:X X113:Y14:E(X,Y)0:Y:X >***INITIAL VALUES AND CONSTANTS*** HM3R 216,0 650- M62:216,0:12000:@ D$;"OPEN ";B$W D$;"READ ";B$:ABr D$;"CLOSE ";B$:216,0 X14:Y15:O(X,Y)0:S(X,Y)0:M(X,Y)0:Y:X X13:Y15:R(X,Y)0:T(X,Y)0:U(X,Y)0:I(X,Y)0:Y:X X13:Y14:P(X,Y)0:D(X16:"FILE NAME";:868* B$:B$""500M M5((B$,1)):M565M590490h 5958:(A$,1)"N"645 :::D$(13)(4):D$"NOMONC,I,O":M61 ;216,0:12000 <D$;"OPEN";B$ ?D$;"WRITE";B$ XI143 YA lA vI D$;"CLOSE";B$";:868 A$% (A$,1)"Y"490: (A$,1)"N"490E 00410  0,7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50  7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50  7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50 ,4),T(3,5),W(4,4),Z(3)T Q(3,6),U(3,5),I(3,5),E(13,4),G(3,2),C(3,4),A(3,3),V(3,2)e F(3,4),L(3)o :: "THIS IS A BUSINESS SIMULATION OF THREE": "COMPANIES COMPETING FOR THE MARKET OF": "A PRODUCT." 13:"NEW GAME (YES OR NO)@ MANAGE 8/23/79 FP1 AUTHOR: TIESg ASSOCIATED PROGRAMS AND FILES: ONE STORAGE FILED$(13)(4):D$"NOMONC,I,O" D$;"NOMON I,O,C":255:::255555:X13000:X<F O(4,5),S(4,5),M(4,5),R(3,5),P(3,4),D(3                    EST PERIOD?";:868:40000:AZN-QA113405U13_Z"HOW OFTEN IS THE AMOUNT COMPOUNDED"d"IN TERMS OF MONTHS?";:868:40000:BZNeB01365n17s"WHAT IS THE RATE OF INTEREST PAID?";:868:40000:CZNtC01390x20'"F RATE WOULD BE OVER 200":,"TRY AGAIN."<22222:965E990M(:}-"THIS SECTION CALCULATES THE BALANCE OF":2"A SAVINGS ACCOUNT IN WHICH DEPOSITS ARE":5"MADE REGULARLY."<9F"WHAT IS THE AMOUNT DEPOSITED PER"P"INTER&T(6IS12)(3C(N1)(N1)I)8T1.9951230B1280K:8bT((T1000))100"THE RATE OF INTEREST CHARGED WAS"T;" PERCENT":222222080:7 "ARE YOU SURE THE DATA IS CORRECT?":"THE INTERESTOUNT PER PAYMENT ($) ?";:40000:RZN1VBRND@`BC1170Ie:7xt"THAT IS NOT REASONABLE-- THE PAYMENTS":w"ADD UP TO LESS THAN THE AMOUNT OWED.":~"TRY AGAIN."22222965IBCMN(S12)TI100(BM)126"WHAT IS THE DOWN PAYMENT ($)?";:40000:DZN>15d"WHAT IS THE NUMBER OF PAYMENTS""EXCLUDING THE DOWN PAYMENT ?";:40000:NZN19$"WHAT IS THE NUMBER OF PAYMENTS")"PER MONTH ?";:40000:SZN.23$8"WHAT IS THE AMENT =";:ZDE6:45000:ZD$&22222020806g"THIS SECTION WILL DETERMINE THE NOMINAL":"INTEREST YOU PAY WHEN YOU PURCHASE":"SOMETHING ON CREDIT."8"WHAT IS THE CASH PRICE OF THE""ARTICLE ($)?";:40000:CZN-------"C\"TOTALS";21):ZDD1:45000:ZD$;30):ZDA:45000:ZD$I`Ta22222]f785zpE5((D1A)100.5)100zE6E5((Y12)P)E6(100E6.5)100"TOTAL PAYMENT =";:ZDE5:45000:ZD$"YOUR MONTHLY PAYM000:ZD$;$30):ZDF:45000:ZD$9(37)22İ22222B620PP52840Vo D1(D1100.5)100w:"TOTAL INTEREST PAID =";:ZDD1:45000:ZD$ *"TOTAL PRINCIPAL REPAID =";:ZDA:45000:ZD$>880H21:"-------- -0 DCANF0XD10'bT104lT1T11BvT1Z760LBT1WCCFbDCKmFEDC(C100.5)100D(D100.5)100F(F100.5)100D1D1DP516203)B;9):ZDC:45000:ZD$; 21):ZDD:45EST PRINCIPAL"< " PRINCIPAL DUE AT REPAID AT"h " AT BEGINNING END OF END OF" "PERIOD OF PERIOD PERIOD PERIOD" 34,5:35,24  Z(Y12)P &K(I(P12))100 0EAK(11(1K)Z):E(E100.5)10THE LOAN (YEARS) ?";:868:40000:YZN3 Y1395> 22222D ` "DO YOU WISH TO SEE": "1) THE TABLE, 2) THE TOTALS ONLY ?";:868:40000:P5ZN P52Č958:540 P51Ģ20:"ENTER 1 OR 2":4:431  " OUTSTANDING INTERAT IS THE AMOUNT BORROWED ($) ?";:40000:AZN5 ^11t h"WHAT IS THE INTEREST CHARGED (";(37);") ?";:40000:IZN| r14 |"WHAT IS THE INTERVAL BETWEEN": "PAYMENTS (MONTHS) ?";:868:40000:PZN P1370 19& "WHAT IS THE TERM OF LEM WOULD YOU LIKE TO WORK":R "WITH (TYPE 1, 2, 3 OR 4)?";:868:40000:Q1ZNX g Q141590v "Q131320 ,Q12311 -Q11965 .210 7:: @"THIS SECTION WILL DETERMINE PAYMENTS": E"FOR A LONG TERM LOAN." J8- T"WHES FOUR TYPES OF":$ "PROBLEMS.", :W " 1) INTEREST ON INSTALLMENT BUYING"] " 2) PAYMENTS ON A LONG TERM LOAN" " 3) BALANCE OF A SAVINGS ACCOUNT" " 4) INTEREST ON AN INSTALLMENT LOAN" 19 "WHICH PROBZ COPYRIGHT MECC, 19797d BANK 8/23/79 FPMn AUTHOR: A. WEBBix ASSOCIATED FILES:NONEsyZM24|D$(13)(4):D$"NOMONC,I,O"}55555:X13000:X11:2:"FINANCIAL PROBLEMS": "THIS PROGRAM SOLV           INS =";:ZDA(N1,8):45000:ZD$)^"TOTAL SAVINGS =";:ZDA(N1,9):45000:ZD$d"TOTAL DEDUCTIONS =";:ZDA(N1,10):45000:ZD$"TOTAL NET EARNINGS =";:ZDA(N1,11):45000:ZD$2222243000l 11,8.7,6.4,4:Q22222:5V" COMPANY PAYROLL INFORMATION"=:r"TOTAL GROSS PAY =";:ZDA(N1,5):45000:ZD$x"TOTAL INCOME TAX =";:ZDA(N1,6):45000:ZD$"TOTAL FICA =";:ZDA(N1,7):45000:ZD$#"TOTAL GROUP-----------------------"%34,5:60I1NWA(I,1);4):ZDA(I,5):45000:ZD$;x12):ZDA(I,8):45000:ZD$;19):ZDA(I,9):45000:ZD$;26):ZDA(I,10):45000:ZD$;33):ZDA(I,11):45000:ZD$(37)22INİ22222:6Ip15):ZDA(I,5):45000:ZD$;?z24):ZDA(I,6):45000:ZD$;_33):ZDA(I,7):45000:ZD$|(37)22INİ22222:9I:22222:"EMP GROSS GROUP TOTAL NET""NO PAY INS SAVING DEDUCT EARN""--------------I 1:|:" EMPLOYEE PAYROLL INFORMATION"B:g"EMP NO WORK GROSS INCOME""NO EXM HOURS PAY TAX FICA""--------------------------------------"34,8:9I1N A(I,1);6)A(I,2);10)A(I,3);J)  JH A(I,10)S2 A(I,11)A(I,5)A(I,10)8 b"GROSS PAY =";:ZDA(I,5):45000:ZD$ht"NET EARNINGS =";:ZDA(I,11):45000:ZD$22222\II511$S0J1NSSA(J,I)PJA(N1,I)(S100.5)100  2500) A(I,6)T(((W100)521),E)3` 3100C W602510M 2700k A(I,6)T(((W60)21),E)u( 3100 A(I,6)0 3100T HP(E).18(W200) A(I,6)(H100.5)100 A(I,7)(4.625A(I,5).5)100 S0 J69 SSA(I,$,1)"N"1700)(Y$,1)"Y"Ģ17:1655JA(I,3)A(I,3).5(A(I,3)40)YEA(I,2)1hE101800qE10A(I,5)A(I,3)A(I,4)lWA(I,5)W20029004W150211092300>A(I,6)T(((W150)1031),E)3100W1002310 714:868B<"AMOUNT FOR GROUP INSURANCE?";:40000:A(I,8)ZNU=A(I,8)01335cA16:868F"AMOUNT FOR SAVINGS PLAN?";:40000:A(I,9)ZNKA(I,9)01345rA(I,3)401700w:"TIME AND A HALF FOR HOURS OVER 40";:868|Y$ (Y A(I,2)61314@ :"EXEMPTIONS MUST BE LESS THAN 6":1304S "A(I,2)01304e #10:868:10 ("NUMBER OF WEEKLY HOURS WORKED?";:40000:A(I,3)ZN )A(I,3)11315 -12:868 2"HOURLY RATE OF PAY?";:40000:A(I,4)ZN 3A(I,4)01325 I 9 L"FOR EACH EMPLOYEE, TYPE THE NUMBER OF"g Q"EXEMPTIONS, WEEKLY HOURS, HOURLY RATE," V"GROUP INSURANCE, AND SAVINGS." :34,4:35,24 I1N 6:"EMPLOYEE NO.";I 8 "NUMBER OF EXEMPTIONS?";:868:40000:A(I,2)ZNPERFECTLY WITH CURRENT TABLES"J "SO THE PROGRAM SHOULD BE USED AS A":y "SIMULATION, NOT AN ACTUAL CALCULATION": "PROGRAM." 15 "HOW MANY EMPLOYEES IN YOUR COMPANY?";:868:40000:NZN "N1N50790 % I1N A(I,1)IORMATION." @ "THIS PROGRAM IS DESIGNED FOR USE BY AN":o "OFFICE PRACTICE CLASS AS A SIMULATION": "OF A PAYROLL PROGRAM USED BY A SMALL": "BUSINESS." 22222   "HOWEVER, THE TAX TABLES MAY NOT": "CORRESPOND P(I) I :: " PAYROLL'S INSTRUCTIONS"@ F t "THIS PROGRAM WILL ALLOW YOU TO ENTER": "PAYROLL DEDUCTION INFORMATION FOR": "EMPLOYEES OF YOUR COMPANY, AND WILL": "CALCULATE YOUR COMPANY'S PAYROLL": "INF COPYRIGHT MECC, 1979; PAYROLL 8/23/79 FP[ AUTHOR: BOB JAMISON, MECCj255:::55555:X12000:D$(13)(4):D$"NOMONC,I,O"dA(50,11),T(35,6),P(6)I135,J16T(I,J)JXII16            NAME, ADDRESS, SOCIAL SECURITY ":S(" NUMBER, OCCUPATION, AND CHECKED IF":2" YOU WANT ONE DOLLAR TO GO TO PRESID-":7" ENTIAL ELECTION CAMPAIGN FUND, DO SO":<" NOW!"F:P"2) CHECK BOX NUMBER1, SINGLE, UNDER":T""2) PRINTED ON THIS SCREEN"F10:"ENTER 1 OR 2";:868:P$:P(P$)bP1İ20200::::1275vP2P11268|19:"TAX"13:"INSTRUCTIONS"13:"************" "1) IF YOU HAVE NOT ALREADY PRINTED YOUR":$#" EFUNDEDX1101190"H2H32H2E01220OHEH2: REFUND AMOUNT Z01240tHH2E: BALANCE DUE}J1H$""H$11111:::"WOULD YOU LIKE YOUR TAX INSTRUCTIONS":"1) PRINTED AT A PRINTER":)"6) WHAT WAS THE AMOUNT OF FEDERAL"U" INCOME TAX WITHHELD?";:40000:FZN[8vB TOTAL OF TAX CREDITSLEBFV FIGURES TAX ON TAXABLE INCOME`G177jH1,H2,H3tTH101170~G DETERMINES BALANCE DUE OR AMOUNT RO "44:868:" CANDIDATES FOR PUBLIC OFFICE";<E$DB0Z(E$,1)"N"1010p(E$,1)"Y"905:" ....ENTER AMOUNT PLEASE?";40000:CZN SORTS OUT DEDUCTIONS FOR CONTRIBUIONSB.5CB501010B50:L100\KDLf2p TOTAL TAXABLE INCOME?zTWIKT7000ė:10:"YOUR TOTAL TAXABLE INCOME IS MORE THAN ":"$7000. THIS PROGRAM CAN ONLY WORK WITH ":"INCOMES LESS THAN $7000.":11111:43000"5) DID YOU MAKE ANY CONTRIBUTIONS T'"3) WHAT IS YOUR TOTAL INTEREST"F" INCOME?";:40000:IZNLy"4) WHAT IS YOUR TOTAL INCOME RECEIVED"" FROM DIVIDENDS?";:40000:DZN  SORTS OUT DIVIDEND INCOME*D100008504K0>LDH00870R*l DETERMINE THE NUMBER OF EXEMPTIONS Tv8:868:"1) ARE YOU LEGALLY BLIND";\D$bw(D$,1)"N"700(D$,1)"Y"630X1200710X11"2) WHAT ARE YOUR TOTAL WAGES, SALARIES"" AND TIPS?";:40000:WZNURN. INSTRUCTIONS FOR PREPARING":O"YOUR 1040A TAX FORM MAY BE EITHER ":}!"PRINTED ON THIS SCREEN OR A COPY CAN":#"BE OBTAINED AT A PRINTER."&111110:D19:"TAX"N15:"QUESTIONAIRE"P15:"************"Xb0 "TAX FOR HIGH SCHOOL STUDENTS WITH AN ":\ "ANNUAL INCOME UNDER $7,000.00 WITH": "REFERENCE TO THE 1040A TAX FORM.": 11111:5 "YOU WILL RECEIVE A QUESTIONAIRE WHICH": "WILL HELP YOU IN PREPARING YOUR 1040A":#"TAX RET"" 19:868:"PERTAIN TO YOU";* G$@ (G$,1)"N"2070U (G$,1)"Y"430^ 385f :n : 15:"INFORMATION" 9:"(ABOUT TAXES PROGRAM)" 9:"*********************"   " ";C$;" THIS PROGRAM FIGURES INCOME":ELD)" F2 L" 2) BANK INTEREST STATEMENTS"8 NW T" 3) DIVIDEND AMOUNTS"] Y ^" 4) AMOUNT OF CAMPAIGN CONTRIBUTIONS" h: r CHECK TO SEE IF PERSON HAS INFORMATION TO RUN THE PROGRAM |"DO YOU HAVE THE NECESSARY ITEMS THATFOR PROGRAM 16D "ARE YOU SINGLE AND HAVE AN INCOME UNDER":] "$7,000.00.";:868e F${ "(F$,1)"N"2070 #(F$,1)"Y"251 ,:4 6"YOU WILL NEED........":: @" 1) W-2 FORMS (WAGES, TIPS, FEDERAL" D" TAX WITHHHAT IS YOUR FIRST AND LAST NAME PLEASE?"0 B$= X(B$)F Z1Q Y1Xj (B$,Y,1)" "00200q Y C$(B$,Z,YZ) 10 "HELLO ";C$;". HOPE THIS COMPUTER TAX": "SERVICE CAN BE OF USE TO YOU." CHECK TO SEE IF ELIGBLE 'Z COPYRIGHT MECC, 19797_ TAXES 8/23/79 FPcd CREATED BY PAUL DUBBELS & GEORGE HUNTn UPDATED FOR 1979 TAXES BY STEVE DORR (1/29/80)sD$(13)(4):D$"NOMONC,I,O"xz{55555:X12000:X~:( "W            ERTIFICATE"%?*" 3) COMPARISON OF SIMPLE AND COMPOUND"T+" INTEREST"Z/4" 4) GROWTH OF MONEY BY MAKING REGULAR"5" DEPOSITS">H14:1:868:"WHICH OPTION (1, 2, 3, OR 4)?";:40000:OZNMO1O4840RO1000,IT IS"" TO GROW":P"IN ADDITION A TABLE SHOWING EACH YEAR'S":|"GROWTH IS AVAILABLE FOR OPTIONS 1-3."B1ĺ:77022222: "THE OPTIONS ARE:"" 1) SAVINGS ACCOUNT"  " 2) SAVINGS C:222229"FOR EACH OPTION YOU WILL BE ASKED":J"TO ENTER:"R:q" THE AMOUNT OF DEPOSIT"w" THE RATE OF INTEREST"" THE METHOD OF COMPOUNDING THE"" INTEREST"" THE NUMBER OF YEARS THE DEPOSSIT IS MADE."u:v"2) GROWTH OF MONEY IN A SAVINGS"Qx" CERTIFICATE."Wz"3) COMPARISON OF EFFECTS OF SIMPLE VS"" COMPOUND INTEREST.""4) ILLUSTRATION OF GROWTH OF MONEY BY"" MAKING REGULAR DEPOSITS." CERT. 8.00 QTR."22222':-\X"TO INVESTIGATE INTEREST AND ITS EFFECTS"b"YOU HAVE THE FOLLOWING OPTIONS:"gl"1) GROWTH OF MONEY IN A DAILY PASSCARD"q" OR AN INSTANT INTEREST ACCOUNT IN" s" WHICH A SINGLE DEPORT. 6.75 QTR."9"4 YEAR 4 YEAR"g"CERT. 7.25 DAILY CERT. 7.25 QTR."m"6 YEAR 6 YEAR""CERT. 7.50 DAILY CERT. 7.50 DAILY"" 8 YEAR"" QTR." ."3 MONTH 90 DAY"\"CERT. 5.25 DAILY CERT. 5.75 QTR."b"1 YEAR 1 YEAR""CERT. 6.00 DAILY CERT. 6.25 QTR."22222:"2 1/2 YR 2 1/2 YR""CERT. 6.25 DAILY CE"0"ACCOUNT RATE COMP. ACCOUNT RATE COMP."VZDT2:45000:36,(37(ZD$)):ZD$"======= ==== ===== ======= ==== ====="34,5:35,24:"INSTANT""INTEREST""OR DAILY""PASSCARD 5.00 DAILY PASSCARD 5.25E REGULATED ":<m"BY THE FEDERAL RESERVE BANK OF THAT":fr"REGION. A TABLE SUMMARIZING THE":s"SAVINGS PLANS AVAILABLE IN 1978 FOLLOWS":::u22222:"BANK SAVINGS & LOANS""TYPE OF INT. HOW TYPE OF INT HOW @"INTEREST AND SAVINGS ACCOUNTS"H J"-------- --- ------- --------"P T: ^"TWO TYPES OF INSTITUTIONS WHERE YOU CAN": _"SAVE MONEY ARE BANKS AND SAVINGS AND": `"LOAN ASSOCIATIONS. THE INTEREST RATES ":h"AND TYPES OF ACCOUNTS ARD ON THIS SCREEN", 12:868:B$:BB(B$)B BB1İ20200:255W BB2BB1248] s (A1$,1)"N"760z 8 ""WOULD YOU LIKE A TABLE OF TYPES OF": #"ACCOUNTS";:868 'A$ ,(A$,1)"N"535 1(A$,1)"Y"285 6 ?:#TO EXPLORE":: "THE EFFECTS THAT INTEREST RATES AND":g "COMPOUNDING METHODS HAVE ON SAVINGS": "ACCOUNTS AND SAVINGS CERTIFICATES." 22222:280 :6 "WOULD YOU LIKE THE TABLE:": "1) PRINTED ON THE PRINTER": "2) PRINTE "BANKING INSTITUTIONS FOR SUCH SERVICES":V "AS CHECKING, LOANS, AND SAVINGS."^ : "BEFORE BANKS CAN PROVIDE LOANS THEY": "MUST HAVE REGULATED AMOUNTS OF MONEY": "IN SAVINGS ACCOUNTS." : "THIS PROGRAM WILL ALLOW YOU S AND COMPOUNDING METHODS":4 "HAVE ON SAVINGS."B 14:868c "DO YOU NEED INSTRUCTIONS";l A1$ (A1$,1)"Y"215 (A1$,1)"N"760 20:"PLEASE TYPE YES OR NO" 140 "THE NATIONS ECONOMY DEPENDS HEAVILY ON":.KZ COPYRIGHT MECC, 1979:d INTEREST 8/23/79 FPZn AUTHOR:GARY SCHAFER, MECCwx LANGUAGE: APPLESOFTy255:::}BB24"WELCOME TO INTEREST, THIS PROGRAM":"ALLOWS YOU TO EXPLORE THE EFFECTS": "INTEREST RATE                                           9(NR)A%I9((I9.005)100)100-10U" THE AMOUNT OF INTEREST IS $";I9]16|"DO YOU WANT A SCHEDULE";50000Z$Z$(Z$,1,1)Z$"Y"İ50002:805 Z$"N"İ50002:1430ZC:"YES OR NO PLEASE.":50001 760.868:650NN1N2(II1(N1100)5Y1690PRAI(1((1I)(N)))jR((R.005)100)100s:7"THE PAYMENT AMOUNT IS $";R720AR(1((1I)(N)))IA((A.005)100)100:7" THE PRINCIPAL IS $";A I40000:I1ZN)mI10ĢCV1:868:610EnI1((I1.005)100)100Kqv"NUMBER OF PAYMENT PERIODS PER YEAR ";:CV(37)40000:N1ZNN11N1(N1)ĢCV1:868:630"NUMBER OF YEARS ";:CV(37)40000:N2ZN N21ĢCV1:ZN;A0ĢCV1:868:560#<=?A((A.005)100)100JDY2610kN"PAYMENT AMOUNT ";:CV(37){X40000:RZNYR0ĢCV1:868:590ZR((R.005)100)100:]Y31830^Y42050b"SIMPLE ANNUAL INTEREST RATE ";:CV(37) lR:":::590Y2540L"TO CALCULATE PAYMENT AMOUNT ENTER:":::560YY3550!"TO CALCULATE PERIODIC INTEREST RATE"::"ENTER:":::560&"TO CALCULATE THE NUMBER OF PAYMENTS"::"ENTER:"::0"PRINCIPAL ";:CV(37)1:40000:Aк'" (3) PERIODIC INTEREST RATE":;" (4) PERIOD"C:a"WHICH OPTION (1 - 4)?";l50000|40000:YZNY(Y)Y1Y4ĢZC:"1, 2, 3, OR 4 PLEASE.":50001:49050002:3Y1530 "TO CALCULATE PRINCIPAL ENTECE DUE."10000::4:"INPUT INTEREST RATES AS WHOLE NUMBERS. ":"FOR EXAMPLE, 4 PERCENT WOULD BE ENTERED ":"AS 4, NOT .04"10000:3"THE OPTIONS FOR CALCULATION ARE:"" (1) PRINCIPAL":" (2) PAYMENT AMOUNT": AMOUNT, AND PRINCIPAL ARE GIVEN"-h100004m5er"IF DESIRED, A SCHEDULE IS AVAILABLE FOR":w"(1) PRINCIPAL AND (2) PAYMENT AMOUNT":|"SHOWING THE PAYMENT NUMBER, PAYMENT":"AMOUNT, INTEREST PAID, PRINCIPAL PAID,":"AND BALAN"(2) PAYMENT AMOUNT--WHEN PRINCIPAL,":U"" INTEREST RATE AND PERIOD ARE GIVEN"],:6"(3) INTEREST RATE--WHEN PERIOD, PAYMENT":@" AMOUNT, AND PRINCIPAL ARE GIVEN"J:T"(4) PERIOD--WHEN INTEREST RATE, PAYMENT":"^" Y FROM":_ "YOUR OWN PERSONAL LOAN SCHEDULES BY"::"SMALL AMOUNTS DUE TO THESE FACTORS.":g 24r 10000 " LOANAM CALCULATES:":: "(1) PRINCIPAL--WHEN PAYMENT AMOUNT,"::" INTEREST RATE,"; " AND PERIOD ARE GIVEN" :'ANNUAL":W "INTEREST RATES, AND CALCULATIONS"::"ROUNDED TO TWO DECIMAL PLACES.": "IT FURTHER ASSUMES THAT PAYMENTS ARE": "MADE AT STRICT REGULAR INTERVALS OF"::"TIME. THE AMORTIZATION SCHEDULES": "PRODUCED BY THIS PROGRAM MAY VARE"::"COMMERCIAL LOANS USE A 365 DAY YEAR.":[ "SOME BANKS USE ROUNDED CALCULATIONS": "TO TWO DECIMAL PLACES WHILE OTHERS"::"ROUND TO THREE OR MORE PLACES.": 10000 "THIS PROGRAM BASES ITS CALCULATIONS"::"ON A 360 DAY YEAR, SIMPLE ::W "LOANS AND AMORTIZATION SCHEDULES MAY"::"VARY ACCORDING TO THE LENDING": "INSTITUTION AND THE CALCULATIONS"::"THEY USE. TYPICALLY REAL ESTATE LOANS": "USE A 360 DAY YEAR AND SIMPLE INTEREST":. "TO CALCULATE A SCHEDULE WHILONTROL DATA CORP. / (13);(4)"NOMONC,I,O"? ZC22:ZM23G :a 8:15:"L O A N A M" 20:"DO YOU WANT INSTRUCTIONS"; 50000 A$ (A$,1)"N"İ50002:407 (A$,1)"Y"İ50002:220 ZC:"YES OR NO PLEASE.":50001:170 %Z COPYRIGHT MECC 1979Td PROGRAM NAME: LOANAM VERSION: 8/21/79 FPmn AUTHOR: R.E. SMITHx ASSOCIATED PROGRAMS AND FILES:NONE : FOR FURTHER INFORMATION ON BASIS OF PROGRAM SEE THE TEXT : INTEREST IN MONEY, R.E. SMITH, C                    GAIN ? ";40000:KZN 2KZZ102760BKG102240RKZ102340a KZ02440x K(ZZ1C1)025404KZ1C102620H"YOUR IDLE CASH IS $";C1;" HELD BY":R"THE FEDERAL RESERVE, PLUS YOUR $";G1\:"IN CASH YOU HELD IN RE ";Z1;" = TOTAL LIABILITIES"::25:"= $";ZZ17+H90A06000G:lX"WHAT ARE YOUR TOTAL ASSETS? ";|l40000:KZNvwH902000KZZ102760"REMEMBER ASSETS = ALL IDLE CASH + ALL"::"LOANS WHICH COULD BE CALLED.": "TRY A6000:-|"NOW WHAT ARE YOUR LIABILITIES?";=40000:JZNE:QJ1ZZ1kJJ1ĺ"RIGHT!":1810"REMEMBER, YOUR ORIGINAL DEPOSITORS CAN":"TAKE AWAY YOUR ORIGINAL $";Z;" AND":"A.S. BORROWER CAN TAKE AWAY $";Z1.Z;" +ES."::9"SUPPOSE THAT ALPHONSE S. BORROWER COMES":`""TO YOUR BANK TO BORROW $";Z.4:,"FOR HIS BUSINESS. YOU AGREE TO LEND":@Z1(Z.4.5)T"HIM THE MONEY, SO YOU SET UP A CHECKING":h"ACCOUNT FOR HIM IN THE AMOUNT OF $";Z1:0000:GZNZ dG1ZZY.01:xGG1ĺ"RIGHT!":1500"$";Z;" - $";C1;" = $";G1::"YOU HAVE $";G1;" IN EXCESS RESERVES."6000:"REMEMBER LIABILITIES = ALL THE DEMAND":"DEPOSITS. YOU HAVE $";G1;" IN":"EXCESS RESERV101270 +Z;"X";Y.01;"=";C1:1280;:"RIGHT!"Aq"YOU MUST PRESENT TO YOUR FEDERAL RESERVE""BANK $";C1;" IN CURRENCY TO HOLD":("FOR YOU."260007<"WHAT IS THE AMOUNT OF YOUR EXCESS":F"RESERVES? "; P4 ARE":0Y;"%, HOW MUCH CURRENCY MUST YOU":^"PRESENT TO YOUR FEDERAL RESERVE BANK":"TO BACK-UP YOUR DEPOSITS?";40000:CZN$C1ZY.018CC101270L"IN OTHER WORDS--WHAT IS ";Y;"% OF ";Z;"?":`40000:CZNtCC%H"WHAT ARE YOUR TOTAL ASSETS?";5\40000:BZN;fJpBZ00940"YOUR ASSETS MUST EQUAL LIABILITIES,"::"SO ASSETS = $";Z00960"RIGHT ON!"::"ASSETS = LIABILITIES = $";Z6000"IF THE FEDERAL RESERVE REQUIREMENTS;40000:AZN&AZ00800R"YOUR LIABILITIES = TOTAL DEPOSITS.":"PEOPLE CAN COME TO YOUR BANK AND TAKE":"AWAY $";Z;". YOU ARE LIABLE"::"FOR $";Z 00820 "CORRECT!!"::"LIABILITIES = TOTAL DEMAND DEPOSITS."4::" ALL OF WHICH IS DEPOSITED IN YOUR"::" BANK.":g D"3. ALL MONEY TRANSACTIONS ARE MADE BY ": X" DEPOSITORS AND ARE CONDUCTED BY CHECK" l"4. THE FEDERAL RESERVE REQUIREMENT=";Y;"%" 6000 4"WHAT ARE THE TOTAL LIABILITIES?"ONTROL THE AMOUNT OF INCREASE.") 6000Q :"ASSUME THAT YOU ARE A BANKER": "OPERATING UNDER THE FOLLOWING ECONOMIC": "CONDITIONS--": "1. YOUR BANK IS THE ONLY BANK IN"::" ECONOMY.": 0"2. THERE IS $";Z;" IN CURRENCY,":7 :Y20300 h:4@ |"WE ARE NOW READY TO BEGIN. YOU WILL":l "WORK OUT THE DETAILS OF THOSE BANK": "LENDING PRACTICES THAT INCREASE THE": "FLOW OF THE ECONOMY. ALSO, YOU WILL": "SEE HOW THE FEDERAL RESERVE REQUIREMENTS " "C";:868 40000:ZZN= Z(Z)1Z5000Z100000.00180E :v "INPUT YOUR FEDERAL RESERVE REQUIREMENT. " "PICK EITHER 10%, 12.5%, 15%, OR 20%": ,18:"(INPUT AS 10, 12.5, 15, OR 20) ?";:868 @40000:YZN TY10Y12.5Y15TO UNDERSTAND HOW BANKS":0 d"OPERATE.":6000_ n:"BEFORE WE START, TWO DECISIONS MUST":q x"BE MADE.":w "INPUT THE AMOUNT OF MONEY YOU WISH TO": "START OUT WITH. (AN AMOUNT FROM $5000": 11:"TO $100000 WILL BE SUFFICIENT) ?/# COPYRIGHT MECC, 19797 MONEY 8/23/79 FPd( AUTHORS: DEBBI WINBERG AND TODD GREGORn>ZM22?D$(13)(4):D$"NOMONC,I,O"A::255:F6:16:"M O N E Y"H16P"THIS IS AN EXERCISE IN USING MONETARY": Z"PRINCIPLES            6ė:"SORRY, I CAN NOT FIND THAT FILE... TRY AGAIN.":10000:70N 105a 'G71999::1 '24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 '(16384)12810005 '16368,0 '24:1:868:1:1:IE-PROTECT STICKER FROM THE EDGE OF THE DISKETTE.":10000:105 RE8ė:"INSERT THE BUSINESS DISKETTE, AND CLOSE THE DISK DRIVE DOOR...":10000:105 RE10RE13ė:"YOU MAY NOT DELETE THAT FILE... ENTER ANOTHER.";:10000:70E REDONE.)";:1:1H P23:868:"WHAT IS THE FILE'S NAME? ";NN$:NN$""80h ZA((NN$,1)):A65A9080 dNN$"DONE"ĉ::62 i34,21: n200 xD$"DELETE "NN$ }216,0 70 70 RE(222):216,0E RE4ė:"PLEASE REMOVE THE WRITCREATED WITH THE MANAGE PROGRAM." 220:868:"DO YOU WANT TO DO THIS? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"Ģ23:"('YES' OR 'NO' PLEASE.)":50 <:YN$"Y"70 >(1023)123ĺD$"RUN HELLO" A F::D$"CATALOG" K24:"(TYPE 'DONE' WHEN  PROGRAM: CLEANUP6 VERSION: 1.0 (MRF)S LAST UPDATE: 6/26/80Z r (C) MECC, 1979D$(13)(4)D$"NOMONC,I,O"::2:13:"C L E A N U P"% (10:"THIS PROGRAM ALLOWS YOU TO DELETE OLD FILES THAT WERE     ox<@}~??|_Oox?g}xG?_}~{}{w_?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo{~_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xqqo88`}~?~~gox?O}x~?_}~{}.{w_?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{~?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wnnO0?~}~?_qwlw`\o>>@ox?a@}xx?`}|}6x`?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o{~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{onl_ |~?_?|k{o;_ow[o>>ox? }xc?_}v}:{o??X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o