L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4     eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`Lz#?X±     ՠ ŠɠŠԠ&ΠΠŠ ˠˠӠŠӠŠà *Ϡ ҮʰΠҠ) ǯ̠Ԡǯ̠ ˠˠҠ Ǡ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp3AC140ĪE(2,41)E(2,41)D:40AC250AC500ī13040)2AC36ī13040:21000:13020n223:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:D323:"ACCOUNT: ";AC;:868:(18):"AMOUNT ";:((100D.5))63AC100ĪE(2,45)E(2,45)D:1302073AC200ĪE(2,36)E(2,36)D:13020!83ER 'N' TO QUIT";:X(36):39X):34,4::3223A2"ENTER:"Z2"ACCOUNT NO. ";:B$m2B$"N"ī100302AC(B$):AC1(AC35AC100)İ1000:130202AC100AC110AC120AC130AC140AC150AC160ī130402AC200AC210AC220AC230AC2b/Il/12190v/B$$/CNTR05/936:::I@/12190X/:"TOTAL EXPENSE";/NUME(1,43):(18):((100NUM.5));:NUME(2,43):(30):((100NUM.5))/:23:B$:1003002 CHOICE 3. FROM MENU2936::+2:" ENTF$R+:100300. PRINT ACCUMULATED EXPENSES6.B.CNTR0L.936R.^/I135|/E(1,I)0E(2,I)0ī12130/A$(I);:NUME(1,I):(18):;((100NUM.5));&/NUME(2,I):(30):((100E(2,I).5))N/CNTRCNTR1X/CNTR21ī12150'** ROUTINE TO RECALL DATA FROM DISKs*:(10):"ARE YOU SURE YOU WANT TO RECALL DATA?";:B$:B$"Y"10030*:(10):12)"PLEASE STAND BY"+D$;"OPEN";F$ +D$;"READ";F$+I12 +:J049*+::E(I,J)4+:J>+IH+D$;"CLOSE";TA"':5)"6. SAVE DATA"I':5)"7. REVIEW BALANCE SHEET DATA":t'5)"8. DISPLAY ACCOUNTS AND NUMBERS"':5)"9. PRINT STATEMENTS"''B$:B(B$)'B0B9ī10170'B11000,12000,13000,14000,15000,16000,17000,18000,19000:::CLIENT$;:" ";FYE$ B'DL'"SELECT ONE OF THE FOLLOWING:"`V':5)"1. RECALL DATA"`':5)"2. REVIEW ACCUMULATED EXPENSES"j':5)"3. ADD CURRENT MONTH'S DATA"~':5)"4. DISPLAY P&L RESULTS"':5)"5. DELETE CURRENT MONTH DAROUTINE&ED$" , 0.00": DITTO,K ERROR ROUTINE ON A/C NO.t:"THERE IS NO SUCH A/C AS NO. ";ACI15:(7);:PAUSE110:PAUSE:IPAUSE11500:PAUSE' * * * MAINLINE * * *$'100: INITIALIZE.'POSITS  E(1,47)=NOT USED< E(2,47)=ACCRUED TAXESY E(1,48)=CAPITAL STOCKv E(2,48)=RET. EARNINGS E(I,0)=SALES ZERO FILL A/C'SI12:J049::E(I,J)0:JI10,76:11,0:12,3: FOR PRINT USING SSETS":AA$(7)"ACCRUED WAGES"#Yn^E(2,49): EXP 1-35 PER DOME, AND 36-42 ARE BAL SHEET A/C PER DOMEh E(I,43)=TOTAL EXPENSESr E(I,44)=NOT USED| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEP":A$(31)"WAGES & COMM"T 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT" @A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX" JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED A0,240:881,31:882,192:883,0:884,208w,a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201,a894,36:895,240:896,16:897,201:898,46:899,176:900,5:901,169:902,32-a903,157:904,239:905,2:906,202:907,240:908,4:90:852,22:853,202:854,208:855,240:856,104:857,24+a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+a867,201:868,58:869,240:870,238:871,201:872,48:873,144:874,234:875,104&,a876,157:877,239:878,2:879,202:8848:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200*a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,72*a840,104:841,72:842,201:843,45:844,208:845,14:846,189:847,239:848,24+a849,201:850,45:851,144a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177)a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208)a813,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16B*a822,2USING FORMATZ(a768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27(a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,129(a786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155R)NINGS"1'6G"160 OTHER ASSETS";:21:"500 SALES"'@G18::"ENTER '1' TO RE-REVIEW EXPENSE ACCOUNTS OR TOUCH SPACE BAR TO RETURN TO MENU "::::B$'JGB$"1"ī18000'TG10030'8J'BJD$;"RUN PRINT G/L"'LJ (a SUBROUTINE TO ESTABLISH PRINT NOTES PAYABLE"B&G"110 ACCTS RECEIV.";:21:"210 ACCTS PAYABLE"w&G"120 ACCT REC-OTHER";:21:"220 ACCRUED TAXES"&G"130 INVENTORY";:21:"230 ACCRUED WAGES"&"G"140 EQUIPMENT";:21:"240 CAPITAL STOCK"',G"150 DEPOSITS";:21:"250 RET. EAR9: SET WIDTH%F%F(%FW2135:%FW;" ";A$(W)A%FW%F20::"TOUCH SPACE BAR ":"FOR BALANCE SHEET":"ACCOUNTS ":%F:B$%F::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":&F"100 CASH";:21:"200 ĺ::(7):"ACCOUNTS ARE NOT IN BALANCE"1$NFB$<$OF10030$PF::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":$ZF34,2: FREEZE TOP$dFW120$nFW;" ";$xFW10ĺ" ";$FA$(W)$FW$F32,20: SET LEFT EDGE%F33,1S";'#NCNUME(2,43)(E(2,0)): P&L3#SCPLNUMR#XC30:((100NUM.5)(1))#lCT2E(2,36)E(2,38)E(2,47)E(2,42)E(1,48)E(2,48)PL#qCT2T2(1)#vC:"TOTAL ":29:"$";((100T2.5))#{CT1(100T1.5)100:T2(100T2.5)100)$CT1T2E(2,47):((100NUM.5)(1))`"&C3);"ACCRUED WAGES";:30:NUME(2,42):((100NUM.5)(1))"0C3);"CAPITAL STOCK";:30:NUME(1,48):((100NUM.5)(1))":C3);"RETAINED EARNINGS";:30:NUME(2,48):((100NUM.5)(1))#DC3)"PROFIT AND LOS.5))!B20:B$#!B:::CLIENT$-!BFYE$O!B:"LIABILITIES AND CAPITAL:"!C:3);"NOTES PAYABLE";:29:NUME(2,36):"$";((100NUM.5)(1))!C3);"ACCOUNTS PAYABLE";:30:NUME(2,38):((100NUM.5)(1))"C3);"ACCRUED TAXES";:30:NUM.5)); B3)"DEPOSITS";:30:NUME(2,46):((100NUM.5))v B3)"OTHER ASSETS";:30:NUME(1,45):((100NUM.5)) B:"TOTAL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45) BT1NUM: TOTAL ASSETS!B29:"$";((100NUME(2,45):"$";((100NUM.5))VB3)"ACCTS REC.";:30:NUME(2,39):((100NUM.5))B3)"ACCTS REC-OTHER";:30:NUME(2,40):((100NUM.5))B3)"INVENTORY";:30:NUME(1,46):((100NUM.5)) B3)"EQUIPMENT";:30:NUME(2,41):((100NUM$;"OPEN";F$>D$;"DELETE";F$1>D$;"OPEN";F$D>D$;"WRITE";F$O>I12\>:J049j>::E(I,J)r>:Jy>I>D$;"CLOSE";F$>10030hB PRINT BALANCE SHEET DATArB:::CLIENT$|BFYE$B:"ASSETS:":B3)"CASH";:29:NUM0);"DELETING CURRENT DATA":P1500:P2:J035A::E(1,J)0H:JW:E(1,43)0b:10030|> OPTION TO SAVE DATA>::10:"ARE YOU SURE YOU WANT TO ";::"SAVE";::" THE DATA?";:B$:B$"Y"ī10030>::10:10)"PLEASE STAND BY" >DE BAL SHEET A/C PER DOME5h E(I,43)=TOTAL EXPENSESMr E(I,44)=NOT USEDb| E(2,45)=CASH E(1,45)=OTHER ASSETS E(1,46)=INVENTORY E(2,46)=DEPOSITS E(1,47)=NOT USED E(2,47)=ACCRUED TAXES E(1,48)=CAPITAL ST@A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX"JAA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER"TAA$(6)"FIXED ASSETS":AA$(7)"ACCRUED WAGES"Y^E(2,49): EXP 1-35 PER DOME, AND 36-42 AR$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" "A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" ,A$(29)"TRASH":A$(30)"TRAVELING EXP":A$(31)"WAGES & COMM" 6A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT"ITH INSUR."A A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFICE EXP":A$(19)"POSTAGE" A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L"B A(4): CONTROL-D" A$(35),AA$(7)> A$(1)"MDSE.-MATERIALS"~ A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"SALES DISCOUNTS":A$(6)"CONTRIBUTIONS":A$(7)"DEPRECIATION" A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEAL1" lF$"G/L DATA"L mFILLER$" " n936:(FILLER$,10);:CLIENT$::(FILLER$,10);:"FINANCIAL STATEMENTS" s:(FILLER$,11);:"HARD COPY PRINTOUT" x25000: PRINT USING MACHINE LANGUAGE SET-UP D$ANSACTIONS USING MODEM K:4 P10000: MAINLINE: Zt d INITIALIZE SUBROUTINE g ************************* CHANGE STMT 103 & 104 AS APPLICABLE**************** hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/8 PROGRAM DEVELOPED FOR; SMALL BUSINESS CLIENTSZ BY FRED V. AMUNDSEN, CPAr 1108 S. WESTHAVEN WHEATON, IL 60187! TEL (312) 668-4833"# NOV. 15, 1980(2 PURPOSE TO PRINT OUT< GENERAL LEDGER F TR            936,226|/a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE. 0.a(57344)32RAM1: TEST FOR RAM APPLESOFT.aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT.a772,52:773,237:774,32:775,231:776,227.a789,83:790,224.a919,92:920,219/a935,242:9,228:910,208:911,144e-a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19-a921,232:922,228:923,208:924,144:925,245:926,189:927,239:928,2:929,73-a930,48:931,168:932,169:933,0:934,76:935,235:936,26.aRAM029Ra786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155a795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177a804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208J a81((100PL.5)(1))$*I122::**0:aa SUBROUTINE TO ESTABLISH PRINT USING FORMATa768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27a777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,1(FILLER$,NEEDED);:NUME(1,26):((100NUM.5));d")(FILLER$,25);:NUME(2,26):((100NUM.5))y,):"NET PROFIT";6)PLE(1,43)E(1,0)@)T20:1000:(FILLER$,NEEDED);:"$";((100PL.5)(1));J)PLE(2,43)E(2,0)T)(FILLER$,24);:"$";FORE TAX("PROFIT BEFORE"h("FEDERAL TAX";:T21:1000:(FILLER$,NEEDED);:((100CP.5)(1));|((FILLER$,25);(PLE(2,43)E(2,26)E(2,0))((100PL.5)(1))):"PROVISION FOR")"FEDERAL TAX";1)NUME(1,27):T21:1000:(100E(2,I).5))(I(6(TEE(1,43)E(1,26)("TOTAL EXPENSE";:T21:1000:(FILLER$,NEEDED);:;((100TE.5));(TEE(2,43)E(2,26)((FILLER$,25);:;((100TE.5))((CPE(1,43)E(1,0)E(1,26): CURRENT PERIOD PROFIT BE20:1000:(FILLER$,NEEDED);:"$";((100E(1,0).5)(1));i((FILLER$,24);:"$";((100E(2,0).5))o({(I135(:E(2,I)0ī10430(I26ī10430(::A$(I);:T21:1000:(FILLER$,NEEDED);:;((100E(1,I).5));((FILLER$,25);:;(:1000:(FILLER$,NEEDED);:NUME(2,36)E(2,38)E(2,47)E(1,48)E(2,48)E(2,42)E(2,0)E(2,43)}F("$";((100NUM.5)(1))P( TO PRINT P&LZ(:(FILLER$,22);:"INCOME STATEMENT"d(n((FILLER$,22);MO$;:(FILLER$,29);"YTD"<x("SALES";:T:1000:(FILLER$,NEEDED);:NUME(2,0)E(2,43):((100NUM.5)(1))(("TOTAL ASSETS";:T20:1000:(FILLER$,NEEDED);:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,46)E(1,45)E(2,41)2("$";((100NUM.5));:(FILLER$,4);^<("TOTAL LIAB & CAP";:T15((100NUM.5));:(FILLER$,4);}("RETAINED EARNINGS";:T16:1000:(FILLER$,NEEDED);:NUME(2,48):((100NUM.5)(1)) ("OTHER ASSETS";:T21:1000:(FILLER$,NEEDED);:NUME(1,45):((100NUM.5));:(FILLER$,4);E("PROFIT AND LOSS ";:T161))e'"EQUIPMENT";:T21:1000:(FILLER$,NEEDED);:NUME(2,41):((100NUM.5));:(FILLER$,4);'"CAPITAL STOCK";:T16:1000:(FILLER$,NEEDED);:NUME(1,48):((100NUM.5)(1))'"DEPOSITS";:T21:1000:(FILLER$,NEEDED);:NUME(2,46):XES";:T16:1000:(FILLER$,NEEDED);:NUME(2,47):((100NUM.5)(1))'"INVENTORY";:T21:1000:(FILLER$,NEEDED);:NUME(1,46):((100NUM.5));:(FILLER$,4);'"ACCRUED WAGES";:T16:1000:(FILLER$,NEEDED);:NUME(2,42):((100NUM.5)(ME(2,39):((100NUM.5));:(FILLER$,4);'"ACCOUNTS PAYABLE";:T16:1000:(FILLER$,NEEDED);:NUME(2,38):((100NUM.5)(1))'"ACCTS REC-OTHER";:T21:1000:(FILLER$,NEEDED);:NUME(2,40):((100NUM.5));:(FILLER$,4);I'"ACCRUED TA:S'"CASH";:T20:1000:(FILLER$,NEEDED);:NUME(2,45):"$";((100NUM.5));'(FILLER$,4);:T15:"NOTES PAYABLE";:1000:(FILLER$,NEEDED);:NUME(2,36):"$";((NUM100.5)(1))+'"ACCOUNTS RECEIVABLE";:T21:1000:(FILLER$,NEEDED);:NU.'8'"PRINT MONTH":#B'MO$9L':"PRINT YEAR":DV'YEAR$w`'"ADJUST ROLLER. DEPRESS RETURN WHEN READY ":j'B$t'(FILLER$,23);:CLIENT$~':(FILLER$,17);:"BALANCE SHEET AND INCOME STATEMENT"':(FILLER$,24);:MO$;", ";YEAR$:PEN";F$D$;"READ";F$$I121&:J049?0::E(I,J)G::JNDIaND$;"CLOSE";F$g SUBROUTINE TO DETERMINE NEEDED FILLERCH(36):NEEDEDTCHNEEDED0ĪNEEDED1' * * * MAINLINE * * *$'100: INITIALIZEOCK  E(2,48)=RET. EARNINGS3 E(I,0)=SALESI ZERO FILL A/C'STI12a:J049q::E(I,J)0y:JI10,76:11,0:12,3: FOR PRINT USING ROUTINEED$" , 0.00": DITTO ROUTINE TO RECALL DATA FROM DISKD$;"O     ;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT37:774,32:775,231:776,2271%a789,83:790,224F%a919,92:920,219\%a935,242:936,226%a: SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE.T28,2:929,73J$a930,48:931,168:932,169:933,0:934,76:935,235:936,26U$aRAM0$a(57344)32RAM1: TEST FOR RAM APPLESOFT$aRAMı: ABOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT%a772,52:773,2176:900,5:901,169:902,32l#a903,157:904,239:905,2:906,202:907,240:908,4:909,228:910,208:911,144#a912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19 $a921,232:922,228:923,208:924,144:925,245:926,189:927,239:9871,201:872,48:873,144:874,234:875,104{"a876,157:877,239:878,2:879,202:880,240:881,31:882,192:883,0:884,208"a885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201#a894,36:895,240:896,16:897,201:898,46:899,2,201:843,45:844,208:845,14:846,189:847,239:848,2!a849,201:850,45:851,144:852,22:853,202:854,208:855,240:856,104:857,24!a858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8+"a867,201:868,58:869,240:870,238:3,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16 a822,248:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200 a831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,727!a840,104:841,72:842T2PR:BBM(A)80 K P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43X [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGGF -DD1ZZ 2INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1 AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2); TW1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V          LINE 240- PRINTER ON/.LINE 260- PRINTER OFFC8LINE 290- ENDSF A CELL TO& 'P' PLACESBLINE 100- GET THE FILE\  'F$'- 'LN'q  LINESLINE 140- PRINT SHEET FROM 'ST' TO TO LINE 'LN'LINE 200- SUB TO PRINT MAIN TITLE$?";X2,Y2)0X10X20Y10Y20550M:CXX1X2:CYY1Y2:40:CY:CXD:"PRINT FILE: WHAT VERTICAL COORD. TO END-OF-SHEET?";STN140X::: LINE 20- SUB TO SET  DEFAULTS LINE 40- SUB TO SET  R RIGHT HAND CORNER."~"VISICALC COOORDINATE LETTERS WILL HAVE TO BE CONVERTED TO NUMBERS (I.E. 'A' IS 1, 'BK' IS 63)."::"NUMBER OF PLACES TO FIX NUMBERS TO?";P::20!:"TYPE 0 COORDINATED TO END.":&"UPPER LEFT?";X1,Y1:"LOWER RIGHTINT THE SHEET TO DISK, AND THEN RUN THIS PROGRAM.""'FIXING' A BLOCK OF COORDINATES TO A CERTAIN NUMBER OF PLACES:":" TYPE IN TWO SETS OF COORDINATES, THE FIRST SET BEING THE UPPER LEFT HAND CORNER OF THE BLOCK, THE SECOND BEING THE LOWEFILES (MADE WITH THE 'P' COMMAND) WITH NUMBERSIN NO PARTICULAR FORMAT TO NUMBERS WITH THEIR DECIMAL PLACES LINED UP AND WITH ASPECIFIED NUMBER OF PLACES"4" YOU SHOULD WRITE DOWN THE COORINATES OFTHE BLOCKS YOU WISH TO USE WHILE STILL IN VISICALC, PR 5, 1980  @: J: T:! ^:8 : MAIN PROGRAM...a ::" VISICALC D-FILE PRINTER" ::"NAME OF D-FILE?";F$:"NUMBER OF LINES IN D-FILE?";LN "TITLE TO PRINT AT TOP-OF PAGE":TITLE$ 100 :" THIS PROGRAM CHANGES VISICALC D- FIRST PAGE :" PRINTER ON} (4);"PR#1":(9);"80N": CENTRONICS/PARALLEL INTERFACE IN SLOT #1, SET TO 80 COLUMNS :  PRINTER OFF (4);"PR#0" : ":(4)"CLOSE": , SET UP PRINTER 6 DAVID J. SHERMAN- JULY0:{ (12):40(TITLE$));TITLE$::L2:170: PRINTS ONE LINE HEADER AT TOP OF PAGE : PRINT TITLE (12);:40(T1$)2);T1$:40(T2$)2);T2$:40(T3$)2);T3$::L4:: ALLOWS 3 LINE TITLE AT TOP OF1)W)(B$X$,W)(A$(CY),CXW1):1:1:CY","CX:9 Z:I d GET SHEETU iA$(LN){ n:(4)"OPEN ";F$:(4)"READ ";F$ xX1LN:A$(X)::(4)"CLOSE": : PRINT SHEET ST,LN 230:L1STLN:X$A$(L1) X$:LL1:L56180 L1::26D  400@X1P:Z$Z$"0":S$S$" ":B$B$" "::K10PF:a( FIX CELL TO 3 PLACES2X$(A$(CY),(CX1)W1,W):(X$)0ı<X(X$):X$((X))".":X(X)X$X$S$:80FX((X(X)(.5K))K):X$X$(Z$(X),P)3 PA$(CY)(A$(CY),(CX5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3);:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100s(QLS:10390x(10340(:" "2(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220PF(B210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wn(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL ";A$;" OR,":" 5 BALLOON ";C$(0)'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1':10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: "'B010310A'"ANNUALALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0);"S, ";B$(1);K$`$'"AND ";B$(2);"S ACCOUNTS."['" HIT RETURN WHEN READY...";E$t'20000y'O365:LL0:BB0:Q0:P0:a~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTIZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"@'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", B'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS"'C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY"'I$"NUMBER OF":A$"AMOUNT":W)GG:5:V(2)N89Z02:N(Z)V(Z):V(Z)100N(Z)GG:?;7M=R21700i@:"COMPOUNDED ";D$(G);TB2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600bMDPCV(0)W:V(1)W:1570UR2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570~N(((DMP)C)(WT)W)GG:1:V(0)NN((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)MM(1):1100:V(1)(CX3X5)X2:B4V(1)0V(1)W:1440KV(1)0V(1)0CC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595 (0)W:V(1)W:1360@AV(0)(D(0)C(0))(X5):V(1)W:V(2)WWPZ02:M(Z)V(Z):exR21500:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)08CC(1):DD(1):1320V(0)(((NCD)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z)):#Z02:M(Z)V(Z):(ND1:7-B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):VV(Z)D::1220V(0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z)::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::LB0X1(W(WN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:eV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z)::"PMT/DEP";:BWāZ02:S$)13)2 `S2QQ115020 a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15 1100:1110>2)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93` \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((I" MAKE CHANGES"D1N"WHICH ";S$:S(S$)FXS0SNH11870WbSNH12080]lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ2240LNH20İ2060JI1NH)H$(I)":";:4720:N$(NR,I)I$0I6L"MORE (Y/N) ";L$]L$"Y"1640lF$"INDEX"v42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU MAY"::OR COLUMN NUMBER "NR": ";:"";R$(NR)> "R$(NR)""NR201600J ,NRNR1T 61560` @NRNR1p J4280:1160 T***ENTER RECORDS*** ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1 "YOU ARE ENTERING RECORD # "NR ):S1SNH14500 :"DO YOU WANT TO SORT:":H "1 ALPHABETICALLY"] "2 NUMERICALLY"c | "WHICH ";L$:L(L$) :"SORTING ";:1240 1013:*** CREATE HEADERFILE *** NR1 :"PRESS 'RETURN' TO EXIT TO MENU" $ "HEADER F$(R(J),I)N$(J,I):N$(J,I)Z$(I):ID xZR(R(J)):R(R(J))R(J):R(J)ZN 1370 "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280 4810 MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$,S)R(I)R(I)1 1300A (N$(I,S))(N$(J,S))R(I)R(I)1K J:I\ "SORTING ";v (INR11:JNR11 2IJĭR(I)R(J)R(J)R(J)1 <J:I F"SORTING " PJ1 ZR(J)JJJ1:1370 dJNR1420" nI1NH:Z$(I)N$(R(J),I):N$"HEADER":1520 ~41106 I1NR:H$(I)R$(I):IN NHNR:NR0:MEM(0)c B(MEM(13NH))v N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** I1NR:R(I)0:I I1NR:J1NR L1270,1290 N$(I,S)N$(J$ 216,0"MAXFILES1"1D$"":CTRL DFD$"NOMON,I,O,C"N:X5180^$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#"VDB$"":F$"BASENAME":2610`4110j2470 tF          :"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:WSUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0!>BA(A2)C(A)(A2)0:40 ">:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500::::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH";:PP1:OO3:100:AS1:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060@!:" FIRST AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P3I2/ V(N$(J,K(N))):AC(I)AC(I)V:HCHCV5 X I139((PF1)39):"-";:I:d I1RHv AC(I)03580 36,K(3I1):AC(I); IGT0Ĺ36,K(3I1):GT;:$RN$(NN)" REPORT FOR "H$(S)":"Q$;.X$"@"3650 8" E1:3720HR :"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$d\ L$"Y"İ3880:E1:2980nf 4810zp I1RHz 36,K(3I1):N$(J,K(3I2)); K(3I)3510 I K(0)1ĭHC0Ĺ36,K(3I1):HC;:GTGTHC:HC0 LL1 : NJ,S),(Q$))Q$3330% X$"@"3320D (N$(J,X),(X$))X$3330N 3440j PF1ĭL18İ2060:3610y L0İ3610 J T93540* D$"PR#0"4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$ H L$"Y"X$:X(X$). :"@ WILL SELECT ALL RECORDS."^ :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$ I1RH1:K(3I1)35PF2 I PF5230,5250,5280:3610 J1NR N$(J,0)(J) Q$"@"3320 (N$()0K(0)0:T91:3150OD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120UN X "SELECT RECORDS BY WHICH HEADER # ";S$:S(S$)b (S$)0Q$"@":3230l :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200 v :"ENTER # OF 'AND' HEADER ";K$:K(I)(K$)& K(I)0K(I)NH3040\ "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)z K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131500 "ENTER TAB FOR TOTAL: ";A$: (A$:E0 I03NH2:K(I)0:I@ I0NH:AC(I)0:I:HC0:GT0L E3150V 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";$" RPTFMTNAMEFILE"1 D$"DELETE"DB$" INDEXFILE"Q" D$"DELETE"DB$" HEADERFILE"\, DB$""t6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":1000J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 IT? (Y/N) ";:"";S$& S$"Y"2470V :12:11::(91);" DELETING DATABASE ]":a 2830o DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DBLETE A DATA BASE ***8n :"DELETE WHICH : ";S$:S(S$)cx S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE BASE"  % "WHICH ";S$:S(S$)5 SJ12660\ S1SJĺ(7);:(37):868:2540j DB$R$(S)y SJ1140 ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DERECORD NUMBER "DR" DELETED!":4 "MORE (Y/N) ";L$E L$"Y"2360h NRNR1:F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATAI" "H$(I)": "N$(J,I)!I'4 LLNH2B D$"PR#0"H b$ ***DELETE RECORDS***h. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V I1NH` N$(J,I)N$(J1,I)j It J~ :"1SNH2130f/p"FROM "H$(S)": "N$(J,S)5zV"TO "H$(S)": ";:"";N$(J,S)b:2240h" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250" "H$(0)": ";JI1NHL$(L$)274810,(L$)1320648L0::O ***CHANGE DATA***v*" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";R"";S$:S(S$) \S"THAT'S ALL OF THEM. ";+"NOW YOU MAY:"E"1 DO MORE SEARCHES"["2 MAKE CHANGES"|"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070"PRESS RETURN TO CONTINUE, ESC FOR MENU"; "REGULAR PAYMENT AMOUNT ";R8 ("TERM IN YEARS? ";YM 2"PRINCIPAL? ";Pn <"ANNUAL INTEREST RATE? ";I A CONVERT PERCENT TO DECIMAL FII100 x"NUMBER OF PAYMENTS PER YR.? ";N "START PRINTING WITH WHAT YEAR? ";X X(X)& C10:IT::255:(7),(7),(7)d:12:10:" WRITTEN FOR AN EPSON ":10:" OR 80 CULUMN PRINTER "xI12000:::5:8 " LOAN AMORTIZATION TABLE"20:"BY":13:"DAVID P. HOFFMAN":19:"FOR":9:"KELLEY'S BOOKEEPING LTD."   130 ,4810,(PF0:4810",2F,<*** APPLESOFT ONERR CORRECTIONd,FI10131022:PP:I,PP:Il,PI0r,Z,d104,168,104,166,223,154,72,152,72,96,nD$"PR#1",x" K":,D$"PR#1"," K 80N",,D$"PR#1"," K132N","10 QUIT"+*+"WHICH ";S$:S(S$)=+S1S104810v+S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170|++"PRINTER OPTIONS:"+"1 40 COLUMNS"+"2 80 COLUMNS"+"3 132 COLUMNS"+ :"WHICH ";PF$:PF(PF$),PF1PF35 DATA BASE"/*V"2 SEARCH AND/OR CHANGE DATA"G*`"3 ENTER RECORDS"`*j"4 DELETE RECORDS"q*t"5 REPORT"*~"6 SORT (TAKES APPROX. "(.0005NR2.03NR)" MIN.)"*"7 TURN ON PRINTER"*"8 TURN OFF PRINTER"*"9 LIST ALL RECORDS" +****"+):" APPLE COMPUTER INC"1)Q)"CURRENT DATA BASE: "DB$:)"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS")$).PF1ĺ"THE PRINTER IS ";::"ON"::4930)8"THE PRINTER IS OFF")B *L"1 SELECT0,5250,5280(\4620(f;(p *** INPUT ROUTINES ***E(zI$""_(COMMA$"NO"Ą"";I$:g(A$v(A$(3)ij(A$;(A$(13)ı(I$I$A$(4750(*** MAIN MENU ***(4840(1013()"******* DATA BASE MANAGEMENT I ***$(J,I)'LL1'I#':LL15'LNH204660<' JJ'D$"PR#0"k' "HIT RETURN FOR MENU...";L$u'*4810'4D$"PR#0"'>"PRESS RETURN TO CONTINUE, ESC FOR MENU";'@L$'B(L$)274810'D(L$)134680'F4672'H:L0 (RPF523" &DFF0&N1&X*** SAVE REPORTNAMEFILE ***;&bNRNNO&lF$"RPTFMTNAME"k&vI1NR:R$(I)RN$(I):Iu&4280&NRNS:& *** LIST ***&L0&&J1NR&PF5230,5250,5280&" "H$(0)": ";J:LL1&I1NH'I" "H$(I)": "N%R$(J)%J%D$"CLOSE"(%FF0.%F%*** SAVE FILES ***\%F$"INDEX"FF1x%D$"OPEN"DB$" "F$"FILE"%D$"WRITE"DB$" "F$"FILE"%NR%J1NR%FF4390%I1NH%N$(J,I)%I%4400%&R$(J)%0J&:D$"CLOSEANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810A$3880:NRNS:3010Y$*** READ FILES ***o$F$"INDEX"FF1$"D$"OPEN"DB$" "F$"FILE"$,D$"READ"DB$" "F$"FILE"$6NR$@J1NR$JFF4230$TI1NH$^4720$hN$(J,I)I$$rI$|4240 #:"SELECT FROM:":3#I1NR:I" "R$(I):I:Y#I" CREATE A NEW REPORT FORMAT":#"WHICH ";S$:S(S$):S1SI4030#NNS#SIRN$(S)R$(S):E1:NRNS:3810#4100#1013::"NO REPORT FORMATS ON DISK...":#NN1+$"DO YOU W SUB MENU ***%"2:"SELECT FROM:"::"<MF0ĺ"0 "H$(0)V"FI1NH:I" "H$(I):I:_"PMF0e"Z"d*** READ REPORTNAMEFILE & SELECT REPORT ***"nNN0:I021:RN$(I)"":I:NSNR"xF$"RPTFMTNAME""4070"4110"I1NR:RN$(I)R$(I):I !NR3RH2*!I1NR:R$(I)(K(I)):I>!R$(I2)(K(0))N!4280:4440T!{!*** SET-UP TO READ RPTFMTFILE ***!F$RN$(NN)" RPTFMT"!4110!RH(NR2)3:I1NR:K(I)(R$(I)):I! K(0)(R$(I2))!NRNS!3880::3160 "(***AND "H$(X)":"X$:3660 B" "* LI1RHJ V36,K(3I1):H$(K(3I2));Q `It jK(0)1Ĺ36,K(3I1):"TOTAL";| t: ~L4: *** SET-UP TO SAVE RPTFMTFILE *** NSNR :"ENTER THE REPORT FORMAT NAME ";RN$(NN) F$RN$(NN)" RPTFMT"  Ӎ:6:"ENTER AMOUNT OF DEPOSIT: $";ADD :"OLD BALANCE WAS: $";PBf PBPBAD:PB(PB1000.5)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTINUE.";:C$:90 007 T$"C"T$"D"T$"Q"Č198:"TRY AGAIN":120= C i 5:"ENTER AMOUNT OF CHECK: $";AC :"OLD BALANCE WAS: $"PB PBPBAC:PB(PB1000.5)100 :"AND NEW BALANCE IS: $";PB 20:15:"HIT ANY KEY TO CONTINUE.":C$:90% RE-ENTER":60 Z:8:45 _"NEXT TRANSACTION IS:"N d12:12:" CHECK"i n14:12:" DEPOSIT" s16:12:" QUIT" x18:20:"WHICH ?" T$ T$"Q"ė:12:"NEW BALANCE IS:$";PB:20:19:"SO LONG": T$"C"ī1000 T$"D"ī20OOKER BALANCER :5 10)"CHECK BOOK BALANCER"B (34,4:5_ 2"KNOWN BALANCE IS:$";PBx 7PB(PB1000.5)100 <10:"YOUR KNOWN BALANCE IS:$";PB F12:"IF CORRECT, HIT ...IF NOT, HIT " PC$:C$"N"20 UC$"N"C$"Y"Č198:"# PROGRAM CHECK BOOK BALANCERD BY RALPH H. SWERDLOW, M.D._ FROM CALL-A.P.P.L.E.x VOLUME V, NUMBER 1 JANUARY, 1982 ------------------------- CONTRIBUTED BY ED WILLMAN -------------------------  CHECK B OR KELLEY'S BOOKEEPING 5"MICRO-SOFTWARE/WENATCHEES#COPYRIGHT (C) 1982 JAN 4I:"=";: g hJ0YJ0Y5 l"YR ";J0;" ";I3,A2I qV179:"-";:O v^ J0Y720g I30p A20x J0 YJ0262 0: "CHANGE DATE AND RECOMPUTE? (1=YES, 0=NO) "; Z Z120  WRITTEN BY DAVE HOFFMAN !FA1A1A B0PA1% C1NY5200 RRB0; AAB0H A1A1B0Q B00^ I2I2I1k I3I3I1w A2A2A &J0X570 0J1;" ";I1,A,B0,I2 :J1 DC1NY600 N" LAST PMT = $";((R100.5))100 XJ0X640 bV179> ^6:"PRINCIPAL $";P;" AT ";I100;"% FOR ";Y;" YEARS"_ h25:"REGULAR PAYMENT = $";Re r |"NO. ";"INTEREST","AMORTIZED","BALANCE","ACCUM INTEREST" K7 KKN3 J11N1 I1((B0IN)100.5)100 C1C11 ARI1 20:I30:J00:N1N:K66:B0P:A10:A207 (Y)1270Q N1((Y(Y))12)12N] J0J01f 280u J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J O1:(9)(1) P(1)"80N" T25:"MORTGAGE AMORTIZATION TABLE"H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00       !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ B(20((A$)2)):B0B1) B:A$:A*}D$(4): CTRL-D">D$;"BLOAD LOADER.OBJ0"DJq4096: FAST LOAD IN INTEGER BASICw10C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":180:23D$;"BRUN MENU" CENTER STRING A$ Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ `