' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`13020+?3AC240ĪE(1,48)E(1,48)D:13020Q@3AC150ĪE(2,46)E(2,46)D:13020wA3AC250ĪE(2,48)E(2,48)D:13020B3AC160ĪE(1,45)E(1,45)D:13020C3AC500ĪE(1,0)E(1,0)D:E(2,0)E(2,0)D:13020S3AC36ī13150T3ACAC15^3h3E(AC110ĪE(2,39)E(2,39)D:13020G93AC210ĪE(2,38)E(2,38)D:13020m:3AC120ĪE(2,40)E(2,40)D:13020;3AC220ĪE(2,47)E(2,47)D:13020<3AC130ĪE(1,46)E(1,46)D:13020=3AC230ĪE(2,42)E(2,42)D:13020>3AC140Ī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!83T32,227,223,141,168,3,140,169,3,96D^1013,76:1014,170:1015,3JrS FROM THE MAY, 1980/ ISSUE OF CALL APPLE.c IT PROVIDES THE ADDRESS OF THE FIRST ELEMENT" IN AN ARRAY THROUGH THE '&' FUNCTION., THIS IS USED IN THE ROUTINES TO LOAD AND SAVE 6 THE ARRAY TO DISK@JI110:N:937I,N:I%UTIL","INSR","MISC")I112:M$(I):IF"JAN","FEB","MAR","APR"c"MAY","JUN","JUL","AUG""SEP","OCT","NOV","DEC"CH0: DATA CHANGED FLAGD$"": CTRL-DD$;"NOMON C,I,O"G$"": CTRL-G THE FOLLOWING ROUTINE IM9M9P1230"ZF$"0"13908dHTL(F$):F$:KnHTL1:".":uxA%(31,17,12),A$(17),M$(12),Y%(12,17)}I117:A$(I):I"INCM","MORT","FOOD","CAR""MED","CLTH","HOBY","ENTR""TRNS","HOME","BOOK","GAS""TELE","ELEC"," C117/F$(Y%(I,C)):C2:HT:" "AC2:1370:Cd F$(Y%(I,0)):21:HT:" "r21:1370yI(23:1:"ENTER MONTH (1-12) OR '0' TO RETURN: ";Q$+10-20:EF11320/M(Q$)2M0ı<M1M12İ30:1320FALSO USED; ROBERT B. SHEN, NOV 80 312-438-4728 V((V10F2.5))(10F2)3D50:V1D51NS$(VD510(2F2))^D31(S$)v(S$,D3,1)"."960~D3D4S1F1(D3F2)(1D5):D4:(S$,1D5,D3F2D5);::INPUT V & S1,F1,F25X,F8.3-S1=5,F1=8,F2=3 D3,D4,D5 TEN BY T. HARTLEY COPYRIGHT 1979 (312) 956-1312 t MODIFIED BY R.A.LUNDEEN 3-20-80NDEX"F#K160#P#"EMPTY CARD"*Z#K@d#D$;"CLOSE INDEX"gn#936:10:" INDEX FILE CREATED"mx#' BSAVE CARD(X).A$400.L$400' BSAVE CARD(X).A$2000.L$2000' USE FIRST ONE FOR TEXT' USE 2ND ONE FOR HIRES^APPLEFILE WAS WRIT RETURN"::"(THE SUBROUTINE AT 9000 WILL CREATE THE FILE FOR YOU)"c22:" (HIT SPACE BAR)"mZ$:::"TO CAPTURE IMAGES FROM OTHER SOURCES SEE REMARKS AT END OF THIS PROG"'#(#D$"": CTRL D2#D$;"OPEN INDEX"<#D$;"WRITE IS PLUGGED INTO SLOT #2"?23:" (HIT SPACE BAR)":Z$:"TO INITIALIZE THIS PROGRAM YOU WILL":"HAVE TO CREATE THE BLANK 'INDEX' FILE.":"THE FASTEST WAY TO DO THAT IS TO ":"LOAD THIS PROGRAM"::"TYPE 'RUN 9000' "C:"PRESSGRAM, I WOULDRECOMMEND THAT ONE DISKETTE BE DEDICATEDENTIRELY TO THIS FILE. EACH PAGE SAVED USES 6 SECTORS ON YOUR DISK. THE PROGRAMMAKES ALLOWANCE FOR UP TO 60 FILE CARDS""IN THE DIMENSION STATEMENT IN LINE 5. THE PROGRAM ASSUMES YOUR PRINTER ICE BAR)":Q$:|"THE CARDS IN THE APPLEFILE MAY BE EDITEDOR DELETED OR REVISED BY USING THE COMMANDS WHICH APPEAR IN THE MENU. ONE SAMPLE CARD IS CURRENTLY ON THIS DISK JUST TO SHOW YOU HOW IT WORKS."" IF YOU WISH TO USE THIS PROa795,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" >D"$";((NUM100.5)(1));Q7NUME(2,43)E(2,0):30:"$";((NUM100.5)(1))`:B$:10030: DELETE CURRENT MONTH DATA::(10):7)"ARE YOU SURE YOU WANT TO":(7)::"DELETE";::" CURRENT MONTH DATA?";:B$:B$"Y"ī10030&::(10):134);"Y.T.D"K6::"SALES";:NUME(1,0):14:"$";((NUM100.5)(1));z6NUME(2,0):30:"$";((100NUM.5)(1))7:"EXPENSES";:NUME(1,43):15:((NUM100.5)); 7NUME(2,43):31:((NUM100.5))7:"NET";:14:NUME(1,43)E(1,0):1,AC)E(1,AC)D&r3E(2,AC)E(2,AC)D8|3AC35ī13210O3E(1,43)E(1,43)Df3E(2,43)E(2,43)Dl3w3130206 DISPLAY P&L SUMMARY6::(4):CLIENT$::FYE$6:"PROFIT AND LOSS SUMMARY:"6:17)"CURRENT":617);" MONTH"; 63,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:8429Ra786,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 ";:T16936,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.aRAM00,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,144@ \aJ" zzH/H 4HDH/HpZpS H/HzvR p /pHHHHHHH%aa/ pzp H HHWp H HHfazHH /HHHHH`HH@aH"HpTzzzz;HHHHzHHH%pHHH| `@HzbaTmaWh41HHHHz`H!@HH?HHHX@aHzH H @%pHHHH%HHl@aHzHHH37: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:azH;HHH%p HHHHHrHH aHz;H H %pHpHHHH*HH@az/HHpHHHH%wHH Hz"HHHpHHHH*HHq@az/HHHz/HHH pHHpUHz"HHHp HHHpHHpHHX@HHaHHHpHHHHHCHH}HHHaHHHpHHHHHHOHHHzHHaHHH $BUy               1))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$;"OE 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         ER '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 AE EXP":A$(19)"POSTAGE"P A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L" A$(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 EXTIONS":A$(7)"DEPRECIATION"` A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEALTH INSUR." 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)"OFFIC7)"GENERAL LEDGER TRANSACTIONS"R x25000: PRINT USING MACHINE LANGUAGE SET-UPk D$(4): CONTROL-D~ A$(35),AA$(7) A$(1)"MDSE.-MATERIALS" A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"BAD DEBTS":A$(6)"CONTRIBU TRANSACTIONS K:- P10000: MAINLINE3 Zm d INITIALIZE SUBROUTINE g ***** CHANGE 103 & 104 AS APPROPRIATE hCLIENT$"SMALL BUSINESS, INC." jFYE$"6/31/81" lF$"G/L DATA"! n936:10:10)CLIENT$::' 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 RECORD AND< DISPLAY GENERAL LEDGER F                   MATRIX":M$(6)"PRINT MATRIX":M$(8)"END PROGRAM"d$DD$" TOT SAT FRI THU WED TUE MON SUN".MD$" TOT DEC NOV OCT SEP AUG JUL JUN MAY APR MAR FEB JAN"8A(X)(X100.5)100BAL$(8):AR$(21)L8280 V REMOVE 1100 TXt9Xt9XlI^Bd ݍ ԍ̍č  ~ ud` WB;3 ߌ ҌČ  rM1olifc`]ZWTQN BMR0A7 =xbNqhrglDa\j~XbNO;dRnXbNXbNhQhrbMt9Xt9Xt9Xt9Xt9Xt9Xt908 (p` @`Xh@H0`PP@ 0@hp@  M,C) jCtMy3~C117:C2:A$(C):CC21:"TOTL"bHT35:L6:1:HT1:"TOTL"nC117F$(Y%(0,C)):C2:HT:" "C2:1370:CF$(Y%(0,0)):21:1370M1HT0:L5IMM3:HTHT71:HT1:M$(I)1990D(Q$)D0ı4D1D31İ30:990CD26D26L910Rt"COMPUTING YEARLY TOTALS..."$M112.C1178Y%(M,C)A%(0,C,M)BY%(0,C)Y%(0,C)Y%(M,C)LC11130VY%(M,0)Y%(M,0)Y%(M,C)`Y%(0,0)Y%(0,0)Y%(4HT1:JDD5 HTHT5?1:HT1:" ":1:HT1:J[I117:F$(A%(J,I,M)){I2:HT:" ":I2:1370IF$(A%(J,0,M)):21:HT:" ":21:1370J23:1:"ENTER DAY (1-31) OR '0' TO RETURN: ";Q$1020:EFM(Q$)M0ı* M1M12İ30:7807*:M$(M)R4I117:I2:A$(I):Ib>21:"TOTL"sH1:HT36:L5RHT:"TOTL"\I117:F$(A%(0,I,M))fI2:HT:" ":I2:1370pIzF$(A%(0,0,M)):21:HT:" ":21:1370D1:LNTHLY":" 2) YEARLY"F8:1:"ENTER DISPLAY TYPE (0-2): ";Q$N10`20:EF1730lN(Q$)wN0ıN0N2İ30:730N770,1040700 2:1:"ENTER MONTH (1-12) OR '0' TO RETURN: ";Q$1020:EF1780N1;:580bN1N1.5:N%N16lA%(D,C,M)A%(D,C,M)N%QvA%(0,C,M)A%(0,C,M)N%^C1670yA%(D,0,M)A%(D,0,M)N%A%(0,0,M)A%(0,0,M)N%N10: CLEAR TOTALCH1: SET DATA CHANGED FLAG550:" 0) RETURN":" 1) MO30:5205&20:24:868:(95);(95):20:24:"";Q$=)10O+20:EF1550[-C(Q$)h0C0520:C1C17İ30:550D21:15:I16:(95);:I:21:15:"";Q$G10I20:EF1580KN(Q$)NN0610XN1N1N:21:27:"TOTAL = ";RETURNS TO NEXT HIGHER ENTRY)I1:21:868:(95);(95):1:21:"";Q$Q10c20:EF1490oM(Q$)zM0ıM1M12İ30:4902:19:868:(95);(95):2:19:"";Q$ 10 20:EF1520D(Q$)D0490D1D31İ)256(937);L$;LNCH0!'E1:"ENTER MONTH (1-12):"a2:"ENTER DAY (1-31):"qI19:I3I;") ";A$(I):II1017:I93:20I;") ";A$(I):I20:"ENTER CATEGORY (1-17):"21:"ENTER AMOUNT:"23:"('0' "ENTER YEAR: ";F$* F$"BUDGET FILE."F$C "BL$"BLOAD "F$",A"R ,A%(0,0,0)p 6D$;BL$;(936)256(937)v @| J T"ENTER YEAR: ";F$ YF$"BUDGET FILE."F$ ^BS$"BSAVE "F$",A":L$",L" hLN3218132 rA%(0,0,0)|D$;BS$;(936O YOU WISH TO SAVE IT? (Y/N) ";Q$1 Q$"Y"330G Q$"N"ĺG$:190O :^ :CH280 "THE DATA IN CURRENTLY IN MEMORY HAS":"BEEN CHANGED, BUT NOT SAVED.": "DO YOU WISH TO SAVE IT? (Y/N) ";Q$ Q$"Y"330 Q$"N"ĺG$:250  x14::"ENTER FUNCTION NUMBER (0-4): ";Q$4 {10F }20:EF1120R N(Q$)_ N0170u N1N4İ30:120 N230,330,400,700 50 :CHĀ: DATA SAVED "THE DATA CURRENTLY IN MEMORY HAS":"BEEN CHANGED, BUT NOT SAVED.":! "DASE REENTER";:: PRINT ERROR MSG7 (::255:1400= 2` <"F A M I L Y F I N A N C E"z F:" 0) END PROGRAM" P:" 1) LOAD FILE FROM DISK" Z:" 2) SAVE FILE TO DISK" d:" 3) ENTER BUDGET DATA" n:" 4) DISPLAY BUDGET DATA", DOMAIN *) **************************R 24:868:EF0:: ERASE ERROR MSGo Q1(Q$):QQ$(Q$,Q,1) QQ$"+"QQ$"-"QQ$"."27 (QQ$)48(QQ$)57Ģ24:G$;"PLEASE ENTER A NUMBER";:EF1: Q:$ 24:G$;"NUMBER OUT OF RANGE - PLEK 40)**************************I* FAMILY FINANCE *i* COPYRIGHT (C) 1980 ** KURT G. SCHUMACHER ** ARLINGTON HEIGHTS, IL ** DONATED BY AUTHOR TO ** NORTHERN ILLINOIS AUG * * DECLARED PUBLIC          S1ī7675 bCS1O l:::(BL$,20):" CREATE MATRIX ":(BL$,20)::3r v27:"STANDARD":28:"FORMAT": :28:"COLUMNS":27:"A B C...";::"X";::" TOT" 7720 24:"1 0 0 0 0 0"  24:"2 0 0 0 0 0" 22:"R"! TOO LARGE AND THE REPORT FORMAT WILL BE MESSED UP."k:"DO YOU WANT TO CONTINUE PRINTING ANYWAY""(ENTER Y OR N)"":Q$:,Q$"Y"ī374062000U ---------------------V CREATE ROUTINEW --------------------- XC915XR01 X0İ915,R$(X);; T10:36,TIYC01vNB(A(X,Y)):NU$(" "(N),PL)NU$;:TTNC:Y0TT136,T:Y::1:X::207:2000:" POTENTIAL ERROR " ::"DATA FIELDS ARE- BEGIN PRINTING* ------------W:10:6::"NOW PRINTING THE MATRIX ":1:12528,7:12527,1:12526,81:12529,0:12530,2:136,((SZ(T$))2):T$:915T9(NC(C$(C))):36,TXC01:C$(X);:TTNC:36,T:X::10ZQ$"C"R11&\Q$"D"R1.19^Q$"E"R1.01R`B(X)(XR1.5)R1ltNB(A(0,0)):NU$(N)z~PL(NU$)PL3PL3NCPL1NC5NC5NC(C1)70ī4100NC10NC10SZ((C1)NC)10:SZ80SZ80 -----------.::68"CHOOSE THE TYPE OF ROUNDING YOU WANT.":W="(NUMBER OF DECIMAL PLACES)kB"A = 12345.67"D"B = 12345.8 "F"C = 12346. "H"D = 12350. "J"E = 12300. "LQ$:QQ$"A"Q$"E"ī3660VQ$"A"R1100XQ$"B"R1SIZE OF THE FIELDS IN YOUR MATRIX.) N "(MAX= 4 CHAR FLD.= 14 COLUMNS)w :"PRESS ANY KEY TO CONTINUE";:945::"ENTER A TITLE YOU WANT PRINTED AS A HEADING ON THE PRINTOUT.""==> ";T$:(T$)0T$"MATRIX"$(T$)75ī36000:11  j "THIS PRINTING ROUTINE IS DESIGNED TO WORK WITH A 80 COLUMN PRINTER. (SILENTYPE)"p  "IF YOUR PRINTER IS DIFFERENT THIS ROUTINE MAY NOT PRODUCE PROPER RESULTS." # "THE NUMBER OF COLUMNS PRINTED IS LIMITED BY THE (BL$((N.005))"."((((N100)100.5)),2),10)c (NU$(Z),2)"00"NU$(Z)(NU$(Z),7)" "i  ---------------------- PRINTER ROUTINE  ----------------------  R1C1ī8200 ::" WARNING ";: 33,30:32,1Z' R$(X);:9:NU$(2);:19:NU$(1);2 Y0ĞD 30:NU$(0):O& R9ĺV0 X: 21:"TO CHANGE COLUMNS USE ==><== KEYS":"TO RETURN TO MENU USE 'ESC' KEY"D Q$::Q$(27)ī2000N Q$AR$C1C13X Q$AL$C1C13b 30104 NU$(Z)е ----------------& VIEW ROUTINE< ----------------E C1CX R1C1ī8200g C12C12v C1CC1C YCC1 :2:11:C$(Y2);:21:C$(Y1); Y0Ğ 32:" ";C$(Y):: XR01 X0Ğ: Z02:NA(X,YZ):3200:P2:P22ī2050*206024 CHECK FOR ROUTINEH>P6ī8100: LOAD`CP8ī7000: CREATEwDP10ī300: ENTEREP12ī3000: VIEWHP14ī8000: SAVEMP16ī3500: PRINTNP18ī8280: INSTRUCTIONSRP20ī9998: END208039;I1LS1ĺ" ";N$;" MATRIX HAS BEEN LOADED":2039qI2CS1ĺ" A MATRIX HAS BEEN CREATED":2039BX$;M$(I):I23:"(SELECT = RETURN KEY / MOVE = ANY KEY)"P6CS1LS1P10 P:5:Q$Q$(13)ī2110 PO HAVE MENU` DISPLAY FIRST7 -----------------O MENU ROUTINEm -----------------------:::I13:BL$:I:2:10:" SELECT OPTION":16368,06I18:4I1CS1ĺ(BL$,15):2039I2LS1ĺ(BL$,15):20P8Hmx P6*+(n*+c*ȩ*h`HH$hH,b (hHI   $ i$h`l" 12:C$(X)(MD$,Z,5):ZZ5:X:7330^& Z1:R12:R$(R):X012:R$(X)(MD$,Z,5):ZZ5:X:7670&Z1:C7:C$(C):X07:C$(X)(DD$,Z,5):ZZ5:X:7330&Z1:R7:R$(R):X07:R$(X)(DD$,Z,5):ZZ5:X:7670&(26:C2639:"-";:C::~'2R10:C12:R ROW TITLES"'%"(LIMIT TO 8 CHAR.)"7%:XR11[%" ROW #";R(X1);" ";:"";Q$v%(Q$)1(Q$)8ī7620%R$(X)Q$%X%R$(0)" TOT "%%N$"CREATED"%A(R,C)%::10:" MATRIX CREATED ":8160"&Z1:C12:C$(C):X0$R1R52ī7330$R$(R)'$75901$7670N$8:"ENTER COLUMN TITLES"h$B"(LIMIT TO 8 CHAR.)"x$L:XC11$VA$(C(X1)64)$`"COLUMN #";A$;" ";:"";Q$$j(Q$)1(Q$)8ī7520$tC$(X)Q$$~X$C$(0)" TOT "$ %:"ENTEzQ$"D"ī7700#C(Q$)/#C1C52ī7240:#C$(C)D#7480J#b#:"NUMBER OF ROWS"v#" (M=MONTHS)"#" (D=DAYS)"#" (?=ANY NUMBER)##:" Y = ";:#" ";Q$:#950#Q$"M"ī7690#Q$"D"ī7710#R(Q$)"NUMBER OF COLUMNS",">" (S=MONTHS X 10)"C"?" (W=DAYS X 10)"Z"@" (M=MONTHS) r"A" (D=DAYS OF WK)""B" (?=ANY NUMBER)""C"H:" X = ";:"R" ";Q$:"WQ$"E"CS0:2000"\Q$"S"ī7730"fQ$"W"ī7740"pQ$"M"ī7680#22:"O 3 0 0 0 0 0")!22:"W ."8!22:"S ."E!24:"."i!24::"Y";::" 0 0 0 0 0"s!7720!22:"TOT 0 0 0 0 0"!7720! 33,20:5:1!"DESIGN YOUR OWN BY"! "ENTERING A CODE OR"!*"THE MATRIX SIZE""410:L2SP:(P$,L21)3P$(P$,L0L2):14209:MSP-START POINT_EP-END POINTyP$ WILL BE DESTROIEDL0,L1,L2 ALSO USED:V:20(C$)2C$:" ROBERT B. SHEN, 312-438-4728( PRINT A PAGE2J1K,<J1ĺJ1;AFP$A$(J):1390:HPJtZV22:C$"HIT ANY KEY TO CONTINUE":1550dS$:::nPRINT STRING FORMATx:L1EPSP2L0(P$)L0L1ĖSP:P$:L2L111(P$,L2,1)" "1470CE FOR A NEW ACCOUNT."A$(5)"IN THE LIST 'WDR/DEP*', THE * INDICATES THE VALUE IS FOR DEPOSIT; IN THE 'BAL' (BALANCE), THE * INDICATES THE BALANCE IS NEGATIVE.":K5:1330: PAGE THREE: D$;"RUN CHECK BOOK BALANCE":ATION CARD." A$(3)"MOST OF COMMANDS ARE SELF EXPLAINED AND YOU CAN USE 'TEST.DATA' TO SEE HOW IT WORKS BY LOADING DATA FROM DISK AND LISTING ALL TEST RECORDS. ALWAYS ANSWER '0' TO EXIT."A$(4)"'CREATE NEW FILE' YOU ONLY USE IT ONCE TO ENTER BALANTER WILL LIST ALL BALANCES. AND YOU SAVE ALL CASHED AND UNCASHED DATA ON DISK FOR NEXT MONTH."d :} K5:1330: PAGE TWO : A$(1)"THE PROGRAM DETAIL:" A$(2)"THE FIRST QUESTION IS 'LOAD COMM.CARD (Y/N):' WHICH IS FOR PRINTER USING COMMUNICCOMES, YOU ENTER ALL CANCELLED OR CASHED CHECK AND DEPOSIT RECORDS BY THE CHECK NUMBER (USE 3 DIGITS)." ~A$(4)"IF THERE IS ANY FORGOTTEN OR MISTAKEN RECORD, THE PROGRAM WILL INDICATE. THEN YOU CAN RE-ENTER OR MAKE CHANGE."^ A$(5)"FINALLY, THE COMPU PLAY GAMES." B:7 LSP3:EP39:K4:1330: PAGE ONE= V:p `A$(1)"THE GENERAL FEATURE OF THE PROGRAM IS:" jA$(2)"ONCE A WEEK OR SO YOU ENTER ALL YOU CHECK AND DEPOSIT RECORDS TO THE COMPUTER AND SAVE ON DISK."g tA$(3)"WHEN THE BANK STATEMENT IONS:"B $A$(2)"WHEN YOU HAVE A LOT OF TRANSACTIONS EACH MONTH." .A$(3)"WHEN BOTH HUSBAND AND WIFE USE SAME CHECK ACCOUNT AND OCCASIONLLY ONE FORGETS TO UPDATE THE CHECK BOOK RECORD." 8A$(4)"WHEN YOU LIKE TO USE YOUR APPLE TO DO SOMETHING BESIDESCHECK BOOK INSTRUCTIONS$:<A$(10):D$(4)::hV2:C$"** CKECK BOOK BALANCE **":1550V3:C$"ROBERT B. SHEN":1550: A$(1)"THIS PROGRAM IS DESIGNED TO HELP YOU BALANCE YOUR CHECK BOOK SPECIALLY UNDER ONE OF THE FOLLOWING CONDIT     NO f:"DELETE CHECK NO:"5k:"CHECK NO: ";NBpN0135NuJ1NP_zNCN(J)905fJ:"NO SUCH # !"::875IJNP1CN(I)CN(I1):DS$(I)DS$(I1):CH(I)CH(I1):A(I)A(I1)INPNP1:875 PRINT SUBROUTINE L);%F18:F22:BA(J)$*S1215/V(B):930D4B0ĺ"*";V9BXBX(1)Bw>S130:VBX:930:BX0ĺ"*";}CHJMKK2BYBXRR$"Y"ĺ::860WD$;"PR#0"\23:(7);"HIT ANY KEY FOR CONTINUE";:S$:670a DELETE CHECKUNCASHED CHECKS **":B"NO DISCRIPTION";:24:"WDR/DEP* BAL"dS130:F18:F22:KK3BXBLuVBX:930:J1NP KK2ĭCH(J)0840KK3ĭCH(J)1840S11:F25:F30:VCN(J):930L(DS$(J)):L18L18 5:(DS$(J),1,:8:"BAL OF CASHED CHECKS: ";BYB:8:"USE IT (Y/N): ";T$YT$"Y"BXBY:735:8:"BAL OF CASHED CHECKS: ";BXR$"Y"745775:::KK1ĺ"** LIST ALL ITEMS **":KK2ĺ"** LIST CASHED CHECKS **":KK3ĺ"** LIST ::6:"** LIST CHECK BALANCE **":<8:"1 LIST ALL":\8:"2 LIST CASHED CK/DP":~8:"3 LIST UNCASHED CK/DP":8:"4 BACK":8:"WHICH ONE(1,2,3...ORDER): ";KKKK4ī135:8:"LIST ON PRINTER (Y/N): ";R$KK3735$)1ī605XXPXP1]J<b:8:"SAVE FILE NAME: ";F$OgD$;"OPEN ";F$clD$;"WRITE ";F$oqXP:XB{vJ1NP{KJ1ī645CH(J)1ī650CN(J):DS$(J):CH(J):A(J)JD$;"CLOSE ";F$135 LIST CHECK BALANCE %SAVE DATA ON DISK ::8:"1 SAVE ALL RECORDS":^!8:"2 SAVE UNCASHED RECORDS":q&8:"3 BACK":+8:"4 EXIT":08:"WHICH ONE: ";KJ5KJ3ī135:KJ4ė:?XPNP:XBBLDKJ1ī610IXBBY:XP0NJ1NPSCH(JO ":"ENTER CASHED CHECK NO"8:"CHECK NO: ";NEN0135QJ1NPcNCN(J)ī500jJ(7):"NO SUCH # !"::470"AMOUNT IS:";A(J);" (Y/N): ";U$U$"Y"520"CORRECT AMOUNT: ";A(J)CH(J)1 470 DP NO: ";CN(J)/"2 DESCRIPTION: ";DS$(J)K"3 CK(+)/DP(-): ";A(J)k:"CHANGE WHICH ONE: ";K:K1Ą"NEW CK/DP NO: ";CN(J)K2Ą"NEW DESCRIPTION: ";DS$(J)K3Ą"NEW CK(+)/DP(-) AMOUNT: ";A(J)390 ENTER CASHED CHECK NON: ";DS$(NP)/ m"CK(+)/DP(-) AMOUNT: ";A(NP)= rCH(NP)0H w:320n | CHANGE DEPOSIT OR CHECK DATA :"CHANGE CK/DP DATA:" :"CK/DP NO: ";N N0135 J1NP NCN(J)ī420 J (7):"NO SUCH # !"::390:"1 CK/ CHECK DATA  6:2 ;"TOTAL NO RECORDS: ";NPR @:NPNP1:"RECORD NO: ";NPX Eq J"CK/DP NO: ";CN(NP) OCN(NP)0NPNP1:135 TNP1360 YJ1NP1 ^CN(J)CN(NP)ĺ(7):"THIS # IS IN RECORD, TRY AGAIN !":325 cJ h"DESCRIPTINP:BL D$;"CLOSE ";F$& 135C READ DATA FROM DISK K :f "DATA FILE NAME: ";F$y D$;"OPEN ";F$ D$;"READ ";F$ NP:BL J1NP CN(J):DS$(J):CH(J):A(J) "J 'D$;"CLOSE ";F$ ,135 1 ENTER DEPOSIT ORETE CK/DP NO":" J:"9 EXIT":: J:"WHICH ONE: ";KL K1K9ī135w K210,255,310,385,465,670,535,870,535 CREATE NEW FILE ::NP0 "NEW FILE NAME: ";F$ :"PREVIOUS BALANCE: ";BL D$;"OPEN ";F$ D$;"WRITE ";F$ AM ***"::J8+ J:"1 CREATE NEW FILE":M J:"2 READ DATA FROM DISK":l J:"3 ENTER CK/DP DATA": J:"4 CHANGE CK/DP DATA": J:"5 ENTER CASHED CK/DP NO": J:"6 LIST CK/DP BALANCE": J:"7 SAVE DATA ON DISK": J:"8 DEL<d CHECKBOOK PROGRAM Ri USING COMMUNICATION CARD FOR MY TI743 PRINTER jn::D$(4):J250:s"LOAD COMM.CARD (Y/N): ";W$xW$"Y"ī130}D$;"BLOAD CHECK BOOK.X"CN(J),DS$(J),CH(J),A(J)::: 6:"*** CHECKBOOK PROGR       OR N)";Q$ Q$"N"ī220+ 1350:936] 20:"HOW MANY SLIDES DO YOU HAVE ?.  ";Th T(T){ T1T60ī220 20:"DO YOU WANT TO USE THE PADDLES ? (ENTER Y OR N)";Q$ Q$"Y"Q$"YES"SW1 D$"": CTRL D 20:" BY *"/ R* *, :05::" NOTICE ":::" THIS OPTION IS---------------------*:5.*LS1ī8155A*(N$)0ī8155w*"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000*(N$)0ī2000*LS1*10:"LOADING THE ";N$;" MATRIX"*D$;"OPEN MM-"N$:D$;"READ MM-";N$*C,R+A(R,C),R$(R),C$(C)M-";N$)OC:R%)TI0C:C$(I):I:)^I0R:R$(I):IL)cY0R:X0CX)hA(Y,X)a)mX,Yx)rD$;"CLOSE MM-";N$)uD$;"LOCK MM-";N$)w15:"MATRIX HAS BEEN SAVED AND LOCKED.")|8160) --------------------) LOAD ROUTINE* TAL ":7670&(= --------------------=(> SAVE MATRIX Z(? ---------------------c(@:5v(CR1C1ī8200(E"ENTER THE NAME OF THE MATRIX ";N$:N$"E"ī2000(F10:"SAVING THE ";N$;" MATRIX ON DISK"(JD$;"OPEN MM-";N$)LD$;"WRITE MR$(R),C$(C):Z1:X012:C$(X)(MD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TOTAL ":7670 (<R10:C07:R$(R),C$(C):Z1:X007:C$(X)(DD$,Z,5):ZZ5:X:Y1011:A(R(Y1)):R$(Y)(" "(A),5):Y:R$(0)" TOĠŠԧؠ٠ǠŠĠ  ؠӠΠĮԠȠӠ͠`ĠԧӠӮϠРՠŠҠ     .ȠӠ͠ԧŠŠԧؠϠ `ΠŠ͠ӠҠ ؠŮ        R* *0R* OCT 1980 *JR* *dR********************N23:22)"PRESS SPACE BAR ";:Q$@ 34,0: NORMAL SCREENF `R********************z R* * R* DESIGNED AND * R* * R* WRITTEN BY * R* *R* RICHARD LUNDEEN *8)A$ \Y+f ----------------------1pBz32,8:33,25S34,7:35,14Z8eX16mB$tX ---------------------10" "10(12((T$)2))T$:32,0:33,40:34,20:35,23&THE SPACE BAR"Q$# /:936JX133:A$"*": CTRL GVB$(40)xB$" " ------------------------- X8337:X1)A$ 14:X1)A$*X1X11:X4Y114>Y813HY:33)A$RY:R KEY OR THE BUTTON ON PADDLE 1"gn:"THEN TYPE THE NUMBER OF THE IMAGE YOU WANT AND PRESS RETURN"x:"APPLE-FILE WILL PRODUCE TEXT IMAGES BUT YOU CAN ALSO STORE OTHER IMAGES BY BSAVE ING THE APPROPRIATE PORTION OF MEMORY"22:"PRESS :2:"INSTRUCTIONS FOR USE"rP:"THIS PROGRAM PRESENTS SCREEN IMAGES WHICH HAVE BEEN CREATED BY APPLE-FILE"Z:"YOU CAN ADVANCE THE IMAGES BY PRESSING THE SPACE BAR OR THE BUTTON ON PADDLE 0" d:"YOU CAN SELECT THE IMAGE BY HITTING ANY OTHEA:A$(A) IA 340! I' 1 936H 10:10:"THE END"N i  =================== (016287)1271200 (116287)1271150 1260  ********************  INSTRUCTIONS  ********************F936  X59đ X60đ2 W ---------------> XA$(X)T b"BLOAD CARD";A$ l" " v --------------- LSW1ī1260 V23 `Q$ jD$ tQ$" "ī1200 ~23 " WHAT SLIDE DO YOU WANT? " ---------------}  YOU MUST ENTER A CHECK FOR HI OR LO-RES SCREEN DISPLAYS AND THEN SET THE PROPER SWITCHES AS SHOWN BELOW   IF SLIDE NUMBER EQUAL X THEN SET SCREEN DISPLAY "@ 20:"ENTER YOUR TITLE ";T$j (T$)20ĺ"TITLE TOO LARGE ":280t "2000| 'D$ , ===================== 6 MAIN ROUTINE @ ===================== JI1T TXI h:936 r | - Šŧ٠ΠŠĠŠǠŠ͠ ƠՠӠŠΧ٠ǠӠƠԠՠȠŠή`Ҡ̠ƠŠخҠӠՠĠ ӠȠԠӠĠΠŠخ.ŠŠƠŠŠ͠ӠŠǠŠԠ٠̠Ġ`ϠĠŠԠήԠǠנŠ ǠӠ̠Π    z#??   ؠ ؠҠ) ͭԠԮԠŠҠŠӠ  ˠˮؠ ٠Šé ǯ̠ ΠҠ)ΠҠҠŠԠ&ŠӠ ĵ!Ķ"ķĸĹˠˠ ˠˠҠ  ԠԠԠԠ ԠҠҠıIJijĴϠ ӠŠŠŠŠéԠŠԠԠӍ̠ӍàŠӍàӍ̠čůҧӠӮŠӮŠӮîӮ̠ō̠Ӎ΍ҍҍٍ΍̍ǍЍԍ֍Í٠̍ŠŠō̠̍ōůԍ̠ŠӍǠӭٍ̩Ϡ΍̠ĠӍčōůϠӍӍǍԯӍҠůӍ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠Í٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č٠č   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA IZE -----------------!6D$(4): CTRL DhBL$" "wBX$"[ ] "M$(7)"INSTRUCTIONS":M$(2)"CREATE MATRIX":M$(3)"ENTER MATRIX DATA":M$(4)"VIEW MATRIX DISPLAY"1M$(1)"LOAD MATRIX":M$(5)"SAVE ----------------1I1SZ:"-";:I:::H ----------------"IF TOTAL O.K. THEN PRESS RETURN IF TOTAL NOT O.K. THEN PRESS ANY KEY TO REENTER FIGURES.":Q$Q$"E"ġ:2000 ----------------- INITIALT0:"ENTER ROW - ";R$(Y):, XC11<X10ĺ" ";]C$(X);" = ";A(Y,X);" ==> ";e Q$w*(Q$)0ī850>Q$"E"ī2000HQ(Q$):A(Y,X)A(Q)RTTA(Y,X):X\:"COLUMN TOTAL = ";T:f940pQ$(13)ī765zY100(Q$):A(Y,X)A(Q)#NTTA(Y,X):Y=X:"ROW TOTAL = ";T:Fb940ZlQ$(13)ī515avXj100 ----------------- ENTER BY ROW -----------------::I13:BL$:I:2:10:"ENTER DATA BY ROW":YR115:958  ----------------M ::I13:BL$:I:2:10:"ENTER DATA BY COLUMN":] :XC11j 5:958 T0:"ENTER COLUMN - ";C$(X): YR11 Y10ĺ" "; R$(Y);" = ";A(Y,X);" ==> "; &Q$ 0(Q$)0ī590 :Q$"E"ī2000DQ):A1(R1)A1:A10A1Rī450B :"ENTER THE COLUMN NUMBER ";Q$n A2((Q$)):A2(C1)A2:A20A2Cī470 "OLD VALUE = ";A(A1,A2) :"ENTER THE NEW VALUE ";Q$ Q(Q$):QA(Q):A(A1,A2)Q:100  ----------------  ENTER BY COLUMNROW AT A TIME"7 T:5:"3. A SPECIFIC ROW AND COLUMN"U ^:5:"4. RETURN TO MENU"w h::"ENTER NUMBER ==> ";:Q$ mQ((Q$)) rQ1Q4ī310 |Q500,750,450,2000  ----- SPECIFIC ENTRY :::"ENTER THE ROW NUMBER ";Q$ A1((Q$) ";TT, "TO CONTINUE PRESS RETURN ";Q$9 A(0,0)TC 2000^ * --------------------s + ENTER ROUTINE , -------------------- 1R1C1ī8200 6:5:"HOW DO YOU WANT TO ENTER DATA. " @:5:"1. A COLUMN AT A TIME" J:5:"2. A C:TTTTA(Y,X):X:A(Y,0)TT:Y8 ----- TOTAL COLUMNU T0:Y1R:TTA(Y,0):Yk ----- TOTAL ROW TT0:X1C:TTTTA(0,X):X ----- CHECK BALANCE TTTī250 :"TOTALS OUT OF BALANCE": "COLUMN TOTAL = ";T "ROW TOTAL =' 1010-_ --------------------I` TOTALS ea --------------------d::"CALCULATING TOTALS NOW "::n ----- COLUMNS ..xX1C:T0:Y1R:TTA(Y,X):Y:A(0,X)T:X ----- ROWS ... Y1R:TT0:X1                 WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    ԍԍɍՍčō΍΍Ԡî΍ōӍč   $$''L>>,,$%%?? -->>?$$$--??-M;?$$$--??-- $,,-?-6?'$$$L6>?/-56-$$$?--?(.%%$$$$$LJ=>>>555$$$666--$$$...,,&4666$$$65555$$$ $,,556>>'$$$-55>>? $,,556>6=<'$$$--6>?555 ..%%'?<,,55 $$$?-- $$66..%%$$ <$'$L6>6 $$666%%..$$$,,$''L>>/655@%M]er},:FN\es )%%$<<776.&/,,,)=$$$>>--??,,,,<<77-%%'?%%%??I!>'-,,$<<775- %7$$$--6>?/-56$$$-55>?/-5>>? $,,-?'$$$-556  T LINE IS THE 'TITLE' OF THE CARD. WHEN READING A CARD OFF THE DISK,IT MAY BE ACCESSED EITHER BY ITS TITLE OR ITS NUMBER. AN INDEX FILE IS MAIN-"r"TAINED FOR EASE IN KNOWING WHAT IS CURRENTLY STORED IN THE APPLEFILE."w23:" (HIT SPAHEN 'SAVE' THAT PAGE ONTO DISK. PAGES MAY BE READ BACK IN THE SAME WAY."^" WHEN WRITING A PAGE OR CARD FOR THE FIRST TIME, APPLE WILL PRINT THE CARD NUMBER AND POSITION THE CURSOR AT THE"h"TOP OF THE PAGE. WHATEVER IS ENTERED ONTHIS FIRSK Q$T+NN40:N1104713057060<0BL3000^@ EXPLANATIONJ:"THIS PROGRAM IS DESIGNED TO USE A DISK AS A SORT OF CARD FILE. THE USER MAY"JT"ENTER VIRTUALLY ANY DATA ON THE SCREEN VIA THE APPLE KEYBOARD AND T6030K:6040 CNK:60602TCTC1:CNTCY::1:" CARD #";CN:2:10:2020rXPRINT CARD ON PAPERyb2l(31);"";:v23:38:34,24:32,38:33,1N1024T07:Q$"":KNN39J(KT128):J19997130Q$Q$(J)COPY? (Y/N)";Q$*Q$"Y"Ċ2:(31);"";F10:"INDEX LISTING":3R34,2:yT160:" CARD #";T;:15:IN$(T)(37)23ľZ$:T022:":";:Z$:2553010p FIND A BLANK CARD{K160IN$(K)"EMPTY CARD" ESC-N =NORMAL"J 20:8:TC;" CARDS CURRENTLY IN USE."_ 22:1:":";:Z$p Z$"R"1000 Z$"I"5000 Z$"W"6000 Z$"H"ī4000 Z$"Q"İ80:: 30298000:3000INDEX LISTING5020"HARD 10:"Q - QUIT"2 :8::" COMMANDS "::c 2:"CTL-S = SAVE CARD ESC-C =CURSOR UP" 2:"CTL-R = REVISE CARD ESC-D =CURSOR DN" 2:"CTL-V = DELETE CARD ESC-I =INVERSE" 2:" ESC-F =FLASHER"  2:" 221052O(37)22ğ:10:"CARD FULL";::T11200:T:23:1:958:22:1Y 2020k DISPLAY MENU :2::8:" MENU ":: 10:"I - INDEX LISTING" 10:"R - READ A CARD" 10:"W - WRITE A CARD" 10:"H - HELP INSTRUCTIONS""D"Ģ(37)2Z$"I"Ğ(Z$"N"ĝ6Z$"F"ğ|(Z$)19ĺ"BSAVE CARD";CN;",A$400,L$400":60:TCTC1:IN$(CN)A$(Z$)19ė:15:10:"CARD IS SAVED."(Z$)19āT11000:T:3000(Z$)167000(Z$)21Ĺ36,(36)1(Z$)Z$ `1051# FILL CARD ROUTINE9  ALREADY HAVE CNC 2010o 13::6:"EMPTY CARD"::216,0:2:10:y 2020 ::1:"NO. ";CN 2005 A$IN$(CN) 2:10:A$ 4 Z$:Z$; (Z$)272030 Z$:Z$"C"Ģ(37) Z$OAD CARD";CN:22:1:Z$+ (Z$)2210563 70T TCTC1:IN$(CN)"EMPTY CARD"p (Z$)18TCTC1:2018 !(Z$)167000 $3000 LGET CARD BY NUMBER MIN$((Z$))"EMPTY CARD"1045 Q V"BLOAD CARD";(Z$) WCN(Z$) [22:1:160:IN$(K):K U"CLOSE"$ Y= GET AND READ A CARDy :"WHAT IS THE CARD NUMBER OR ":"SUBJECT NAME: ";:Z$ (Z$)581100 T160:IN$(T)Z$1050 T :" NO SUCH CARD IN FILE" :":";:Z$:3010 CNT::"BL60(T1)16069) >A$A$((T)128):T/ EA F DELETE CARDp G:"DELETE?? (Y/N)";::" ";Y$:Y$"Y"ı H"DELETE CARD";CN I"DELETE CARD";CN: DOS CMD O P SAVE INDEX Q"QUITTING PROGRAM" R"OPEN INDEX":"WRITE INDEX" TK INDEX" "K160:IN$(K):K, $"CLOSE"U %K160:IN$(K)"EMPTY CARD"ECEC1e &K:TC60ECk '{ ( SAVE PAGE *"BSAVE CARD";CN;",A$400,L$400" 1 2STORE TITLE IN INDEX 4IN$(CN)A$ ; <GET A$ =A$"":T11611180:(T)1"NOMONI,O,C"!IN$(60))303 3000R *************************q * DONATED BY AUTHOR TO * * NORTHERN ILLNOIS AUG ** DECLARED PUBLIC DOMAIN************************** READ INDEX "OPEN INDEX":"READ         ԍȠč׍̠čŠ٠îύǠ̍ЍΠԍō̠č٠̍РԍǍERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS z , ALL COMMERCIAL RIGHTS RESERVEDT112:MN$(MN);10);R(MN,1);20);R(MN,2):F "OUTPUT FILE NAME? ";N$_ M1(107)256(108)x M2(109)256(110) D$"BSAVE";N$;",A";M1;",L";M2M11 "AGAIN? ";N$:N$"Y"170 "DONE"  WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80U " PU(J,13,2)BU(J,13,2)BU(J,I,2)::9 T CALCULATE RATIOSJ ^NDIGITS1000a hDL0:OV0:MN113 rDLDLBU(5,MN,2):OVOVBU(30,MN,2) |R(MN,2)(OVDLNDIGITS)NDIGITS ) ::"EXPENSE TO INCOME RATIO":"MONTH";10);"BUDGET";20);"ACTUAL":MN02405 B$(J);:" ACTUALS $? ";BUDGT(J,MN,2):320T CALCULATE RUNNING TOTALSe RT0:K215 S(J,K)0RTRTBU(S(J,K),MN,2)  BU(J,MN,2)RT:(10);B$(J);" ";RT " ,340 6 RUN UP RUNNING TOTALS @BU(J,13,2)0" JI1MN:B;N$;",A";M1 n. x"STRING FILE NAME? ";N$M D$"OPEN";N$:D$;"READ";N$c I130:B$(I):Iz I113:MN$(I):I D$"CLOSE";N$ "MONTH FOR ACTUALS (1-12)";MN MN0200 MN(MN):10000: MN1MN12170 J130 S(J,1)| M10:M20!D$(4):N$""/M10:M20Q(BU(30,13,2),S(30,15),R(13,2)j2M1(107)256(108)<M2(109)256(110)FB$(30),MN$(13)PM1;15);M2Z::"BUDGET ACTUAL INPUT AND ANALYZE":"BUDGET DATA FILE NAME? ";N$ dD$;"BLOAD"     83 D$""2"NAME OF TEXT FILE:";Z$BD$;"MON I"H[D$;"OPEN ";Z$n(D$;"READ ";Z$xF:;A$Q70SZD$;"CLOSE ";Z$dD$;"NOMON I" DHTS RESERVEDML215:RTRTBU(S(J,L),I,K):3 BU(S(J,1),I,K)RTU "MONTH ";I;10);B$(J);2);RT[   WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80 " PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS , ALL COMMERCIAL RIGRATIO":"MONTH";10);"BUDGET";20);"ACTUAL":MN112:MN$(MN);10);R(MN,1);20);R(MN,2):v "OUTPUT FILE NAME? ";N$ M1(107)256(108) M2(109)256(110) D$"BSAVE";N$;",A";M1;",L";M2M11 "DONE":  RUN SUBTOTALS RT0 I112 JS(J,1)0İ480:E TBU(J,13,K)BU(J,13,K)BU(J,I,K):::\ ^ CALCULATE RATIOSm hNDIGITS1000x rK12 |DL0:OV0:MN113 DLDLBU(5,MN,K):OVOVBU(30,MN,K) R(MN,K)(OVDLNDIGITS)NDIGITS :Y ::"EXPENSE TO INCOME );BU(I,MN,2):MN: 34,15I "BUDGET (1), ACTUALS (2), DONE(0)? ";KV K0300i "MONTH #? ";Jw J13240 B$(I) "CURRENT VALUE ";BU(I,J,K);" NEW VALUE"; BU(I,J,K) "::190 ,::170 6K12:J130:BU(J,13,K)0 @ nD$"OPEN";N$:D$;"READ";N$3 xI130:B$(I):IJ I113:MN$(I):I\ D$"CLOSE";N$b h "BUDGET ITEM # (0 TO TERMINATE) ";I:I30170 I0310 :B$(I):"MONTH";10);"BUDGET";30);"ACTUALS" MN112:MN;10);BU(I,MN,1);30  M10:M20!D$(4):N$""CBU(30,13,2),S(30,15),R(13,2)\(M1(107)256(108)u2M2(109)256(110)<B$(30),MN$(13)F::"BUDGET EDIT":"BUDGET DATA FILE NAME? ";N$PD$;"BLOAD";N$;",A";M1Zd"STRING FILE NAME? ";N$     e  =====================< TITLE SLIDES \ ===================== h:9369:6:"==================="10:6:" TITLE SLIDES "11:6:"===================" 20:"DO YOU WANT INSTRUCTIONS? (Y SERVED1 COMMERCIAL RIGHTS RESERVEDMN$(10)"OCT":MN$(11)"NOV":MN$(12)"DEC"OMN$(13)" YEARLY TOTAL "U WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80" PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS , ALL COMMERCIAL RIGHTS RE*S(24,1)24:II213:S(24,II)II10:RS(29,1)29:II25:S(29,II)II23:S(30,1)30:S(30,2)11:S(30,3)24:S(30,4)29MN$(1)"JAN":MN$(2)"FEB":MN$(3)"MAR":MN$(4)"APR":MN$(5)"MAY":MN$(6)"JUN")MN$(7)"JUL":MN$(8)"AUG":MN$(9)"SEP":B$(27)"AUTOMOBILE INS."1\B$(28)"MISC. INS."SfB$(29)" TOTAL INSURANCE"xpB$(30)" TOTAL EXPENSES"z SET UP TOTAL ARRAYII115:JJ130:S(JJ,II)0::S(5,1)5:II25:S(5,II)II1:S(11,1)11:II26:S(11,II)II4:ES"#B$(18)"MASTER CHARGE/VISA"6B$(19)"SEARS"K B$(20)"PENNY'S"iB$(21)"MEDICAL EXPENSES" B$(22)"MISC CHARGE CARDS"*B$(23)"MISC EXPENSES"4B$(24)" TOTAL OVERHEAD">B$(25)"HOUSE/RENTER'S INS."HB$(26)"LIFE INS."R8)"HEATING (GAS-OIL)".B$(9)"ELECTRICITY"EB$(10)"AUTO LOAN"iB$(11)" TOTAL FIXED COSTS"{B$(12)"FOOD"B$(13)"TELEPHONE"B$(14)"GASOLINE/AUTO REPAIRS"B$(15)"SAVINGS"B$(16)"CLOTHING"B$(17)"ENTERTAINMENT/HOBBIW VALUE ";B1:B10550,0BU(J,I,1)B1:5002:MD BUDGET LABEL STRINGScNB$(1)"INCOME #1"yXB$(2)"INCOME #2"bB$(3)"OVERTIME"lB$(4)"WINDFALL"vB$(5)" TOTAL INCOME"B$(6)"MORTGAGE/RENT"B$(7)"REAL ESTATE TAXES"B$(OUTINE 3 I112:MN$(I)" ";:B1:B11500G BU(J,I,1)B1:IX BU(J,13,1)0 I112:BUDGT(J,13,1)BUDGT(J,13,1)BUDGT(J,I,1):I "TOTAL ";BUDGT(J,13,1) :" RESULTS OK? (Y OR N) ";Y$ Y$"N"ı&"MONTH ";I:BU(J,I,1);:" NE" IF ERROR THEN TYPE:":" BSAVE FILENAME,A";M1;",L";M2M11f D$"BSAVE";N$;",A";M1;",L";M2M11 "STRING FILE NAME? ";N$ D$"OPEN";N$:D$"WRITE";N$ I130:B$(I):I I113:MN$(I):I D$"CLOSE";N$ "DONE":  INPUT SUBRU(30,MN,1)/ ,R(MN,1)(OVDLNDIGITS)NDIGITS5 6m @:"EXPENSE TO INCOME RATIO":"MONTH";10);"BUDGET" BMN112:MN$(MN);10);R(MN,1): J34,0 T"OUTPUT FILE NAME? ";N$ ^(N$)0340 rM1(107)256(108) |M2(109)256(110)? :B$(J):I113:MN$(I);20);BU(J,I,1):J "HIT RETURN TO CONTINUE";R$P l RUN UP RUNNING TOTALSx J130 BU(J,13,1)0:I112:BU(J,13,1)BU(J,13,1)BU(J,I,1)::  CALCULATE RATIOS DL0:OV0:MN113 "DLDLBU(5,MN,1):OVOVB dJ130 nS(J,1)01304 x:B$(J):460:S CALCULATE RUNNING TOTALSq :"CALCULATING SUBTOTAL"z YT0 MN112 RT0:K215 S(J,K)0200 RTRTBU(S(J,K),MN,1) :BU(S(J,1),MN,1)RT:YTYTRT::BU(S(J,1),13,1)YT)  # BU(30,13,2),S(30,15),R(13,2)1M10:M20EB$(30),MN$(13)Q(D$(4)b2NDIGITS1000<::"BUDGET DATA INPUT":"SET UP BUDGET ITEM STRINGS"F:"INPUT BUDGET DATA":" USE -1 TO TERMINATE ITEM"::"BUDGET ITEM: ":34,6P580 Z     E D PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS|, ALL COMMERCIAL RIGHTS RESERVED2 MN112$S$(MN$,MN,1):790*:YYS3:DY0JP020020oS$(P):XXO(S$)64:DX6:790z$YY15.8XXO27:DX0:YYS10:DY6BS$"PERCENT TOTAL BUDGET":48L790V0` LOGAN R. ZINTSMASTER 12/26/80W"$)RS1%65S1%908700\S2%S1%6512:910GfS1%48S1%57890]pS2%S1%481:910nzS1%46920yS2%11S2%X,YXXDX:YYDY:  ANNOTATE AXES1:0MN$"JFMAMJJASOND"XXO6:DX20:YYS9:DY0XPXO,YP&YPYSR(I,K)YINC1004XPIXINCIXP(XP2)2K1XXPXO,YP ::"HIT RETURN TO CONTINUE ";N$:  STRING PLOTTER* INPUT STRING S$4S3%(S$):S3%DX279S3%279DX>I91S3%HS1$(S$,I9,1):S1%(S1v PLOT RATIOS510:Y180:DY0:X0:DX7:S$"EXPENSE TO INCOME":790:Y60:X90:S$"IN DEBT":790:Y115:X90:S$"SOLVENT":790K122(K2)4XO,YS:XP0:YPYSI112K1740R(I,K)R(I,1)Ē1R(I,K)R(I,1)Ē6 20 0YINC150200:YS160? :YYS150YS15:XO1,YXO3,Y:h DXO1,YS100YINCXO241,YS100YINC NX1XOXO24120:X,YS0X,YS5X1,YS5X1,YS: XXO,YS150XO,YSXO1,YSXO1,YS150XO1,YSXO240,YS bXO240,YS1XO1,YS1 l9400 N$:(N$)0J(N$)1# J1 640:2507 K RTRTBU(J,I,K)] K1RT(I)RTv BU(J,13,1)0YT0: YTYSRTBU(J,13,1)YINC100:  Y$"NO"540 7:Y01902:0,Y279,Y279,Y10,Y1: 03(Y$"NO") &XO35:XINC,YP JXPIXINC:YPYT( TYPYSYPYS7 ^YP0YP0F hXPXO,YPL rW |XO,YS]  S$"ANNUAL BUDGET "((BU(J,13,1))) X279(S$)7:DX7:YYS100YINC4:DY0:3(Y$"NO"):790 S$"PLOT CATEGORY CR FOR NEXT":XXS:DX7:Y190:DY0:79$"CLOSE";N$ ::(20):(1)H " WHITE BACKGROUND? (YES OR NO) ";Y$N Z RT(12)f J130o 510 Y180:DY0:X0:DX7:S$B$(J):790 K12 "RT0:2(K2)4:XO,YS:XP0:YPYS ,I112 6460:K1330 @1(RTRT(I))5:XPXO107)256(108)( nM2(109)256(110)< xB$(30),MN$(13)q ::"BUDGET PLOT":"BUDGET DATA FILE NAME? ";N$ D$;"BLOAD";N$;",A";M1 "STRING FILE NAME? ";N$ D$"OPEN";N$:D$;"READ";N$ I130:B$(I): I113:MN$(I): D} 38400 250003ADDRS(115)(116)256X(4);"BLOAD ALPHA#,A";ADDRS529(A2ADDRS529:115,A2(A2256)256:116,(A2256)2232,(115):233,(116)<(0)FD$(4):N$""PM10:M20ZBU(30,13,2),S(30,15),R(13,2) dM1(     CIAL RIGHTS RESERVED"AET AND ACTUAL"S d:"HARDCOPY DEVICE NOT REQUIRED":"(HIT RETURN TO CONTINUE)";A$Y n "WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80": ""PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM":" FOR USE BY APPLE COMPUTER USER GROUPS": ,"ALL COMMERUBTOTALS AND 1 RATIO"g <:"2. BUDGET EDIT:":5);"USED TO CHANGE ACTUAL DATA":5);" OR BUDGET DATA" F5);"RECOMPUTES ALL TOTALS" P:"3. BUDGET ANALYZE:":5);"USED TO ENTER ACTUAL MONTHLY DATA" Z:"4. BUDGET PLOT:":5);"PLOTS ALL DATA:BUDG  :936(10);"BUDGET TRACKER"x:" BUDGET TRACKER CONSISTS OF FOUR ":"PROGRAMS USED TO MONITOR A BUDGET"(:"1. BUDGET INPUT:":5);"USED TO INPUT DATA":5);"CONTAIN 30 BUDGET ITEM LABELS":5);"SETS UP SUBTOTALING RULES" 25)" 4 S   `      ͠ȠӠӠ ( ĠӠƠӮ `      ԠҠˮԧӠŠ٠ǠŠӠĠӠҠӠӠĠή`ҠƠӠĠӮϠΠǠŠӠ̠͠נՠؠĠŠ̠͠.ϠŠؠĠԠؠӠΠƠŠŠנĠΠ`     : ՠΠҠӠΠŠ    Ӡנàؠؠؠؠؠ`נ ؠؠؠؠؠ.Šؠ̠ˠŠӠנؠؠؠؠؠ `   נ    ӠӠĠέàӠĠΠҠՠ٠Ԡ͠ŠĠӠŠ`ĠԠƠӮĠӠĠέԠҠؠΠŠŠ.ӠҠȠנĠנӠĠέԠ`ŠӠՠŠԠ ŠĠϠӮ͠