' +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`MۛiIJ-JISIۛI S)-SMۛi S)-JISIۛ -ۛi S--SMۛ -J)ۛ MSiۛ)-ۛ MSiۛ MJIS mJMSiۛI-SIۛIm MۛiI Mۛ)mSMۛii MJIS MJIS)MJiS MJ-J ۛIIJ ۛIiJ ۛ ۛIM MۛiI - Smۛi-S)-S -SIۛIiJISIۛ)-ۛII --SIۛIIJMS MJ ۛI SIۛIMJMJ-ۛi SIۛIMJiSIۛIM --SIۛI)SIۛI)SIۛ)-JISIۛ -ۛI S)-SMۛ - MۛiI Mۛ)mSMۛii -MJISIۛ -ۛiI mJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ - --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiSiJIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J ۛIB D$;"READ TAX,R0":X,FC,LC,FD,LD:CC2FCTĺD$;"WRITE TAX,R0":X;",";YE;",";LC;",";FD;",";LD:LCTĺD$;"WRITE TAX,R0":X;",";0;",";0;",";FD;",",LDB CC2FCTı!C CC3FDTĺD$;"WRITE TAX,R0":X;",";FC;",";LC;",";YE;",";LD:LDTĺD$;"WRITE TAX;",";T;",";LD:AX CLARR(R)CAb F0:CLCL1:Y1QD:CLAN(Y)F1TAl Y:F13170Av D$;"READ TRANS,R";CL:K1,K2,K3,K4,K5,K6,K$,K7:K9K610(K610):K9C13170A D$;"WRITE TRANS,R";CL:K1;",";K2;",";T;",";K4;",";K5;",";K6;",";K$;",";K7:YEK3B ;LD:@D C13TLDĺD$;"READ TRANS,R";LD:K1,K2,K3,K4,K5,K6,K$,K7:D$;"WRITE TRANS,R";LD:K1;",";K2;",";T;",";K4;",";K5;",";K6;",";K$;",";K7:LDT:D$;"WRITE TAX,R0":X;",";FC;",";LC;",";FD;",";LD:AN C13TFDYEFD:D$;"WRITE TAX,R0":X;",";FC;",";LCC12TLCĺD$;"READ TRANS,R";LC:K1,K2,K3,K4,K5,K6,K$,K7:D$;"WRITE TRANS,R";LC:K1;",";K2;",";T;",";K4;",";K5;",";K6;",";K$;",";K7:LCT:D$;"WRITE TAX,R0":X;",";FC;",";LC;",";FD;",";LD:@: C12TFCYEFC:D$;"WRITE TAX,R0":X;",";T;",";LC;",";FD;","N$","GG1:G0GTQ3> N$"."GG1:GTQG1=> 3030E> :> D$;"OPEN TAX,L60":D$;"READ TAX,R0":X,FC,LC,FD,LD:C12FC0ĺD$;"WRITE TAX,R0":X;",";T;",";T;",";FD;",";LD:>& C13FD0ĺD$;"WRITE TAX,R0":X;",";FC;",";LC;",";T;",";T:?0 = (B$)2B$"":29701= CR$(EC,2)B$:23::q= VT:1:"TAX HEADING: AMOUNT:$";:S17:(95);:S= VT:HT:" ":HT:VT::TA$(G);:= N$:N$(13)3090= N$"Q"XZ2:= N$(1)XZ1:= N$"?"IN6:2340:3040> C1:CR$(EC,1)A$(I):1:23:B$"":"ENTER CREDIT INITIALS:";R' KEY.";3 IN10ĺ"IS THE CHECK NUMBER.";3 IN11ĺ"IS THE RECEIPT NUMBER FOR THE":3:"TRANSACTION.";4 IN4ĺ"IS THE BANK ACCOUNT THE TRANSACTION":3:"ATE OF THE TRANSACTION.";2 IN22ĺ"IS THE RECORD NUMBER OF A":3:"PARTICULAR RECORD YOU WISH TO":3:"ACCESS FOR CHANGE.";2 IN2ĺ"IS THE AMOUNT OF THE TRANSACTION.";e3 IN3ĺ"IS THE METHOD OF PAYMENT."::3:" THE PROCEDURE FOR CHANGING":3:.";:255081~ :3:" THE FIELD BEING ACCESSED NOW":31 IN0ĺ"IS THE ACCOUNT FOR INSPECTION":3:"AND POSSIBLE ALTERATION. CHOOSE":3:"THE ACCOUNT BY PRESSING THE RETURN":3:"KEY WHEN THE DESIRED ACCOUNT IS":3:"IN INVERSE.";2 IN1ĺ"IS THE DWING OR CHANGING TRANSACTION":3:"RECORDS. HIT THE RETURN KEY IF":3:"THERE IS TO BE NO CHANGE IN AN":3:"ITEM." 1t IN56ĺ:3:" YOU MUST NOW PRESS EITHER '1'":3:"TO ACCESS THE REVIEW / ALTER":3:"MODULE, OR '2' TO RETURN TO THE":3:"MAIN MENUHELP ***":"***************************************"|/L PO422:"* *":PO/V "***************************************":" TO CONTINUE";/` 3:5s0j " YOU ARE NOW IN THE OPTION FOR":3:"VIE,";K5;",";K6;",";K7;",";K8:1. C12UQZMUQ1G. C13UQCR%UQ1M. _.$ HELP SCREENS.. 60,0:61,3:62,0:63,8:64,0:65,124:66,0:67,119:468:787,(37):786,(36).8 :@/B "***************************************":"*** REVIEW 80-N$"0"N$"9"21800-(NT$)LG12180D-NT$NT$N$:N$;N-2180`-:NT(NT$):h-X0-XX1:(A$(X),17)CR$(UQ)2290.D$;"READ TRANS,R";AN(X):K1,K2,K3,K4,K5,K6,K7,K8:K3K3Q:D$;"WRITE TRANS,R";AN(X):K1;",";K2;",";K3;",";K4;"(TC$)LGTC$TC$N$:N$;%,f2090-,p:^,zNT$"":STAY1:HT:VT:Z1LG:(95);:Z:HTf,N$~,N$"?"İ2340:2180,N$(13)2270,N$(8)(NT$)1NT$(NT$,(NT$)1):(8);(95);(8);:2180-N$(8)NT$"":HT:VT:(95);(8);:2195);:X+1890*+ TB(TB$)(TD$)1002+:=+ TC$""T+*N$:N$(13)2160l+4N$","N$";"2090+>N$(8)(TC$)1TC$(TC$,(TC$)1):(TC$)1:(95);:(TC$)1:2090+HN$(8)TC$"":7:(95);:7:2090+RN$(32)N$(95)2090,\90*(TA$)6TA$(TA$,6),*TA$TA$N$a*(TA$)2TD$(TA$,2):TB$(TA$,(TA$)2):2010t*TB$"":TD$TA$*VT:HT:"$";TB$;:Z(TB$):TB$""ĺ"0";:Z1*(TD$)2TD$""ĺ".";TD$;:TD$""ĺ"00";*(TD$)1ĺ".0";TD$;+Z4āXZ4:(".00")DQQ$"$"QQ$)NF)XVT:HT:TB$"":TD$"":TA$"":16368,0N)bN$b)lN$(1)XZ1:u)vN$"Q"XZ2:)N$"?"İ2340:1880)N$(13)2060)N$(8)(TA$)1TA$(TA$,(TA$)1):1990)N$(8)TA$"":1990*N$"0"N$"9"18);(7);"PROGRAM DISK IN ERROR":I12000:I:21:" "^(1730(QQ(QQ100.5)100:QQ$(QQ)((QQ$)31830((QQ$,(QQ$)2,1)"."1860(&(QQ$)21850(0(QQ$,(QQ$)1,1)"."QQ$QQ$"0":1860):QQ$QQ$ROGRAM DISK...":"PRESS TO CONTINUE";F'N$:N$(13)1710`':D$;"RUN MAIN MENU"m':216,0x'1780'(350)220640'10:" INSERT PROGRAM DISK IN DRIVE 1":12:" TO CONTINUE"'N$::N$(13)1730T(21:(72ĺD$;"RUN MAIN MENU,D1"&:10:" PLEASE INSERT PROGRAM DISK"::" PRESS TO CONTINUE"::" PRESS ANY OTHER KEY TO":" GO BACK TO REVIEW";&N$::N$(13)ī80&1720.':(7);"THIS DISK IS NOT A GOOD PROGRAM DISK"::"PLEASE INSERT PE"::"PRESS ANY KEY TO CONTINUE";:N$X%T:10:" WRITING INFORMATION TO DATA DISK..."%^D$;"OPEN TAX,L60":D$;"WRITE TAX,R1":B(1);",";B(2);",";B(3);",";B(4);",";B(5):D$;"CLOSE TAX"%h1700%rGD2Ģ2:9:" ...LOADING MAIN MODULE..."&|GDP"::6:"< >"8$2:7:"REVIEW OR ALTER TRANSACTIONS"]$15:7:N$::N$"3"İ2340:1500$"N(N$):N$"1"N$"2"1560$,N1ė:10:" ...READING INFORMATION...":170$6N$"2"1610$@D$::1500&%J:"BE SURE DATA DISK IS NOW IN THE DRIV" ";5#IN56#X422:" ";:40:" ";:X:" ";::IN56:7#3:"PRESS NUMBER OF CHOICE"::6:" 1. REVIEW/ALTER TRANSACTIONS"$11:6:" 2. MAIN MENU":13:6:" 3. HELA$(I),18,1)"C"CR%CR%1:CR$(CR%)(A$(I),17)F"I:D$;"CLOSE MSTR""D$;"OPEN TAX,L60":D$;"READ TAX,R1":B(1),B(2),B(3),B(4),B(5):D$;"CLOSE TAX"+#:"ONE MOMENT PLEASE..":A(0):::" ";:" ";:40:" ";:;",";W5;",";W6;",";W7;",";W8:D$;"CLOSE":D$:E! ONERR GOTO 40000!D$;"OPEN T":D$;"READ T":TQ:I1TQ:TA$(I):I:D$;"CLOSE T":D$;"OPEN MSTR":D$;"READ MSTR":QD!I1QD:A$(I),AN(I)!(A$(I),18,1)"B"ZMZM1:CH$(ZM)(A$(I),17)."(NS,R";AN(I)B PD;",";M;",";YA;",";RT;",";BA;",";NR;",";L3;",";L2b Z(A$(I),18,1)"I"CHCHTA d(A$(I),18,1)"I"CC1CHCHTA nCC3Q1T7:C$CK$:2280 xC13QTA:C$CN$:2280 360.!:D$;"WRITE TRANS,R1":W1;",";W2;",";W3;",";CH3220 CC3C13İ3220@C12CC2İ3100:B(UQ)B(UQ)TAVC13CC3İ3100(C13CN$(UQ)CN$:CN$(UQ)CN$CN$"NONE"2C1C110AI<D$;"WRITE TRANS,R";ARR(R):DA;",";MO;",";YE;",";TA;",";TT;",";C1;",";CN$;",";L1 FD$;"WRITE TRAAX,R0":Q,K1,K2,K3,K4YTT0TTQ1:D$;"WRITE TAX,R0":TT;",";K1;",";K2;",";K3;",";K4D$;"WRITE TAX,R";TT:TC$;",";AB;",";I;",";G;",";ARR(R)D$;"CLOSE TAX"CC2DF$"N"C12CN$DF$CN$(UQ)CLARR(R):TARR(R)CC2C12XZ0:16:31:HT30:VT16:IN7:18805XZ11160DXZ21500UTB0ABTB{16368,0:19:1:N$:N$"Q"1500N$(1)1170N$(13)VT19:HT1:TC$"":1:X139:(95);:X:19:1:2110TT0ĺD$;"OPEN TAX,L60":D$;"READ T368,0:15:T$:T$"?"T$"Y"T$"N"T$"Q"T$(1)1120MeT$"Q"1500_fT$(1)1060vgT$"?"IN5:2340j21:15:T$tLG39:T$"N"TT01250~TT0G1XZ0:VT16:HT13:3030XZ1TT01060XZ21500XZ11120&$12:24::CH$(UQ);:C13Ė24:12:CR$(UQ);c.:12:23:16368,0:N$:N$"?"IN4:2340:1070t/N$(1)9700N$"Q"15008N$","UQUQ1:UQ0UQZM:C13UQCR%BN$"."UQUQ1:2310LN$(13)1120V1060<`D$:TT0Ė21:164::CR$(UQ);:1VT12:B8:LG8:C12LG4:B4CC11Ė7:12l16368,0:N$::N$"?"ĺ:2340:910N$(13)1060N$(1)730VT:HT:X1B:(95);:X:VT:HT:NT$""C12IN10:2210:CN$NT$C13LG8:IN11:2100:CN$TC$.2LG4:B4KC11Ģ12:1:" ":1120C12Ģ12:1:"CHCK#:";:13:"CHCK ACCNT:":IN10C13Ģ12:1:"RCPT#:";:18:"CR AC:":IN11C1CCC12ĖHT:12:CN$;:24::CH$(UQ);:C13CC3Ģ12:HT:CN$;:21:740/\(C12ZM0)(C13CR%0)ĺ(7):810yfC11CN$" ":12:1:" ":1120pC1CCUQ1z(CC2)(C12)B(UQ)B(UQ)T712:1:" " VT12:HT7:B9:LG9:C1N$"Q"1500' N$(8)N$(21)740HN$(21)C1C11:C13C11h N$(8)C1C11:C11C13s*10:44C11Ğ:Z$(1);::" ";Z$(2);" ";Z$(3)>C12ĺZ$(1);" ";::Z$(2);::" ";Z$(3)HC13ĺZ$(1);" ";Z$(2);" ";::Z$(3):R10: ";(7);:650DXZ0:IN2:8:24:VT8:HT24:16368,0:1880:T7TARXZ1650aXZ21500(A$(I),18,1)"E"TB0YYTATBTB0RTRTTATB:TATB10:IN316368,0:N$:N$(13)860N$"?"İ2340:730N$(1)700 19:16368,0:N$::19:4:N$"?"İ2340:650>N$(1)620ON$"Q"1500N$(13)NT$"":HT19:VT4:LG2:2230:DANTDA1DA31Ė19:4:" ";(7);:650MO4MO6MO9MO11ĭDA30Ė19:4:" ";(7);:650MO2ĭDA29Ė19:4:" DING:";::TA$(G);::23:"AMOUNT:";:QQAB:1800:QQ$DbIN1::D$wl4:8:16368,0:N$::4:8:N$"?"İ2340:620mN$(1)1500nN$"Q"1500vN$(13):NT$"":HT8:VT4:LG2:2230:MONTMO1MO12Ė8:4:" ";(7);:620-D$:4:":"FOR TAX RECORD (Y/N)";(95)u&TT0Ģ18:"NOTE:":X139:(95);:X:16:1:"TAX HEADING:";:23:"AMOUNT:":6100D$;"OPEN TAX,L60":D$;"READ TAX,R";TT:TC$,AB,X,G,LD:D$D18:"NOTE:":X139:(95);:XN19:1:TC$5X16:1:"TAX HEACN$(CN$,(CN$)1):"RCPT#:";CN$;:18:"CR AC:";::CR$(UQ);:1:20:"***************************************":"** FOR NO CHANGE IN ENTRY **":"***************************************"TT0Ģ14:"TRANS. CURRENTLY NOT FOR TAX RECORDS";::Z$(2);::" ";Z$(3)DCC3ĺZ$(1);" ";Z$(2);" ";::Z$(3):VCC1Ģ12:1CC2UQ((CN$,1)):DF$(CN$,1):"CHCK#:";:CN$(CN$,2,(CN$)2):CN$;:13:"CHCK ACCNT:";::CH$(UQ);:CC3(CN$)1CN$CN$" "?CC3UQ((CN$,1)):1CHCHTAQQTA:1800D:4:"MONTH=>";MO;:14:"DAY=>";DA;j24:11:">> '?' FOR HELP <<";:18:"AMOUNT OF TRANSACTION=>";QQ$:Z$(1)"CASH":Z$(2)"CHECK":Z$(3)"CREDIT":10:4CC1Ğ:Z$(1);::" ";Z$(2);" ";Z$(3)CC2ĺZ$(1);" TO QUIT"A|7:23:HT23:VT7:LG3:2170:RNT:R01420jR1RJ1Ė23:7:" ";(7):380D$;"READ TRANS,R";ARR(R):DA,MO,YE,TA,TT,CC,CN$,L1:CK$CN$AI(CC10):CCCC10AI:C1CC:(A$(I),1)"I"CHCHTA (A$(I),18,1)"I"CC:C$;:26:TT$;:30:MO;"/";DA;"/";Y7:JJ10(J10)ĺ"ANY KEY TO CONTINUE 'A' TO ALTER":D$:(37):N$::N$"A"Ĺ34,0:360TL10260^" ANY KEY TO CONTINUE":D$:(37):N$::34,0h:D$:7:"ENTER REC# FOR CHANGE:":IN22:T$""r" TRANS,R";L1X ARR(J)L1:DA,MO,YE,TA,TT,CC,CN$,L1:AI(CC10):CCCC10AI:QQTA:1800 " ";J;:6:QQ$;:JJ1:TT$" ":TT0TT$"X" CC3(CN$)1CN$CN$" " "CC3C$(CN$,(CN$)1) ,CC1C$" " 6CC2C$(CN$,2,(CN$)2)'@17(1)ı F D$;"READ TRANS,R";AN(I):D,M,YA,RT,BA,NR,L3,L1:L2L1 NR0ė:10:"NO TRANSACTIONS FOR THIS ACCOUNT":I11500:I:1420 :J1:"REC# AMOUNT CK/RCPT# TAX DATE" "--------------------------------------":34,2 D$;"READ;"READ TRANS,R0":L,Y7:O D$;"READ TRANS,R1":W1,W2,W3,CH,W5,W6,W7,W8::D$| 2720:11:24:">> '?' FOR HELP <<";:16 1:" TO RETURN TO MENU" :D$:"CHOOSE THE ACCOUNT TO REVIEW:";:16368,0:2750 XZ0:N$"Q"XZ1ı N$YSTEM INFORMATION..."::" PLEASE BE PATIENT."J xU11:U21:GD2U22w D$;"OPEN MSTR,D";U2:D$;"READ MSTR":QD 216,0:D$;"CLOSE":160 :10:4:(7);"DISK NOT DATA DISK":X1900:X:10 1430 IN0:LN4:R0:D$;"OPEN TRANS,L43":D$:LN1C <A$(80),AN(80),ARR(260),CR$(20),TA$(20):D$(4):GD(780)^ FX180:A$(X)" ":Xh P150 ZGD1ė:12:6:"PLEASE INSERT DATA DISK"::6:"PRESS TO CONTINUE";:150 dGD1ľN$::N$(13)Ĺ216,0:901 n:10:" ...READING S TO CONTINUE"PN$::N$(13)20600P21:(7);(7);"PROGRAM DISK IN ERROR":I12000:I:21:" "1"KP:10:"PLEASE INSERT PROGRAM DISK"::"PRESS TO CONTINUE";d-PN$:N$(13)20525j7Pu3D$;"WRITE TRANS,R1":1;",";1;",";BB;",";BB;",";0;",";0;",";1;",";1?3D$;"WRITE TRANS,R2":1;",";1;",";0;",";0;",";0;",";0;",";2;",";2:D$;"CLOSE TRANS"@3 P:20550PGD2Ģ2:8:" ...LOADING MAIN MODULE..."PGD2ĺD$;"RUN MAIN MENU,D3D$;"OPEN TAX,L60":D$;"WRITE TAX,R0"s632;",";0;",";0;",";0;",";0:D$;"WRITE TAX,R1":0;",";0;",";0;",";0;",";073D$;"WRITE TAX,R2":0;",";0;",";0;",";0;",";0:D$;"CLOSE TAX";3CZ0:355,0=3D$;"OPEN TRANS,L43":D$;"WRITE TRANS,R0":2;",";Y7E:23000:BBTB< 2:10::"...NOW SETTING UP YOUR DATA DISK"` 242347,96:D$;"INIT HELLO,D";GDk 210500 2D$;"OPEN T":D$;"WRITE T":1:"MISC":D$;"CLOSE T" 3D$;"OPEN MSTR":D$;"WRITE MSTR" "31:"CASH E";",";1:D$;"CLOSE MSTR"&'ISK NOW? (Y/N) ";:N$C 2N$"Y"ĺ::"ARE YOU SURE? (Y/N)";:N$:U 2N$"Y"13045g 2N$"N"13120r 213005 221:" YEAR FOR DATA DISK USE=>";(95);(95);:HT26:VT21:LG2:25000:Y7NT 223:1:"BEGINNING CASH ON HAND:";:EV%9:300:HT24:VT2369,227:770,3:771,76:772,217:773,37 ,)47092,1:768g 6)10060,255:10061,255:10064,255:10065,255y @)47092,2:768 J)770,243:780,GD: 2LN5 2:8:"SETTING UP A DATA DISK WILL ERASE":"ANYTHING NOW IN DRIVE ";GD: 2"OK TO SET UP DATA DTA DISK":10:6:"2. MAIN MENU"::6:"< >"P (12:7:N$::N$"1"N$"2"40g 2N$"1"İ13000:20r <20490 ,VE1EV%:(95);:VE: )47084,17:47085,0 )47083,0:47091,0 )47088,10000(10000256)256:47089,(10000256)% ")768,32:7 ";:" ";:40:" ";:" ";:X422:" ";:40:" ";:X:" ";:+ 2:12:"SET UP DATA DISK":6:4:"PRESS NUMBER OF CHOICE"::6:"1. SET UP DAE -------------------------------------------------------------` PROGRAM NAME=INITIAL ------------------------------------------------------------- V0.2 REVISED: 6/21/84 6:54 PM ::D$(4):GD(780):40000 ::"      ::X15:(7):X;:^"AN EXECUTION ERROR HAS OCCURRED":f:h12:(222)255ĺ"YOU PRESSED CTRL-C!":r(222)6ĺ"THIS IS NOT THE DATA DISK!"::"PLEASE INSERT A GOOD DATA DISK.";|(222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DI":3:"THE 'W' FOR A WITHDRAWAL";:30500n9v"THE AMOUNT OF ":3:"INTEREST.";:M$"W"Ė3:"THE WITHDRAWAL.";y9v305009$w23:28:B$:B$(13)305009Vw9w60,0:61,144:62,0:63,149:64,0:65,8:66,0:67,3:468:(786)1:(787)19w:@:KEY WHEN THE":3:"CORRECT ACCOUNT IS INVERSE. TO":3:"CHANGE ACCOUNTS USE THE ARROW KEYS":3:"'->' AND '<-'.";:30500(9v"IF YOU ARE":3:"ENTERING A WITHDRAWAL FROM OR":3:"INTEREST TO THE SAVINGS ACCOUNT."::3:"JUST PRESS THE 'I' FOR INTEREST ORPRECEEDING IT.";:305007v" YOU ARE IN THE OPTION FOR":3:"ENTERING INTEREST TO AND WITHDRAWALS":3:"FROM SAVINGS ACCOUNTS."::3:" YOU MUST NOW ENTER ";7vIN30420,30430,30440y8v"THE ACCOUNT":3:"FOR THE ENTRY."::3:" PRESS THE RETURN DESIRED ACCOUNT":3:"IS IN INVERSE.";:305006\v" THIS MODULE IS FOR THE VIEWING":3:"OF CHECKING ACTIVITY AND BALANCES.":3:"YOU CAN ALSO RECONCILE A CHECKBOOK":3:"THROUGH THIS MODULE."::37v" TAKE ANY OPTION BY PRESSING THE":3:"NUMBER 305005u" YOU ARE IN THE OPTION TO VIEW":3:"ACTIVITY IN A PARTICULAR ACCOUNT."::3:" AT THIS POINT YOU MUST CHOOSE":3:"THE ACCOUNT TO VIEW."::3.6*v" MOVE UP AND DOWN THE ACCOUNTS":3:"WITH THE ARROW KEYS. PRESS THE":3:"RETURN WHEN THE"PRESS 'N' AND NO ACTION WILL BE":3:"TAKEN. THE CHECKS WILL NOT BE":3:"MARKED AS CLEARED. YOU CAN THEN":34u"TRACE AND CORRECT THE ERROR, AND":3:"ATTEMPT ANOTHER RECONCILE.";:305005u"THE ACCOUNT BALANCE GIVEN ON THE":3:"BANK STATEMENT.";:u"THE TOTAL DEPOSITS LISTED ON YOUR":3:"BANK STATEMENT.";:305003u"AS TO WHETHER OR NOT TO UPDATE":3:"THE CLEARED CHECKS."::3:" IF THE BOOKS DID NOT RECONCILE":3:"THEN YOU MAY WANT TO FIND THE":3n4u"ERROR. IF THIS IS THE CASE THEN":3:HECK. SUCH AS 20 CENTS A CHECK":3:"SERVICE CHARGE WOULD MEAN YOU":3:"WOULD ENTER .20 AT THIS POINT.";:305002u"THE AMOUNT F MONTHLY SERVICE":3:"CHARGE. IF THERE ARE NO CHARGES":3:"BESIDES THE CHARGE PER CHECK THEN":3:"ENTER ZERO.";:30500C3ED THE":3:"BANK."::3:" ALL CHECKS THAR HAVE NOT BEEN":3:"PREVIOUSLY MARKED AS CLEARED WILL":31u"BE DISPLAYED. IF THE CHECK HAS NOW":3:"CLEARED THEN PRESS 'Y', IF NOT":3:"THEN PRESS 'N'.";:30500p2u"THE AMOUNT SERVICE CHARGE PER":3:"C- --S--S--S--S--S--S-- --S--S--S--S--S--S--J ۛIMJiSmۛIMJiSI mۛIMJiSIۛIMJiSmJISIۛIIJISIۛIIJISIۛIIJIISIۛ -ۛiIJ-ۛI S)mJIS MJ-ۛIMJiS MJ)JISIۛii Mۛii Mۛ -JISIۛi SMۛi SiۛIMJISIۛi SMۛi S SiJISIۛi SiۛIMJ ۛi JISiۛ MSiۛI-SIۛImJISIۛ -ۛIiJiSiۛ MۛiM mۛiM MJmS MJiS MJiS MJ-JISIۛ ۛi S SMۛi JISIۛ -ۛi SMۛi SMJISIۛ -ۛi SMۛi S)mJIS)mJMSiۛ -ۛ MSiJIS)m MۛiiJ-ۛIiJ JISIۛim mۛiI MۛiIJX1%3::(A$(MINY1%X1%10),17);:19'18:26<9,450309PN(N$):13:37::PN::MIN(PN1)20:X110:X1:2:" ":X9ƱX110:X1:3:(A$(XMIN),17);:22:(A$(XMIN10),17):X:бY1%1:319X1%::(8)N$(13)N$(21)N$","N$"."45030\8Y1%1:19X1%3:(A$(MINY1%X1%10),17);8 N$(13)IMINX1%10Y1%:ICĢ14::8N$(8)N$(21)X1%1X1%8N$","Y1%Y1%1:Y1%0Y1%108N$"."Y1%Y1%1:Y1%11Y1%1%9"Y1%1:197ͯ4:18::"CHOOSE ACCOUNT TO VIEW";:24:10:">> '?' FOR HELP <<";::STAY17үNP(C20)1:13:13:C;:23:NP;:37:1::N$"1":X1%0:Y1%1:45500:16368,07毾N$:N$"?"İ30000:450307N$"0"N$(NP)İ455007N$(1)STAY0::,8N$(YOUR CHOICE OVER.";6ڝN$:564NLN1::D$:20200D6>LN34000S6HLN460006ȯ::" ":2:X211:" ";:40:" ";:X:" ":13:3:"#ACCOUNTS: #PAGES: NOW ON PAGE:"N)9ĺ"THIS DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR."5(222)255(222)6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG."6Н20:"PRESS ANY KEY...":"TO START OCCURRED":64h12:(222)255ĺ"YOU PRESSED CTRL-C!"4r(222)6ĺ"THIS IS NOT THE DATA";" DISK!"::"PLEASE INSERT A GOOD DATA";" DISK AND PRESS RETURN.":ZZ$4|(222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DISK."_5(222 ORDER OF CREDIT INITIALS AND":4>3 v"THEN RECEIPT NUMBER.";I3%v30500j3$w23:27:N$:N$(13)30500p3)w3.w60,0:61,119:62,0:63,124:64,0:65,8:66,0:67,3:468:1(786):1(787)38w3@:::X15:(7):X 4^"AN EXECUTION ERROR HAS NOLOGICAL"}2v4:"LISTING OF TRANSACTIONS.":4:"'N' RESULTS IN A LISTING AS":4:"FOLLOWS:":10:"FIRST ALL CASH DEALINGS"!3v4:"ARE DISPLAYED. THEN ALL CHECKS":4:"ARE DISPLAYED IN ORDER. AND LASTLY":4:"ALL CREDIT TRANSACTIONS ARE LISTED":4:"BYH WILL THEN BE":4:"DISPLAYED.";,1u30500j1u" YOU ARE IN OPTION 3,":4:"TRANSACTIONS BY ACCOUNT."1v:4:" FIRST THE ACCOUNT TO VIEW IS":4:"ENTERED, THEN THE METHOD FOR" 2 v4:"ORDERING THE OUTPUT IS REQUESTED.":4:"'D' RESULTS IN A CHROHE TRANSACTIONS WILL BE":4:"GROUPED ACCORDING TO MONTH.";F0u305000u" YOU ARE IN OPTION 1. MONTH BY":4:"ACCOUNT. YOU MUST NOW ENTER THE"0u4:"NUMBER OF THE MONTH TO VIEW"::4:" AN ACCOUNT BY ACCOUNT LISTING"!1u4:"FOR THE CHOSEN MONTUNT WILL":4:"THEN BE DISPLAYED.":4:/u4:" TO CHOOSE THE ACCOUNT MOVE UP":4:"AND DOWN WITH THE < AND > KEYS.":4:"MOVE SIDE TO SIDE WITH THE -> AND":4:"<- KEYS. PRESS THE RETURN KEY WHEN":4:"THE DESIRED CCOUNT IS IN INVERSE";0u:4:" T. THE"E.u4:"PRINTER CARD MUST BE IN SLOT 1":4:"OF YOUR APPLE.";P.u30500.u" YOU ARE IN OPTION 2. ACCOUNT":4:"BY MONTH. YOU MUST NOW ENTER THE".u4:"THE ACCOUNT TO VIEW.":4:" A MONTHLY LISTING OF TRAN-"'/u4:"SACTIONS FOR THE ACCOION FROM THIS MENU."-guk-lu4:" TO TAKE A PARTICULAR OPTION":4:"PRESS THE NUMBER THAT IS IN FRONT"-vu4:"OF THE DESIRED OPTION.":4::4:" TO GET A PRINTOUT FROM AN".u4:"OPTION, FIRST PRESS '6' THEN PRESS":4:"THE DESIRED OPTION NUMBER****************************",DuPO421:"* *":PO:"***************************************",Nu" TO CONTINUE";,Xu4:5,]uLN30050,30150,30100,30200-bu" THE USER HAS ACCESS TO ALL":4:"INFORMAT(NT$)LG125002%+aNT$NT$N$:N$;0+a25002B+ b:NT(NT$):+0u60,0:61,3:62,0:63,8:64,0:65,124:66,0:67,119:468:787,(37):786,(36),:u:"***************************************":"*** HELP SCREEN ***":"***********1:HT:VT:Z1LG:(95);:Z:HT(*aN$B*aN$"?"İ30000:25002Z*aN$(1)STAY0::n*aN$(13)25100*aN$(8)(NT$)1NT$(NT$,(NT$)1):(8);(95);(8);:25002*aN$(8)NT$"":HT:VT:(95);(8);:25002*aN$"0"N$"9"25002+aU"$)UQQ(QQ100.5)100:QQ$(QQ)/)U216,0C)U(QQ$)322008d)U(QQ$,(QQ$)2,1)"."22030x)U(QQ$)222020)U(QQ$,(QQ$)1,1)"."QQ$QQ$"0":22030)VQQ$QQ$".00")VQQ$"$"QQ$)VVV(QQ$)9:QQ$" "QQ$:VV)V *aNT$"":STAYAIN MENU"::" PRESS ANY OTHER KEY TO RETURN TO":" ACCOUNT MENU";L(NN$:f(NN$(13)Ĺ216,0:50q(N20224(N:(7);"THIS DISK IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK...PRESS ";(NN$:N$(13)20223)O:D$;"RUN MAIN MEN:16368,0:N5000,4000,6000,7000+'NZL06'N20000b'N216,0:22:(7);" INSERT PROGRAM DISK"s'NGD2ĥ20207'N20221'NGD2Ģ2:" ....LOADING MAIN MODULE....":D$;"RUN MAIN MENU,D1"B(N:10:" INSERT PROGRAM DISK"::" PRESS TO M OF CHOICE":ZL1Ė10:17::"PRINTOUT OF CHOICE":T&N:6:" 7. HELP"::6:"< >"u&N16368,0:21:7:N$:N(N$)&NN$"7"LN1:30000:20185&NN$"6"ZL0ZL1:16:20182&NN$"6"ZL1ZL0:16:20182&NN$"5"20210&NN1N720185"'N*N400009%ND$;"PR#0":5:4:"PRESS NUMBER OF CHOICE:"?%N`%N6:" 1. MONTH BY ACCOUNT":%N6:" 2. ACCOUNT BY MONTH":%N6:" 3. TRANSACTIONS BY ACCOUNT":%N6:" 4. YEAR-TO-DATE SUMMARY":15%N6:" 5. MAIN MENU"3&N:6:" 6. PRINTOUTONE MOMENT PLEASE..":A(0):::" ";:" ";:40:" ";:" ";:2039,32$%NX423:" ";:40:" ";:X:" ";::2:11:"ACCOUNT INFORMATION" %,T5:QQ$#X1W:"*";:X:A#ZL0I3(I3)::D$:200:d#ZL1ĭI10ĺ(12):CL11:7020k#I#ZL1ĺ(12):D$;"PR#0":# D$:200# :#8JD$;"OPEN MSTR":D$;"READ MSTR":C#VJI1C:A$(I),AN(I):A$(I)(A$(I),18):I:LN1$ N:"CTIVITY""ZL0Ĺ34,4$"ICLCA"D$;"READ TRANS,R";AN(I)["D,M,Y,RT,BA,NR,LA,L1v"X1W:"=";:X::300"36,T3:"** ";(A$(I),Z%);" **":"36,T2:M;"/";D;"36,T32:NR;"QQBA:22000"36,T44:QQ$;"QQRT:22000#36W79:T129:T215:T329:T446:T5597!iZL1ĺD$;"PR#1"Y!l36,T1:"SUMMARY OF ACCOUNTS"o!vX1W:"*";:X:!36,T2:"DATE";:36,T3:"NUMBER";:36,T4:"AMOUNT";:36,T51:"AMOUNT""36,T21:"OPENED";:36,T3:"TRANS";:36,T4:"BUDGET";:36,T5:"A LCLC2) ZL1LC60LC2:(12):G J8(J8)ZL0ĺD$:200^ X1TG:".";:X:e "Jx 'ZL0ĺD$:200 )34,0 *ZL1::" END OF ACCOUNT":(12):D$;"PR#0" , X:CL1:LC5:LN5"!]W39:T110:T23:T311:T419:T529:ZL1DA;"/";YE;:B%B%T16(MO10):D9B%B%1CCC1CN$"X":E%T4iCC2E%T2:CN$(CN$,2,(CN$)2)CC3E%T3:CN$(CN$,(CN$)1) 500:CN$;:B%B%(CN$):E%T5:500:QQTA:22000:B%B%(QQ$)TT0ĺQQ$TT0ĺQQ$;:E%T61:500:"X"DATE CHECK# RECEIPT# CASH AMOUNT TAX"]X1TG:"-";:X:mZL0Ĺ34,6~J2NR:B%0D$;"READ TRANS,R";(SRT$(J,2))DA,MO,Y7,TA,TT,CC,CN$,L1:CCCC10(CC10)(CN$)3CN$CN$" "+T1);MO;"/";" ".";J-E$"NO EXCHANGE"64507#".";A(6340K26310bZL1ĺ:D$;"PR#1":"LISTING OF ";(A$(I),(A$(I))1):X1TG:"*";:X:T6);"FOR":LC6ZL0ĺ" DATE CHECK# RCPT# CSH AMOUNT TAX"FZL1ĺ" NRGE$"NO EXCHANGE"%J1T/SJGVB$"N"ĭSRT$(J,1)SRT$(S,1)6420B$"D"ĭ(SRT$(J,1))(SRT$(S,1))6420X1$SRT$(J,1):X2$SRT$(J,2)SRT$(J,1)SRT$(S,1):SRT$(J,2)SRT$(S,2)SRT$(S,1)X1$:SRT$(S,2)X2$ E$"EXCHANGENS,R";L1>BDA,MO,Y7,TA,TT,CC,CN$,L2:AI(CC10):CCCC10AIZD(CN$)3CN$CN$" "LSRT$(NR,1)(12MODA):SRT$(NR,2)(L1)QNRNR1:NR250NR250VL20L1L2:6205:"SORTING";S0:T0:X0:GNRG16550G(G2)TY7,TA,TT,CC,CN$,L2:AI(CC10):CCCC10AIF(CN$)3CN$CN$" "jSRT$(NR,1)CN$:SRT$(NR,2)(L1)CC1SRT$(NR,1)" "CC2SRT$(NR,1)(CN$,1)(CN$,2,(CN$)2)NRNR1:NR250NR250L20L1L2:60906300=D$;"READ TRAB$"?"İ30000:B$(95):6045BB$"D"B$"N"B$(95):6045HeD$;"READ TRANS,R";AN(I)D,M,Y,RT,BA,NR,LA,L1NR0ĺ"NO TRANSACTIONS FOR THIS ACCOUNT":Z12000:Z:6700NR1B$"D"6205D$;"READ TRANS,R";L1*DA,MO,5:T424:T525:T636:ZL1T13:T216:T329:T446:T552:T671^zX(0):45000:STAY0ĺ:D$:{X1250:SRT$(X,1)"":X1:20" LIST BY N)OTE"" D)ATE":B$(95)22:27:"-->";B$;:(31):B$*Z" ":"TOTAL FOR ";(A$(I),Z%);":";QQ$=\ZL0ĺD$:200M_GTGTT:T0TdIbn" ":" "ssQQGT:22000x"TOTAL FOR ";MZ$(MN);"==>";QQ$ZL0ĺD$:200ZL1ĺ(12):D$;"PR#0"prLN4:TG39:ZL1TG79<tT10:T29:T313E%T4:CN$(CN$,(CN$)1)TQQTA:22000:500:CN$;:B%B%(CN$):E%T5:500:QQ$eTTTA:RR1zR10ZL15200(D$:200:R02:" ** ";(A$(I),Z%);" **":<" DATE CHECK# NOTE# CASH AMOUNT"PL105080WQQT:22000B%09DA,MO,Y,TA,TT,CC,CN$,L1:AI(CC10):CCCC10AIU(CN$)3CN$CN$" "fMOMN5200|X1W:".";:X:T1);MO;"/";DA;"/";YE;:B%B%T16(MO10):D9B%B%1CC1E%T2:CN$"X"CC2E%T3:CN$(CN$,2,(CN$)2)CCLA,L1*" ** ";(A$(I),Z%);" **":^ZL0ĺ" DATE CHECK# RCPT# CSH AMOUNT"ZL1ĺ" DATE CHECK# RECEIPT# CASH AMOUNT"NR0QQ$"$0.00":5210ZL1ĺD$;"PR#1"D$;"READ TRANS,R";L1:HT25:VT10:25000:MNNT:STAY0ĺD$:PMN1MN12Ė25:10:(7);" ":5044eZL1ĺD$;"PR#1"pI1CZL1R25R0:(12):::ZL0R0D$;"READ TRANS,R";AN(I):300:ZL1ĺ::X476:36,X:"=";:X:::RR5D,M,Y,RT,BA,NR,CIEPT# CASH AMOUNT"5vD$:200;F:LN2SGT0:R0:W39:T10:T226:T39:T416:T527:ZL1T16:T254:T319:T434:T561:LC5:W79D$24:11:">> '?' FOR HELP <<";10:4&"MONTH TO VIEW (1-12)";:LG2:;"/";D;"/";YE;:B%B%T16(M10):D9B%B%1FDCC1E%T2:CN$"X"VNCC2E%T3fXCC3E%T4ZQQTA:22000:500:CN$;:B%B%(CN$):E%T5:500:QQ$bX1T9:".";:X:lRG(RG)4480(qZL1ĺ:" DATE CHECK# RETOTAL FOR ";MZ$(Z);"=>";QQ$0ZL0ĺD$:200:7ZFZL0İ200b:(12):D$;"PR#0"::k0B%05D,M,W,TA,TT,CC,CN$,L1:AI(CC10):CCCC10AI:CC2CN$(CN$,2,(CN$)2)6(CN$)3CN$CN$" "8CC3CN$(CN$,(CN$)1).:T1);MZL1ĺ:X179:"*";:X::36,36:MZ$(Z):X179:"*";:X:ZL1ĺ" DATE CHECK# RECEIPT# CASH AMOUNT":D%(Z,0)04235R1D%(Z,0)D$;"READ TRANS,R";D%(Z,R)4400RQQAM(Z):22000::" "5JD%(MO,0)D%(MO,0)1:D%(MO,0)36D%(MO,0)35JOAM(MO)AM(MO)TAaTD%(MO,D%(MO,0))L1wcL20L1L2:4140mT0::ZL1ĺD$;"PR#1"rZ112~ZL0Ĺ34,0::8::MZ$(Z)::" DATE CHECK# RCPT# CSH AMOUNT":34,2:D%(Z,0)04233?T560:LC5:T979:G255 45000:MNI:STAY0ĺ:D$:S D$;"READ TRANS,R";AN(MN)p "D1,M1,Y1,RT,BA,NR,LA,L1z $L2L1 'NR0ė:"NO TRANSACTIONS FOR THIS ACCOUNT":4470 ,D$;"READ TRANS,R";L1 2DA,MO,Y7,TA,TT,CC,CN$,L24(CN$)3CN$CN$"60, "PRESS ANY KEY TO CONTINUE";:N$::6 ,Z%18Y 6Z%Z%1:(A$(I),Z%,1)" "310_ @q DA9E%E%1 XB%E%:" ";:X:B%E%: LN3:X112:D%(X,0)0:AM(X)0:X :G10:T939:T10:T226:T39:T417:T527:ZL1T16:T253:T319:T434: PLEASE BE PATIENT."A UD$;"OPEN MSTR,D";U2:D$;"READ MSTR":Ct WD$;"OPEN TRANS,L43":D$;"READ TRANS,R0":L,YE Z216,0:D$;"CLOSE MSTR":19000 d10:(7);"THIS IS NOT A GOOD DATA DISK"::"PLEASE INSERT DATA DISK":"PRESS ANY KEY";:N$:216,0:BER":MZ$(12)"DECEMBER"2 X180:A$(X)" ":XK 2U11:U21:GD2U22U <100 FGD1ė:12:6:"PLEASE INSERT DATA DISK":6:"PRESS TO CONTINUE"; PGD1ľN$::N$(13)Ĺ216,0:60 R:8:" ...READING SYSTEM INFORMATION..."::" SRT$(260,2),A$(80),AN(80),AM(12)+ V0.3J REVISED: 6/25/84 3:14 AM MZ$(1)"JANUARY":MZ$(2)"FEBRUARY":MZ$(3)"MARCH":MZ$(4)"APRIL":MZ$(5)"MAY":MZ$(6)"JUNE":MZ$(7)"JULY" MZ$(8)"AUGUST":MZ$(9)"SEPTEMBER":MZ$(10)"OCTOBER":MZ$(11)"NOVEM2C -----------------------------------------------------------_ PROGRAM NAME=RETRIEVE RETRIEVES ACCOUNT INFORMATION  ------------------------------------------------------------:D$(4):770,243:GD(780) MZ$(12),D%(12,36),                               N30110,30120,30130,30140,30150,30160,30180x0u"THE ACCOUNT TO RECONCILE."::3:" MOVE UP AND DOWN THE ACCOUNTS":30u"WITH THE < AND > KEYS, PRESS RETURN":3:"WHEN THE CORRECT ACCOUNT IS IN":3:"INVERSE.";:30500g1u"THE CHECKS THAT HAVE CLEAR *":PO:"***************************************":" TO CONTINUE";g/Du5:3/NuLN30100,30200,30300,30400/u" YOU ARE IN THE OPTION FOR":3:"RECONCILING A CHECK ACCOUNT."::3:" AT THIS POINT YOU MUST ENTER":3+0uIS.0u60,0:61,3:62,0:63,8:64,0:65,149:66,0:67,144:468:787,(37):786,(36).:u:"***************************************":"*** HELP SCREEN ***":"***************************************"]/?uPO421:"* B$(TA$,(TA$)2):23090,-(ZTB$"":TC$TA$]-2ZVT:HT:"$";TB$;:Z(TB$):TB$""ĺ"0";:Z1-7Z(TC$)2TC$""ĺ".";TC$;:TC$""ĺ"00";-9Z(TC$)1ĺ".0";TC$;-:ZZ1ĺ(95);-;ZZ1āXZLG3:(95);:X-,YN$(13)23110R,YN$(1)HT1:,YN$(8)(TA$)1TA$(TA$,(TA$)1):23070,ZN$(8)TA$"":23070, ZN$"0"N$"9"23010,Z(TA$)LGTA$(TA$,LG),ZTA$TA$N$-Z(TA$)2TC$(TA$,2):T+UQQ(QQ100.5)100:QQ$(QQ)++U216,0?+U(QQ$)322008`+U(QQ$,(QQ$)2,1)"."22030t+U(QQ$)222020+U(QQ$,(QQ$)1,1)"."QQ$QQ$"0":22030+VQQ$QQ$".00"+VQQ$"$"QQ$+V+YVT:HT:TB$"":TC$"":TA$""+YN$*,YN$"?"TURN> TO CONTINUE"::"PRESS ANY OTHER KEY TO GO BACK TO"U*N" BANK ACCOUNTS MENU";_*NN$:s*NN$(13)Ľ:5~*N20224*N:(7);"THIS IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK...PRESS ANY KEY";:N$::20209*OD$;"RUN MAIN MENU,D1" 1);",";B(2);",";B(3);",";B(4);",";B(5)s)ND$;"WRITE TAX,R2":U(1);",";U(2);",";U(3);",";U(4);",";U(5):D$;"CLOSE")N20221)NGD2Ģ2:7:" ....LOADING MAIN MENU... ":D$;"RUN MAIN MENU,D1"9*N:10:"PLEASE INSERT PROGRAM DISK"::"PRESS ":ZL1Ģ17:10::"PRINTOUT YOUR CHOICE":'fND$:21:7:C$'gN21:20:" ";'pNC$"7"İ30000:20070'zNC$"6"ZL1ZL0:20030'NC$"6"ZL0ZL1:20030 (NC ";::2:19&%N2039,32:11:"BANK ACCOUNTS MENU "&4NLN3:5:4:"PRESS NUMBER OF CHOICE"::6:" 1. RECONCILE CHECKBOOK"::6:" 2. VIEW CHECKBOOK"::6:" 3. VIEW ACCOUNT BALANCES"::6:" 4. ENTER SAVING":14&8N"INTEREST AND WITHDRAWALS"'>ROR TRAP SWITCH%J11000&%K40000J% N:"ONE MOMENT PLEASE..":A(0)&!ND$:::" ";:" ";:40:" ";:" ";:X423:" ";:40:" ";:X:" JI:770,243$tJX1C5$yJ(A$(X),18,1)"B"19095i$~JZMZM1:ZM$(ZM,1)A$(X):ZM$(ZM,2)(AN(X)):Y18$JYY1:(ZM$(ZM,1),Y,1)" "19075$JZM$(ZM,1)(ZM$(ZM,1),Y)$JX$JD$;"OPEN TAX,L60":D$;"READ TAX,R0":X,FC,LC,FD,LD%JSW$"1": SET ER80 #+I#+6#8JD$;"OPEN MSTR":D$;"READ MSTR":C`#VJI1C:A$(I),AN(I):A$(I)(A$(I),18)#eJ(A$(I),18,1)"S"NSNS1:SA$(NS)A$(I):SA(NS)AN(I)#jJI#kJNS019060#lJI1NS:X18#mJXX1:(SA$(I),X,1)" "19053#oJSA$(I)(SA$(I),X) $q1"50020níN$"1"İ10*síN$"2"150005xë50000uò --------------------------------------------------------- ."&| ";:X422:" ";:40:" ";:X:" ";:Zâ2:12:"BACK UP DATA";" DISK":6:4:"PRESS NUMBER OF CHOICE:"::6:" 1. BACK UP DATA";" DISK":10:6:" 2. MAIN MENU":12:6:"< >"dÖ7:12:N$:N$"2"N$":N$(13)15030J<2:9:"...LOADING MAIN MENU":D$;"RUN MAIN MENU,D1"]>216,0:16000>:(7);"THIS DISK IS NOT A GOOD PROGRAM DISK">15025WP×::" ";:" ";:40:" ";:" -------------- MAIN LINE` -----------------------------------------------------------u::216,0:16000:770,243:780,GD%:D$(4)::10:"PLEASE INSERT PROGRAM DISK...":GD%2ĺ"IN DRIVE 1"::"PRESS TO CONTINUE";:N$ ":T -------------------------------------------------------------18:1:"INSERT ORIGINAL DATA DISK..PRESS ANY KEY";:N$:1:" ": -------------------------------------------------------------------------------------------------`H10:19:"READING";:30::"WRITING"::R -----------------------------------------------------------18:1:"INSERT DESTINATION DISK..PRESS ANY KEY ";:N$:1:" ----------------------------,WD%WD%1:o ------------------------------------------------------------Z%1:N$:: ------------------------------------------------------------410:19::"READING";:30::"WRITING":3> ------------)&A%(813):A%16A%64A%128700/0s: -------------------------------------------------------------XRD%RD%1:] -------------------------------------------------------------bZ%1:N$::l ---------------------------------;RD%:::"NUMBER WRITE ERRORS:";WD%:::"ANY KEY TO MENU";:N$:: ------------------------------------------------------------A%(813):A%16A%64A%128Z%Z%1:Z%2600 --------------------------------------------------------04,X: POKE TRACK TO WRITE TO ?h808,0:809,(32Y(XZ)16)Om790:816,1bo550:Z%1340rY:14:WR%::" "::WR%WR%1wXyZZ5:Z32200|20:1:"COPY COMPLETE...PRESS ANY KEY";:N$:770,243D:6:"NUMBER READ ERRORS:"15805,Y: POKE SECTOR ?808,0:809,(32Y(XZ)16)Q790:816,GD%d500:Z%1260Y:14:RE%:".":RE%RE%1"X,(780)1İ9001802,1;812,02:840@XZZ4JY015T805,Y: POKE SECTOR TO WRITE TO ^8: POKE SECTOR TO WRITE TO> 804,X: POKE TRACK TO WRITE TOX 808,0:809,32YX16i 790:816,01| 550:Z%1140 Y:14:WR%::" "::WR%WR%1 X Z5 (780)1İ950 812,01:820 802,GD% XZZ4 804,XY0816,GD% R500:Z%1608 UY:14:RE%:".":RE%RE%1? ZXR d(780)1İ900n i802,1:(780)2Ĺ816,2 k10:5::"FORMATTING";::19:"READING" n812,04:790:816,1:10:5:"FORMATTING" s812,02:840 xX04 Y015:Z%0 805,YY TO CONTINUE";:N$:1:" ":18:1:" "} 812,01:820 #802,GD% (X04 -804,X: POKE TRACK 2Y015:Z%0 <805,Y: POKE SECTOR F808,0:809,(32YX16) P790:;:37:"]":RE%2:WR%2:10:5:"FORMATTING";:19:"READING";:30:"WRITING" 820,00:821,01:822,239:823,216:800,01:801,96:803,00:806,52:807,03:815,96 (780)1İ950l (780)2Ģ18:"INSERT DESTINATION DISK IN DRIVE 1"::4:"PRESS ANY KE---------------*  COPYING SUBROUTINE o -------------------------------------------------------------- GD%(780):790,169:791,3:792,160:793,32:794,32:795,217:796,3:797,96:Z%0 V 0.1 REVISED: 6/19/84 6:21 AMK :14:(91)F --------------------------------------------------------------^ PROGRAM NAME=COPY --------------------------------------------------------------GD%(780):50000:GOTO MAIN LINE  ------------------------------------------------           +J1T"z+SJG3"+AC%(I,J,1)AC%(I,S,1)11190S"+X1AC%(I,J,1):X2AC%(I,J,2)"+AC%(I,J,1)AC%(I,S,1):AC%(I,J,2)AC%(I,S,2)"+AC%(I,S,1)X1:AC%(I,S,2)X2"+E$"EXCHANGE""+".";"+J"+E$"NO EXCHANGE"11230"+".";"+11110#+110%(I,AC%(I,0,1),1)((CN$,2,(CN$)2)):AC%(I,AC%(I,0,1),2)LW!+YLCY0LY:11010|! + SHELL SORT OF UNCLEARED CHECKS!*+I1ZM!4+:"SORTING";!>+S0:T0:X0:GAC%(I,0,1)!H+G111240!R+G(G2)!\+TAC%(I,0,1)G!f+E$"NO EXCHANGE""p;",";BA;",";NR;",";LA;",";L1, h:D$:40005 *LFCe *D$;"READ TAX,R1":B(1),B(2),B(3),B(4),B(5) *D$;"READ TAX,R2":U(1),U(2),U(3),U(4),U(5) +D$;"READ TRANS,R";L:D,M,Y,TA,TT,CC,CN$,L1:I((CN$,1))-A TO BACK UP ONE LINE":22:10:">> '?' FOR HELP <<":D$:8:19:M$:M$"?"M$(1)M$"W"M$"I"4090M$(1)4000M$"?"İ30000:40908:19:"INTERES"4020S%4:6:SA$(S%)<N$","S%S%1:S%NSS%1\N$"."S%S%1:S%0S%NSwS%4:6::SA$(S%);:4020D$;"READ TRANS,R";SA(S%):D,M,BB,RT,BA,NR,LA,L1:2:2:"ENTERING FOR ";SA$(S%):8:2:"ARE YOU ENTERING:":10:4:"*********************************"A4:1:"PRESS TO QUIT"wI2NS:6:4I:SA$(I):I:5:6::SA$(1):S%1:2:35N$:N$(13)ĺ:4065N$"?"İ30000:4020N$"Q"ĺ:D$;"CLOSE TRANS":D$;"OPEN TRANS,L43":N$","N$".:  X7 D$:ZL0ĺ:"ANY KEY TO CONTINUE ":N$:H ZL1ĺ(12)R D$:NS0ė:"NO SAVINGS ACCOUNTS ON FILE":X11000:X:":LN4:IN1:"****************************************";:"* CHOOSE ACCOUNT FOR ENTRY: *";:"*******0ĺD$:"ANY KEY FOR SAVINGS ACCOUNTS":N$L ::" SAVINGS ACCOUNTS:":{ NS0ĺ"NO SAVINGS ACCOUNTS ON FILE":3500 X1NS:D$;"READ TRANS,R";SA(X):M,B,BB,RT,BA,NR,LA,L1:QQRT:22000 36,T1:SA$(X);:YT1(SA$(X))T3(QQ$):".";:Y:QQ$ϯ18:1:"CHOOSE ACCOUNT TO VIEW:"xүNP(QD20)1:13:13:QD;:23:NP;:37:1::N$"1":X1%0:Y1%1:45500:16368,0毢18:24:N$N$"0"N$(NP)İ45500N$(1)LN100N%N%1:N$(8)N$(13)N$(21)N$","N$"."45030+$" TO CONTINUE":X20:Y175:70001(N$J(N$:N$(13)10380R(:ȯ::" ":2:X211:" ";:40:" ";:X:" ":13:3:"#ACCOUNTS: #PAGES: NOW ON PAGE:"#,Y:H:10290(%(H0H4Ē3:X,Y:102817((85,80X,YP)(J((BT)2)10290e+(R67:X77RR2t,(I9RR4-(Y72RR2.(J((BT)2)XR(ANGLE)85:YR(ANGLE)80:N$(I):7000:H2(J7((7)<(H1:HH1:H7Ē0:H0x(I)(N'A1A2'A26.28TP(I)GT@(LIM500:A(I).05GTLIM.4LIM](A(I).12GTLIM.55LIMz(A(I).18GTLIM.55LIM (B(A1LIM):T(A2LIM) (J(A1LIM)(A2LIM)(ANGLEJLIM(X60(ANGLE)85:Y60(ANGLE)80 #(JBJTĒ0:85,80X60(ANGLE)80'85,80X,Y^'J((BT)2)X67(ANGLE)85:Y67(ANGLE)80:N$"1":7000e'Jw'0:85,80X,Y'(7)'2:H2'E110370'I2E'A(I)AQ10360'1:21:'Y8(I1):X170:N$(I)".."B$(I)'7000'HC(20) j't'1:H14~'X170:Y0:N$"1.."B$(1)>'7000S'A26.28TP(1)GTw'LIM500:A(1).05GTLIM.4LIM'A(1).12GTLIM.55LIM'A(1).18GTLIM.55LIM'B0:T(LIMA2)'J0(LIMA2)'ANGLEJLIM'X60(ANGLE)85:YЁI1C])'(B(I).015GT)(A$(I),1)N$EE1:A(E)B(I):TP(E)TP(E1)A(E):B$(E)(A$(I),15)d.'Iz0'E21AQ0:100905'X1E:C(X)A(X):X6'LE8'X1E1:'Z1L1B'C(Z)C(Z1)TC(Z):C(Z)C(Z1):C(Z1)TG'ZQ'LL1V'X`'AQRSb233,120:232,0:0*lSIZE1:SIZEiA1(N$):0:8X,Y:3:((N$,A,1))31X,Y:XXSIZE6:Aox'GT0'GT0:E0:TP(1)0:X0'I1C'(A$(I),1)N$GTGTB(I)'I!'GT0Ė4:"NO ACTION IN THIS SECTION!!":X1900:X:$'N$" JAN MAR MAY JUL SEP NOV":X2:Y154:7000N$" FEB APR JUN AUG OCT DEC":X3:Y164:7000N$(A$(I),17)" PRESS KEY TO CONTINUE":X6:Y175:700016368,0:D$:N$::17X SHAPES AND HIGHRES LETTE150:272,1272,150HtX112:X1X27213:Y115075MO(X)BA:Y15Y15~Z150Y11:X19,ZX19,Z:7:X19,ZX116,Z4:1:Z:7:UX19X19:U,ZU7,Z4:U:1X1,75272,75:4:A7583:1,A24,A:AX0:Y75N$(BA)7000= ":0BA0BA10(RT(NR10))<R1NROER$"6":1000D$;"READ TRANS,R";L1:DA,MO,YE,TA,TT,CC,CN$,L1MO(MO)MO(MO)TA[L106130`BBA:X112:MO(X)2BMO(X)2BAjX::1o1,1272,1:1,11,150:1,150272,ZZ33000: LOAD PROGRAM AGAIN BEFORE DRAWINGDX112:MO(X)0:XJ[SK1Ĺ222,5xD$;"READ TRANS,R";AN(I)ER$"5":1000Z,Q,Y,RT,BA,NR,LA,L1NR0Ģ22:"NO TRANSACTIONS FOR THIS ACCOUNT":X1900:X:22:" "6"6240 7 :"MEMORY IS LOW BECAUSE OF"\ "THE GRAPHING METHOD USED HERE" :"YOU NEED TO RELOAD THE PROGRAM DISK" "TO CONTINUE" :"PRESS KEY TO CONTINUE" N$ p:45000rZZZZ1: COUNT OF # TIMES THRU-tT DATA DISK AND"1"PRESS ANY KEY TO CONTINUE"9N$?F$4V.ER$"3"16i8ER$"4"1100:::"AN UNIDENTIFIED ERROR HAS OCCURRED"<:"GRAPH MOUDLE LINE 16">"PRESS KEY TO CONTINUE"@N$:220LER$"5"SK1:6120 VER$0:4:280m:"THIS IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK...PRESS ANY KEY";:N$::20036863:D$;"RUN MAIN MENU,D1" ERROR TRAP216,0ER$"1"ER$"2"1070:(7);"THIS IS NOT A GOOD DATA DISK":"INSER770,243 270> GD2Ģ2:3:"...LOADING MAIN MODULE..."O GD2ģ36863p GD2ĺD$;"RUN MAIN MENU,D1" :10:"INSERT PROGRAM DISK"::"PRESS TO CONTINUE"::"PRESS ANY OTHER KEY TO RETURN TO":"GRAPHS MENU";N$:N$(13)Ĺ216," 4. BAR GRAPH OF SINGLE ACCOUNT":15:6:" 5. MAIN MENU"::6:"< >"W 17:7:N$:g N$"5"200} N$"1"N$"5"25 #N(N$):N1N$"E":10000 $N2N$"I":10000 %N3N$"X":10000 (N4QDC:6000 F:D$:17 :D$;"CLOSE": ";:X422:" ";:40:" ";:X:" ";: 2:17:"GRAPHS":5:4:"PRESS NUMBER OF CHOICE"::6:" 1. EQUITY PIE CHART"::6:" 2. INCOME PIE CHART"::6:" 3. EXPENSE PIE CHART"F :6:ANS,L43":I1C:D$;"READ TRANS,R";AN(I):D,M,BB,RT,BA,NR,LA,L1:B(I)(RT):1000c I:216,0:16m 1000 V0.4 REVISED: 6/25/84 4:32 AM ER$"4" D$:1000i ::" ";:" ";:40:" ";:"  GD1ľN$:N$(13)56 :U11:U21:GD2U22 :12:" ...READING SYSTEM INFORMATION..."::" PLEASE BE PATIENT." D$;"OPEN MSTR,D";U2:D$;"READ MSTR":C:I1C:A$(I),AN(I):A$(I)(A$(I),18):I:D$;"CLOSE MSTR"Q ER$"3":D$;"OPEN TR50000: "GRAPH" MODULEYER$"1":216,0:770,243:30719:D$(4):GD(780):12A$(80),AN(80),TP(70),B$(80),MO(12),B(80),A(70),C(70):X180:A$(X)" ":X D$:GD1ė:10:" PLEASE INSERT DATA DISK"::" PRESS TO CONTINUE.";:           DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR."&í(222)255(222)6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG." 'â20:"PRESS ANY KEY...":"TO START YOUR CHOICAN EXECUTION ERROR HAS OCCURRED":M%dâ12:(222)255ĺ"YOU PRESSED CTRL-C!"%ní(222)6ĺ"THIS IS NOT THE DATA DISK!"::"PLEASE INSERT A GOOD DATA DISK."%xí(222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DISK."U&í(222)9ĺ"THIS1$ܯ4I:6::C$(I);:$$ᯢ2:378$毾N$:N$(13)ıS$语N$(1)N$"Q"XZ1:m$믭N$"?"İ40000:45030$N$","N$"."45030$4I:6:C$(I);$N$"."II1:IECI1$N$","II1:I0IEC$45020$PÝ:::X15:(7):X"%Zú""CHARGES.";,#424:28:N$:N$(13)405002#>8#H>#RD#(#ȯ:"****************************************";:"* CHOOSE THE CREDIT ACCOUNT TO VIEW *";:"****************************************";$үI1EC1:6:4I:C$(I):I:6:C$(EC);:IARGE TO ANY":3:"ACCOUNT IS ENTERED ONLY ONCE."::3"" YOU MUST NOW CHOOSE THE ACCOUNT":3:"IN WHICH TO ENTER THE CHARGES.":3:"THE ACCOUNT IN INVERSE WHEN THE":3::"RETURN IS PRESSED IS THE ACCOUNT":3 #"THAT WILL BE CREDITED WITH THE":3:HOSEN ACCOUNT."::3|!" IF YOU DO NOT WANT TO ENTER AN":3:"AMOUNT AT THIS TIME THEN ENTER AN":3:"AMOUNT OF ZERO.";!40500!Н3:" YOU ARE IN THE OPTION FOR":3:"ENTERING CREDIT AND INTEREST":3:"CHARGES."::35"䝺" BE SURE THAT A CHJ 3:"USE THE '<' AND '>' KEYS TO MOVE":3:"TO THE ACCOUNT TO VIEW.": :6:"PRESS THE RETURN WHEN THE":3:"DESIRED ACCOUNT IS IN INVERSE."; N40500!l3:" YOU MUST NOW ENTER THE AMOUNT":3:"OF THE CREDIT OR INTEREST CHARGE":3:"FOR THE C ARE ENTERED THROUGH THIS":3:"MODULE."::3:" PRESS THE NUMBER PRECEEDING THE":3:"DESIRED OPTION.";uꜫ40500" YOU ARE IN THE OPTION TO VIEW":3:"ACTIVITY WITHIN A PARTICULAR":3:"CREDIT ACCOUNT."::3:" TO CHOOSE THE ACCOUNT TO VIEW"***************":" TO CONTINUE";Ph3:5:IN40100,40200,40300,40400" YOU ARE IN THE CREDIT ACCOUNT":3:"MODULE. FROM THIS MODULE YOU CAN":3:"VIEW CREDIT ACTIVITY AND BALANCES."::3j֜" CREDIT CHARGES AND INTEREST":3:"CHARGES-----@ HELP SCREENS E:J"***************************************":"*** HELP SCREEN ***":"***************************************"TPO422:"* *":PO*^"************************(TB$)(TC$)100PZ:*0u17:23:I$""H:uN$:N$(8)I$"":30100\DuN$(13)30200uIuN$"0"N$"9"30010Nu(I$)2I$I$N$u23:17:" ";:17:23:I$;u30010uI(I$):? ----------------------------------------------------)ZTA$TA$N$FZ(TA$)2TC$(TA$,2):TB$(TA$,(TA$)2):23090Y(ZTB$"":TC$TA$2ZVT:HT:"$";TB$;:Z(TB$):TB$""ĺ"0";:Z17Z(TC$)2TC$""ĺ".";TC$;:TC$""ĺ"00";9Z(TC$)1ĺ".0";TC$;:ZZ4āXZ4:(95);:X"|t'19:7:N$:N$"5"CZ0CZ1:10040w'N$"5"CZ1CZ0:10040y'N$"6"IN1:40000:10010{'N$"4"ĺ:9000~'N$"1"N$"6"10100'N(N$)::LK%N'N ";::2:14:"CREDIT ACCOUNTS"q$'5:4:"PRESS NUMBER OF CHOICE"::6:" 1. SUMMARY CREDIT BALANCES"::6.'" 2. VIEW CREDIT ACCOUNT"::6:" 3. ENTER CREDIT":14:"AND INTEREST CHARGES"::6B8'13:6:" 4. MAIN MENU"::6:" 5. PRINTOUT YOUR z#    ǠҠؠ Ƞ ٠ Š5̠נ> Ӡˠ8ϠΠՠԠՠ Ԡ+Ҡ_Ӡ""Ԡ!S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSIۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛII --Smۛ)MSmۛ)MSmۛ)-JIS MJ-ۛi S MJiS MJISIۛIIJISIۛIIJIJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛI SMۛi S)m Mۛi SMۛi SMۛ ۛIM Mۛi SMۛi S Smۛi  Mۛi SiۛIMJ ۛi SM Mۛi SiۛIMJiS MJi --SIۛIiJiSiۛiI -- --S--S--S--S--S--S-- --S--S--S--S--S--S-- Mۛi Smۛi SMۛi SMJ-ۛi SMۛi SMۛi S)m -m Mۛi S-m MۛiI MJ-ۛi SMۛi S SMۛ m -m Mۛi S-m M Mۛi J-ۛi SMۛ -ۛI SMۛ - --S MJiS MJiS MJi Mۛi SMۛi I -m MۛiI MJ-ۛiI MۛiI Mۛi S)m Mۛi SMۛ)-ۛi SMۛi J-ۛIMJiS MJiS MJ-JISIۛI SIۛI SMۛ - Mۛii M mۛiM Mۛi  MۛiI MۛiI MۛiI -- Mۛ) ۛi S SMۛi SMMJMJ-ۛi SIۛIMJiSIۛIMJ-ۛi S S -S m Mۛ -JiSiۛi SMۛ)-ۛi SM -m Mۛi S-m Mۛi S-mJ-ۛi SMۛiI Mۛi S)m -m Mۛi SMۛi SMۛ)- --SMۛiI -m MۛiI -- --SMۛi --SIۛIiJiSiۛ MSiJ-ۛi SMۛ -ۛi SMۛ -J-ۛi SMۛ -ۛI SIۛ)mJISIۛIMJIS MJISIJISIۛIMJIS MJiSiJ ۛIMJMSMۛ MS MJ JISIۛ)-ۛII --SIۛIIJMS MJ ۛI SIۛIIiJiSiۛiIJIJ-ۛi SMۛi Smۛi S)mJiS)MJiS MJiS MJ-J-ۛi SIۛImJMSMۛ)- --SIۛIiJ)ۛI SMۛ -J ۛImJ ۛii --SIۛIi --SMۛ)-ۛI SIۛi S)mJ)ۛ MSMۛ)-ۛi SMۛ -ۛIIJISIJ ۛIMJMSiۛ MS MJ JMS MJ ۛIiJ ۛIMJMJiS S)m --S)m S MJIS MJiS--S MJiSIJISIۛIIJIS MJiSiJISIۛII --SIۛIIJIJISIۛIIJISIۛIIJiJISIۛKkJISIۛIIJISIۛIIJIJiS MJiS MJiSIۛIMJ ۛ ۛ ۛIIJISIۛIIJ ۛ ۛ)-ۛ ۛ)-ۛ ۛ JiS)-S MJ-ۛI S-mJi mۛ)MSIۛIMJMSMۛI)JMS M MJMS SMۛ mJiS MJiSIVM"Bc -Nq4Uv@b%Hi4Vw@b -Op @ `  ( J j  1 Q q  9 [ | " C d ,Np5Wx=^~&     ":/ x6:9::" HOME MONEY MANAGER ":F }15:"VERSION 1.0"q :6:"COPYRIGHT 1984 DILITHIUM PRESS" ::8:" BY KEN MESSER" 17:6:"PRESS ANY KEY TO BEGIN"; N$:::(4);"RUN MAIN MENU" ";* FX118j P" ";:4:" ";:39:" ";q ZX d" "; n:2:3:" ":19:3:" < ****************************************************U PROGRAM NAME=HELLOz COPYRIGHT 1984 DILITHIUM PRESS( ******************************************************- V0.1/ REVISED: 6/18/84 3:55 PM2:: <"   RESS THE"*R4:"NUMBER OF THAT OPTION."0\\f4:" FOR EXAMPLE, TO ENTER ANY DATA"p4:"PRESS THE '2' KEY. ":4:" "z4:" YOU SHOULD BACK-UP THE DATA":4:"DISK AFTER EACH DATA";:" ENTRY SESSI21:"* *";6X"****************************************";:" TO CONTINUE"*4:54" THESE ARE THE MAIN CHOICES">4:"AVAILABLE TO THE USER. TO TAKE THE" H4:"OPTION YOU WANT, JUST PRE TELLING HOW TO RUN MENU] ------------------------------------------------------------c "****************************************"; "* MAIN MENU HELP *";"****************************************";/X4(7);"THIS DISK IS NOT A GOOD PROGRAM DISK!"p"PLEASE INSERT PROGRAM DISK"::"PRESS TO CONTINUE";N$:N$(13)730:D$;"RUN ";L$ ------------------------------------------------------------ HELP SCREEN IS DISPLAYED HED$;"RUN ";L$T ------------------------------------------------------------ THIS SECTION CYCLES UNTIL A DISK WITH RIGHT PROGRAM IS INSERTED IF AN ERROR OCCURS -------------------------------------------------------------:8:";L$;",D1"b:10:" PLEASE INSERT THE PROGRAM DISK..."::" PRESS TO CONTINUE...OR":" PRESS ANY OTHER KEY TO GO BACK.";lN$:vN$(13)Ĺ216,0:340710:10:6:"....NOW GETTING YOUR CHOICE...":" PLEASE BE PATIENT."-------------L0 ROUTINE TO DETERMINE PROPER DISK AND LOAD PROGRAM CHOICE: ------------------------------------------------------------D710N:10:6:"....NOW GETTING YOUR CHOICE...":" PLEASE BE PATIENT."S780,GD XGD2ĺD$;"RUN N$"1"L$"GET MENU":560;N$"2"L$"ENTER":560XN$"3"L$"REVIEW":560sN$"4"L$"COPY":560N$"5"L$"INITIAL":560N$"6"İ760:340N$"7"ė:"...BYE":D$;"FP": & -----------------------------------------------NTS"::64"2. ENTER ACCOUNTS/TRANSACTIONS"::6]"3. REVIEW/ALTER TRANSACTIONS"::6"4. BACK UP DATA";" DISK"::6"5. SET UP DATA";" DISK"::6"6. HELP "::6"7. QUIT"23:5:"< > ";:6:N$N$"1"N$"7"4505:" ":X:2:12:"HOME MONEY MANAGER"::16:"MAIN MENU";:4c m1 r:X524:" ";:38:" ":X:" ";: w7:4 y"PRESS NUMBER OF CHOICE:"::6 |"1. GET INFORMATION/ACCOU-----------------------------------------------------------d @ DISPLAY THE MENU AND INPUT CHOICES J ------------------------------------------------------------- T960 ^::X15:" ":X\ h:2:X13: ENTER NUMBER OF DRIVES:"M 18:31:G$:18:31:G$;(8):G$"1"G$"2"250Z GD(G$) GD2ĺ::"INSERT DATADISK IN DRIVE 2":"PRESS ANY KEY TO CONTINUE";:N$::340 GD1GD2ī250 GD1U11:U21 "GD2U11:U22 ,780,GD; 6 --,243:230 GD(780)0 GD1U11:U21:340I GD2U11:U22:340 4::" ";:X13:" ";:39:" ";:X:" "::6:6:" HOME MONEY MANAGER " 18:"PLEASE------------- V 0.1: REVISED: 6/18/84 3:57 PMw FIRST DETERMINE # OF DRIVES ON SYSTEM IF NOT KNOWN YET ------------------------------------------------------------- (4);"CLOSE"::216,0:D$(4) A$(25) (770)243Ĺ770Dd ------------------------------------------------------------an PROGRAM NAME=MAIN MENUx COPYRIGHT 1984 DILITHIUM PRESS ------------------------------------------------------------ ------------------------------------------------     :LN2:45000::LFC:J0T11:T26:T313:T425:T531:T639:ZL1T18:T220:T330:T448:T562:T670:D$;"PR#1":(9);"80N":(12)36,T1:"NO.";:36,T2:"DATE";:36,T3:"CLRD";:36,T45:"ACCOUNT";:36,T5:"AMOUNT"36,T1:XT1T6:"=";:N$"?"İ30000:1185+:N$"N"ĉ:7X1TCnD$;"READ TRANS,R";CL%(X):K1,K2,K3,K4,K5,K6,K$,K7K$"Y"(K$,2,6)D$;"WRITE TRANS,R";CL%(X):K1;",";K2;",";K3;",";K4;",";K5;",";K6;",";K$;",";K7XU(I)U(I)RD:B(I)B(I)GGC"* l "REVIEW","V0.2","6/25/84","BASIC"M v "CHARS","???","???","BINARY"s  "BANK","V0.2","6/20/84","BASIC"  "CONFIG","V0.2","6/25/84","BASIC"  "END" 1  0M 0 E OVER.";'ú:N$:*'N$(LK%):10130"D ":X];ƱX110:X1:3:(A$(XMIN),17);:22:(A$(XMIN10),17):X;бY1%1:319X1%::(A$(Y1%MINX1%10),17);::D","6/25/84","BASIC": 0 "TAXES","V0.2","6/21/84","BASIC"b : "CREDIT","V0.1","6/18/84","BASIC" D "GRAPH","V0.4","6/25/84","BASIC" N "COPY","V0.1","6/19/84","BASIC" X "RETRIEVE","V0.3","6/25/84","BASIC" b "INITIAL","V0.2","6/21/84","BASIM$ PM$"END"ij" ZV$,D$,T$B dM$;14);V$;21);D$;32);T$J n70q  "HELLO","V0.1","6/19/84","BASIC"  "MAIN MENU","V0.1","6/18/84","BASIC"  "GET MENU","V0.1","6/18/84","BASIC"  "NET","V0.2","6/20/84","BASIC" & "ENTER","V0.12 MODULE NAME= "CONFIG"D HOME MONEY MANAGER CONFIGURATIONf REVISED: 6/25/84 12:16 PMq V0.2w"HOME MONEY MANAGER"("V1.0 5/25/84"*:"CONFIGURATION MAP"2"MODULE";14);"VER.#";21);"DATE";32);"TYPE"< F1)1" 'NET' MODULE LINE 5080 ":J1"AN ERROR HAS OCCURRED FOR"r1"FOR WHICH THE CAUSE IS NOT KNOWN"x11"PRESS KEY TO CONTINUE BACK TO MENU"1N$1 2250: RETURN TO MENUN2):Y%1rdTA0HT22:VT16:16:"TRANSACTION AMOUNT==>_________":23000:TATB:HT1Ė22:16:"_________":60037dTT$"Y"Ģ18:1:"FOR TAX (Y/N) ";(95):16:"TRANSACTION AMOUNT==>";:QQTA:22000:QQ$:11370eY%Y%1:(S$)Y%1(S$,Y%,1)"-"600(>N$","XX1:XZMX1D>N$"."XX1:X1XZMO>,45030=ܯI1ZM:6:4I:ZM$(I,1):I:X1D=毢4X:6::ZM$(X,1):2:34:b=N$:N$"?"İ30000:45040u=N$(1)20000=N$(13)IX::=N$","N$"."45040=4X:6::ZM$(X,1)=N$","XX1:XZMX1=N$"."XX1:X1XZM>,4503..":"TO START YOUR CHOICE OVER.";,<ڝN$:@<4C$(LN):20120<ȯ:"****************************************";:"* CHOOSE ACCOUNT TO RECONCILE: *";:"****************************************"<үC$"2"Ģ2:6:" CHOOSE ACCOUNT TO VIEW:"#SK."n;(222)9ĺ"THIS DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR.";(222)255(222)6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG.""<Н20:"PRESS ANY KEY.ON,"4:"USING OPTION 4.".23:28:N$4w ------------------------------------------------------------::340Y1%1:19X1%3:(A$(MINY1%X1%10),17);U N$(13)IMINX1%10Y1%:IQDĺ:uN$(8)N$(21)X1%1X1%N$","Y1%Y1%1:Y1%0Y1%10N$"."Y1%Y1%1:Y1%11Y1%1"Y1%1:19X1%3::(A$(MINY1%X1%10),17);:,45030d041eCCC10I:117207e(S$)3Y%1::D$:60010|e:D$:12::" "::AZ%0:e --- SS----------------------9aN$","N$"."N$"?"46010SaN$"?"İ30000:46010taijN$","C%C%1:C%0C%CR%aɳN$"."C%C%1:C%CR%C%1aγ22:20::CR$(C%)::46010aPâVT:1:"TAX HEADING: AMOUNT:$";:S17:(95);:S$bUâVT:HX1:3:(A$(XMIN),17);:22:(A$(XMIN10),17):Xj`бY1%1:319X1%::(A$(Y1%MINX1%10),17);::t`ձ ---`C%1:HT0:IN49:46030`20:21:N$:N$(13)ĺ::-------------------------------aN$(1)HT1:::--------------------------DISK!"I"PLEASE INSERT PROGRAM DISK"::"PRESS TO CONTINUE";`N$:N$(13)730t:D$;"RUN ";L$ ------------------------------------------------------------::340"---------------------------------------------j THIS SECTION CYCLES UNTIL A DISK WITH RIGHT PROGRAM IS INSERTED IF AN ERROR OCCURS ------------------------------------------------------------:8:(7);"THIS DISK IS NOT A GOOD PROGRAM THE PROGRAM DISK..."::" PRESS TO CONTINUE...OR":" PRESS ANY OTHER KEY TO GO BACK.";llN$:vN$(13)Ĺ216,0:340710:10:6:"....NOW GETTING YOUR CHOICE...":" PLEASE BE PATIENT."D$;"RUN ";L$- --------------- TO DETERMINE PROPER DISK AND LOAD PROGRAM CHOICEt: ------------------------------------------------------------~D710N:10:6:"....NOW GETTING YOUR CHOICE...":" PLEASE BE PATIENT."XGD2ĺD$;"RUN ";L$;",D1"bb:10:" PLEASE INSERT IEVE":560& N$"2"L$"TAXES":560A N$"3"L$"BANK":560^ N$"4"L$"CREDIT":560x N$"5"L$"NET":560 N$"6"L$"GRAPH":560 N$"7"L$"MAIN MENU" & ------------------------------------------------------------10 ROUTINETION"::8) "2. TAX INFORMATION"::8F "3. BANK ACCOUNTS"::8e "4. CREDIT ACCOUNTS"::8 "5. NET WORTH STATEMENTS"::8 "6. GRAPHS"::8 "7. MAIN MENU" 23:7:"< > ";:8:N$ N$"1"N$"7"450  N$"1"L$"RETR:5:" ":X:4:8:"GET INFORMATION/ACCOUNTS":2:11:"HOME MONEY MANAGER":4 r:X524:" ";:38:" ":X:" ";::7:4 w"PRESS NUMBER OF CHOICE:"::8 |"1. ACCOUNT INFORMA------------------------------------------------------------e @ DISPLAY THE MENU AND INPUT CHOICES J ------------------------------------------------------------- T960 ^::X15:" ":Xm h:2:X13------------ V 0.18 REVISED: 6/18/84 3:58 PMv FIRST DETERMINE # OF DRIVES ON SYSTEM,EXIT IF NOT KNOWN ------------------------------------------------------------- :D$(4):GD(780) GD1GD2ĺD$;"RUN MAIN MENU,D1"< 6 - Dd ------------------------------------------------------------`n PROGRAM NAME=GET MENUx COPYRIGHT 1984 DILITHIUM PRESS ------------------------------------------------------------ -------------------------------------------------     U";:N$::036,35:"NET INCOME":36,35:"=========="::36,17:"INCOME";:36,55:"EXPENSE":36,17:"------";:36,55:"-------"::BGIM:EXIMBGEXDIM0EX0ĺ::" NO INCOME OR EXPENSES":1930-NI1BG:36,2:IN$(I);:IN$(I)""QQIN(I):184036,14:"NET INCOME":36,14:"=========="::36,7:"INCOME";:36,25:"EXPENSE":36,7:"------";:36,25:"-------":CZ11840QQII:2510:8:4:QQ$;:QQXX:2510:24:QQ$:QQIIXX:2510:14:1:"NET INCOME=>";QQ$ &:"ANY KEY TO MEN(95);:X1660-T(T$):F$"D"T1TtD$;"READ TRANS,R";EQ(I):M1,M2,BB,M4,M5,M6,M7,M8:BBBBT::M4M4TD$;"WRITE TRANS,R";EQ(I):M1;",";M2;",";BB;",";M4;",";M5;",";M6;",";M7;",";M8D$:1550::CZ1ĺD$;"PR#1":(9);"80N":(12);:XrT$"":IN2/|N$:N$(13)::1750HN$"Q"N$(1)1590ZN$"?"İ2700N$(8)ĭ(T$)1T$(T$,(T$)1):1730N$(8)T$"":1730N$"0"N$"9"1660(T$)4T$T$N$10:11:"$";T$;".00";:(T$)4āX(T$)3:R D)EPRECIATION":IN3:2:2:"ENTERING FOR ";EQ$(I)j@23:4:F$:F$(1)F$"?"F$"A"F$"D"1600JF$"Q"F$(1)1550TF$"?"Ģ8:6:"DEPRECIATION";:F$"A"Ė6:"APPRECIATION"^F$"?"İ2700:1590h:10:" AMOUNT:";:X18:(95,H:IMIM1:IN(IM)BBRT:IN$(IM)(A$(I),18):Y18SYY1:(IN$(IM),Y,1)" "1510yIN$(IM)(IN$(IM),Y):IIIIIN(IM)I:I0:LN2:IN12890:"I0ı,2:6:EQ$(I)462:6:4:6:"ARE YOU ENTERING:"::6:"A)PPRECIATION O,R";AN(I):D,M,BB,RT,BA,NR,K,H:EXEX1:EX(EX)BBRT:EX$(EX)(A$(I),18):Y18oYY1:(EX$(EX),Y,1)" "1460EX$(EX)(EX$(EX),Y):XXXXEX(EX)II1C:(A$(I),1)"I"1530ER$"I":50000D$;"READ TRANS,R";AN(I):D,M,BB,RT,BA,NR,K"S":5000hxD$;"READ TRANS,R";AN(I):D,M,BB,RT,BA,NR,K,H:NSNS1:NS(NS)RT:NS$(NS)(A$(I),18):Y18YY1:(NS$(NS),Y,1)" "1410NS$(NS)(NS$(NS),Y):SBSBNS(NS)II1C:(A$(I),1)"X"1480ER$"X":5000LD$;"READ TRANSREAD TRANS,R";AN(I):D,M,BB,RT,BA,NR,K,H:ECEC1:CR(EC)BBRT:CR$(EC)(A$(I),18):Y18yFYY1:(CR$(EC),Y,1)" "1350PCR$(EC)(CR$(EC),Y):CTCTCR(EC)ZIdD$;"READ TRANS,R1":Q1,Q2,Q3,CS,Q5,Q6,Q7,Q8nI1C:(A$(I),1)"S"1430 pER$":5000q D$;"READ TRANS,R";AN(I):D,M,BB,RT,BA,NR,K,H:BCBC1:BC(BC)BBRTB(BC):B$(BC)(A$(I),10)" ":Y12 YY1:(B$(BC),Y,1)" "1290 B$(BC)(B$(BC),Y):TCTCBC(BC) I (I1C 2(A$(I),1)"C"1370 4ER$"C":5000V<D$;"EQ)(EQ$(EQ),Y):TETEAS(EQ):EQ(EQ)AN(I)C I:D$;"CLOSE TRANS" D$;"OPEN TAX,L60":D$;"READ TAX,R1":B(1),B(2),B(3),B(4),B(5) D$;"READ TAX,R0":X,FC,LC,FD,LD:D$;"CLOSE TAX":D$;"OPEN TRANS,L43" I1C (A$(I),1)"B"1310 ER$"BRT DATA DISK...PRESS ANY KEY";:N$::1080C D$;"OPEN TRANS,L43"d I2C:(A$(I),1)"E"1230w ER$"E":5000 D$;"READ TRANS,R";AN(I):D,M,BB,RT,BA,NR,K,H:EQEQ1:AS(EQ)BB:EQ$(EQ)(A$(I),18):Y18 YY1:(EQ$(EQ),Y,1)" "1210* EQ$(1ľN$:N$(13)1130d t::10:" ...READING SYSTEM INFORMATION..."::" PLEASE BE PATIENT." ~:D$;"OPEN MSTR,D";U2:D$;"READ MSTR":C 216,0:X1C:A$(X),AN(X):A$(X)(A$(X),18):X:2340* :(7);"THIS IS NOT A GOOD DATA DISK"::"INSE),CR$(15),CR(15)A $A$(80),AN(80),EX$(70),EX(70),IN$(40),IN(40)^ .X170:EQ$(X)" ":Xu 8GD(780):770,243 BGD1U11:U21 LGD2U11:U22 V1170 `GD1ė:12:6:"PLEASE INSERT DATA DISK":6:"PRESS TO CONTINUE"; jGD)B ----------------------------------------------------------Y PROGRAM NAME=NET ---------------------------------------------------------- V0.2  REVISED: 6/20/84 12:01 PM::36863:D$(4) SD(300,5),EQ$(70),EQ(70),AS(70                5(222)6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG."&d 20:"PRESS ANY KEY...":"TO START YOUR CHOICE OVER.";&n N$:&x 2480& ------------------------------------------------' PRINT HELP NOT THE DATA DISK!"::"PLEASE INSERT A GOOD DATA DISK."%F (222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DISK."%P (222)9ĺ"THIS DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR."i&Z (222)25QQ$)2,1)"."2570%$ (QQ$)22560R$ (QQ$,(QQ$)1,1)"."QQ$QQ$"0":2570d$ QQ$QQ$".00"t$ QQ$"$"QQ$z$ $ :::X15:(7):X$( "AN EXECUTION ERROR HAS OCCURRED":$2 12:(222)255ĺ"YOU PRESSED CTRL-C!"9%< (222)6ĺ"THIS IS# N$"5"CZ0CZ1:2410.# N$"4"ĺ:2250F# N$"1"N$"6"2420V# NL%(N$):n# NL%1550,1940,1790# :NL%0:CZ0:D$;"PR#0":2360# GD2Ģ2:3:"...LOADING MAIN MODULE..."# QQ(QQ100.5)100:QQ$(QQ)# (QQ$)32540$ (QQ$,("::6:" 2. PRESENT NET WORTH"::6:" 3. NET INCOME""j 13:6:" 4. MAIN MENU"::6:" 5. PRINTOUT YOUR CHOICE"::6:" 6. HELP"::6:"< >":CZ1Ģ15:10::"PRINTOUT YOUR CHOICE":"t 19:7:N$:N$"6"LN1:2700:2360"~ N$"5"CZ1CZ0:2410 ";:" ";:40:" ";:" ";:X422:" ";:40:" ";:X!M " ";:!V 2:10:"NET WORTH STATEMENTS":5:4:"PRESS NUMBER OF CHOICE"6"` :6:" 1. ENTER APP/DEP0`  :"THIS IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK...PRESS ANY KEY";:N$::2250{  D$;"RUN MAIN MENU,D1" $ D$;"OPEN TRANS,L43":1180 . 216,0:2590 8 :"ONE MOMENT PLEASE..":A(0) B D$::m!L D$:::" 2320:GD2Ģ2:7:"...LOADING MAIN MENU... "[GD2ĺD$;"RUN MAIN MENU,D1":10:"INSERT PROGRAM DISK"::"PRESS TO CONTINUE"::"PRESS ANY OTHER KEY TO RETURN TO":"NET WORTH MENU";N$:N$(13)Ĺ216,0:2360  :233S:2510:X430(QQ$):".";:X:QQ$::AATECSSBTC:QQAA:2510:36,2:"TOTAL ASSETS=>";QQ$;:QQCT:2510:36,42:"TOTAL LIABILITY=>";QQ$::36,25:"PRESENT NET WORTH IS ";:QQAACT:2510:QQ$:(12)D$;"PR#0"::D$;"CLOSE":770,2432:"SAVINGS:":NS02190l:I1NS:36,4:NS$(I);:QQNS(I):2510:X(NS$(I))28(QQ$):".";:X:QQ$:I::36,2:"CHECKING:":BC02210:I1BC:36,4:B$(I);:QQBC(I):2510:X(B$(I))28(QQ$):".";:X:QQ$:I(::36,2:"CASH";:QQC "QQAS(I):2510:X(EQ$(I))30(QQ$):".";:X:QQ$;FHECIĺRECIĹ36,42:CR$(I);:QQCR(I):2510:X(CR$(I))30(QQ$):".";:X:QQ$\I50ĺ(12):FLAG1fIpBG40FLAG0ĺ(12):::36,17:"ASSETS":36,17:"------"z::36,xD$;"PR#1":(9);"80N":(12)::36,34:"NET WORTH":36,34:"=========":::36,17:"ASSETS";:36,54:"LIABILITIES" 36,17:"------";:36,54:"-----------":*BGEQ:ECEQBGEC4EQ0EC0ĺ::::2170:>I1BG:36,2:EQ$(I);:EQ$(I)"------":QQQCT:2510:6:"TOTAL LIABILITIES:";:X2436(QQ$):".";:X:QQ$QQTCTECSSBCT:2510:19:6:"=============================="21:6:"NET WORTH=>";:X1736(QQ$):".";:X:QQ$23:"PRESS ANY KEY FOR MENU";:N$::  QQSBP2510:6:"SAVINGS ACCOUNTS:";:2510:X2336(QQ$):".";:X:QQ$QQTC::6:"CHECKING ACCOUNTS:";:2510:X2436(QQ$):".";:X:QQ$QQTE:2510::6:"ASSETS:";:X1336(QQ$):".";:X:QQ$ ::12:"LIABILITIES":12:"-----:36,2:"TOTAL INCOME:";QQ$;:36,42:QQXX:2510:"TOTAL EXPENSE:";QQ$:::36,30:"NET INCOME=>";:QQIIXX:2510:QQ$:(12):D$;"PR#0":CZ12070:14:"ASSETS":14:"------":6:"CASH:";:QQCS:2510:X1136(QQ$):".";:X:QQ$:):2510:X(IN$(I))30(QQ$):".";:X:QQ$;9XEXIĺbEXIĹ36,42:EX$(I);:QQEX(I):2510:X(EX$(I))30(QQ$):".";:X:QQ$lI50ĺ(12):::36,17:"INCOME";:36,55:"EXPENSE":36,17:"------";:36,55:"-------":vI|:QQII:2510,A30720,D1"::2֗:(7);"ERROR IN READING PROGRAM DISK"::"PLEASE REINSERT PROGRAM DISK...":"PRESS ANY KEY TO CONTINUE";:N$:֫50000E ":XK0 X110:X1:3:EQ$(XMIN);:22:EQ$(XMIN10):X|0 Y1%1:319X1%::EQ$(Y1%MINX1%10);::0 ERROR TRAP0ER$"E"12400ER$"B"13200ER$"C"13800ER$"S"14400ER$"X"14900ER$"I"23600S ** "::AZ%1:Y%1:S$(A$(I),(A$(I))19)OcjY%Y%1:(S$,Y%,1)"-"60010ctI((S$,Y%1)):S$(S$,(S$)Y%):Y%1::15:9:(A$(I),17):c~Y%Y%1:(S$,Y%,1)"-"60030dTA((S$,Y%1)):S$(S$,(S$)Y%):TT$(S$,1):(S$)2S$(S$,(S$)T:" ":HT:VT::TA$(G);: TO QUIT"+.h;:2870g,, " YOU MUST NOW PRESS EITHER 'A'":4:"FOR APPRECIATION, OR 'D' FOR":4:"DEPRECIATION.";,6 23:28:16368,0:B$:B$(13)2870,@ B-J ::" ":2:X211:" ";:40:" ";:X:" MOVE":4:"SIDEWAYS. PRESS RETURN WHEN THE":4`+ IN1ĺ"CORRECT ACCOUNT IS IN INVERSE."::4+ IN1ĺ" TO QUIT JUST PRESS 'Q'.";:2870+ IN2ĺ" YOU MUST NOW ENTER THE AMOUNT":4:F$"A"ĺ"OF APRECIATION.";:2870," IN2ĺ"OF DEPRECIATION."UNTS.":4:" ":4* IN1ĺ" YOU MUST NOW CHOOSE THE":4:"ACCOUNT TO WHICH THE APPRECIATION":4:"OR DEPRECIATION WILL BE APPLIED."::4/+ IN1ĺ" TO CHOOSE THE ACCOUNT, USE THE":4:"'<' AND '>' TO MOVE UP AND DOWN":4:"AND THE '<-' AND '->' TODULE."5) :4:" A PRINTED COPY OF THE REPORT":4) "CAN BE OBTAINED BY PRESSING '5'":4:"THEN THE NUMBER FOR THE DESIRED":4:"OPTION.";:2870* 4:" YOU ARE IN THE SECTION FOR":4:"ENTERING APPRECIATION AND":4:"DEPRECIATION TO EQUITY ACCORN> TO CONTINUE";( 50( LN2750,2790,40150( 4:" THIS MODULE ALLOWS FOR THE":4:"ENTRY OF APPRECIATION AND":4:"DEPRECIATION TO EQUITY ACCOUNTS,") 4:"ALSO THE PRODUCTION OF NET WORTH":4:"& NET INCOME STATEMENTS IS THROUGH":4:"THIS MO SCREENS' :"***************************************":"*** HELP SCREEN ***":"***************************************"( PO421:"* *":PO:"***************************************":" F$"I"X:10200dDU$"1"1130;f"PRESS KEY TO CONTINUE":N$Eh1075RjA$(A)X$elOT$"1"1138n"PRESS KEY TO CONTINUE":N$r1199tvSS16yOT$"1"6000: BACK TO MENU~10201460:ER$"1":5000D$,"OPEN TRANS,79X$"":N1(T$)5<X$X$(T$,N,1):NR=N(T$)17:X$X$" ":Ne>N17(A$(A))|?X$X$(A$(A),N,1)@NA"NEW ACCOUNT NAME IS: ";(X$,17)B"IS THIS OK (Y OR N)?"LA$VA$"N"1074`A$"Y"1090bT$(X$,17): GO BACK TO MENU  '* (AS161140? .ASAS161060c /1300: CHANGE DATA FOR ACCOUNTm 01140 2"CURRENT ACCOUNT NAME IS: ";(A$(A),17): 3T$"" 4"NEW NAME FOR ACCOUNT: ";T$ 6T$""ĺ"YOU CAN'T HAVE A BLANK ACCOUNT NAME":1074ACCOUNT DATA": S1% XSS15M A$(X)" "A$(X)""OT$"1":1055d X;" ";(A$(X),17)k Xq  !"ENTER 0 TO QUIT OR ";S16;" FOR NEXT PAGE" "A$"" # $"WHICH ACCOUNT # TO CHANGE ";:A$:A(A$) %A$""1060 &A06000ANY KEY TO CONTINUE";% }N$::120- 407 ---S ,VE1EV%:(95);:VE: 1 ------------------------------------------------------------ 19:1:VE16:AS$(VE);" ";:VE:  ---  CHANGE ACCOUNT DATA OT$""  "CHANGE SE BE PATIENT."( <U11:U21:GD2U22s PD$;"OPEN TAX,L60,D";U2:D$;"READ TAX,R0":TR%,X,Y,R,L:D$;"CLOSE TAX" d216,0:D$;"CLOSE":20300 n --- x216,0:D$:(7)::10:"THIS DISK IS NOT A GOOD DATA DISK."::"INSERT GOOD DATA DISK":"PRESS 780) V0.121  REVISED: 6/25/84 2:00 AML X180:A$(X)" ":X (GD1ė:11:6:"PLEASE INSERT DATA DISK"::6:"PRESS TO CONTINUE"; 2GD1ľN$::N$(13)Ĺ216,0:40 7:8:4:"...READING SYSTEM INFORMATION..."::" PLEA] PROGRAM NAME=ENTER$ ---<::SS126758:120fA$(80),AN(80),T$(20),TA$(20),CR$(20)X16:F$(X)("EIXCBS",X,1):X:AS$(1)"ASSET":AS$(2)"INCOM":AS$(3)"EXPNS":AS$(4)"CREDT":AS$(5)"CHECK":AS$(6)"SAVING" 770,243:D$(4):GD(                             !  o,TT$"Y"TT$"N"11370c&t,18:15:TT$:TT$"N"Ģ22:" "x&y,AZ%1TT$"N"ı&z, ****************&~,AZ%111605&,Z$(1)"CASH":Z$(2)"CHECK":Z$(3)"CREDIT":CC1:11450&,N$:N$"?"IN4:30000:11410'16:HT22:23000:TATB:HT1Ģ15:9:" ":16:22:EV%7:300:11355t%e,(A$(I),18,1)"I"C1:11720%j,18:15:TT$:TT$"?"IN3:30000:18:15:"_":11370%k,AZ%1TT$(1)11370%l,Z%1ĭTT$(1)AZ%0Ģ16:22:EV%7:300:11360&;:X'$G,1:18:"FOR TAX (Y/N) ";(95)H$L,18:20:"CASH CHECK CREDIT"p$Q,20:"CHECK/RCPT#==>";:EV%4:300:$V,23:"NOTE:":EV%39:300$[,16368,0:IN1:45090:15:9::(A$(I),17):$],N$"Q"Ė9:15:" ":11900$_,IN2R%`,VT +D$;"READ TRANS,R0":LR,Y7Q# +L$"ENTER TRANSACTION DATE:":26000:Q$"GO"ĺ:[#%+ ---o#+:45000:34,14#.,15:1: POSITION CURSOR#3,CN$" ":CC0#5,14:1:" TO QUIT"#8,:15:1:"ACCOUNT:"$B,16:"TRANSACTION AMOUNT==>$";:X17:(95)BA;",";0;",";LR;",";LR'"(:D$:10050R"U(D$;"WRITE TRANS,R0":LR;",";Y7:QDI1b"_(D$;"CLOSE"j"d(:t"i( ---"*:LN3:IN0:8:"GETTING INFORMATION...""+D$;"OPEN TRANS,L43":D$;"OPEN TAX,L60""+D$;"READ TAX,R1":B(1),B(2),B(3),B(4),B(5)#!!":10192!'F$"E"Ģ23:1:"ASSET VALUE:_________":HT13:VT23:23000:HT1Ģ23:1:" ":22:19:"_________":10224!'F$"E"OY1:Y1TB!'LRLR1:AN(I)LR:D$;"WRITE TRANS,R";LR!'F$"S"OY1"(DA;",";MO;",";Y1;",";O;",";19:HT19:VT22:IN5:23000:Y1TB:HT1Y10:22:19:EV%9:300:400:10212X '33::33u 'A$(I)(A$(I),17)F$:O0 'F$"C"CR%CR%1:CR$(CR%)(A$(I),17) !'F$"B"ZMZM1:CH$(ZM)(A$(I),17):ZM6ZM5:23:(7);"EXCEEDS LIMIT OF 5 DRAFT ACCOUNTS400:BA0:10210*'F$"?"İ30000:10213>'F$(13)10222\'F$(8)F$(21)10213e'400'F$(8)E%E%1:E%0E%6'F$(21)E%E%1:E%7E%1'19:(E%1)61::AS$(E%)::10213'F$"?"İ30000:10220'F$F$(E%)J '22:$(A$(X),17)ĺ(7);(A$(X),17);" ALREADY ON FILE ":DU$"1"D'X:N' ---}'IN3:17:16:VT17:HT16:23000:BATB:IN4'HT1EV%10:17:16:300:15:14:EV%17:300:BA0:10192'19:1::"ASSET";::E%1'20:15:F$:F$(1)Ģ17:16:300:T EXCEEDS LIMIT OF 80":"ACCOUNTS, IT WILL NOT BE ADDED!":10325v'IN2:15:14:HT14:24000:A$(I)TC$:TC$""10325'(A$(I))17āX(A$(I))16:A$(I)A$(I)" ":X'10199'DU$"1"10192'10205'T$(A$(I),17)'DU$"";'X1I1:T'12:" AT ACCOUNT NAME TO QUIT":" CTRL-A TO BACK-UP ONE LINE"::"ACCOUNT NAME:";:EV%17:300::EV%10':"MONTHLY BUDGET:";:VE%9:300::::"ACCOUNT TYPE:"::400'1:22:"BEGINNING BALANCE:";:300@'II1:I81ĺD$:::"LAST ACCOUNIN1:LN2:IQDB'D$;"OPEN TRANS,L43":D$;"READ TRANS,R0":LR,Y7J'D$X'RT0:NR0'L$"ENTER TODAY'S DATE:":26000:Q$"GO"ĺ:' ---B':4:6:"LAST ACCOUNT ENTERED":4:"====================":4:(A$(I),17)'D$:3:12:HT14:LG17p00  1440 ERR TRAP(X(222)3222,0pER$"W"ĺ"HAVING TROUBLE WRITING TO THE 'TRANS' FILE":ER$"1"1302ER$"2"1304ER$"7"ė:222,0:1310ER$"3"ė:1310ER$"6"40000Pp20450: GO BACK TO MENU'.L$"ENTER TODAY'S DATE":260005/M1MO:D1(NT$)?02000I 1460\ ER$"W":5000{ D$;"WRITE TRANS, R";AN(A) ER$"4":5000 D1;",";M1;",";Y1;",";RT;",";BA;",";NR;",";L;",";LI ER$"5":5000 D$;"CLOSE TRANS" ER$"6":50UE PLEASE ";Y11900"14603 SETUP DATE;:a"FOR: ";(A$(A),17);" ACCOUNT":"CURRENT SETUP DATE IS: ":" MONTH: ";M1 " DAY: ";D1:"IS THIS OK (Y/N) "; N$*N$"Y"2999,N$"N"2000!UE.n::"FOR: ";(A$(A),17);" ACCOUNT":xpTY1:(A$(A),1)"E"ĺ"THIS IS NOT AN ASSET ACCOUNT ":X11300:X:"CURRENT ASSET VALUE IS: ";Y1"IS THIS OK (Y/N) ";N$N$"Y"1990N$"N"1900"NEW ASSET VALN%:" ":13050Y6321:36:N$:N$"Y"N$"N"N$(13)N$(1)13070}63N$(13)(F$"Y"F$"N")1309063N$(13)1307063N$(1)TB0:17:29:"_________":1306063F$N$:21:36:F$:13070H7"3T$(N%)F$:N%N%1:N%5ė:"FIV(A$(M%),18)#52N$(1)ĉ:13000^5217:22:"AMOUNT:_________":22:21:"FOR TAX? (Y/N)_"5245090:N%(N%)I:18N%:(A$(I),17):N$"Q"1400052N$(1)A$(M%)B$::1300063F$"":HT29:VT17:23000:TB(N%)TB:HT1TB0:29:17:"_________":18S,R0":LR;",";Y7:D$;"CLOSE""4.,4. ---J42:45000:34,14:LN4:N%1d4214:8:" TO QUIT" 5215:11::"CHOOSE THE MAIN ACCOUNT"::45090:M%I::15:11:"MAIN ACCOUNT:";(A$(M%),17):"AUTOMATIC ACCOUNTS":"==================":B$A$(M%):A$(M%)1ı:**********************733.(A$(I))18ĺD$:6000034.LR43TR%60SSĺD$:(7):"YOU ARE ALMOST OUT OF ROOM ON THIS DATA DISK. YOU SHOULD START OVER WITH A NEW DATA DISK!!"::"ANY KEY TO CONTINUE";:N$:36.D$::113104|.34,0:D$;"WRITE TRAN2,K3,CH,K5,K6,K7,K8:CHCHTA:D$;"WRITE TRANS,R1":K1;",";K2;",";K3;",";CH;",";K5;",";K6;",";K7;",";K8:1182621.C1ĺD$;"READ TRANS,R1":K1,K2,K3,CH,K5,K6,K7,K8:CHCHTA:D$;"WRITE TRANS,R1":K1;",";K2;",";K3;",";CH;",";K5;",";K6;",";K7;",";K832.AZ%0:X((CN$,1)):C311823A1.YY1:(A$(Y),17)CR$(X)118001.D$;"READ TRANS,R";AN(Y):K1,K2,K3,K4,K5,K6,K7,K8:K3K3TA:D$;"WRITE TRANS,R";AN(Y):K1;",";K2;",";K3;",";K4;",";K5;",";K6;",";K7;",";K8m2/.(A$(I),18,1)"I"ĺD$;"READ TRANS,R1":K1,K";L=0-K1;",";K2;",";K3;",";K4;",";K5;",";K6;",";K7$;",";LA[0-D$;"WRITE TRANS,R";AN(I)n0-LAN(I)L1LA0-D1;",";M1;",";Y1;",";RT;",";BA;",";NR;",";LA;",";L10.D$;"WRITE TRANS,R";LA0.DA;",";MO;",";YE;",";TA;",";TT;","CC;",";CN$;",";01.Y,";FC;",";LC;",";FD;",";LD:D$;"CLOSE TAX":D$"OPEN TAX,L60"B/-_/-D$;"READ TRANS,R";AN(I){/-D1,M1,Y1,RT,BA,NR,L,L1/-RTRTTA:NRNR1:LALR:(A$(I),18,1)"E"Y1Y1TA/-D$;"READ TRANS,R";L/-K1,K2,K3,K4,K5,K6,K7$,K80-D$;"WRITE TRANS,R-C2B(Z)B(Z)TA:PLC:LCLR:FC0:FCLR:PLR:11729c.-C3PLD:LDLR:FD0FDLR:PLR:11729.-D$;"READ TRANS,R";P:K1,K2,K3,K4,K5,K6,K$,K7.-D$;"WRITE TRANS,R";P:K1;",";K2;",";LR;",";K4;",";K5;",";K6;",";K$;",";K7> '?' FOR HELP <<";:1:8:L$:Q$"STAY"Fe12:13:"MONTH:":12:"DAY:"Fe19:13:HT19:VT13:LG2:25000:MONT:HT1Q$"GO": GeMO1MO060EaN$(13)25100BEaN$(8)(NT$)0ĭ(NT$,1)"."FLAG0sEaN$(8)(NT$)1NT$(NT$,(NT$)1):25060EaN$(8)NT$"":25060EaZZ%1FLAG0N$"."FLAG1:25045EaN$"0"N$"9"25002Ea(NT$)LG1NT$(NT$,(NT$)1)FaNT$NT$1):HT(TC$):(95);:(TC$)HT:24010RD]N$(8)TC$"":HT:(95);:HT:24010oD]N$(32)N$(90)24010D](TC$)LGTC$TC$N$:N$;D]24010D$^:DV^ ---DaNT$"":FLAG0:16368,0DaN$:N$(1)HT1:Da ---EaN$"?"İ30000:25C$;$C:ZZL%1āXZL%2:(95);:X/C TO CONTINUE"?PN$::N$(13)20600>@P21:(7);(7);"PROGRAM DISK IUE":3>(P4:"PRESS ANY OTHER KEY FOR ENTER MENU";S>-PN$::N$(13)Ĺ216,0:10^>AP --->FP:(7);"DISK NOT PROGRAM DISK":I11700:I>PP:6:14:"INSERT PROGRAM DISK":8:" TO CONTINUE">ZPN$::N$(13)20570 ?dPD$;"RUNEASE INSERT DATA DISK"::"PRESS TO CONTINUE";P=PN$:N$(13)20494a=P:D$:20490m=P20550=PGD2Ģ2:10:"...LOADING MAIN MODULE..."=PGD2ĺD$;"RUN MAIN MENU,D1">P:14:6:"INSERT PROGRAM DISK"::8:"PRESS TO CONTINy< PD$;"OPEN MSTR":D$;"READ MSTR":C:D$;"OPEN MSTR":D$;"WRITE MSTR":QD:I1QD:A$(I);",";AN(I):I:D$;"CLOSE MSTR"< PD$;"OPEN TAX,L60":D$;"WRITE TAX,R1":B(1);",";B(2);",";B(3);",";B(4);",";B(5):D$;"CLOSE":204967= P216,0::6::D$:(7);"PLON(N$)#;ON$"6"İ30000:204008;O(N1N6)20425j;O:10:" WRITING INFORMATION TO YOUR DISK..."|;ON$"4"20490;O:10:" ...READING INFORMATION...";ON10000,13000,11000;ON$"5"ī1000: CHG DATA;O:LN0:20400< P216,0:20493"PRESS NUMBER OF CHOICE"::LN1=:O8:" 1. ADD ACCOUNTS":]:O8:" 2. RELATE ACCOUNTS"::O8:" 3. ENTER TRANSACTIONS"::O8:14:" 4. MAIN MENU:O16:8:" 5. CHANGE ACCOUNT DATA"::O18:8:" 6. HELP":O20:8:"< >":O9:20:N$: ;PLEASE..":A(0):::" ";:" ";:40:" ";:" ";:X422:" ";:40:" ";:X9O23:" ";::2:7:"ENTER ACCOUNTS/TRANSACTIONS" :O5:6:":D$;"READ T":TQ:X1TQ:TA$(X):X:D$;"CLOSE T":D$;"OPEN MSTR":D$;"READ MSTR":QD8OOI1QD:A$(I),AN(I):(A$(I),18,1)"C"CR%CR%1:CR$(CR%)(A$(I),17)8QO(A$(I),18,1)"B"ZMZM1:CH$(ZM)(A$(I),17)8ROI:D$8VO400009O:"ONE MOMENT E RELATED ACCOUNTS IS THE MAXIMUM":"NOW PUTTING ENTRIES ON FILE":14010u76317:29:"_________":21:36:"_":1305076N%11450076X1N%1:A$(M%)A$(M%)"-"(N%(X))"-"(TB(X))"-"T$(X):X78:D$::7LO ---7MO MAIN LINEW8NOD$;"OPEN TN THE DESIRED ACCOUNT IS":3:"DISPLAYED.";VvIN22ĺ"THE AMOUNT OF THE TRANSACTION THAT":3:"IS TO BE APPLIED TO THE DEDUCTION.";?W vIN23ĺ"THE BANK ACCOUNT THAT THE CHECK WAS":3:"DRAWN ON. USE THE '<' AND '>' KEYS":3:"TO CHANGE THE ACCOUNT. PR:"OF AT MOST, 4 DIGITS.";VUuIN11ĺ"THE RECEIPT NUMBER OF THE CREDIT":3:"SLIP.";]Uu3+VuIN21ĺ"THE TAX HEADING THE TAX DEDUCTION":3:"WILL BE FILED UNDER."::3:" USE THE '<' AND '>' KEYS TO":3:"CHANGE HEADINGS. PRESS THE RETURN":3:"WHEOF PAYMENT. THE METHOD":3:"IN INVERSE WHEN THE RETURN KEY IS":3:"PRESSED IS THE METHOD THAT WILL":3:"BE PUT ON FILE."TuIN4::3:" TO CHANGE THE METHOD PRESS THE":3:"'<-' OR THE '->' KEY.";UuIN10ĺ"THE CHECK NUMBER. IT MUST CONSIST":3":3:"THAT THE TRANSACTION CAN BE CALLED":3:"UP THROUGH TAX TRANSACTIONS."SuIN3Ė3:" A MESSAGE UP TO 39 CHARACTERS":3:"CAN ALSO BE ADDED.":3:" AN 'N' MEANS NO LINK TO TAX":3:"RECORDS AND NO MESSAGE CAN BE ADDED.";{TuIN4ĺ"THE METHOD 1ĺ"AND LESS THAN KEYS < >.":6:"TO CHANGE THE ACCOUNT PAGE, JUST":3:"PRESS THE NUMBER OF THE PAGE TO":3:"BE DISPLAYED.";RuIN2ĺ"THE DOLLAR AND CENT AMOUNT OF THE":3:"TRANSACTION NOW BEING ENTERED.";MSuIN3ĺ"A 'Y' OR AN 'N'. A 'Y' INDICATESTOOK PLACE. THE ACCOUNT IN INVERSE":3:"WHEN THE RETURN KEY IS PRESSED IS":3QuIN1ĺ"THE ACCOUNT FOR THE TRANSACTION":3:" TO MOVE LEFT OR RIGHT USE THE":3:"FORWARD AND BACKSPACE KEYS <- ->.":3:"TO MOVE UP AND DOWN USE THE GREATER":3~RuIN:3/Pu:3:" AT THIS POINT YOU MUST ENTER"6Pu3PuIN0ĺ"THE DATE OF THE TRANSACTIONS TO":3:"BE ENTERED. THIS DATE WILL":3:"AUTOMATICALLY BE ADDED TO EACH":3:"TRANSACTION ENTERED.";NQuIN1Ė3:"THE ACCOUNT IN WHICH THE TRANSACTION":3:"ITY AMOUNT FOR THE ACCOUNT, OR":3Ou"IF IT IS A CREDIT ACCOUNT THEN":3:"ENTER THE AMOUNT ALREADY OWED ON":3:"ACCOUNT.";:30500Pu3:" YOU ARE IN OPTION 'ENTER":3:"TRANSACTIONS'. ALL DATA IS":3:"INITIALLY ENTERED THROUGH THIS":3:"OPTION."ORTH $9000 THEN":3:"ENTER $9000.";:30500ENu *******************Nu" ENTER THE AMOUNT TO TRANSFER":3:"INTO THE BEGINNING BALANCE FOR THE":3:"ACCOUNT.":3:" FOR EXAMPLE, IF IT IS AN ASSET":3:"ACCOUNT THEN ENTER THE BEGINNING":3"Ou"EQUYPE IS IN":3:"INVERSE."::6:"USE THE '<-' AND '->' KEYS TO":3:"CHANGE THE ACCOUNT TYPE.";:30500+NuIN6ĺ" ENTER THE TOTAL VALUE OF THE":3:"ASSET ACCOUNT YOU ARE NOW CREATING."::3:" FOR EXAMPLE IF IT IS FOR A CAR":3:"AND YOUR CARS ARE W"THE RETURN KEY.";:30500wLuIN3ĺ" AT THIS POINT ENTER THE MONTHLY":3:"BUDGET AMOUNT FOR THIS ACCOUNT.";:30500LuIN4ĺ" ENTER THE TYPE FOR THE ACCOUNT":3:"NOW BEING ADDED."::6:"TO DO THIS, PRESS RETURN":3fMuIN4ĺ"WHEN THE CORRECT TTS.":3:" ":3KuIN1ĺ" THE DATE TO BE ENTERED HERE":3:"IS THE DATE ON WHICH THE ACCOUNTS":3:"ARE TO BE ADDED. THEREFOR ENTER":3:"TODAY'S DATE.";:30500LuIN2ĺ" ENTER THE NAME OF THE ACCOUNT."::6:"TO QUIT THIS CHOICE JUST PRESS":3:"TRANSACTION INFORMATION, THROUGH":3:"THIS MENU"8JguJlu3:" TO TAKE A PARTICULAR OPTION,":3:"PRESS THE NUMBER THAT IS IN FRONT":3:"OF THE DESIRED OPTION.":Ju30500Ju ******************Ku" YOU ARE IN THE OPTION TO ADD":3:"ACCOUN***********************************"`IDuPO422:"* *":POINu"***************************************":" TO CONTINUE";IXu3:5I]uLN30050,30100,30150,302502Jbu" THE USER ENTERS ALL DATA, AND":3:(7):26040HeHe ---.He HELP SCREENS8Hf ---H0u60,0:61,3:62,0:63,8:64,0:65,124:66,0:67,119:468:786,(36):787,(37)H5u355,(34):$I:u:"***************************************":"*** HELP SCREEN ***":"****12Ė19:13:" ";(7):26020yGe17:14:HT17:VT14:LG2:25000:DANT:HT1DA0:MO0:13:19:" ":17:" ":26030GeDA1DA31Ė17:14:" ";(7):26040GeMO4MO6MO9MO11ĭDA30Ė17:14:" ";(7):26040 HeMO2ĭDA29Ė17:14:" ";HECK:_____";~ 5:1:"STATEMENT BALANCE:_______";:19:1:" -A TO BACK UP ONE LINE":24:" >> '?' FOR HELP <<"; 11:1:"TOTAL OTHER SERVICE CHARGE:_____":13:1:"TOTAL RECORDED DEPOSITS:_________" IN75:19:VT5:HT19:LG6:20:UC0:LN1R ZM0ė:(7):10:"NO CHECKING ACCOUNTS ON FILE":X1900:X::] 216,0m IN1:45000 :"RECONCILE FOR ";ZM$(I,1);:34:"CLEARED";:"================================= CHECKS":7:1:"HAS CHECK # ____ CLEARED?":9:"CHARGE PER COUNTS EXIST -- OR"= "THE ACCOUNTS HAVE NO TRANSACTIONS":s &"PLEASE GO BACK AND ADD ACCOUNTS / TRANSACTIONS"y 0 :"PRESS ANY KEY TO CONTINUE" DN$ NSW$"1"20202: NO ACCOUNTS -- RETURN  R0:PC0:TC0:P0:SC0:T%0:BR0:NC0:DN"READ TRANS,R0":L,YE Z19000 d500::10:(7);"THIS IS NOT A GOOD DATA DISK":"INSERT DATA DISK...PRESS ANY KEY";:N$::50 SW$"1"799  :"A PROBLEM HAS OCCURRED IN READING" "THE CHECKING / SAVINGS RECORDS" "EITHER NO ACC6:"PLEASE INSERT DATA DISK":6:"PRESS TO CONTINUE";[ HGD1ľN$:N$(13)72 K:8:" ...READING SYSTEM INFORMATION..."::" PLEASE BE PATIENT." UD$;"OPEN MSTR,D";U2:D$;"READ MSTR":C:D$;"CLOSE MSTR" WD$;"OPEN TRANS,L43":D$;6  ----% PROGRAM NAME=BANK1 ----U V0.2 REVISED: 6/20/84 9:50 AMj:36863:D$(4)SW$"": ERROR TRAP SWITCH AC%(5,150,2),CL%(150),A$(80),AN(80):1002GD(780):U11:U21:GD2U227GD2U11:U22? FGD1ė:12:! ! !!!!!!!!!              -----------------------------------3^N$"Q"ĺ:=^ ---u^N$(8)N$(13)N$(21)N$","N$"."45030^Y1%1:19X1%3:(A$(MINY1%X1%10),17);^ N$(13)IMINX1%10Y1%:IQDĺ:^ ---^N$(8)N$(21)X1%1X1%_N#PAGES: NOW ON PAGE:"a]үNP(QD20)1:13:13:QD;:23:NP;:37:1::N$"1":X1%0:Y1%1:45500g]ܯq]᯲ ---]毾N$:N$"?"İ30000:45030]믭N$(1)ĺ:] ---]N$"0"N$(NP)İ45500]N$(1)LN100N%N%1:#^ --------------------YOUR CHOICE OVER.";\ڝN$:+\4LN2N1<\9LN0ī20400J\>LN3N3Z\HLN100N2k\R:D$:20440]ȯ::" ":2:X211:" ";:40:" ";:X:" ":13:3:"#ACCOUNTS: PN(N$):13:37::PN::MIN(PN1)20:X110:X1:2:" ":XƱX110:X1:3:(A$(XMIN),17);:22:(A$(XMIN10),17):XбY1%1:319X1%::(A$(Y1%MINX1%10),17);::På55000Zú:(4);"BLOAD CHARS)9ĺ"THIS DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR."[(222)255(222)6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG."\Н20:"PRESS ANY KEY...":"TO START :X,Z^"AN EXECUTION ERROR HAS OCCURRED":WZh12:(222)255ĺ"YOU PRESSED CTRL-C!"Zr(222)6ĺ"THIS IS NOT THE DATA DISK!"::"PLEASE INSERT A GOOD DATA DISK."Z|(222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DISK."_[(222NEVER THE MAIN ACCOUNT":3UY4v"IS ACCESSED IN THE ENTER TRANSACTION":3:"OPTION.";vY$w24:28:N$:N$(13)30500Y)w:34,(355)Y.w60,0:61,119:62,0:63,124:64,0:65,8:66,0:67,3:468:(786)1:(787)1Y8wYBw ---Z@:::X15:(7)UNT":3:"IS DISPLAYED.";LXvIN55ĺ"A MESSAGE UP TO 39 CHARACTERS LONG.";WXv30500Y*v" YOU ARE IN THE CHOICE TO MAKE":3:"TRANSACTIONS AUTOMATIC."::6:"FIRST CHOOSE THE MAIN ACCOUNT.":3:"THEN CHOOSE THE ACCOUNTS THAT WILL":3:"BE CALLED WHEESS RETURN":3:"WHEN THE CORRECT ACCOUNT IS":3:"DISPLAYED.";WvIN49ĺ"THE CREDIT ACCOUNT THAT THE":3:"TRANSACTION WAS MADE ON."::6:"TO CHANGE THE ACCOUNT PRESS THE"XvIN49Ė3:"'<' OR '>' KEY. PRESS RETURN":3:"WHEN THE CORRECT CREDIT ACCOT$:1:3TQ:"* ";T$;:X(T$)313:" ";:X:"*":"**************";:TQ203025Z0 30205 -----------------------------------------------------8JD$;"OPEN MSTR":D$;"READ MSTR":CVJI1C:A$(I),AN(I):I oJD$;"CLOSE MSTR":D$;"OPEN T":D$;":3040" N$(32)N$(95)3040: N$","N$";"3040X I10T$T$N$:II1:N$;b 3040 T$""ĺ:D$;"OPEN T":D$;"WRITE T":TQ:X1TQ:TC$(X):X::D$:& -----------------------------------------------------------P+ TQTQ1:TC$(TQ)900:I:J ----------------------------------------------------------W 8:20In N$:N$(13)3100 N$"?"İ30000:3040 N$(8)I03040 N$(8)I1I0:(8);(95);(8);:T$"":3040 N$(8)II1:T$(T$,I):(8);(95);(8); IN3::"**************":"* EXISTING *":"*------------*"u I1TQ:"* ";TC$(I);:14:"*":I:"**************" 23:20:"'?' FOR HELP" 6:18:"HEADING TO ADD":8:20:X110:(95);:X:T$"":I0  TQ20Ė1:"MAX 20 HEADINGS ON FILE":I11TQQQAM(X):22000T36,T1:TC$(X);:YT1(TC$(X))T2(QQ$):".";:Y:QQ$:X10CZ0ĺ"ANY KEY TO CONTINUE":N$:XZL0ĺD$:"ANY KEY TO CONTINUE":N$:: ---------------------------------------------------------=00:"TOTAL FOR ";TC$(I);" ";QQ$'.D$J/ZL0ĺ"ANY KEY TO MENU":N$:R4:> -------------------------------------------------------T11:T228:ZL1T18:T240:ZL1ĺD$;"PR#1""SUMMARY OF DEDUCTIONS"::CZ0Ĺ34,2X11:TC$& XT1T6:36,X:"-";:X:`(R2(R2))(ZL0)ĺD$:"ANY KEY TO CONTINUE":N$:(ZL1)(R12(R12))ĺ(12):36,T1:"ACCOUNT";:36,T2:"DATE";:36,T3:"AMOUNT";:36,T4:"CHK/RCPT#":XT1T6:36,X:"=";:X: R%:QQAM(I):22022000)36,T11:(A$(B),17);:ZL0ĺM36,T2:M;"/";D;:36,T32:QQ$;bCC1CN$"CASH"CC2CN$(CN$,2,(CN$)2)CC3CN$(CN$,(CN$)1)36,T41:CN$ :36,T11:"NOTE:";:36,T5:"DEDUCTION AMOUNT:";:QQAB:22000:QQ$:36,T-";:X:u36,T1:"ACCOUNT";:36,T2:"DATE";:36,T3:"AMOUNT";:36,T4:"CHK/RCPT#":XT1T6:"=";:X::ZL0Ĺ34,5R1TX%(I,0)D$;"READ TAX,R";TX%(I,R):TC$,AB,B,G,LD$;"READ TRANS,R";L:D,M,Y,TA,TT,CC,CN$,L1:CCCC10(CC10)QQTA:1" D TX%(I,0)0ĺ"NO DEDUCTIONS IN ";TC$(I):X1900:X::  --------------------------------------------------------- T12:T213:T322:T431:T512:T639:ZL1T18:T228:T344:T462:T536:T67936,T2:TC$(I);" DEDUCTIONS":X1T6:"-------------- R3NT? D$;"READ TAX,R";R:T$,AB,I,G,LRr TX%(G,0)TX%(G,0)1:TX%(G,0)100TX%(G,0)100 AM(G)AM(G)AB TX%(G,TX%(G,0))R R  $ ------------------------------------------------------- 45000:ZL1ĺD$;"PR#DISK"::"INSERT DATA DISK...PRESS ANY KEY";:N$::60w i ----------------------------------------------------------}  D$;"READ TAX,R0":NT,FC,LC,FD,LD NT2ĺ"NO TAX DEDUCTIONS":X1900:X:  ----------------------------------------- PLEASE BE PATIENT."D U:D$;"OPEN MSTR,D";U2:D$;"READ MSTR":Cw WD$;"OPEN TRANS,L43":D$;"READ TRANS,R0":L,YE ZD$;"CLOSE MSTR":19000 _ ------------------------------------------------------------6 d:10:(7);"THIS IS NOT A GOOD DATA C$(20):AM(20) 770,243) (GD(780)= 2GD1U11:U21Q 7GD2U11:U22[ <100 FGD1ė:10:6:"PLEASE INSERT DATA DISK"::6:"PRESS TO CONTINUE"; PGD1ľN$:N$(13)80 R:10:" ...READING SYSTEM INFORMATION..."::" ^ D ------------------------------------------------------------] PROGRAM NAME=TAXES ------------------------------------------------------------ V0.2 REVISED: 6/21/84 7:01 AM ::D$(4) A$(80):AN(80):TX%(20,100):T                !!5&ȯ:IN2:"****************************************";:"* CHOOSE HEADING TO VIEW *";:"****************************************"&ͯTQ1I1:&ϯ -------------------------------------------------------'үX1TQ1:8:TC$(X):X:8:6(222)8(222)9ĺ"I DON'T UNDERSTAND THE ERROR! BUT...":"SOMETHING IS DEFINITELY WRONG."%Н20:"PRESS ANY KEY...":"TO START YOUR CHOICE OVER.";%ڝN$:%420200%> ------------------------------------------------------&RD$;"CLOSE": DATA DISK!"::"PLEASE INSERT A GOOD DATA DISK."~$|(222)8ĺ"THE DRIVE DOOR MAY BE OPEN...OR":"THIS IS NOT A DATA DISK."$(222)9ĺ"THIS DATA DISK IS FULL!":"YOU SHOULD START A NEW DATA DISK FOR":"THE REST OF THE YEAR."a%(222)255(222)64,0:65,8:66,0:67,3:468:(786)1:(787)16#8wr#Bw -----------------------------------------------------#@:::X15:(7):X#^"AN EXECUTION ERROR HAS OCCURRED":#h12:(222)255ĺ"YOU PRESSED CTRL-C!"1$r(222)6ĺ"THIS IS NOT THE 20. AFTER A":3:"HEADING HAS BEEN ADDED, IT CAN NOT":3:"BE DELETED OR ALTERED, SO BE SURE!"uIN3ĺ:3:" TO EXIT THIS OPTION JUST HIT THE":3:"RETURN AT THE HEADING NAME ENTRY.";"$w23:28:N$:N$(13)30500")w0#.w60,0:61,144:63,149:{uIN2Ė3:"'<-' AND '->' KEYS. WHEN THE":3:"DESIRED HEADING IS IN INVERSE,":3:"PRESS THE RETURN.";!uIN3ĺ" YOU ARE NOW IN THE OPTION FOR":3:"ADDING NEW TAX HEADINGS."::3:" THE MAXIMUM NUMBER OF HEADINGS":3^"uIN3ĺ"THAT CAN EXIST ISICULAR OPTION,":3:"PRESS THE NUMBER IN FRONT OF THAT"P quIN1Ė3:"OPTION."; vuIN2ĺ" YOU ARE IN OPTIN 2, TO VIEW":3:"DEDUCTIONS WITHIN A SPECIFIC":3:"HEADING."::3:" TO CHOOSE THE HEADING, MOVE UP":3:"AND DOWN THE HEADINGS WITH THE"h!ON OF TAX HEADINGS. AND FOR":3:"VIEWING OF TAX DEDUCTIONS UNDER":3:"THOSE USER DEFINED HEADINGS."7 luIN1ĺ:3:" THE MAXIMUM NUMBER OF TAX":3:"HEADINGS IS 20. AFTER A HEADING HAS":3:"BEEN ADDED, IT CAN NOT BE DELETED."::3:" TO TAKE A PART ***":"***************************************"DuPO421:"* *":PO:"***************************************"Nu" TO CONTINUE";Xu3:5ebuIN1ĺ" YOU ARE NOW IN THE OPTION FOR":3:"CREATIQ$".00"VQQ$"$"QQ$V["V ------------------------------------------------------0u60,0:61,3:62,0:63,8:64,0:65,149:66,0:67,144:468:786,(36):787,(37)6:u:"***************************************":"*** HELP SCREEN ..PRESS ANY KEY";:N$::20209]N:6:14:"INSERT PROGRAM DISK":8:" TO CONTINUE"UQQ(QQ100.5)100:QQ$(QQ)U(QQ$)322008U(QQ$,(QQ$)2,1)"."22030U(QQ$)222020U(QQ$,(QQ$)1,1)"."QQ$QQ$"0":22030VQQ$Q"PLEASE INSERT PROGRAM DISK"::"PRESS TO CONTINUE"{N:4:"PRESS ANY OTHER KEY TO RETURN TO":6:"TAXES MENU";NN$:NN$(13)Ĺ216,0:40N:D$;"RUN MAIN MENU"N:(7);"THIS IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK.ZL1Ģ13:8:ZL0:20040*NN$"4"20209:N RANGCHECKQNLN%1LN%620185kN:LN%2200,2000,3000tNZL0ND$;"PR#0":LN%4:20000N:D$;"CLOSE":20221NGD2Ģ2:3:" ...LOADING MAIN MODULE... ":D$;"RUN MAIN MENU,D1"<N:10:TION HEADINGS":13:8HN" 4. MAIN MENU"::8:" 5. PRINTOUT YOUR CHOICE"::8:" 6. HELP":ZL1Ģ15:12::"PRINTOUT YOUR CHOICE":N19:8:"< >"N19:9:N$:LN%(N$)NN$"6"LN1:30000:20000NN$"5"ZL0Ģ13:8:ZL1:20040NN$"5"23:" ";:40:" ";:XT"N2039,32:" ";:2:z%ND$:IN1:2:9:"TAX INFORMATION"4N5:4:"PRESS NUMBER OF CHOICE"::89N" 1. SUMMARY BY HEADING"::8>N" 2. DETAIL FOR HEADING"::8CN" 3. CREATE DEDUCREAD T":TQCtJX1TQ:TC$(X):X:D$;"CLOSE T":D$;"OPEN TAX,L60"SJ1000::D$eKLN%4:40000 N:"ONE MOMENT PLEASE..":A(0):::" ";:" ";:40:" ";:" ";!NX4:" CHECKING ACCOUNTS:":L ZM0ĺ"NO CHECKING ACCOUNTS ON FILE":3070X X1ZM D$;"READ TRANS,R";(ZM$(X,2)):M,B,BB,RT,BA,NR,LA,L1 BBBRTB(X):QQB:22000 36,T1:ZM$(X,1); YT1(ZM$(X,1))T3(QQ$):".";:Y:QQ$::X* ZLY TO CONTINUE";:N$:/*YLCY0LY:20307/D$[4ZL0ĺ"ANY KEY TO MENU";:N$:l9ZL1ĺ(12)r> :ZL1ĺD$;"PR#1":(9);"80N":(12) T39:T336:T16:ZL1T79:T120:T362 :36,2T14:"ACCOUNT BALANCES:":X1T:"=";:X::A(0):B$"YES":(CN$,1)"Y"B$"NO"c36,T1:(CN$,2,(CN$)2);:36,T2:M;"/";D;:36,T3:B$;A(0):B$(A$(AI),17):ZL0B$(A$(AI),12) 36,T4((B$)2):B$;:QQTA:2200036,T58(QQ$):QQ$::JJ1 (J9)(ZL0)ĺD$:J0:"ANY KE0:D$;"PR#1":(9);"80N":(12)x36,T1:"NO.";:36,T2:"DATE";:36,T3:"CLRD";:36,T45:"ACCOUNT";:36,T5:"AMOUNT"36,T1:XT1T6:"=";:X::ZL0Ĺ34,3D$;"READ TRANS,R";L:D,M,Y,TA,TT,CC,CN$,L1((CN$,1))I2090AI(CC10)'7K$"Y"(K$,2,6)jD$;"WRITE TRANS,R";CL%(X):K1;",";K2;",";K3;",";K4;",";K5;",";K6;",";K$;",";K7qXU(I)U(I)RD:B(I)B(I)GG:LN2:45000::LFC:J0T11:T26:T313:T425:T531:T639:ZL1T18:T220:T330:T448:T562:T67S" 22000:19:1:"BOOK SHOWS ";QQ$;L$;" DEPOSITS"mD$:"R)ECORD STATEMENT OR N)O ACTION";:IN6N$:N$"?"N$"N"N$"R"1185N$"?"İ30000:1185:N$"N"ĉ:X1TCD$;"READ TRANS,R";CL%(X):K1,K2,K3,K4,K5,K6,K$,KB(I)4o(CBBW).01Ģ16:1:"BOOKS BALANCE":1163YtCBBWQQBWCB:22000:B$"YOUR"~BWCBQQCBBW:22000:B$"BANK'S"16:1:"ACCOUNT DOES NOT BALANCE BY ";QQ$:" IN ";B$;" FAVOR.":QQUD:L$" UNRECORDED":UD0QQ1QQ:L$" EXCES:9:18:"______":1080E13:25:LG6:VT13:IN5:HT25:23000:RDTB:HT1RD0:SC0:13:25:"_________":11:28:"______":1090FD$;"READ TRANS,R";(ZM$(I,2)):D,M,Y,RT,BA,NR,LA,L1GUDRT(U(I)RD)IGGSCPCT%LBWBBUDUCjCBYRTGGAC%(I,R,1)RR1:1050#)22:D$-.1020Z89:18:VT9:HT18:IN3:LG3:23000:PCTB=HT1āX122:2X:36:" ";:X:TC0:T%0:9:18:"______":PC0:R0:1020B11:28:VT11:HT28:IN4:LG3:23000:SCTBCHT1SC0:PC0:11:28:"______"40N$"?"İ30000:10404V%3T%:V%22V%24N$"Y"TCTC1:CL%(TC)AC%(I,R,2):AC%(I,R1,1)AC%(I,R,1)T%T%1:33,4:32,36:V%:AC%(I,R,1);:N$"N"ĺD$;"READ TRANS,R";AC%(I,R,2):D,M,Y,TA,TT,CC,CN$,L:UCUCTA:22:D$$AC%(I,R1,1)3000:BBTB:HT1ī10003RR1:RAC%(I,0,1)1080D22:D$:IN2|7:13:"____";(7);:13:AC%(I,R,1);:26:N$:22:N$(1)BB0:7:13:"____":5:19:"_______":X122:2X:36:" ";:X:TC0:R0:T%0:1017N$"N"N$"Y"N$"?"10$","Y1%Y1%1:Y1%0Y1%10A_N$"."Y1%Y1%1:Y1%11Y1%1u_"Y1%1:19X1%3::(A$(MINY1%X1%10),17);:_'15:9_,45030_PN(N$):13:37::PN::MIN(PN1)20:X110:X1:2:" ":X4`ƱX110:D CC3TLDĺD$;"WRITE TAX,R0":X;",";FC;",";LC;",";FD;",";CL:D D$;"WRITE TRANS,R";CL:K1;",";K2;",";YE;",";K4;",";K5;",";K6;",";K$;",";K7D L,R0":X;",";FC;",";LC;",";0;",";02C CC3FDTıXC F0:CLCL1:Y1QD:CLAN(Y)F1iC Y:F13260C D$;"READ TRANS,R";CL:K1,K2,K3,K4,K5,K6,K$,K7:K9K610(K610):K9CC3260C CC2TLCĺD$;"WRITE TAX,R0":X;",";FC;",";CL;",";FD;",";LD:ATC$(X);::2:31(,45030X( ------------------------------------------------------TC$(X);'ܯX1:450401'毾N$:N$(13)ĺ:IX:n'篲 ------------------------------------------------------'语N$"?"İ30000:45030'믭N$","N$"."45030'4X:8:TC$(X);'N$","XX1:X0XTQ'N$"."XX1:XTQX1(4X:8:: TRANS,R0":L,YE!'200:50000':"ONE MOMENT PLEASE..":A(0):D$::CZ0::" ";:" ";:40:" ";:" ";$'X422:" ";:40:" ";:X:" TO RETURN TO":"CREDIT ACCOUNTS MENU";WZ#N$:N$(13)ĺ:D$;"OPEN TRANS,L43":10010cd#:9600%:"THIS IS NOT A GOOD PROGRAM DISK"::"INSERT PROGRAM DISK...PRESS ANY KEY";:N$::9000%D$;"RUN MAIN MENU,D1"'D$;"OPEN TRANS,L43":D$;"READ0002 :D$;"CLOSE TRANS":D$;"OPEN TRANS,L43":M(#:D$;"CLOSE":770,243X-#95002#GD2Ģ2:8:"...LOADING MAIN MODULE..."<#GD2ĺD$;"RUN MAIN MENU,D1"&F#:10:"INSERT PROGRAM DISK"::"PRESS TO CONTINUE"::"PRESS ANY OTHER KEY 00 D$;"READ TRANS,R";AN(A(I)):K1,K2,K3,K4,K5,K6,K7,K8:K3K3A:D$;"WRITE TRANS,R";AN(A(I)):K1;",";K2;",";K3;",";K4;",";K5;",";K6;",";K7;",";K8 CR(I)CR(I)A D$:22:2:"DO MORE OR RETURN (M/R):";:N$::N$"M"N$"R"3050 N$"M"ĺ:3OUNT";:36,T4:"ACCOUNT":A1T5:"=";:A:2aXefCZ0ĺD$:"PRESS ANY KEY FOR MENU";:N$:::zpCZ1ĺD$;"PR#1"u: IN4:XZ0:45000:XZ1ı IN3 20:1:"AMOUNT CREDIT CHARGE=>______";:HT23:VT20:23000:ATB HT1A0::30(T$,8)`R36,T1:CN$;:36,T2:D;"/";M;"/";YE;:36,T32:A19(QQ$):" ";:A:QQ$;:36,T4:T$WCZ0ĭX9(X9)ĺ"PRESS ANY KEY TO CONTINUE";:N$:\CZ1ĭX30(X30)ĺ(12)+^CZ1X30(X30)Ĺ36,T1:"RECEIPT#";:36,T2:"DATE";:36,T3:"AMO TRANSACTIONS IN THIS CREDIT ACCOUNT":X11000:X:2150K>X1CK%(I,0)HD$;"READ TRANS,R";CK%(I,X):D,M,Y,TA,TT,CC,CN$,L1J(CN$)3CN$CN$" "MQQTA:22000:CN$(CN$,(CN$)1)OT$(A$((CC10)),(A$((CC10)))1):CZ0ĭ(T$)8T$:LT11:T212:T322:T432:T540:CZ1T18:T227:T347:T466:T580UIN2` 45000f*},:CZ1ĺD$;"PR#1"/36,T1:"RECEIPT#";:36,T2:"DATE";:36,T3:"AMOUNT";:36,T4:"ACCOUNT":X1T5:"=";:X:1CZ0Ĺ34,392CK%(I,0)0ĺ"NDIT BALANCES":X1T4:"=";:X:,EC0ı8I1ECK36,T1:C$(I);_QQCR(I):22000X(C$(I))T1T210(QQ$):".";:X:QQ$$:C%C%2:C%18CZ0C%0:"PRESS ANY KEY TO CONTINUE";:N$:LICZ0ĺ"PRESS ANY KEY FOR MENU";:N$%(X,0))L" @YLDY0LY:240* EX15 JI1CA ^EC0ıR hX1EC:Y18s rYY1:(CR$(X),Y,1)" "370 |C$(X)(CR$(X),Y):X: C%0::T16:T222:T38:T439:CZ1T118:T240:T332:T479 CZ1ĺD$;"PR#1" :36,T3:"SUMMARY OF CRE":X1900:X::9000 LFD^ L0ė:"NO CREDIT TRANSACTIONS ON FILE":X1900:X::325w D$;"READ TRANS,R";L D,M,Y,TA,TT,CC,CN$,L1 (CN$)3CN$CN$" " X((CN$,1)) ,CK%(X,0)CK%(X,0)1:CK%(X,0)100CK%(X,0)100 6CK%(X,CK";:N$::40 I1C (A$(I),1)"C"ĺD$;"READ TRANS,R";AN(I):D,M,Y,RT,BA,NR,LL,L1:ECEC1:CR(EC)YRT:A(EC)I:CR$(EC)(A$(I),17) I D$;"OPEN TAX,L60":D$;"READ TAX,R0":X,FC,LC,FD,LD:D$;"CLOSE TAX" EC0ĺ"NO CREDIT ACCOUNTS ON FILEING SYSTEM INFORMATION..."::" PLEASE BE PATIENT."d 7:D$;"OPEN MSTR,D";U2:D$;"READ MSTR":C <216,0:X1C:A$(X),AN(X):A$(X)(A$(X),18):X:D$;"CLOSE MSTR":10000 d:(7);"THIS IS NOT A GOOD DATA DISK"::"INSERT DATA DISK...PRESS ANY KEY0),CR$(20),AM(20),CK%(20,100),A$(80),AN(80)B GD(780):770,243V GD1U11:U21j #GD2U11:U22t (100 -GD1ė:12:6:"PLEASE INSERT DATA DISK"::6:"PRESS TO CONTINUE"; 2GD1ľN$:N$(13)Ĺ216,0:456 4:10:" ...READ0E -------------------------------------------------------------_ PROGRAM NAME=CREDIT ----------------------------------------------------------:::216,0 V0.2 REVISED: 6/25/84 3:43 AM D$(4)+ A(20),CR(20),C$(2"" " " " " """""""""