PCjs Machines
Home of the original IBM PC emulator for browsers.
PC-SIG Diskette Library (Disk #179)
[PCjs Machine "ibm5150"]
Waiting for machine "ibm5150" to load....
Information about “PIZZA & CHECK”
This is a multi-purpose check register accounting system, written for
individuals and small businesses that can use a check register for
thier accounting. The program writes and prints checks that have been
addressed for use with window envelopes. The standard check register
can be printed with a running balance, a memo report, and an account
distribution summary. A significant feature of this program is the
budget analysis and average month report. This report shows how much
was expended, the amount budgeted, and computes an average monthly
amount for each account. The other programs on this disk are for
preparing pizzas, recipes for dough and various toppings.
Features:
~ Transaction entries
~ Reconcile checkbook
~ Run alternate accounts
~ Begin new year
~ Report Menu
~ File maintenance menu
~ Pizza recipes!
System Requirements: Some programs require color, BASIC
How to Start: At the DOS prompt, enter TYPE MA.DOC <ENTER>. This
provides the user with setup and operating instructions.
Suggested Registration: $35.00
File Descriptions:
MACOPY BAT Batch file to copy MA files
MA DOC Documentation for MA.BAS
MA BAS Micro Accounting check register system
PIZZA EXE Pizza recipes - main program
MADOC BAT Batch file to print MA.DOC
SCR* DOC Data for PIZZA.EXE
CRC.TXT
PC-SIG Disk No. #179, version v1
The following is a list of the file checksums which should be produced by
the CRCK4 program on disk #9 (and others). If the CRC numbers do not match
you may have a bad file. To use type: CRCK4 <filespec>
CRCK4 output for this disk:
CRCK ver 4.2B (MS DOS VERSION )
CTL-S pauses, CTL-C aborts
--> FILE: SCR3 .DOC CRC = 4D 3F
--> FILE: PIZZA .EXE CRC = 81 24
--> FILE: SCR2 .DOC CRC = F8 A9
--> FILE: SCR4 .DOC CRC = 18 12
--> FILE: SCR5 .DOC CRC = 0C 1A
--> FILE: SCR6 .DOC CRC = 52 79
--> FILE: SCR7 .DOC CRC = 57 CB
--> FILE: SCR10 .DOC CRC = 0D 44
--> FILE: SCR12 .DOC CRC = 78 88
--> FILE: SCR8 .DOC CRC = 03 C2
--> FILE: SCR9 .DOC CRC = 13 B3
--> FILE: SCR11 .DOC CRC = 7A A9
--> FILE: SCR13 .DOC CRC = 79 F8
--> FILE: SCR14 .DOC CRC = 62 DC
--> FILE: SCR15 .DOC CRC = 94 E6
--> FILE: SCR16 .DOC CRC = FF BE
--> FILE: SCR17 .DOC CRC = 1C 6C
--> FILE: SCR18 .DOC CRC = 12 5C
--> FILE: SCR19 .DOC CRC = C0 AF
--> FILE: SCR20 .DOC CRC = A8 8B
--> FILE: SCR21 .DOC CRC = 78 CC
--> FILE: SCR22 .DOC CRC = C8 74
--> FILE: SCR23 .DOC CRC = 9A EB
--> FILE: SCR24 .DOC CRC = BF 09
--> FILE: SCR25 .DOC CRC = FD 3A
--> FILE: SCR26 .DOC CRC = FD 8D
--> FILE: SCR27 .DOC CRC = EF 44
--> FILE: MA .BAS CRC = 05 21
--> FILE: MA .DOC CRC = F7 B8
--> FILE: XXX . CRC = 9A C7
--> FILE: MACOPY .BAT CRC = E5 3F
--> FILE: MADOC .BAT CRC = 9A 6F
--> FILE: XXX .BAK CRC = 4D 7E
---------------------> SUM OF CRCS = A0 EB
DONE
These and other Public Domain and user-supported programs from:
PC Software Interest Group
1125 Stewart Ct Suite G
Sunnyvale, CA 94086
(408) 730-9291
MA.BAS
2 KEYOFF:FORX%=1 TO10:KEYX%,"":NEXT:GOTO10
10 GOSUB50020:CLS:COLOR7,0:DEFINTA-Z:DEFSTRF
11 DIMC$,A$,A$(200),B.COD$(30),T.COD$(200),FH(50),BAL$(13),CLR$(13),TRX$(13),MO$(12),PN$(9,2),TB#(200),TOP(50),I(3),F(50),BA$(13),CL$(12),TR$(12)
15 DEFFNCN$(A$,A)=STRING$((A-LEN(A$))/2-0.5," ")+A$
20 T=29:TOP=1:BOT=21:LFT=18:RT=LFT+26:CLS:LOCATETOP+2,1:PRINT FNCN$("** M I C R O A C C O U N T I N G **",80):PRINT:PRINT:PRINT
30 PRINT FNCN$("=== User-Supported Software ===",80):PRINT:PRINT FNCN$("If you have received this program",80):PRINT FNCN$("and find it of use,",80):PRINT FNCN$("your contribution will be appreciated",80):PRINT FNCN$("( $35.00 suggested )",80):PRINT
31 PRINT FNCN$("Donald R. Ramsey",80):PRINT FNCN$("727 Bunker Hill #70",80):PRINT FNCN$("Houston, Texas 77024",80):PRINT:PRINT FNCN$("You are encouraged to",80):PRINT FNCN$("Copy and Distribute this Program.",80)
32 PRINT:X=CSRLIN:COLOR15,0:PRINT FNCN$("PRESS <ENTER>",80):COLOR7,0:GOSUB49700:GOSUB150
50 CLS:GOSUB49000
100 FL1="S":T=29:TOP=1:BOT=20:LFT=19:RT=LFT+25:CLS:LOCATETOP+2,1:PRINT FNCN$("** M A I N M E N U **",80):PRINT:PRINT:PRINT
101 PRINT TAB(T)"<T> Transaction Entry":PRINT
104 PRINT TAB(T)"<2> Reconcile Checkbook
105 PRINT TAB(T)"<3> Run Alternate System
106 PRINT TAB(T)"<4> Begin New Year
107 PRINT TAB(T)"<5> End Program":PRINT
108 PRINT TAB(T)"<R> Report MENU
109 PRINT TAB(T)"<F> File Maintenance MENU":PRINT
110 PRINT TAB(T)"<D> Print Program Documentation
112 PRINT:X=CSRLIN:LOCATEX,LFT+5:COLOR15,0:PRINT" PRESS THE NUMBER OF YOUR SELECTION ":COLOR7,0
115 GOSUB49700:GOSUB50040
116 IFN.BACC=0 THENLOCATE22,1:COLOR15,0:PRINT FNCN$("The System is not initialized... Use OPTION <F>, <3>, or <4> of this Menu",80)
130 GOSUB150:ONINSTR("T2345RFD",A$)GOTO1000,15000,140,25000,900,5000,20000,400:BEEP:GOTO130
140 CLS:COLOR7,0:Y$=YEAR$:GOSUB49030:CLOSE:GOTO100
150 A$=INKEY$:IFA$=""THEN150 ELSERETURN
300 INPUTA$:IFINSTR("YNyn",A$)=0 THEN300 ELSEIFA$="Y"ORA$="y"THENA$="Y" ELSEA$="N
301 RETURN
310 A1=1:GOSUB50100:IFA$=CHR$(250)THEN311 ELSEIFINSTR("ynYN",AN$)=0 THENBEEP:GOTO310
311 RETURN
400 CLS:LOCATE10,1:PRINT FNCN$("To print Program Documentation, return to DOS by the MAIN MENU End Program",80):PRINT:PRINT FNCN$("then type MADOC.BAT and press <ENTER>",80):PRINT:PRINT:PRINT:PRINT FNCN$("Press <ENTER> to continue...",80)
401 GOSUB150:GOTO100
500 GOSUB800:PRINT"Press <ENTER> to continue, <E> to exit, or":PRINT" <C> to make changes...";:GOSUB150:IFINSTR("CE"+CHR$(13),A$)=0 THEN500 ELSERETURN
800 COLOR7,0:LOCATE23,1:PRINT STRING$(60," ");:LOCATE24,1:PRINT STRING$(79," ");:LOCATE23,1:RETURN
810 LOCATE13,1:FORF%=0 TO7:PRINTC$;:NEXT:RETURN
820 LOCATE9,1:FORF%=0 TO8:PRINTC$;:NEXT:RETURN
830 LOCATE6,1:FORF%=0 TO15:PRINTC$;:NEXT:RETURN
860 LOCATE18,1:FORF%=0 TO3:PRINTC$;:NEXT:RETURN
900 CLS:LOCATE11,1:PRINT FNCN$("*** This Progam is about to END ***",80):COLOR15:PRINT:PRINT FNCN$("VERIFY O/K ( Y/N )",80);:GOSUB300:COLOR7:IFA$="N"THEN100 ELSECLS:CLOSE:SYSTEM
1000 IFN.BACC=0 ORN.TACC=0 THENCLS:LOCATE12,1:PRINT FNCN$("Either no Bank Accounts or no Budget Accounts have been assigned.",80):PRINT FNCN$("Please do this in File Maintenance",80):PRINT:BEEP:PRINT FNCN$("Press <ENTER>",80):GOSUB150:GOTO100
1010 ONERRORGOTO58000:Y$=YEAR$:RP$="":APMT$="":SW=0:XFER$="
1100 CLS:H$="TRANSACTION MENU":GOSUB40000
1110 T=25:LOCATE8,1:PRINT TAB(T)"<1> Automatic Payments
1120 PRINT TAB(T)"<2> Individual Entries
1130 PRINT TAB(T)"<3> Print Checks":PRINT
1132 PRINT TAB(T)"<R> Report Menu
1134 PRINT TAB(T)"<F> File Maintenance Menu
1136 PRINT TAB(T)"<M> Main Menu
1140 GOSUB50040:GOSUB150:ONINSTR("123",A$)GOTO2000,3000,10000
1200 CLOSE:ONINSTR("RFM",A$)GOTO5000,20000,100:BEEP:GOTO1140
2000 GOSUB2900:C=1:FL%=1:CK.DATE$=DAT$:GOSUB40600
2010 SW=4:RP$="":APMT$="":GOSUB40401:IFA$=CHR$(250)THEN2200
2020 PF=1:GOSUB57300:PF=2:GOSUB57000:PF=3:GOSUB57200:PF=4:GOSUB57100
2030 GOSUB2950:CO=0
2100 FORX=1 TON.APMT
2110 CO=CO+1:GET1,X:GOSUB2800
2120 IFCO=11 THENCO=0:GOSUB2300:IFA$="N"THENCLS:GOSUB2900:GOSUB2950 ELSEIFA$="E"THEN2200
2130 NEXT
2150 GOSUB2300
2200 CLOSE:GOTO1000
2300 GOSUB860:GOSUB800:PRINT"Press <P> to Pay a bill, <N> for Next page":PRINT" <E> to Exit...";:GOSUB150:GOSUB800:ONINSTR("PNE",A$)GOTO2310,2490,2490:BEEP:GOTO2300
2310 LOCATE19,1:PRINT"Pay Record #:":R=19:C=15:A1=3:GOSUB50400:RN=VAL(AN$):IFRN>N.APMTTHENBEEP:GOSUB800:PRINT"Record # too high... Press <ENTER>":GOSUB150:GOTO2310
2320 IFA$=CHR$(250)THEN2480
2330 PF=1:GOSUB57310:GET1,RN:LOCATE18,1:PRINT"Pay to: ";FH(31):PRINT"Amount: ";USINGP6$;CVD(FH(32));:PRINT TAB(25)"Pay from: "FH(30)
2340 LOCATE18,60:PRINT"1. Pay As Is";:LOCATE19,60:PRINT"2. Change Amount";:LOCATE20,60:PRINT"3. Change Bank";:LOCATE21,60:PRINT"4. Skip this Item";
2350 COLOR0,7:LOCATE18,50:PRINT" Select ":COLOR7,0:SOUND600,1.5
2360 GOSUB50040:GOSUB150:LOCATE18,50:PRINT" ":ONINSTR("1234",A$)GOTO2400,2500,2600,2300:BEEP:GOTO2350
2400 CK$=FH(30):GOSUB40100:GET4,R.NO:N.BA=R.NO
2401 LOCATE20,1:PRINT"Date : ":R=20:C=11:AF$=F2(1):GOSUB50300:IFA$=CHR$(250)THEN2330 ELSEIFDE$=CHR$(255)THENLOCATER,C:PRINTCK.DATE$; ELSECK.DATE$=FND2$(AN$):T1=VAL(LEFT$(CK.DATE$,2)):GOSUB40490:GOSUB40495:IFFE="X"THENBEEP:GOTO2400
2405 CD$=FH(30):N=2:GOSUB3760:LOCATE23,1:PRINT"Next available Check No.: ";CK.NO+1;
2410 LOCATE21,1:PRINT"Check # : ":R=21:C=11:A1=5:GOSUB50400:IFDE$=CHR$(255)THENCK.NO=CK.NO+1:LOCATER,C:PRINT USINGP3$;CK.NO ELSEIFA$=CHR$(250)THEN2400 ELSECK.NO=VAL(AN$)
2420 GOSUB800:LOCATE21,25:PRINT"Print Check (Y/N)? ";:R=21:C=45:GOSUB310:IFA$=CHR$(250)THEN2410 ELSEIFAN$="Y"THENGOSUB2700
2425 PF=2:GOSUB57010
2430 LSETFH(1)="C":LSETFH(2)=LEFT$(CK.DATE$,2)+MID$(CK.DATE$,4,2):LSETFH(3)=RIGHT$(STR$(CK.NO),5):LSETFH(4)=FH(31):LSETFH(5)=FH(32):LSETFH(6)=FH(33):LSETFH(7)="":LSETFH(8)=FH(30)
2431 LSETFAC(1)=FH(34):LSETFTX(1)=FH(35):LSETFAM(1)=FH(32):LSETFAC(2)="****
2450 GET4,N.BA:T#=CVD(FH(32)):LSETBAL$(13)=MKD$(CVD(BAL$(13))-T#):FORY=MOTO12:LSETBAL$(Y)=MKD$(CVD(BAL$(Y))-T#):NEXT:LSETCLR$(MO)="N":LSETTRX$(MO)="Y":LSETCK.N$=MKS$(CK.NO)
2460 CK$=FH(34):GOSUB40200:GET3,R.NO:LSETFH(23)=MKD$(CVD(FH(23))+T#)
2470 N.TRX=N.TRX+1:PUT2,N.TRX:PUT3,R.NO:PUT4,N.BA
2480 GOSUB860:GOTO2300
2490 RETURN
2500 R=19:C=10:A1=10:GOSUB50200:FH(32)=MKD$(VAL(AN$)):LOCATER,C:PRINT" ";USINGP6$;CVD(FH(32));:GOTO2350
2600 R=19:C=36:A1=4:GOSUB50100:CK$=AN$:GOSUB40100:IFCODE$<>"V"THENBEEP:GOTO2600 ELSEFH(30)=AN$:GOTO2350
2700 IFFL%=1 THENGOSUB800:COLOR23:PRINT"Insure ";:COLOR7:PRINT"Printer is on and":PRINT"Check forms are properly positioned then Press <ENTER>...";:GOSUB150:FL%=0:GOSUB800
2710 FH(4)=FH(31):FH(5)=FH(32):FH(6)=FH(33):XX=N.TRX:GOSUB10500:GOSUB10300:RETURN
2800 IFFH(39)<>"D"THENC=C+1:PRINT" ";USING"###";X;:PRINT TAB(12)FH(30);TAB(19)FH(31);TAB(59)FH(34);TAB(67)USINGP1$;CVD(FH(32)):RETURN ELSERETURN
2900 CLS:H$="** AUTOMATIC PAYMENTS **":GOSUB40000
2910 LOCATE3,1:PRINT" Record Pay";TAB(58)"Budget":PRINT" Number From Pay To";TAB(59)"Code";TAB(74)"Amount":PRINTSG$:RETURN
2950 LOCATE17,1:PRINTSG$:LOCATE6,1:CO=1:RETURN
3000 CLS:TOP=1:BOT=11:LFT=2:RT=77:GOSUB49700:GOSUB40600
3010 GOSUB40400:IFA$=CHR$(250)THEN3800
3040 PF=2:GOSUB57100:GET2,R.NO:GOSUB800
3045 BANK$=FH(11):A.NAME$=FH(12):T.BAL#=CVD(BAL$(13)):N.BA=R.NO
3050 PF=1:GOSUB57000:N=2:GOSUB3700
3065 PF=3:GOSUB57200
3070 LSETFH(7)=" ":LSETFH(8)=CD$
3100 GOSUB3900
3105 LOCATE16,47:COLOR23,0:PRINT"_";:COLOR7:GOSUB150:LSETFH(1)=A$:IFINSTR("CDM",A$)=0 THEN3105 ELSEIFFH(1)="M"THEN3800 ELSEGOSUB810:IFFH(1)="D"THENLOCATE7,53:PRINT"DEPOSIT
3110 FX="N00020202":GOSUB52000:IFA$=CHR$(250)THENCLS:GOTO3100
3115 FX="N00030603":IFA$=CHR$(250)THEN3110 ELSEIFFH(1)="D"THENLSETFH(3)=" DEP":FX="N00040604
3120 GOSUB52000:A.BAL#=CVD(FH(5)):IFA$=CHR$(250)THEN3115
3125 LOCATE13,1:PRINT" Budget Account Assignment:":PRINT TAB(10)"Budget Code";TAB(28)"Tax Code";TAB(47)"Amount";TAB(63)"Amount Remaining";
3130 FX="N04010901
3140 GOSUB52000:IFA$=CHR$(250)THENFX="N00020606":GOTO3120 ELSEIFFE="E"THEN3190
3150 FX="N05010901":GOSUB52000:IFA$=CHR$(250)THENFX="N04010909":GOTO3140
3190 GOSUB500:IFA$="E"THENGOSUB3500:GOTO3800 ELSEIFA$=CHR$(13)THENGOSUB3500:CLS:FL="":NF=1:GOTO3100
3200 FL="C":FORR=15 TO20:LOCATER,63:PRINT STRING$(14," ");:NEXT:FX="C00020202":GOSUB52000:IFA$=CHR$(250)ORA$="E"THEN3250
3205 FX="C00030603":IFFH(1)="D"THENFX="C00040604":IFA$=CHR$(250)THEN3200
3210 GOSUB52000:IFA$=CHR$(250)THEN3205 ELSEIFA$="E"THEN3250
3220 FX="C04010901
3230 GOSUB52000:IFA$=CHR$(250)THENFX="C00030606":GOTO3210 ELSEIFA$="E"THEN3250
3240 FX="C05010901":GOSUB52000:IFA$=CHR$(250)THENFX="C04010909":GOTO3230
3250 FL="":GOTO3190
3500 N.TRX=N.TRX+1:GOSUB40300:T.BAL#=T.BAL#+T#
3510 LSETBAL$(13)=MKD$(T.BAL#):LSETCLR$(MO)="N":LSETTRX$(MO)="Y
3520 FORY=MOTO12
3530 LSETBAL$(Y)=MKD$(CVD(BAL$(Y))+T#)
3540 NEXT:LSETCK.N$=MKS$(CK.NO)
3550 PUT1,N.TRX:PUT2,N.BA
3560 FORY=1 TO6:IFFAC(Y)="****"THEN3620
3580 CK$=FAC(Y):GOSUB40200:GET3,R.NO
3590 LSETFH(23)=MKD$(CVD(FH(23))+CVD(FAM(Y)))
3600 PUT3,R.NO
3610 NEXTY
3620 RETURN
3700 LOCATE15,1:PRINT FNCN$("Standby... Reading files",80):NF=0
3705 FORZ=N.TRXTO1 STEP-1
3710 GETPF,Z:IFFH(8)<>FNAB$(CD$)THEN3750
3730 LSETFH(2)=FH(2):LSETFH(5)=FH(5):Z=0:NF=1
3750 NEXTZ
3760 ONERRORGOTO3770:GETN,N.BA:CK.NO=CVS(CK.N$):RETURN
3770 ONERRORGOTO58000:RESUMENEXT
3800 CLOSE:GOTO1000
3900 GOSUB49700:GOSUB810:LOCATE2,3:COLOR15:PRINT FNCN$(FNSS$(BANK$)+": "+MO$(MO)+" 19"+RIGHT$(DAT$,2),76):COLOR7:LOCATE4,5:PRINTA.NAME$;:GOSUB3950
3905 LOCATE21,3:PRINTSG$;:LOCATE7,5:PRINT"Date :";TAB(53)"Check No.:":LOCATE9,5:PRINT"Payee/Payor:";TAB(53)"Amount :":LOCATE11,5:PRINT"Memo :
3907 T=25:LOCATE14,1:PRINT TAB(T-5)"PRESS:":PRINT TAB(T)"<C> for a Check":PRINT TAB(T)"<D> for a Deposit":PRINT TAB(T)"<M> for the MENU
3910 T.DAT$=LEFT$(DAT$,2)+MID$(DAT$,4,2):IFNF=1 THENT.DAT$=FH(2):LOCATE21,1:PRINT"Last Transaction: Date ";FND1$(FH(2));" Check No. ";:IFFH(1)="D"THENPRINT"DEPOSIT"; ELSEIFP$="P"THENPRINT"PR CK"; ELSEPRINTFH(3);
3920 IFNF=1 THENPRINT" Amount ";USINGP1$;CVD(FH(5));:RETURN ELSERETURN
3950 IFT.BAL#=<0 THENCOLOR23,0:BEEP
3960 PRINT TAB(58)USINGP6$;T.BAL#:IFT.BAL#>0 THEN3970 ELSEDELAY=2:GOSUB50800:COLOR7,0:LOCATE4,58:PRINT USINGP6$;T.BAL#;
3970 COLOR7:RETURN
5000 CLS:H$="** R E P O R T M E N U **":GOSUB40000:RP$="":MENU$="
5010 T=18:LOCATE6,1:PRINT TAB(T)"<1> List Transaction Register":PRINT TAB(T)"<2> Budget Analysis and Average Month":PRINT TAB(T)"<3> Memo Report":PRINT TAB(T)"<4> Bank Account Summary":PRINT:PRINT TAB(T)"<5> Account Distribution Report (printer only)
5011 PRINT TAB(T)"<6> Selected Account Detail (printer only)":PRINT TAB(T)"<7> Selected Tax Code Detail (printer only)":PRINT
5020 PRINT TAB(T)"<T> Transaction Entry":PRINT TAB(T)"<F> File Maintenance MENU":PRINT TAB(T)"<M> Main MENU":GOSUB50040
5030 PG=1:GOSUB150:ONINSTR("1234567",A$)GOTO5500,6000,6500,8500,7000,7500,8000
5100 CLOSE:ONINSTR("TFM",A$)GOTO1000,20000,100:BEEP:GOTO5030
5500 CLS:H$="** TRANSACTION REGISTER **":GOSUB40000
5510 SW=1:GOSUB40390:IFA$=CHR$(250)THEN5650
5520 PF=1:GOSUB57000
5525 IFN.TRX=0 THENGOSUB40500:IFSKIP$="S"THEN5650 ELSE5520
5530 PF=2:GOSUB57100
5540 IFN.TRX=0 THENGOSUB40500:GOTO5500
5560 GET2,R.NO:GOSUB41100
5570 IFMO=1 THENP.BAL#=CVD(FH(14)) ELSEP.BAL#=CVD(BAL$(MO-1))
5580 CK$=FNAB$(CD$):TB#(1)=P.BAL#
5590 IFRP$="P"THEN5700
5600 RN=1:TOP(1)=1:N.REC=N.TRX:PF=1:GOSUB45000
5605 IFA$="E"THEN5650
5610 GOSUB45900:IFA$="L"THENGOSUB9500:GOSUB45005:GOTO5605
5650 CLOSE:GOTO5000
5700 GOSUB41000
5730 PF=1:N.REC=N.TRX:GOSUB46000
5740 GOSUB5790
5750 GOTO8900
5790 LPRINTSE$;:LPRINT" T O T A L S";TAB(44)USINGP2$;T.CRED#;:LPRINTTAB(68)USINGP2$;P.BAL#:LPRINTTAB(55)USINGP2$;ABS(T.DEB#):RETURN
6000 CLS:H$="** BUDGET ANALYSIS & AVERAGE MONTH **":GOSUB40000
6010 SW=2:GOSUB40390:IFA$=CHR$(250)THEN6150
6020 PF=1:GOSUB57000
6030 PF=2:GOSUB57200
6060 GOSUB41200
6070 GOSUB6400
6080 LOCATE12,1:PRINT FNCN$("S O R T I N G",80)
6085 Y=N.TACC:FORX=1 TOY:A$(X)=T.COD$(X):NEXT:GOSUB53000:GOSUB820:LOCATE6,1
6100 C=1:CO=1:PG=1:IFRP$="P"THENGOSUB41000
6110 FORXX=1 TON.TACC
6120 CK$=A$(XX):GOSUB40200:GET2,R.NO
6125 IFFH(25)="D"ORCODE$<>"V"THEN6140
6130 IFRP$="P"THENGOSUB6200:GOTO6140
6135 GOSUB45200:IFCO>16 THENGOSUB6300:IFA$="E"THENXX=N.TACC
6140 NEXTXX:IFRP$="P"THEN8900
6145 IFA$<>"E"THENGOSUB6300
6150 CLOSE:GOTO5000
6200 GOSUB46200:IFXX=N.TACCTHENRETURN ELSEGOSUB48000:RETURN
6300 GOSUB800:PRINT"Press <ENTER> to continue":PRINT" <E> to Exit...";:GOSUB150:CO=1:IFINSTR("E"+CHR$(13),A$)=0 THENBEEP:GOTO6300 ELSEIFA$="E"ORXX>=N.TACCTHENRETURN ELSECLS:GOSUB41200:LOCATE6,1:RETURN
6400 LOCATE12,1:PRINT FNCN$("Standby... Reading Files",80)
6410 FORX=1 TON.TACC:TB#(X)=0#:NEXT
6420 FORXX=1 TON.TRX
6430 GET1,XX
6440 FORY=1 TO6:IFFAC(Y)="****"THEN6490
6460 CK$=FAC(Y):GOSUB40200
6470 TB#(R.NO)=TB#(R.NO)+CVD(FAM(Y))
6480 NEXTY
6490 NEXTXX:GOSUB820:RETURN
6500 CLS:H$="** MEMO REPORT **":GOSUB40000
6510 SW=3:GOSUB40390:IFA$=CHR$(250)THEN6650
6520 PF=1:GOSUB57000
6525 IFN.TRX=0 THENGOSUB40500:IFSKIP$="S"THEN6650 ELSE6520
6530 PF=2:GOSUB57100
6540 IFN.TRX=0 THENGOSUB40500:GOTO5500
6560 GET2,R.NO:GOSUB41300
6580 CK$=FNAB$(CD$)
6590 IFRP$="P"THEN6700
6600 RN=1:TOP(1)=1:N.REC=N.TRX:PF=1:GOSUB45000
6605 IFA$="E"THEN6650
6610 GOSUB45900:IFA$="L"THENGOSUB9500:GOSUB45005:GOTO6605
6650 CLOSE:GOTO5000
6700 GOSUB41000
6730 PF=1:N.REC=N.TRX:GOSUB46000
6750 GOTO8900
7000 H$="** ACCOUNT DISTRIBUTION REPORT **
7010 CLS:GOSUB40000:GOSUB9100:IFRP$<>"P"THEN7100
7020 SW=4:GOSUB40401:IFA$=CHR$(250)THEN7100
7030 PF=1:GOSUB57000
7040 IFN.TRX=0 THENGOSUB40500:IFSKIP$="S"THEN7100 ELSE7030
7090 GOTO7200
7100 CLOSE:GOTO5000
7200 GOSUB41000
7230 PF=1:N.REC=N.TRX:GOSUB46000
7250 GOTO8900
7500 H$="** SELECTED ACCOUNT SUMMARY **
7510 SW=5:GOTO8010
8000 SW=6:TC$="Y":CLS:H$="** SELECTED TAX CODE SUMMARY **
8010 CLS:GOSUB40000:GOSUB9100:IFRP$<>"P"THEN8100
8020 GOSUB40450:IFA$=CHR$(250)THEN8100
8030 CLS:GOSUB40000:T.AMT#=0#
8040 IFSW=5 THENPF=2:GOSUB57200:GET2,R.NO
8090 GOTO8200
8100 CLOSE:GOTO5000
8200 GOSUB41000:SW=5:CK$=LEFT$(CK$+" ",4)
8220 FORY=MO1TOMO2
8225 MO$=LEFT$(MO$(Y),3)
8230 PF=1:GOSUB57000:N.REC=N.TRX
8240 GOSUB46000
8250 NEXTY
8270 GOSUB8400
8290 TC$="":GOTO8900
8400 LPRINTSD$;:LPRINT" T O T A L";TAB(67)USINGP1$;T.AMT#:RETURN
8500 CLS:H$="** BANK ACCOUNT SUMMARY **":GOSUB40000
8510 SW=7:GOSUB40390:IFA$=CHR$(250)THEN8650
8520 CLS:GOSUB40000:PF=1:GOSUB57100:P.BAL#=0#:TB#(1)=0#
8590 IFRP$="P"THEN8700
8600 RN=1:TOP(1)=1:N.REC=N.BACC:GOSUB41700:GOSUB45000
8610 IFA$="E"THEN8650
8620 GOSUB8690:GOSUB45900:IFA$="L"THENGOSUB9500:GOSUB45005:GOTO8610
8650 CLOSE:GOTO5000
8690 PRINT"*** TOTAL ***";TAB(56)USINGP1$;P.BAL#:RETURN
8700 GOSUB41000:N.REC=N.BACC:PF=1:GOSUB46000:GOSUB8790:GOTO8900
8790 LPRINT"*** TOTAL ***";TAB(56)USINGP1$;T.BAL#:RETURN
8900 LPRINTSD$:LPRINTCHR$(12);:CLOSE:GOTO5000
9000 LOCATE12,1:PRINT FNCN$("Please insure Printer is on and Paper is positioned",80):PRINT:PRINT FNCN$("Press <ENTER>",80):GOSUB150:GOSUB820:RETURN
9100 LOCATE10,1:PRINT FNCN$("This Report is done ONLY on the Printer",80):PRINT:PRINT FNCN$("To Print the report, Insure the printer is ON and Press <P> or ",80):PRINT:PRINT FNCN$("Press <M> for the Menu",80)
9101 GOSUB150:IFINSTR("PM",A$)=0 THENBEEP:GOTO9100 ELSEIFA$="P"THENRP$="P":GOSUB820 ELSEMENU$="M
9110 RETURN
9500 CO=1:P.BAL#=TB#(C):RN=TOP(C):RETURN
10000 CLS:H$="PRINT CHECKS":GOSUB40000
10010 GOSUB10900:IFA$=CHR$(250)THEN10200
10030 PF=1:GOSUB57000:FORY=36 TO38:FH(Y)="":NEXT
10040 PF=2:GOSUB57100
10100 GOSUB830:LOCATE12,1:PRINT FNCN$("Standby... Printing Checks",80)
10110 FORXX=1 TON.TRX
10120 GET1,XX
10130 IFFH(3)<>"P "THEN10190
10140 IFFH(8)<>B.COD$THEN10190
10150 GOSUB10500:GOSUB10300
10155 CK$=FH(8):GOSUB40100:GET2,R.NO
10160 LSETCK.N$=MKS$(CK.NO)
10170 LSETFH(3)=RIGHT$(STR$(CK.NO),5)
10180 CK.NO=CK.NO+1:PUT1,XX:PUT2,R.NO
10190 NEXT
10200 CLOSE:GOTO1000
10300 LPRINT"
10310 LPRINTTAB(8)"Date : ";CK.DATE$
10320 LPRINTTAB(8)"Check No: ";CK.NO
10330 LPRINTTAB(8)"Paid To : ";FH(4)
10340 LPRINTTAB(8)"Memo : ";FH(6)
10345 LPRINT"
10350 LPRINTTAB(8)"Amount : ";USINGP6$;CVD(FH(5))
10355 LPRINT"
10360 LPRINTTAB(8)"Trx. No : ";XX
10370 FORY=1 TO14:LPRINT" ":NEXT
10380 A=(80-LEN(PL$))/2
10390 LPRINTSTRING$(A,"*")+PL$+STRING$(A-2,"*")
10395 LPRINT" ":LPRINT"
10400 LPRINTTAB(42)CK.DATE$;
10410 LPRINTTAB(55)XX;TAB(65)USINGP6$;CVD(FH(5))
10420 LPRINTTAB(10)FH(4)
10430 FORY=36 TO38:LPRINTTAB(10)FH(Y):NEXT
10440 LPRINT:LPRINTTAB(5)"Memo: ";FH(6)
10450 FORY=1 TO9:LPRINT" ":NEXT
10460 RETURN
10500 A$=STR$(CVD(FH(5))):AMT$=MID$(A$,2,LEN(A$)-1):W$="":PL$="":SW=0:T$="
10510 I=INSTR(AMT$,"."):IFI=0 THENT$="NO":GOTO10530
10520 T$=MID$(AMT$,I+1)+"00":T$=LEFT$(T$,2):AMT$=LEFT$(AMT$,I-1)
10530 PL$=" AND "+T$+"/100
10540 GOSUB10600:PL$=T$+PL$
10550 IFSW=1 THEN10560 ELSEGOSUB10600:PL$=T$+" THOUSAND "+PL$
10560 RETURN
10600 WL=LEN(AMT$)-3:IFWL<1 THENWL=1:SW=1
10610 W$=RIGHT$(AMT$,3):W$=" "+W$:W$=RIGHT$(W$,3):AMT$=LEFT$(AMT$,WL)
10620 T$="":FORX=1 TO3:I(X)=VAL(MID$(W$,X,1)):NEXT
10630 IFI(1)=0 THEN10640 ELSET$=PN$(I(1),2)+" HUNDRED
10640 IFI(2)<2 THENGOSUB10700:GOTO10660 ELSET$=T$+PN$(I(2),1):IFI(3)<>0 THENT$=T$+"-
10650 T$=T$+PN$(I(3),2):IFI(1)=0 ANDI(2)=0 ANDI(3)=0 THENT$="ZERO "+T$
10660 IFSW=1 ANDI(1)=0 ANDI(2)=0 ANDI(3)=0 THENT$="ZERO "+T$
10670 RETURN
10700 IFI(2)=0 THENT$=T$+PN$(I(3),2):GOTO10720
10710 T$=T$+PN$(I(3),0)
10720 RETURN
10900 GOSUB40600
10910 LOCATE8,10:PRINT"Date on Checks";:R=8:C=55:AF$=F2(1):GOSUB50300
10911 IFA$=CHR$(250)THEN10990 ELSEIFDE$=CHR$(255)THENCK.DATE$=DAT$:LOCATER,C:PRINTCK.DATE$; ELSEFE="":F1(YY)=AN$:GOSUB55040:CK.DAT$=FND2$(F1(YY)):IFFE="X"THENBEEP:GOTO10910
10912 IFA$=CHR$(250)THEN10900 ELSEGOSUB800
10920 LOCATE10,10:PRINT"Beginning Check number";:R=10:C=55:A1=5:GOSUB50400:CK.NO=VAL(AN$):IFA$=CHR$(250)THEN10910
10930 GOSUB40400:IFA$=CHR$(250)THEN10920 ELSEB.COD$=CK$:N.BA=R.NO
10990 RETURN
15000 CLS:FL="":H$="RECONCILE CHECKBOOK
15010 CLS:GOSUB40000:T=24:LOCATE8,1:PRINT TAB(T)"<1> Clear Checks":PRINT TAB(T)"<2> Un-reconcile a Check":PRINT TAB(T)"<3> Reconcile Checkbook":PRINT
15020 PRINT TAB(T)"<T> for Transaction Entry":PRINT TAB(T)"<R> Report Menu":PRINT TAB(T)"<M> Main Menu":PRINT:LOCATE20,1:PRINT FNCN$("Remember all Bank fees and Service charges ",80)
15030 GOSUB50040:GOSUB150
15040 ONINSTR("123",A$)GOTO15500,16000,16500
15050 CLOSE:ONINSTR("TRM",A$)GOTO1000,5000,100:BEEP:GOTO15040
15100 CLS:GOSUB40000:GOSUB40600:SW=10:RP$="":GOSUB40400:FL="S
15110 IFA$=CHR$(250)THENRETURN ELSEPF=1:GOSUB57000:RETURN
15500 GOSUB15100:IFA$=CHR$(250)THEN15560 ELSEGOSUB830:GOSUB18000
15510 FORY=1 TON.TRX
15520 GET1,Y:IFFH(8)<>CK$ORFH(7)="*"THEN15540
15525 GOSUB15700
15530 GOSUB15600:IFA$="C"THENLSETFH(7)="*":PUT1,Y
15535 IFA$="E"THENY=N.TRX
15540 NEXTY
15550 IFA$<>"E"THENCLS:LOCATE12,1:PRINT FNCN$("There are no more transactions to be cleraed in "+MO$(MO),80):PRINT:PRINT FNCN$("Press <ENTER>",80):GOSUB150
15560 CLOSE:GOTO15010
15600 LOCATE23,1:PRINT"Press <C> to clear check, <E> to Exit, or":PRINT" <ENTER> to continue...";:GOSUB150:IFINSTR("CE"+CHR$(13),A$)=0 THENBEEP:GOTO15600 ELSERETURN
15650 LOCATE23,1:PRINT"Press <U> to Un-reconcile check, <E> to Exit, or":PRINT" <ENTER> to continue...";:GOSUB150:IFINSTR("UE"+CHR$(13),A$)=0 THENBEEP:GOTO15650 ELSERETURN
15700 FX="R00020602":GOSUB52000:LOCATE9,65:PRINT USINGP6$;CVD(FH(5));:LOCATE7,20:PRINT FND1$(FH(2));:RETURN
16000 GOSUB15100:IFA$=CHR$(250)THEN16100
16010 CLS:GOSUB40000:LOCATE4,1:PRINT" Un-reconcile which Transaction number";:GOSUB40600:R=4:C=45:A1=3:GOSUB50400:IFA$=CHR$(250)THEN16100 ELSERN=VAL(AN$)
16020 GET1,RN:GOSUB800:GOSUB18000:GOSUB15700
16030 GOSUB15650:IFA$="U"THENLSETFH(7)="":PUT1,RN:GOTO16010
16040 IFA$="E"THEN16100
16090 GOTO16010
16100 CLOSE:GOTO15000
16500 CLS:GOSUB40000:SW=8:RP$="":GOSUB40390:IFA$=CHR$(250)THEN16900 ELSEPG=1:T.CRED#=0#:T.DEB#=0#:LOCATE10,15:PRINT"Date on Bank Statement:":PRINT:PRINT TAB(15)"Ending Balance on Bank Statement:
16510 R=10:C=50:AF$=F2(1):GOSUB50300:IFA$=CHR$(250)THEN16500 ELSES.DA$=AN$
16520 GOSUB800:R=12:A1=10:GOSUB50200:IFA$=CHR$(250)THEN16510 ELSESB#=VAL(AN$)
16530 GOSUB820:LOCATE12,1:PRINT FNCN$("Standby... Reading files",80)
16540 C=16:YE=VAL(YEAR$)-1:Y$=YEAR$
16550 PF=1:GOSUB57100:GOSUB40100:GET1,R.NO
16590 IFRP$="P"THENGOSUB41000
16600 FORY=YETOYE+1
16610 Y$=RIGHT$(STR$(Y),2):PF=1:GOSUB57100:GOSUB40100:GET1,R.NO:N.BA=R.NO
16620 FORMO=1 TO12
16630 IFCLR$(MO)<>"N"ORTRX$(MO)<>"Y"THEN16700
16640 PF=2:MO$=LEFT$(MO$(MO),3):GOSUB57000:IFN.TRX=0 THENGOSUB40500:IFSKIP$="S"THEN16700 ELSE16640
16645 LSETCLR$(MO)="Y
16650 FORZ=1 TON.TRX
16660 GET2,Z:IFFH(7)="*"ORCK$<>FH(8)THEN16690
16665 IFRP$<>"P"THENGOSUB40300 ELSEXX=Z:GOSUB46100:IFC>=55 THENC=16:PG=PG+1:GOSUB41000
16670 LSETCLR$(MO)="N":PUT1,N.BA
16690 NEXTZ
16700 NEXTMO:NEXTY
16710 IFRP$="P"THEN16800
16720 GOSUB830:LOCATE4,1:PRINT FNPE$("1. Ending Balance on Bank Statement",65);TAB(68)USINGP1$;SB#:PRINT
16730 PRINT FNPE$("2. Total Uncleared Checks",65);TAB(68)USINGP1$;ABS(T.DEB#)
16740 PRINT FNPE$("3. Total Uncleared Deposits",65);TAB(68)USINGP1$;T.CRED#:PRINT
16750 PRINT FNPE$("4. Adjusted Bank Balance",65);TAB(68)USINGP1$;SB#+T.CRED#+T.DEB#:PRINT
16760 PRINT FNPE$("5. Check Register Balance",65);TAB(68)USINGP1$;CVD(BAL$(13)):PRINT
16770 PRINT FNPE$("6. Difference ** Bank Balance & Check Register **",65);TAB(68)USINGP1$;ABS(SB#+T.DEB#+T.CRED#-CVD(BAL$(13))):PRINT
16780 PRINT FNCN$("Note that items 4 & 5 should be equal",80)
16790 LOCATE24,1:PRINT"Press <ENTER> to continue...";:GOSUB150:GOTO16900
16800 LPRINTSD$
16810 LPRINTFNPE$("2. Total Uncleared Checks",65);TAB(67)USINGP1$;ABS(T.DEB#)
16820 LPRINTFNPE$("3. Total Uncleared Deposits",65);TAB(67)USINGP1$;T.CRED#
16830 LPRINTFNPE$("4. Adjusted Bank Balance",65);TAB(67)USINGP1$;SB#+T.CRED#+T.DEB#
16840 LPRINTFNPE$("5. Check Register Balance",65);TAB(67)USINGP1$;CVD(BAL$(13)):LPRINT
16850 LPRINTFNPE$("6. Difference ** Bank Balance & Check Register **",65);TAB(67)USINGP1$;ABS(SB#+T.DEB#+T.CRED#-CVD(BAL$(13)))
16860 LPRINTFNCN$("Note that items 4 & 5 should be equal",80):LPRINTCHR$(12)
16900 Y$=YEAR$:CLOSE:GOTO15000
18000 LOCATE21,3:PRINTSG$;:LOCATE7,5:PRINT"Date :";TAB(53)"Check No.:":LOCATE9,5:PRINT"Payee/Payor:";TAB(53)"Amount :":LOCATE11,5:PRINT"Memo :
18100 RETURN
20000 CLS:H$="** FILE MAINTENANCE MENU **":GOSUB40000
20010 T=20:LOCATE7,1:PRINT TAB(T)"<1> Bank Account Information":PRINT TAB(T)"<2> Budget Information":PRINT TAB(T)"<3> Automatic Payment Accounts":PRINT:PRINT TAB(T)"<4> Rebuild Account Balances":PRINT TAB(T)"<5> Change Password or Data Disk":PRINT
20011 PRINT TAB(T)"<T> Transaction Entry":PRINT TAB(T)"<R> Report MENU":PRINT TAB(T)"<M> Main MENU":GOSUB50040
20020 APMT$="":RP$="":Y$=YEAR$:IFN.BACC=0 ORN.TACC=0 THENLOCATE20,1:COLOR15,0:PRINT FNCN$("The System is not initialized... Please complete OPTIONS 1 & 2 of this Menu",80)
20030 GOSUB50040:GOSUB150:ONINSTR("12345",A$)GOTO20500,21000,21500,22000,22500
20100 CLOSE:ONINSTR("TRM",A$)GOTO1000,5000,100:BEEP:GOTO20030
20500 H$="BANK ACCOUNT DATA":PF=1:GOSUB57100:SW=1
20510 CLS:GOSUB23000:ONINSTR("LMD",A$)GOTO20800,20900,20700
20515 IFN.BACC=30 THENGOSUB21450:GOTO20900
20520 A$="":FX="N01010501":GOSUB52000:IFA$=CHR$(250)THEN20900
20530 N.BACC=N.BACC+1:B.COD$(N.BACC)=FH(10)
20540 LSETBAL$(13)=FH(14):FORX=1 TO12:LSETBAL$(X)=FH(14):LSETCLR$(X)="Y":LSETTRX$(X)="N":NEXT:PUT1,N.BACC
20550 GOSUB500:IFA$="E"THEN20900 ELSEIFA$=CHR$(13)THEN20510
20600 FX="C00010101":GOSUB52000:GOTO20540
20700 GOSUB23000:GOSUB800:GOSUB54030:GOSUB24100:IFA$=CHR$(250)THEN20900
20710 GOSUB24500:IFA$="D"THENLSETFH(15)="D":PUT1,R.NO:B.COD$(R.NO)="
20720 IFA$="E"THEN20900 ELSE20700
20800 GOSUB23000:FL="L":GOSUB800:GOSUB54030
20810 GOSUB24100:IFA$=CHR$(250)THEN20900
20830 GOSUB500:IFA$=CHR$(250)ORA$="E"THEN20900 ELSEIFA$=CHR$(13)THEN20800
20840 FL="":FX="C01020402":GOSUB52000
20850 PUT1,R.NO:GOTO20830
20880 CLOSE2:GOTO20800
20900 FL="":CLOSE:GOTO20000
21000 H$="BUDGET ACCOUNTS DATA":PF=1:GOSUB57200:SW=1
21010 CLS:GOSUB23100:ONINSTR("LMD",A$)GOTO21300,21400,21200
21015 IFN.TACC=200 THENGOSUB21450:GOTO21400
21020 FX="N02010401":GOSUB52000:IFA$=CHR$(250)THEN21400
21030 N.TACC=N.TACC+1:T.COD$(N.TACC)=FH(20)
21040 LSETFH(24)=FH(23):PUT1,N.TACC
21050 GOSUB500:IFA$="E"THEN21400 ELSEIFA$=CHR$(13)THEN21010
21100 FX="C02010401":GOSUB52000:GOTO21040
21200 GOSUB23100:GOSUB800:GOSUB54030
21210 GOSUB24200:IFA$=CHR$(250)THEN21400
21220 GOSUB24500:IFA$="D"THENLSETFH(25)="D":PUT1,R.NO:T.COD$(R.NO)="
21230 IFA$="E"THEN21400 ELSE21200
21300 GOSUB23100:FL="L":GOSUB800:GOSUB54030
21310 GOSUB24200:IFA$=CHR$(250)THEN21400
21330 GOSUB500:IFA$=CHR$(250)ORA$="E"THEN21400 ELSEIFA$=CHR$(13)THEN21300
21340 FL="":FX="C02010404":GOSUB52000:T.COD$(R.NO)=FH(20)
21350 PUT1,R.NO:GOTO21330
21400 FL="":CLOSE:GOTO20000
21450 GOSUB820:LOCATE12,1:PRINT FNCN$("You have reached the Maximum Number of Accounts",80):PRINT FNCN$("Press <ENTER>",80):BEEP:GOSUB150:RETURN
21500 H$="AUTOMATIC PAYMENT INFORMATION":PF=1:GOSUB57300:SW=1
21510 CLS:GOSUB23200:ONINSTR("MD",A$)GOTO21900,21700
21511 IFAPMT$="L"THEN21800
21520 FX="N03010901":GOSUB52000:IFA$=CHR$(250)THEN21900
21530 N.APMT=N.APMT+1
21540 PUT1,N.APMT
21550 GOSUB500:IFA$="E"THEN21900 ELSEIFA$=CHR$(13)THEN21510
21600 FX="C03010901":GOSUB52000:GOTO21540
21700 GOSUB23200:GOSUB24300:IFA$=CHR$(250)THEN21900
21710 GOSUB24500:IFA$="D"THENLSETFH(39)="D":PUT1,R.NO
21720 IFA$="E"THEN21900 ELSE21700
21800 IFRP$="P"THEN21950 ELSEGOSUB23200
21810 GOSUB24300:QQ=R.NO:IFA$=CHR$(250)THEN21900
21830 GOSUB500:IFA$="E"THEN21900 ELSEIFA$=CHR$(13)THEN21800
21840 FX="C03010901":GOSUB52000:PUT1,QQ:GOTO21830
21900 FL="":CLOSE:GOTO20000
21950 PF=1:GOSUB57300
21960 SW=9:PG=1:N.REC=N.APMT:GOSUB41000:GOSUB46000:LPRINTCHR$(12)
21970 CLOSE:GOTO20000
22000 CLS:H$="RE-BUILD ACCOUNT BALANCES":GOSUB40000
22010 T=25:LOCATE10,20:PRINT"PRESS:":PRINT TAB(T)"<R> to Re-build Account Balances":PRINT TAB(T)"<M> for the File Maintenance Menu
22020 LOCATE7,1:COLOR15:PRINT FNCN$("It is advisable to use a backup copy of your Data Disk for this procedure!",80):COLOR7
22030 GOSUB150:ONINSTR("RM",A$)GOTO22040,22400:GOTO22020
22040 GOSUB820:LOCATE12,1:PRINT FNCN$("Standby... Re-building Balances",80)
22050 PF=1:GOSUB57100:PF=2:GOSUB57200
22060 FORX=1 TON.TACC:GET2,X:TB#(X)=CVD(FH(24)):NEXT
22100 FORJ=1 TON.BACC
22110 GET1,J:IFFH(15)="D"THEN22290
22140 C.BAL#=CVD(FH(14))
22150 FORMO=1 TO12:IFTRX$(MO)="N"THEN22260
22170 PF=3:MO$=LEFT$(MO$(MO),3):GOSUB57000
22180 FORZ=1 TON.TRX:GET3,Z
22230 IFFH(8)<>FH(10)THEN22250
22240 GOSUB40300:C.BAL#=C.BAL#+T#
22250 NEXTZ
22260 LSETBAL$(MO)=MKD$(C.BAL#)
22270 NEXTMO
22280 LSETBAL$(13)=MKD$(C.BAL#):PUT1,J
22290 NEXTJ
22300 FORJ=1 TO12:PF=1:MO$=LEFT$(MO$(J),3):GOSUB57000
22305 IFN.TRX=0 THEN22360
22310 FORX=1 TON.TRX:GET1,X
22320 FORY=1 TO6:IFFAC(Y)="****"THEN22350
22330 CK$=FAC(Y):GOSUB40200:TB#(R.NO)=TB#(R.NO)+CVD(FAM(Y))
22340 NEXTY
22350 NEXTX
22360 NEXTJ
22370 PF=1:GOSUB57200
22380 FORX=1 TON.TACC:GET1,X:LSETFH(23)=MKD$(TB#(X)):PUT1,X:NEXT
22400 CLOSE:GOTO20000
22500 CLS:H$="CHANGE PASSWORD OR DATA DISK":GOSUB40000
22510 IFPWFLG$="Y"THENLOCATE10,20:PRINT"Enter your OLD Password";:LOCATE10,45:COLOR0,0:INPUTAN$:COLOR7,0:IFAN$<>PW$THENLOCATE20,1:PRINT FNCN$("Invalid Password, try again",80):GOTO22510
22520 FL="S":GOSUB49205:FL="
22530 GOTO20000
23000 GOSUB40000:IFSW=1 THENGOSUB23500:SW=0:IFA$="M"THEN23040
23010 T=10:LOCATE7,1:PRINT TAB(T)"Bank Code:":PRINT:PRINT TAB(T)"Bank Name:":PRINT TAB(T)"Account Name:":PRINT TAB(T)"Account No.:":PRINT:PRINT TAB(T)"Current Balance:
23020 LOCATE15,1:PRINT"Account codes currently in use:":IFN.BACC<>0 THENFORX=1 TON.BACC:PRINTB.COD$(X),:NEXT
23040 RETURN
23100 GOSUB40000:IFSW=1 THENGOSUB23500:SW=0:IFA$="M"THEN23120
23110 T=10:LOCATE7,1:PRINT TAB(T)"Budget Code:":PRINT:PRINT TAB(T)"Account Description:":PRINT TAB(T)"Budgeted Amount:":PRINT:PRINT TAB(T)"Year-to-date Amount:
23120 RETURN
23200 GOSUB40000:IFSW=1 THENGOSUB23500:SW=0:IFA$="M"THEN23220 ELSEIFA$="D"THEN23210 ELSEIFA$="L"THENAPMT$="L":GOSUB40390:IFRP$="P"THEN23220
23210 T=10:LOCATE5,1:PRINT TAB(T)"Pay from Bank Account:":PRINT:PRINT TAB(T)"Make Payment to:":PRINT TAB(T)" Address:":PRINT TAB(T)" Address:":PRINT TAB(T)" Address:":PRINT:PRINT TAB(T)"Amount to be Paid:":PRINT:PRINT TAB(T)"Memo:":PRINT
23215 PRINT TAB(T-5)"Budget Account Assignment:":PRINT:PRINT TAB(T)"Budget Code:":PRINT TAB(T)"Tax Code:
23220 RETURN
23500 T=25:LOCATE9,1
23501 PRINT TAB(T-5)"Press:":PRINT:PRINT TAB(T)"<A> to ADD accounts, ":PRINT TAB(T)"<L> to LIST / CHANGE accounts":PRINT:PRINT TAB(T)"<D> to Delete an account, or":PRINT TAB(T)"<M> for the MENU":GOSUB150:IFINSTR("ALDM",A$)=0 THEN23500
23510 IFA$="L"THENH$="LIST: "+H$ ELSEIFA$="A"THENH$="ADD: "+H$ ELSEIFA$="D"THENH$="DELETE: "+H$
23520 IFA$="M"THENRETURN ELSECLS:GOSUB40000:RETURN
24000 GOSUB820:PF=1:GOSUB57300:LOCATE12,1:PRINT FNCN$("Standby... Printing",80)
24010 SW=9:N.REC=N.APMT:GOSUB41000:GOSUB46000
24100 R=7:C=35:A1=4:GOSUB50100:CK$=AN$:IFA$=CHR$(250)THENRETURN ELSEGOSUB40100:IFCODE$<>"V"THENF1(YY)=CK$:GOSUB55200:GOTO24100
24110 GET1,R.NO:FX="R01010401":GOSUB52000:LOCATE13,35:PRINT USINGP1$;CVD(BAL$(13));:RETURN
24200 R=7:C=35:A1=4:GOSUB50100:CK$=AN$:IFA$=CHR$(250)THENRETURN ELSEGOSUB40200:IFCODE$<>"V"THENF1(YY)=CK$:GOSUB55200:GOTO24200
24210 GET1,R.NO:FX="R02010201":GOSUB52000:LOCATE10,36:PRINT USINGP6$;CVD(FH(22));:LOCATE12,36:PRINT USINGP6$;CVD(FH(23));:RETURN
24300 LOCATE4,2:PRINT"List which Record No.";:GOSUB800:GOSUB54090:R=4:C=26:A1=3:GOSUB50400:IFA$=CHR$(250)THENRETURN ELSER.NO=VAL(AN$):IFR.NO>N.APMTTHENGOSUB800:BEEP:PRINT" Record No. too high... Press <ENTER>";:GOSUB150:GOSUB800:GOTO24300
24310 IFR.NO<1 THENBEEP:GOTO24300
24320 GET1,R.NO:FX="R03010901":GOSUB52000:LOCATE12,35:PRINT USINGP6$;CVD(FH(32));:RETURN
24500 GOSUB800:PRINT"Press <ENTER> to continue, <E> to Exit or,":PRINT" <D> to DELETE this record...";:GOSUB150:IFINSTR("DE"+CHR$(13),A$)=0 THENBEEP:GOTO24500 ELSERETURN
25000 CLS:H$="BEGIN NEW YEAR":GOSUB40000
25010 LOCATE6,10:PRINT"Are you using a Hard Disk System ";:GOSUB300:LOCATE6,1:PRINTC$;:IFA$="Y"THENHD$="Y":GOTO25110
25020 PRINT" If you are using a single or dual disk drive system then:":PRINT
25030 PRINT" <1> Make a COPY of your Current Data Disk and label
25040 PRINT" as Data disk for the New Year.":PRINT
25050 PRINT" <2> Place this New Data Disk in the Drive you use for Data.":PRINT
25060 PRINT" <3> Store the Old Data Disk in a safe place.":PRINT
25070 PRINT" <4> Return to this Section and Press <ENTER>.":PRINT:PRINT
25080 COLOR15:PRINT FNCN$("Press <ENTER> to continue ... <M> for the Menu",80):COLOR7
25100 T$=Y$:GOSUB150:IFA$="M"THEN100
25110 CLS:GOSUB40000:LOCATE8,1:PRINT FNCN$("Please insure the New Data Disk for this new year is in your Data Drive",80):PRINT:PRINT FNCN$("Press <N> for New Year ... <E> to exit this section",80)
25120 GOSUB150:ONINSTR("NE",A$)GOTO25150,100:BEEP:GOTO25120
25150 LOCATE13,15:PRINT"Last year (Ex: 1983)":PRINT:PRINT TAB(15)"New year (Ex: 1984)
25160 R=13:C=40:A1=4:GOSUB50400:IFA$=CHR$(250)THEN25110 ELSEY1$=RIGHT$(AN$,2)
25170 R=15:GOSUB50400:IFA$=CHR$(250)THEN25160 ELSEY2$=RIGHT$(AN$,2)
25180 GOSUB830:LOCATE12,1:PRINT FNCN$("Standby... Building Files",80)
25190 ONERRORGOTO27000:IFHD$<>"Y"THENKILLDDSK$+"*.TRX
25200 PF=1:Y$=Y1$:GOSUB57100:C=1:PF=2:Y$=Y2$:GOSUB57500
25210 FORY=1 TON.BACC
25220 GET1,Y:IFFH(15)="D"THEN25290
25240 GOSUB26000:PUT2,C:C=C+1
25290 NEXTY
25300 CLOSE:PF=1:Y$=Y1$:GOSUB57200:PF=2:Y$=Y2$:GOSUB57600
25310 FORY=1 TON.TACC
25330 GET1,Y:GOSUB26100:PUT2,Y
25360 NEXT
25370 CLOSE:Y3$=RIGHT$(STR$(VAL(Y1$)-1),2)
25500 IFHD$<>"Y"THENKILLDDSK$+"BUDACC"+Y1$+".MAC":KILLDDSK$+"BANKAC"+Y3$+".MAC
25600 Y$=Y2$:GOSUB49940
25650 YEAR$=Y2$:ONERRORGOTO58000:CLOSE:GOTO100
26000 LSETF(10)=FH(10):LSETF(11)=FH(11):LSETF(12)=FH(12):LSETF(13)=FH(13):LSETF(14)=BAL$(13):LSETF(15)="
26010 FORZ=1 TO12
26020 LSETBA$(Z)=BAL$(13):LSETCL$(Z)="Y":LSETTR$(Z)="N
26030 NEXTZ:LSETBA$(13)=BAL$(13):LSETC.N$=CK.N$:RETURN
26100 LSETF(20)=FH(20):LSETF(21)=FH(21):LSETF(22)=FH(22):LSETF(23)=MKD$(0#):LSETF(24)=F(23):LSETF(25)="":RETURN
27000 IFERR=53 THENRESUMENEXT ELSE27500
27500 GOSUB800:PRINT"An unexpected ERROR has occured... Basic Error ";ERR;" Line ";ERL:BEEP:PRINT"Press <ENTER> to continue":GOSUB150:CLOSE:Y$=Y2$:RESUME100
40000 COLOR15,0:LOCATE1,1:PRINT FNCN$(H$,80):COLOR7:PRINTSG$;:LOCATE22,1:PRINTSG$;:RETURN
40100 CK$=FNAB$(CK$):CODE$="":IFN.BACC=0 THENRETURN
40110 FORQ=1 TON.BACC
40120 IFB.COD$(Q)=CK$THENCODE$="V":R.NO=Q:Q=N.BACC
40130 NEXT
40140 RETURN
40200 CK$=FNAB$(CK$):CODE$="":IFN.TACC=0 THENRETURN
40210 FORQ=1 TON.TACC
40220 IFT.COD$(Q)=CK$THENCODE$="V":R.NO=Q:Q=N.TACC
40230 NEXT
40240 RETURN
40300 IFFH(1)="C"THENT#=-CVD(FH(5)):T.DEB#=T.DEB#+T# ELSET#=CVD(FH(5)):T.CRED#=T.CRED#+T#
40301 RETURN
40390 GOSUB40600:LOCATE10,18:PRINT"<P> to Print Report":PRINT TAB(18)"<S> for Screen Report":R=11:C=50:A1=1:GOSUB50100:IFA$=CHR$(250)THEN40441
40395 IFINSTR("PS",AN$)=0 THENBEEP:GOTO40390 ELSERP$=AN$:IFSW=7 THEN40441 ELSEIFSW=2 THEN40401 ELSEIFAPMT$="L"THEN40440
40400 LOCATE15,18:PRINT"Bank Code for Transactions:":IFSW=8 THEN40410
40401 LOCATE17,18:PRINT TAB(18)"Month & Year of Transactions:":IFSW=2 ORSW=4 THEN40420
40410 R=15:C=48:A1=4:GOSUB50100:CD$=AN$:CK$=AN$:IFA$=CHR$(250)THEN40430 ELSEGOSUB40100:IFCODE$<>"V"THENF1(YY)=CK$:GOSUB55200:GOSUB800:GOTO40410
40411 IFSW=8 THEN40430
40420 R=17:C=48:AF$=F2(0):GOSUB50300:IFSW=4 ANDA$=CHR$(250)THEN40430 ELSEIFA$=CHR$(250)THEN40410 ELSEGOSUB40490:IFFE="X"THEN40420
40430 IFSW=4 ORSW=10 ORSW=0 ANDA$=CHR$(250)THEN40441 ELSEIFA$=CHR$(250)THEN40390
40435 IFSW=0 THENGOSUB810 ELSEGOSUB820
40440 IFRP$="P"THENGOSUB820:GOSUB9000 ELSEIFAPMT$="L"THENGOSUB820
40441 RETURN
40450 GOSUB40600:LOCATE10,18:PRINT"Budget Code to Report:":PRINT:PRINT TAB(18)"Beginning Month No. for Report:":PRINT:PRINT TAB(18)"End Month No. of Report:":PRINT:PRINT TAB(18)"Year of Report":IFSW=6 THENLOCATE10,18:PRINT"Tax ";
40460 R=10:C=55:A1=4:GOSUB50100:CD$=AN$:CK$=AN$:IFA$=CHR$(250)THEN40480 ELSEIFSW=6 THEN40470 ELSEGOSUB40200:IFCODE$<>"V"THENF1(YY)=CK$:GOSUB55200:GOSUB800:GOTO40460
40470 R=12:C=55:A1=2:GOSUB50400:IFA$=CHR$(250)THEN40460 ELSEGOSUB40496:IFFE="X"THEN40470 ELSEMO1=MO
40471 R=14:C=55:A1=2:GOSUB50400:IFA$=CHR$(250)THEN40470 ELSEGOSUB40496:IFFE="X"THEN40471 ELSEMO2=MO
40474 R=16:C=55:A1=4:GOSUB50400:IFA$=CHR$(250)THEN40471 ELSEY$=RIGHT$(AN$,2):IFVAL(Y$)<80 THEN40474
40480 RETURN
40490 FE="":MO=VAL(LEFT$(AN$,2)):Y$=RIGHT$(AN$,2):IFMO>12 ORMO<1 ORVAL(Y$)<80 THENFE="X" ELSEMO$=LEFT$(MO$(MO),3)
40491 RETURN
40495 T=VAL(MID$(AN$,3,2)):IFT<1 ORT>31 ORVAL(RIGHT$(AN$,2))<80 THENFE="X":RETURN ELSERETURN
40496 FE="":MO=VAL(AN$):IFMO<1 ORMO>12 THENFE="X":RETURN ELSERETURN
40500 SKIP$="":GOSUB820:LOCATE11,1:PRINT FNCN$("The "+MO$(MO)+" '"+Y$+" file is empty. Press <S> to Skip this Month or ",80):BEEP:PRINT:PRINT FNCN$("Insert the proper disk and Press <ENTER> to continue...",80)
40510 GOSUB150:IFA$="S"THENSKIP$="S":RETURN ELSERETURN
40600 GOSUB800:PRINT"Press <F1> for the MENU...":RETURN
41000 LPRINTDAT$;:LPRINTTAB(72)"Page ";PG
41010 ONSWGOTO41110,41210,41310,41410,41510,41610,41710,41810,41910
41100 LOCATE1,1:PRINT FNCN$("** TRANSACTION REGISTER: "+MO$(MO)+" 19"+Y$+" **",80):PRINTC$;:LOCATE2,1:PRINT FNCN$(FH(12)+STRING$(5,32)+FH(13)+STRING$(8,32)+FNSS$(FH(11)),80):PRINTSG$;
41101 PRINT" TX# Date Ck# Payee/Payor";TAB(50)"Credit";TAB(62)"Debit";TAB(73)"Balance":PRINTSD$;:GOTO41950
41110 LPRINTFNCN$("** TRANSACTION REGISTER: "+MO$(MO)+" 19"+Y$+" **",80):LPRINTFNCN$(FH(12)+STRING$(5,32)+FH(13)+STRING$(8,32)+FNSS$(FH(11)),80):LPRINTSE$;
41111 LPRINT" TX# Date Ck# Payee/Payor";TAB(50)"Credit";TAB(62)"Debit";:IFSW<>8 THENLPRINTTAB(73)"Balance
41112 LPRINTSD$;:RETURN
41200 LOCATE1,1:PRINT FNCN$("** BUDGET ANALYSIS AND AVERAGE MONTH: "+MO$(MO)+" 19"+Y$+" **",80):PRINTSG$
41201 PRINT"Code Description Budgeted Current Mo Avg Mo Y-T-D":PRINTSD$;:GOTO41950
41210 LPRINTFNCN$("** BUDGET ANALYSIS AND AVERAGE MONTH: "+MO$(MO)+" 19"+Y$+" **",80):LPRINTSE$;
41211 LPRINT"Code Description Budgeted Current Mo Avg Mo Y-T-D":LPRINTSD$;:RETURN
41300 LOCATE1,1:PRINT FNCN$("** M E M O R E P O R T : "+MO$(MO)+" 19"+Y$+" **",80):PRINTC$;:LOCATE2,1:PRINT FNCN$(FH(12)+STRING$(5,32)+FH(13)+STRING$(8,32)+FNSS$(FH(11)),80):PRINTSG$;
41301 PRINT" TX# Date Payee/Payor";TAB(42)"Memo";TAB(74)"Amount":PRINTSD$;:GOTO41950
41310 LPRINTFNCN$("** M E M O R E P O R T : "+MO$(MO)+" 19"+Y$+" **",80):LPRINTFNCN$(FH(12)+STRING$(5,32)+FH(13)+STRING$(8,32)+FNSS$(FH(11)),80):LPRINTSE$;
41311 LPRINT" TX# Date Payee/Payor";TAB(42)"Memo";TAB(74)"Amount":LPRINTSD$;:RETURN
41400 RETURN
41410 LPRINTFNCN$("** ACCOUNT DISTRIBUTION: "+MO$(MO)+" 19"+Y$+" **",80):LPRINTSE$;
41411 LPRINT" Date CK# BANK Payee/Payor";TAB(59)"Budget CD";TAB(74)"Amount":LPRINTSD$;:RETURN
41500 RETURN
41510 LPRINTFNCN$("** REPORT ON ACCOUNT "+CK$+" : "+MO$(MO1)+" TO "+MO$(MO2)+" 19"+Y$+" **",80):LPRINT" Account ";CK$;": ";FH(21):LPRINTSE$;
41511 GOTO41611
41600 RETURN
41610 LPRINTFNCN$("** REPORT ON TAX CODE "+CK$+" : "+MO$(MO1)+" TO "+MO$(MO2)+" 19"+Y$+" **",80):LPRINTSE$;
41611 LPRINT" Date CK# Bank Payee / Payor";TAB(46)"Memo";TAB(74)"Amount":LPRINTSD$;:RETURN
41700 GOSUB40000:LOCATE4,1:PRINT TAB(10)"CODE BANK NAME";TAB(62)"BALANCE":PRINTSD$;:GOTO41950
41710 LPRINTFNCN$(H$,80);:LPRINTSE$;:LPRINTTAB(10)"CODE BANK NAME";TAB(62)"BALANCE":LPRINTSD$;:RETURN
41800 RETURN
41810 H$="* RECONCILIATION STATEMENT: "+FNSS$(FH(11))+" "+FND2$(S.DA$):LPRINTFNCN$(H$,80):LPRINTSD$;
41820 LPRINTFNPE$("1. Ending Balance on Bank Statement",65);TAB(67)USINGP1$;SB#
41830 LPRINTFNCN$("Transactions which have not cleared the Bank",80):GOSUB41111:RETURN
41910 LPRINTFNCN$("LIST OF AUTOMATIC PAYMENT ACCOUNTS",80):LPRINTSE$;:RETURN
41950 LOCATE22,1:PRINTSG$;:RETURN
45000 CO=1:C=1:LOCATE6,1:T.CRED#=0#:T.DEB#=0#
45005 WHILERN<>N.REC+1
45010 GETPF,RN
45020 ONSWGOSUB45100,45200,45300
45025 IFSW=7 THENGOSUB45700
45030 GOSUB45800
45035 IFA$="E"THEN45050
45040 RN=RN+1:WEND
45050 RETURN
45100 IFCK$<>FH(8)THEN45110 ELSEPRINT USING"####";RN;:PRINT TAB(6)FND1$(FH(2));:IFFH(1)="D"THENPRINT TAB(14)"Dep"; ELSEPRINT TAB(12)USINGP3$;VAL(FH(3));
45101 IFFH(7)="*"THENPRINT TAB(17)"*";
45102 GOSUB40300:PRINT TAB(20)LEFT$(FH(4),24);:IFFH(1)="D"THENPRINT TAB(46)USINGP4$;CVD(FH(5)); ELSEPRINT TAB(57)USINGP4$;CVD(FH(5));
45103 IFSW=8 THEN45110
45104 P.BAL#=P.BAL#+T#:PRINT TAB(68)USINGP2$;P.BAL#
45105 CO=CO+1
45110 RETURN
45200 CO=CO+1:PRINT USINGP5$;FH(20);FNPE$(FNSS$(FH(21)),25);CVD(FH(22));TB#(R.NO);CVD(FH(23))/MO;CVD(FH(23)):RETURN
45300 IFCK$<>FH(8)THEN45330
45310 CO=CO+1:PRINT USING"####";RN;:PRINT TAB(6)FND1$(FH(2));TAB(12)LEFT$(FH(4),28);TAB(42)FH(6);:IFFH(1)="D"THENPRINT TAB(69)"*";
45320 PRINT TAB(70)USINGP4$;CVD(FH(5))
45330 RETURN
45700 IFFH(15)="D"THENRETURN
45710 CO=CO+1:PRINT TAB(10)FH(10);" ";FNPE$(FNSS$(FH(11)),38);TAB(56)USINGP1$;CVD(BAL$(13)):PF=1:P.BAL#=P.BAL#+CVD(BAL$(13)):RETURN
45800 IFCO>16 THENGOSUB45900:CO=1
45810 RETURN
45900 GOSUB800:PRINT"Press <ENTER> for next page, <L> for last page, or":PRINT" <E> to Exit...";:GOSUB150:IFINSTR("LE"+CHR$(13),A$)=0 THENBEEP:GOTO45900
45910 C=C+1:IFA$="L"THENC=C+(C>2)-1:P.BAL#=TB#(C):RN=TOP(C)-1:GOTO45940
45920 TOP(C)=RN+1:TB#(C)=P.BAL#
45930 IFRN>=N.RECTHENA$="E":RETURN ELSEIFA$="E"THENRETURN
45940 CLS:ONSWGOSUB41100,41200,41300,41400,41500,41600,41700,41800:LOCATE6,1:RETURN
46000 GOSUB820:LOCATE12,1:PRINT FNCN$("Standby... Working on Report",80)
46010 T.CRED#=0:T.DEB#=0:C=1:IFN.REC=0 THEN46070
46020 FORXX=1 TON.REC
46025 GETPF,XX
46030 ONSWGOSUB46100,46200,46300,46400,46500,46600,46700,46800,46900
46040 IFXX=N.RECTHEN46050 ELSEGOSUB48000
46050 NEXT
46070 RETURN
46100 IFCK$<>FH(8)THEN45110 ELSELPRINTUSING"####";XX;:LPRINTTAB(6)FND1$(FH(2));:IFFH(1)="D"THENLPRINTTAB(14)"Dep"; ELSELPRINTTAB(12)USINGP3$;VAL(FH(3));
46101 IFFH(7)="*"THENLPRINTTAB(17)"*";
46102 GOSUB40300:LPRINTTAB(20)LEFT$(FH(4),24);:IFFH(1)="D"THENLPRINTTAB(46)USINGP4$;CVD(FH(5)); ELSELPRINTTAB(57)USINGP4$;CVD(FH(5));
46103 IFSW<>8 THENP.BAL#=P.BAL#+T#:LPRINTTAB(68)USINGP2$;P.BAL# ELSELPRINT
46104 C=C+1
46110 RETURN
46200 C=C+1:LPRINTUSINGP5$;FH(20);FNPE$(FNSS$(FH(21)),25);CVD(FH(22));TB#(R.NO);CVD(FH(23))/MO;CVD(FH(23)):RETURN
46300 IFCK$<>FH(8)THEN46330
46310 C=C+1:LPRINTUSING"####";XX;:LPRINTTAB(6)FND1$(FH(2));TAB(12)LEFT$(FH(4),28);TAB(42)FH(6);:IFFH(1)="D"THENLPRINTTAB(69)"*";
46320 LPRINTTAB(70)USINGP4$;CVD(FH(5))
46330 RETURN
46400 FORY=1 TO6:IFFAC(Y)="****"THEN46490
46410 IFY<>1 THEN46470
46420 LPRINTFND1$(FH(2));
46430 IFFH(1)="D"THENLPRINTTAB(10)"Dep";:GOTO46450
46440 LPRINTTAB(8)USINGP3$;VAL(FH(3));
46450 LPRINTTAB(16)FH(8);
46460 LPRINTTAB(22)FNPE$(FNSS$(FH(4)),40);
46470 C=C+1:LPRINTTAB(64)FAC(Y);TAB(70)USINGP4$;CVD(FAM(Y))
46480 NEXTY
46490 RETURN
46500 FORZ=1 TO6:IFFAC(Z)="****"THEN46560
46510 IFTC$="Y"THENFAC(Z)=FTX(Z)
46520 IFCK$<>FAC(Z)THEN46550
46530 GOSUB46600
46540 T.AMT#=T.AMT#+CVD(FAM(Z))
46550 NEXTZ
46560 RETURN
46600 C=C+1:LPRINTFND1$(FH(2));TAB(7)USINGP3$;VAL(FH(3));:LPRINTTAB(13)FH(8);TAB(18)LEFT$(FH(4),27);TAB(46)LEFT$(FH(6),23);TAB(70)USINGP4$;CVD(FAM(Z)):RETURN
46700 IFFH(15)="D"THENRETURN
46710 LPRINTTAB(10)FH(10);" ";FNPE$(FNSS$(FH(11)),38);TAB(56)USINGP1$;CVD(BAL$(13)):PF=1:T.BAL#=T.BAL#+CVD(BAL$(13)):RETURN
46800 RETURN
46900 LPRINTUSING"####";XX;:LPRINT" Pay From: ";FH(30);:LPRINT" Amount: ";USINGP6$;CVD(FH(32));:LPRINT" Budget Code: ";FH(34);:LPRINT" Tax Code: ";FH(35):LPRINTTAB(7)"Pay To : ";FH(31)
46910 LPRINTTAB(7)"Address : ";FH(36):LPRINTTAB(7)"Address : ";FH(37):LPRINTTAB(7)"Address : ";FH(38):LPRINT:C=C+6:RETURN
48000 IFC<54 THEN48020
48010 PG=PG+1:C=1:LPRINTCHR$(12);:GOSUB41000
48020 RETURN
49000 DEFFNSS$(A$)=LEFT$(A$+" ",INSTR(A$+" "," ")-1)
49001 DEFFNAB$(A$)=LEFT$(A$+" ",4)
49010 DEFFND1$(A$)=LEFT$(A$,2)+"/"+MID$(A$,3,2)
49011 DEFFND2$(A$)=LEFT$(A$,2)+"/"+MID$(A$,3,2)+"/"+RIGHT$(A$,2)
49012 DEFFNPE$(A$,A)=A$+STRING$(A-LEN(A$),".")
49013 F2(0)=STRING$(2,254)+"/"+STRING$(2,254):F2(1)=F2(0)+"/"+STRING$(2,254)
49020 SG$=STRING$(80,205):C$=STRING$(80,32):SD$=STRING$(80,"-"):SE$=STRING$(80,"=")
49025 CLOSE:ONERRORGOTO49500
49030 OPEN"PW.MAC" FOR INPUT AS #1:INPUT#1,DDSK$,PWFLG$,PW$,HDF$:IFINSTR(DDSK$,":")=0 THENDDSK$=DDSK$+":
49035 IFHDF$="Y"ORFL1="S"THENLOCATE10,1:PRINT FNCN$("Your data disk is "+DDSK$,80):PRINT:PRINT FNCN$("IS THIS CORRECT ( <ENTER> FOR YES, <N> FOR NO )?",80):GOSUB150:CLS:IFA$="N"THENFL="1":GOSUB49205:FL="":CLS
49040 IFPWFLG$="Y"THENLOCATE10,20:PRINT"Enter your Password";:LOCATE10,45:COLOR0,0:INPUTAN$:COLOR7,0:IFAN$<>PW$THENLOCATE20,1:BEEP:PRINT FNCN$("Invalid Password, try again",80):GOTO49040
49050 GOSUB49900
49100 F9(0)="1647A0010101$0203,0720F0000202 0104,0765N0050303$0112,0920A0300404$0101,0965$0100505 0102,1120A0250606$0101
49120 F9(1)="0735A0041001$0308,0935A0251102$0101,1035A0251203$0401,1135A0121304$0101,1335$0101405 0502
49121 F9(2)="0735A0042001$0309,0935A0222102$0101,1035$0102203 0102,1235$0102304 0602
49122 F9(3)="0535A0043001$0310,0735A0303102$0101,0835A0303603$0101,0935A0303704$0101,1035A0303805$0101,1235$0103203 0102,1435A0253304$0101,1835A0043405$0111,1935A0043506$0101
49123 F9(4)="1514A0040101$0705,1530A0040102$0106,1541$0100103 0107,1614A0040204$0705,1630A0040205$0106,1641$0100206 0107,1714A0040307$0705,1730A0040308$0106,1741$0100309 0107
49124 F9(5)="1814A0040401$0705,1830A0040402$0106,1841$0100403 0107,1914A0040504$0705,1930A0040505$0106,1941$0100506 0107,2014A0040607$0705,2030A0040608$0106,2041$0100609 0107
49130 P1$="$#,###,###.##":P2$="#,###,###.##":P3$="#####":P4$="###,###.##":P5$="\ \ \ \ #,###,### ###,###.## ###,###.## #,###,###.##":P6$="$$#####,.##
49150 FORX=1 TO12:READMO$(X):NEXT
49151 FORX=0 TO9:FORY=0 TO2:READPN$(X,Y):NEXT:NEXT
49190 RESTORE:CLOSE:RETURN
49200 LOCATE3,1:PRINT FNCN$("INITIALIZATION DATA",80)
49205 LOCATE10,15:PRINT"Which disk will you use for data ";:INPUTDDSK$
49206 IFLEN(DDSK$)>2 ANDRIGHT$(DDSK$,1)<>"\"THENDDSK$=DDSK$+"\
49210 IFFL="1"THEN49230 ELSELOCATE12,15:PRINT"Do you wish to use a password for this system (Y/N) ";:GOSUB300:IFA$="N"THENPWFLG$="N":GOTO49225 ELSEPWFLG$="Y
49220 LOCATE14,15:PRINT"Enter your password for this system ";:INPUTPW$
49225 LOCATE16,15:PRINT"Are you using a Hard Disk System ";:GOSUB300:IFA$="Y"THENHDF$="Y"ELSEHDF$="N
49230 CLOSE:OPEN "PW.MAC" FOR OUTPUT AS #1:WRITE#1,DDSK$,PWFLG$,PW$,HDF$
49240 IFINSTR(DDSK$,":")=0 THENDDSK$=DDSK$+":
49250 IFFL="S"ORFL="1"THENRETURN
49260 CLOSE:GOSUB820:GOTO49040
49500 IFERR=53 THENRESUME49200
49550 CLS:LOCATE12,1:PRINT FNCN$("An unexpected ERROR has occured",80):PRINT:PRINT FNCN$("Basic Error # "+STR$(ERR)+" Line # "+STR$(ERL),80):PRINT:PRINT FNCN$("Press <ENTER> to continue...",80):CLOSE:GOSUB150:RESUME100
49700 A$=STRING$(RT,205):V$=CHR$(186):LOCATETOP,LFT:PRINT CHR$(201)+A$+CHR$(187);
49701 FORX=TOP+1 TOBOT
49702 LOCATEX,LFT:IFX=TOP+4 THENPRINT CHR$(204)+A$+CHR$(185);:GOTO49704
49703 PRINTV$;:LOCATEX,LFT+RT+1:PRINTV$;
49704 NEXT:LOCATEX,LFT:PRINT CHR$(200)+A$+CHR$(188);
49705 RETURN
49900 LOCATE12,20:PRINT"Please enter the date ";:AF$=F2(1):R=12:C=45:GOSUB50300:F1(YY)=AN$:FE="":F%=1:GOSUB55040:F%=0:IFFE="X"THEN49900 ELSEIFDE$=CHR$(255)THEN49910 ELSEDAT$=FND2$(AN$):IFVAL(RIGHT$(F1(YY),2))<80 THEN49900
49910 IFDE$=CHR$(255)THENDAT$=LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)+"/"+RIGHT$(DATE$,2):LOCATER,C:PRINTDAT$
49920 Y$=RIGHT$(DAT$,2):YEAR$=Y$
49930 GOSUB800:LOCATE15,1:PRINT FNCN$("Standby... Initializing ",80)
49940 PF=1:GOSUB57100
49950 IFN.BACC=0 THEN:GOTO49970
49960 FORX=1 TON.BACC:GET1,X:IFFH(15)<>"D"THENB.COD$(X)=FH(10)
49965 NEXT
49970 PF=2:GOSUB57200
49980 IFN.TACC=0 THEN49990
49985 FORX=1 TON.TACC:GET2,X:IFFH(25)<>"D"THENT.COD$(X)=FH(20)
49986 NEXT
49990 ONERRORGOTO58000:RETURN
50010 DEFSEG=0:POKE1047,0:RETURN
50020 DEFSEG=0:POKE1047,64:LOCATE23,68:COLOR0,7:PRINT" CAPS ";:COLOR7,0:RETURN
50030 DEFSEG=0:POKE1047,32:LOCATE23,75:COLOR0,7:PRINT" NUM ":COLOR7,0:RETURN
50040 DEFSEG=0:POKE1047,96:LOCATE23,68:COLOR0,7:PRINT" CAPS NUM ";:COLOR7,0:RETURN
50070 DEFSEG=0:POKE1050,PEEK(1052):DEFSEG:RETURN
50100 GOSUB50020:DE$="":AN$="":A=0:LOCATER,C:COLOR0,7:PRINT STRING$(A1," ");:IFFLG="S"THENCOLOR7,7
50110 IFA=A1THEN50140 ELSELOCATER,C+A
50120 GOSUB50500:IFINSTR(" .!@#$%^&*()-=+1234567890[]{};'`:?~,0/<>\|ABCDEFGHIJKLMNOPQRSTUVWXYZ",A$)THENLOCATER,C+A:COLOR7,0:PRINTA$;:A=A+1:LOCATER,C+A:COLOR0,7:AN$=AN$+A$:GOTO50110
50130 ONINSTR(CHR$(8)+CHR$(13)+CHR$(250)+CHR$(252),A$)GOTO50150,50180,50180,50180:BEEP:GOTO50110
50140 A$=INKEY$:IFA$=""THEN50140 ELSE50130
50150 IFA=0 THEN50110 ELSEIFA=<A1THENLOCATER,C+A-1:PRINT"
50160 AN$=LEFT$(AN$,LEN(AN$)-1):A=A-1:IFA<0 THENA=0:GOTO50110 ELSE50110
50170 A=0
50180 IFA$=CHR$(250)ORA$=CHR$(252)THENLOCATER,C:PRINT STRING$(A1," "); ELSELOCATER,C+A:PRINT STRING$(A1-A," ");:IFA$=CHR$(13)ANDAN$=""THENDE$=CHR$(255)
50190 COLOR7,0:LOCATER,C:PRINTAN$+STRING$(A1-LEN(AN$)+1," ");:RETURN
50200 GOSUB50040:S=1:AN$="":DE$="":LOCATER,C:COLOR0,7:PRINT"$";STRING$(A1,254);" ";:LOCATER,C+A1-2:PRINT".";
50210 GOSUB50500:IFINSTR("0123456789",A$)THEN50230 ELSEONINSTR("-"+"."+CHR$(8)+CHR$(13)+CHR$(250),A$)GOTO50250,50210,50200,50270,50260
50220 BEEP:GOTO50210
50230 AN$=AN$+A$:IFLEN(AN$)=1 THENAN$=CHR$(254)+AN$ ELSEIFLEN(AN$)>A1-1 THENAN$=LEFT$(AN$,A1-1) ELSEIFLEN(AN$)=3 ANDLEFT$(AN$,1)=CHR$(254)THENAN$=RIGHT$(AN$,2)
50240 LOCATER,C+A1-LEN(AN$):PRINT LEFT$(AN$,LEN(AN$)-2);".";RIGHT$(AN$,2);:GOTO50210
50250 S=-S:LOCATER,C+A1+1:PRINT"";:IFS=-1 THENPRINT"-";:GOTO50210 ELSEPRINT" ";:GOTO50210
50260 IFA$=CHR$(254)THENLOCATER,C+1:PRINT STRING$(A1,254);" ";:LOCATER,C+A1-2:PRINT".";:GOTO50290 ELSELOCATER,C:PRINT STRING$(A1+2," ");:GOTO50290
50270 IFLEN(AN$)=0 THENDE$=CHR$(255):LOCATER,C:PRINT STRING$(A1+2," ");:GOTO50290 ELSELOCATER,C+1:PRINT STRING$(A1-1-LEN(AN$)," ");:IFLEFT$(AN$,1)=CHR$(254)THENLOCATER,C+A1-1:PRINT"0";:MID$(AN$,1,1)="0
50280 AN$=MID$(AN$,1,LEN(AN$)-2)+"."+RIGHT$(AN$,2):IFS=-1 THENAN$="-"+AN$
50290 GOSUB50020:LOCATER,C:COLOR7,0:PRINT"$";STRING$(A1-LEN(AN$)+1," ")+AN$;:RETURN
50300 GOSUB50040:AN$="":DE$="":A=0:LOCATER,C:PRINTAF$;:GOSUB50350
50310 IFA>=LEN(AF$)THEN50360 ELSEA=INSTR(A+1,AF$,CHR$(254)):LOCATER,C+A-1
50320 GOSUB50500:IFINSTR("1234567890",A$)THENPRINTA$;:AN$=AN$+A$:GOTO50310
50330 ONINSTR(CHR$(8)+CHR$(13)+CHR$(250),A$)GOTO50300,50390,50380
50340 BEEP:GOTO50310
50350 LOCATER,C:COLOR23:PRINT CHR$(254):LOCATER,C:COLOR7:RETURN
50360 GOSUB50500:GOTO50330
50380 A=0:AN$="":LOCATER,C:PRINTAF$;
50390 IFAN$=""ANDA$=CHR$(13)THENDE$=CHR$(255)
50391 GOSUB50020:RETURN
50400 GOSUB50040:S=1:AN$="":DE$="":LOCATER,C-1:COLOR0,7:PRINT" ";STRING$(A1,"#");" ";
50410 GOSUB50500:IFINSTR("0123456789P",A$)<>0 THEN50420 ELSEONINSTR(CHR$(8)+"."+"-"+CHR$(13)+CHR$(250),A$)GOTO50400,50450,50430,50460,50480:BEEP:GOTO50410
50420 AN$=AN$+A$:IFLEN(AN$)>A1THENAN$=LEFT$(AN$,A1):GOTO50410 ELSELOCATER,C+A1-LEN(AN$):PRINTAN$;:GOTO50410
50430 S=-S:LOCATER,C+A1:PRINT"";:IFS=-1 THENPRINT"-"; ELSEPRINT" ";
50440 GOTO50410
50450 IFINSTR(AN$,".")=0 THEN50420 ELSE50410
50460 IFS=-1 THENAN$="-"+AN$
50470 IFAN$=""THEN50480 ELSELOCATER,C-1:COLOR7,0:PRINT" ";STRING$(A1-LEN(AN$)+1," ")+AN$;:GOTO50490
50480 COLOR7,0:IFA$=CHR$(250)THENLOCATER,C-1:PRINT" ";STRING$(A1," ");" "; ELSELOCATER,C-1:PRINT" ";STRING$(A1," ");" ";
50481 IFAN$=""ANDA$=CHR$(13)THENDE$=CHR$(255)
50490 GOSUB50020:RETURN
50500 GOSUB50070
50510 A$=INKEY$:IFA$=""THEN50510 ELSEIFLEN(A$)=2 THENFK%=ASC(RIGHT$(A$,1)):IFFK%=59 THENA$=CHR$(250):GOTO50530 ELSEIFFK%=60 THENA$=CHR$(251):GOTO50530 ELSEIFFK%=61 THENA$=CHR$(252):GOTO50530
50520 IFLEN(A$)=2 THEN50510
50530 RETURN
50800 T1=VAL(RIGHT$(TIME$,2)):T2=(T1+DELAY)MOD60
50801 WHILEABS((T1-T2))>0.01
50802 T1=VAL(RIGHT$(TIME$,2))
50803 WEND:RETURN
52000 BL$=" ":A$="":F9%=VAL(MID$(FX,2,2)):F7%=VAL(MID$(FX,4,2)):F8%=VAL(MID$(FX,6,2)):F7%=(F7%-1)*18+1:F8%=(F8%-1)*18+1:F6%=VAL(MID$(FX,8,2)):F6%=(F6%-1)*18+1
52010 ONINSTR("NCWR",LEFT$(FX,1))GOTO52030,52040,52042,52020
52020 FORF4%=F7%TOF8%STEP18:F3=MID$(F9(F9%),F4%+12,1):IFF3<>"$"THEN52029
52021 A1=VAL(MID$(F9(F9%),F4%+8,2)):R=VAL(MID$(F9(F9%),F4%,2)):C=VAL(MID$(F9(F9%),F4%+2,2))
52022 LOCATER,C:PRINTFH(A1);
52029 NEXT:RETURN
52030 IFF6%<F7%THENRETURN ELSEF9=MID$(F9(F9%),F6%,18):F3=MID$(F9,5,1):A1=VAL(MID$(F9,6,3)):R=VAL(MID$(F9,1,2)):C=VAL(MID$(F9,3,2)):IFF3="F"THENAF$=F2(A1)
52031 LOCATER,C-2:PRINTBL$;:COLOR7,0:LOCATER,C:IFLEFT$(FX,1)<>"C"THEN52034
52032 FE="":LOCATER,C-2:COLOR22:PRINTBL$;:GOSUB800:PRINT"Press <C> to change the field indicated by the ";CHR$(34);"=>";CHR$(34):PRINT"<F1> for Last field, <F2> for Next field, or <E> to End...";:GOSUB50500:COLOR7
52033 IFA$=CHR$(250)ORA$=CHR$(251)THEN52035 ELSEIFA$="E"THENLOCATER,C-2:PRINT" ";:RETURN ELSEIFA$<>"C"THEN52032
52034 GOSUB54000:ONINSTR("A$FN",F3)GOSUB50100,50200,50300,50400:IFLEFT$(FX,1)="C"ANDA$=CHR$(250)THEN52034
52035 LOCATER,C-2:PRINT" ";:IFA$=CHR$(250)THENF6%=F6%-18:GOTO52030 ELSEIFA$=CHR$(251)THEN52038
52037 F1(VAL(MID$(F9,11,2)))=AN$:GOSUB55000:IFFE="X"THENLOCATER,C-2:PRINTBL$;:GOTO52034 ELSEIFFE="E"THENRETURN
52038 F6%=F6%+18
52039 IFF6%>F8%THENA$=CHR$(255):RETURN ELSE52030
52040 FORF4%=F7%TOF8%STEP18:F1(VAL(MID$(F9(F9%),F4%+10,2)))="":NEXT
52041 BL$="=>":GOSUB52030
52042 RETURN
52060 RETURN
53000 N7=0:C7=0:M6=Y
53002 M6=INT(M6/2):IFM6=0 THEN53022
53004 K6=Y-M6:J6=1
53006 I6=J6
53008 L6=I6+M6
53010 C7=C7+1
53012 IFA$(I6)<=A$(L6)GOTO53018
53014 N7=N7+1:SWAPA$(I6),A$(L6):I6=I6-M6
53016 IFI6>=1 GOTO53008
53018 J6=J6+1:IFJ6>K6THEN53002
53020 GOTO53006
53022 RETURN
54000 GOSUB800
54001 ONVAL(MID$(F9,14,2))GOTO54010,54020,54030,54040,54050,54060,54070
54010 PRINT"Please enter the required data or,":GOTO54100
54020 PRINT"Enter a <C> to record a check, <D> for a deposit, or":PRINT" <M> to return to the Transaction Menu...";:RETURN
54030 PRINT"Enter a CODE for this Account or":GOTO54110
54040 PRINT"Enter the name 'FOR THE ACCOUNT OF:' or":GOTO54100
54050 PRINT"Enter the current balance of this account or":GOTO54100
54060 PRINT"Enter the amount spent year-to-date in this account or":GOTO54100
54070 LOCATE23,1:PRINT"Enter the Budget Code for the Account to be assigned":GOTO54120
54090 LOCATE23,1:PRINT"Enter the Record Number or":GOTO54110
54100 PRINT"Press <F1> to change last entry...";:RETURN
54110 PRINT"Press <F1> for the MENU...";:RETURN
54120 PRINT"Press <F1> to change last entry, or ";:COLOR23,0:PRINT"<F3>";:COLOR7:PRINT" to EXIT Budget Code assignment...";:RETURN
55000 FE="":XX=VAL(MID$(F9,9,2)):YY=VAL(MID$(F9,11,2))
55001 ONVAL(MID$(F9,16,2))GOTO55010,55020,55030,55040,55050,55060,55070,55080,55090,55100,55110,55120:RETURN
55010 LSETFH(XX)=F1(YY):RETURN
55020 LSETFH(XX)=MKD$(VAL(F1(YY))):LOCATER,C:PRINT" ";USINGP6$;CVD(FH(XX));:RETURN
55030 IFDE$=CHR$(255)ORINSTR("CDM",F1(YY))=0 THENFE="X":BEEP:RETURN ELSE55010
55040 IFDE$=CHR$(255)THENF1(YY)=T.DAT$:LOCATER,C:PRINT FND1$(F1(YY));:GOTO55010 ELSET1=VAL(LEFT$(F1(YY),2)):T2=VAL(MID$(F1(YY),3,2)):IFT1<1 ORT1>12 ORT2<1 ORT2>31 THENFE="X":BEEP:RETURN
55041 IFF%=1 THEN55045 ELSEIFLEFT$(MO$(T1),3)<>MO$THENGOSUB800:BEEP:PRINT"Are you sure you want to enter ";MO$(T1);" data":PRINT"in the ";MO$;" file (Y/N)?";:B1=R:B2=C:R=24:C=25:GOSUB310:R=B1:C=B2:IFAN$="N"THENFE="X":RETURN
55045 T.DAT$=F1(YY):GOTO55010
55050 IFA$=CHR$(252)THENFE="E":LSETFAC(XX)="****":RETURN ELSECK$=F1(YY):GOSUB40200:IFCODE$<>"V"THENT1=R:T2=C:GOSUB55300:RETURN
55051 LSETFAC(XX)=F1(YY):LSETFAC(XX+1)="****":RETURN
55060 LSETFTX(XX)=F1(YY):RETURN
55070 IFDE$=CHR$(255)THENLSETFAM(XX)=MKD$(A.BAL#) ELSELSETFAM(XX)=MKD$(VAL(F1(YY)))
55071 LOCATER,C:PRINT" ";USINGP6$;CVD(FAM(XX));:A.BAL#=A.BAL#-CVD(FAM(XX)):IFFL<>"C"THENLOCATER,63:PRINT" ";USINGP6$;A.BAL#;
55072 RETURN
55080 IFFL="L"THEN55100 ELSECK$=F1(YY):GOSUB40100:IFCODE$="V"THENGOSUB55210:FE="X":RETURN ELSE55010
55090 IFFL="L"THEN55110 ELSECK$=F1(YY):GOSUB40200:IFCODE$="V"THENGOSUB55210:FE="X":RETURN ELSE55010
55100 CK$=F1(YY):GOSUB40100:IFCODE$<>"V"THENGOSUB55200:FE="X":RETURN ELSE55010
55110 CK$=F1(YY):GOSUB40200:IFCODE$<>"V"THENGOSUB55200:FE="X":RETURN ELSE55010
55120 P$="":IFDE$<>CHR$(255)THEN55122
55121 IFLEFT$(FH(XX),1)="P"THENF1(YY)="P":LOCATER,C:PRINT"PR CK "; ELSECK.NO=CK.NO+1:F1(YY)=STR$(CK.NO):LOCATER,C:PRINTF1(YY);
55122 IFINSTR("P",F1(YY))<>0 THENP$="P":F1(YY)="P":LOCATER,C:PRINT"PR CK "; ELSECK.NO=VAL(F1(YY))
55125 GOTO55010
55200 GOSUB800:PRINT"Account ";F1(YY);" is not a valid account":GOSUB55250:RETURN
55210 GOSUB800:PRINT"This account CODE has already been used":GOSUB55250:RETURN
55250 BEEP:PRINT"Press ";:COLOR23:PRINT"<ENTER>";:COLOR7:PRINT" to continue...";:GOSUB150:RETURN
55300 BEEP:GOSUB800:PRINT"Account ";F1(YY);" is not a valid account":PRINT"Press <A> to assign this code or <ENTER> to re-enter the code...";:GOSUB150:ONINSTR("A"+CHR$(13),A$)GOTO55310,55390:BEEP:GOTO55300
55310 GOSUB800:PRINT"Budget Code:";:R=23:C=14:A1=4:GOSUB50100:IFA$=CHR$(250)THEN55300 ELSECK$=AN$:GOSUB40200:IFCODE$="V"THENGOSUB55210:GOTO55310 ELSELSETFH(20)=AN$
55315 LOCATE23,22:PRINT"Acc. description:";:R=23:C=40:A1=22:GOSUB50100:IFA$=CHR$(250)THEN55320 ELSELSETFH(21)=AN$
55320 LOCATE24,1:PRINT"Budgeted amount:";:R=24:C=22:A1=10:GOSUB50200:IFA$=CHR$(250)THEN55310 ELSELSETFH(22)=MKD$(VAL(AN$))
55340 LSETFH(24)=MKD$(0#):N.TACC=N.TACC+1:T.COD$(N.TACC)=FH(20):PUT3,N.TACC
55390 R=T1:C=T2:A1=4:FE="X":RETURN
57000 ACC$=MO$+Y$+".TRX
57001 CLOSEPF:OPEN"R",PF,DDSK$+ACC$,256:N.TRX=LOF(PF)/256
57010 FIELD PF,1 AS FH(1),4 AS FH(2),5 AS FH(3), 30 AS FH(4),8 AS FH(5),25 AS FH(6),1 AS FH(7),4 AS FH(8)
57020 FORX=0 TO5:FIELD PF,(78+X*16) AS D$,4 AS FAC(X+1),4 AS FTX(X+1),8 AS FAM(X+1):NEXT:RETURN
57100 CLOSEPF:OPEN"R",PF,DDSK$+"BANKAC"+Y$+".MAC",224:N.BACC=LOF(PF)/224
57110 FIELD PF,4 AS FH(10),25 AS FH(11),25 AS FH(12),12 AS FH(13),8 AS FH(14),1 AS FH(15)
57120 FORX=0 TO11:FIELD PF,(75+10*X) AS D$,8 AS BAL$(X+1),1 AS CLR$(X+1),1 AS TRX$(X+1):NEXT:FIELD PF,195 AS D$,8 AS BAL$(13),4 AS CK.N$:RETURN
57200 CLOSEPF:OPEN"R",PF,DDSK$+"BUDACC"+Y$+".MAC",64:N.TACC=LOF(PF)/64
57210 FIELD PF,4 AS FH(20),22 AS FH(21), 8 AS FH(22),8 AS FH(23),8 AS FH(24),1 AS FH(25):RETURN
57300 CLOSEPF:OPEN"R",PF,DDSK$+"AUTOPMT.MAC",192:N.APMT=LOF(PF)/192
57310 FIELD PF,4 AS FH(30),30 AS FH(31),8 AS FH(32),25 AS FH(33),4 AS FH(34),4 AS FH(35),30 AS FH(36),30 AS FH(37),30 AS FH(38),1 AS FH(39):RETURN
57500 CLOSEPF:OPEN"R",PF,DDSK$+"BANKAC"+Y$+".MAC",224
57510 FIELD PF,4 AS F(10),25 AS F(11),25 AS F(12),12 AS F(13),8 AS F(14),1 AS F(15)
57520 FORX=0 TO11:FIELD PF,(75+10*X) AS D$,8 AS BA$(X+1),1 AS CL$(X+1),1 AS TR$(X+1):NEXT:FIELD PF,195 AS D$,8 AS BA$(13),4 AS C.N$:RETURN
57600 CLOSEPF:OPEN"R",PF,DDSK$+"BUDACC"+Y$+".MAC",64
57610 FIELD PF,4 AS F(20),22 AS F(21), 8 AS F(22),8 AS F(23),8 AS F(24):RETURN
58000 IFERR=61 THENCLS:LOCATE12,1:PRINT FNCN$("Your DATA Disk is Full... Consult Your MICRO ACCOUNTING SYSTEM MANUAL.",80):PRINT:PRINT FNCN$("Press <ENTER>",80):GOSUB150:CLOSE:RESUME900
58010 GOSUB800:PRINT"An unexpected ERROR has occured... Basic Error ";ERR;" Line ";ERL:BEEP:PRINT"Press <ENTER> to continue";:GOSUB150:CLOSE:Y$=Y2$:RESUME100
60000 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
60010 DATATEN,,,ELEVEN,,ONE,TWELVE,TWENTY,TWO,THIRTEEN,THIRTY,THREE,FOURTEEN,FORTY,FOUR,FIFTEEN,FIFTY,FIVE,SIXTEEN,SIXTY,SIX,SEVENTEEN,SEVENTY,SEVEN,EIGHTEEN,EIGHTY,EIGHT,NINETEEN,NINETY,NINE
MA.DOC
MICRO ACCOUNTING SYSTEM
A Multi-purpose Check Register
Accounting System
Written by
Donald R. Ramsey
727 Bunker Hill #70
Houston, Texas 77024
Version 1.0
TABLE OF CONTENTS
Program Overview 1
System Requirements 2
Limitations 2
Program Standards 2
Installing System 2
Program Operation
Main Menu 3
Initializing System 4
File Maintenance 5
Transaction Entry 6
Automatic Payments 6
Individual Entries 7
Handling Cash Entries 8
Print Checks 5, 8
Reports 9
Checkbook Reconciliation 10
Begin New Year 10
When a Data Disk is Full 11
The User-Supported Concept 12
Modifying the program 13
Copying Program for Other Users 13
Appendix
MICRO ACCOUNTING SYSTEM
A Multi-Purpose Check Register
Accounting System
PROGRAM OVERVIEW
If you are like most people, you have only a vague idea
as to where your money is spent each year. Of course, keeping
better records is the solution, but this is usually a big
job that never gets done. However, if only one entry was
required for each transaction and this one entry would make
available a wide variety of reports, almost everyone would take
the time. That is what this program is all about.
This software was written for the small business that can
use just a check-register for it's accounting as well as for all
individuals. Imagine sitting down to write checks and entering
the information into the computer instead of your checkbook.
That's all there is to it. The program will even print checks
that have been addressed for use with window envelopes. But,
that's only the beginning! The standard check register can be
printed with a running balance, a memo report is available, and
also an account distribution summary is yours for the asking.
Probably more significant, especially at tax time, is the
Budget Analysis and Average Month report. This report shows
how much has been expended in each budget account for the current
month and for the year. It also shows the amount that was
budgeted so you can compare it to the actual expenditure and it
computes an average monthly amount for each account.
Ever wonder how much you are spending on a particular item
or what the total cash value of all your bank accounts is?
Simply run the Selected Account Detail or the Bank Account Summary
and you will know in a minute. The Account Detail report searches
the months you specify for all transactions in any account you choose
and the Bank Account Summary lists all accounts and totals the
balances of all bank accounts.
The system is menu driven and well prompted for user ease.
All corrections are very easily accomplished and can be done
at any time (you never have to wait until all the data has been
entered to make corrections). Once you have used this program
for a while, you will wonder how you ever did without it.
Page 2
SYSTEM REQUIREMENTS:
IBM PC, IBM XT, or compatible
64K RAM
1 Disk Drive ( 2 preferred )
Printer
PC-DOS or MS-DOS with BASIC or BASICA
LIMITATIONS:
30 Bank Accounts
200 Budget Accounts
PROGRAM STANDARDS:
The software was designed to be very user friendly. It is
a single program file, so moving from section to section is very
fast since there are no modules to be chained. Data entry is fast
and there are numerous reports to make your end-of-year or tax
accounting almost painless. The software will even print checks
with addresses for use with window envelopes if you wish. And
you certainly can't beat the price.
This manual and the program uses, in it's documentation,
brackets ( < > ) to enclose any letter or KEY that should be
pressed for a given action. For instance, if the letter <P> is
to be pressed, all you need do is press P. It is not necessary
to type the brackets.
***** IMPORTANT *****
The bottom two lines of the screen are reserved for user
prompts. If you have a question as to what to do next, consult
these lines. Also, the <F1> key will usually take you back one
step so you may correct any errors that have been made. This
<F1> key is VERY IMPORTANT. Using it allows immediate correction
of all errors, so remember it!
Number locks are automatically set when needed so the number
key pad can be used for quick entry of numbers. It is not even
necessary to type the decimal point in a dollar entry. Dates are
entered by typing only the numbers, the slashes ( / ) are not
required. To correct typing errors, use the backspace key ( large
arrow by the = sign ) because the arrow keys are inoperative.
INSTALLING SYSTEM:
Simply copy MA.BAS to your system disk (a system disk is
a disk you have formatted using the FORMAT [d:]/S command; see
DOS manual. Hard disk users disregard this format procedure) that
contains either BASIC or BASICA. For example, for a 2 disk system,
put the MICRO ACCOUNTING Disk in Drive B and type COPY B:MA.BAS.
To run the program after it has been installed on your
system disk, you must enter BASIC and specify 4 files with a
buffer Size of 256, e.g., BASIC MA.BAS/F:4/S:256. This may,
of course, be put in a batch file for easy starting. This will
NOT work unless BASIC (BASICA if you wish) is on your disk.
Page 3
PROGRAM OPERATION:
Starting the program:
With the exception of the first time the program is run,
all that is necessary to begin operation, is the date entry.
If today's date is OK just press <ENTER> and the system will
default to today's date. After a short pause this menu will
be displayed.
MAIN MENU
<T> Transaction Entry
<2> Reconcile Checkbook
<3> Run Alternate Accounts
<4> Begin New Year
<5> End Program
<R> Report Menu
<F> File Maintenance Menu
<D> Print Program Documentation
<T> Transaction Entry: all transactions, both deposits and
checks are entered in this section. Check printing is
also done here.
<2> Reconcile Checkbook: checks are cleared and bank
statement is reconciled.
<3> Run Alternate Accounts: starts the system again so that
another data disk with other bank accounts and budget
codes may be run. Hard disk users may specify a new
path for data here.
<4> Begin New Year: prepare a new data disk for the new year.
<5> End Program: exit to DOS
<R> Report Menu: go to the report section
<F> File Maintenance Menu: add, delete, and make changes to
budget, bank, and auto-payment files
<D> Print Program Documentation: instructions for printing
document.
Page 4
INITIALIZING THE SYSTEM:
Before the program can be run, your bank accounts and budget
accounts must be defined. This is done in the File Maintenance
section. Note: maximum number of characters in bank and budget codes
is 4. You should take some time to decide what budget accounts
you might need before making these entries because the budget
accounts are sorted alphabetically in the report section. As a
suggestion, group all similar codes under the same first letter,
e.g. all household accounts might go under the letter H; HMOR for
household mortgage, HUT for household utilities, etc.(see Appendix)
After the accounts have been entered, you can go to the Report
section and run the Budget Analysis to get a sorted list of the
codes just to make sure you have what you want.
If you are beginning this system after the first of the year
you may enter an amount in the year-to-date column for the amount
already expended.
After both Budget Codes and Bank Codes have been entered,
you can make entries in the Transaction section.
** Note to Hard Disk Users and anyone who will use the system with
one or more sets of alternate Bank and Budget Codes **
Hard disk users may specify a path for their data disk.
This is done at the DOS prompt with the MKDIR or MD Command
(see DOS Manual). Once the directory is created, you may
set a path to your data when specifying your data disk. This
is useful if you need to use the system for other accounts and
this alternate data needs to be on a separate disk.
Example: C:\CRPER\ for check register personal.
Hard disk users will have to answer one additional question
on start-up. Each time the program is started, the current data
disk will be displayed. If this is the data disk and the path
you need, simply press <ENTER>. This protection is added for
safety in assuring that the records you add in a session do go
in the proper files. (To by-pass this feature, modify line
49035 of the program to be a remark line. Add a ' to the
start of the line and save the modified program as MA.BAS).
Floppy disk users may also use the system for alternate
accounts by putting the different data on separate disks.
Page 5
FILE MAINTENANCE:
FILE MAINTENANCE MENU
<1> Bank Account Information
<2> Budget Information
<3> Automatic Payment Accounts
<4> Re-build Account Balances
<5> Change Password or Data Disk
<1> Bank Account Information: assign, delete, change
bank account information.
<2> Budget Information: same as bank accounts. Do not leave
more than one space between words in account description
because part of the description will not be printed
in one of the reports if an extra space is added.
<3> Automatic Payment Accounts: This file is to allow
you to make quick entry of data for any bills that
are paid on a regular basis. The amount and bank from
which the payment is made can be easily changed when
the bill is paid in the transaction section. There is
also space for addresses that may be used to address
checks for use with window envelopes.
<4> Re-build Account Balances: use this section if you
think that some of the accounts may have incorrect
balances. All balances for budget and bank accounts
are re-constructed.
<5> Change Data Disk or Password: if you use a password
it can be changed or if you initially elect not to
use this protection it can be added here.
Page 6
TRANSACTION ENTRY:
TRANSACTION MENU
<1> Automatic Payments
<2> Individual Entries
<3> Print Checks
Upon entering this section you will be given an option
for entering transactions. If you have defined automatic
payment accounts in the File Maintenance section you can use
option <1> of this menu. Otherwise, only individual entries
may be made.
AUTOMATIC PAYMENTS:
This section allows quick and easy data entry for bills
that are paid on a regular basis. To make payments, enter the
month and year of transactions as requested. The records that
may be paid are then displayed. Press <P> to pay a bill, then
select the record to pay. The selection is then displayed and
you may pay it as is, change the bank or amount and then pay,
or you may skip the item entirely.
If you elect to pay this selection, you then will be asked
for the date. Pressing <ENTER> will default this to the last
date entered or the system date if no date has been used. Next
the check number will be required and again pressing <ENTER>
will default this item to the last check # + 1 or you may enter
any check number.
The last item is a request to print a check. If you do NOT
wish to print a check, press <ENTER>, otherwise, if you do wish
to have the check printed, the printer must be turned on and
the forms properly positioned. Once this last item is complete
the check will be filed on disk and all accounts up-dated.
Check forms may be obtained from:
NEBS COMPUTER FORMS
12 SOUTH STREET
TOWNSEND, MASS. 01469
1-800-325-1117
Product 9020 or 9024
Page 7
INDIVIDUAL ENTRIES:
Checks or deposits in any bank account are made in this
section. You must select a Bank code and the month and year
for transactions before entering data. Once these items are
selected they remain in effect until you return to the
Transaction Menu. *** WARNING *** Entries in this section are
NOT sorted by date. Also, if you have selected January as the
month for transactions and entered checks that are dated in
February, these February checks will be filed in the January file.
Now, either checks or deposits may be selected. The date
may be entered from the key pad or you may press <ENTER> to
default to the last date entered. Check number is then entered
or default to the last check #+1 by pressing <ENTER>. Another
option for the check # is to enter the letter P. Entering a <P>
will flag this check for later printing in the Print Check Section.
Once the check portion of this entry has been made, budget
accounts are then assigned. You may assign as many as six budget
accounts or you can exit this portion of the transaction by pressing
the <F3> key when entering the Budget code. To assign a Budget code
enter any previously assigned code. If the code you chose has not
been assigned, there will be a BEEP and you will be given the
opportunity to either assign the code or change your entry.
The tax code is then requested. This may be assigned or you
can press <ENTER> for no assignment. These codes are not error
checked and you have to keep up with your assignments personally
(this is for future expansion).
To assign the amount, you have two options. You may press
<ENTER> and the entire amount of the check will be assigned to
this budget code or you may enter a portion of the check amount.
If this second option is taken, the remaining amount will be
displayed and you will be allowed to assign the remainder to
other budget codes ( max 6 ).
After all entries for this transaction are made, there
will be a last chance to make corrections ( did you remember
that corrections could be made immediately during data entry
by pressing the <F1> key ). Press <C> to make corrections and
then use the <F1> and <F2> keys, as prompted on the bottom two
lines, to scroll through the entries. To change an entry that
the => selects, press <C> then make the change. You can exit
changes at any time by pressing the <E> key.
*** WARNING *** Once this last chance to make a change
has passed, you will no longer be able to change this
transaction. The reason for this is to give a good audit
trail. You may, however, correct the entry by making another
transaction to offset the error (Payee/Payor could be a note
to yourself stating the change).
Page 8
HANDLING CASH ENTRIES:
Cash entries may be handled in one of two ways. You may
assign a bank account called CASH or you may make a memo
entry in any bank account.
If you assign the bank account `CASH', deposits and
withdrawals (checks) are handled as any other bank account.
However, this bank balance will show in the Bank Account
Summary Report (see Report Section).
Maybe a better way would be to make a MEMO entry in any
bank account that is assigned. To do this, write a check as
usual but for the amount enter 0.00 or just press <ENTER>.
This 0.00 amount will not affect the bank balance and then the
entry can be assigned to any budget account as a cash paid
item.
PRINT CHECKS:
This option of the Transaction Menu prints checks that
have been flagged in the Individual Transaction entry section
by entering a P for the check number. Load the check forms
into the printer and the computer will then automatically
print all checks that have been flagged and assign check
numbers to the transaction.
Check forms may be obtained from:
NEBS COMPUTER FORMS
12 SOUTH STREET
TOWNSEND, MASS. 01469
1-800-325-1117
Product 9020 or 9024
Page 9
REPORTS:
REPORT MENU
<1> List Transaction Register
<2> Budget Analysis and Average Month
<3> Memo Report
<4> Bank Account Summary
<5> Account Distribution Report (printer only)
<6> Selected Account Detail (printer only)
<7> Selected Tax Code Detail (printer only)
<1> List Transaction Register: list the register of the bank
of your choice with running balances and totals of all
deposits and checks. An * by the check number
indicates that this check has cleared the Bank and
has been reconciled in your check register.
<2> Budget Analysis and Average Month: A sorted list of all
your budget accounts with a description of each, the
amount that was budgeted in this category, what was spent
in the month of the report, the average amount spent in
a month, and the year-to-date amount.
<3> Memo Report: list of memos that were made in transaction
entry. An * by the amount in this report indicates
that this transaction was a deposit.
<4> Bank Account Summary: list all bank accounts and their
current balance and give a total of all the balances.
<5> Account Distribution Report: report to show how each check
was distributed among the different budget codes.
<6> Selected Account Detail: list all entries for any budget
code you select over any period of time you choose.
<7> Selected Tax Code Detail: same as <6> except for tax codes.
Page 10
CHECKBOOK RECONCILIATION:
Checks can be reconciled by checking off items just as
you might if you were using a checkbook. Just read the last two
lines of the screen for help.
Once the checks are cleared, the checkbook may be
reconciled. The report to the screen does not give the detail
that is available in the printed report. The printout contains
a listing of all items that have not been cleared that is not
available in the screen report.
BEGIN NEW YEAR:
This procedure is used to prepare a new data disk for the
new year.
** IMPORTANT ** USE ONLY A BACKUP DATA DISK FOR THIS PROCEDURE!
Once the backup data disk has been made, put it in the
drive normally used for data and follow the screen instructions.
All transactions for last year are erased from the new
data disk, all budget code year-to-date balances are set to
zero, and all bank balances are set to last year's ending
balance.
Page 11
WHEN A DATA DISK IS FULL:
Most people should be able to keep an entire year of data
on a single disk. However, should you run out of space, follow
these steps:
1. Return to DOS by the End Program Option.
2. Format a new data disk (see DOS manual)
3. COPY mmmyy.TRX to the new data disk.
mmm = the month in which you were entering data
when the disk became full (e.g. JAN)
yy = the year in which you are working ( e.g. 84)
4. DEL mmmyy.TRX on the FULL data disk.
5. Use the new data disk and re-run the program.
6. Re-enter the transaction on which the disk became full.
Example:
If you were entering data in November 1985 and you got a
`DISK FULL' error message, you would ( assuming a 2 drive
system ) return to DOS by the End Program option of the
Main Menu, format a new data disk, and put the new data
disk in Drive B and the full Data disk in Drive A. Then
type COPY NOV85.TRX B:. Once the copy was complete,
type DEL NOV85.TRX.
Replace the full data disk with the MICRO ACCOUNTING Program
Disk and type MA ( MA.BAT if you prefer ).
Page 12
tm
====================== F R E E W A R E =========================
User-supported Software
If you have received this program from another
user and find it of value, your contribution
will be appreciated ( $35.00 suggested ).
______________________
Donald R. Ramsey
727 Bunker Hill #70
Houston, Texas 77024
_______________________
Regardless of whether you make a contribution, you are
encouraged to copy and distribute this program.
===============================================================
The user-supported concept:
Anyone may request a copy of a user-supported program by
sending a blank, formatted disk to the program author together
with an addressed, postage-paid return mailer. A copy of the
program, with documentation, will be sent by return mail on
user's disk.
The program carries a notice suggesting a contribution for
the software. Making a contribution is voluntary on the part of
the user.
Regardless of whether a contribution is made, the user is
is encouraged to copy the program for trial use by others
on a private, non-commercial basis. Payment for use is
discretionary on the part or each subsequent user.
FREEWARE is a trademark of:
The Headland Press
P.O. Box 862
Tiburon, CA. 94920
Page 13
MODIFYING THE PROGRAM
I have made every effort to supply a program that is
free of bugs and will provide the user with an easy to use,
fast operating system. However, many people may feel that
this version of the program could be modified to better meet
their needs. I fully encourage you to make any modifications
that you feel necessary.
** Please do not distribute a modified program to
** other users. The reason for this is if people
** have problems with the program, they contact me.
** If the program is modified, I do not know what
** they have and may not be able to help.
If you do come up with useful modifications, please
keep them in a merge file that can be incorporated into the
system at the user's option.
I also encourage you to contact me regarding any problems,
suggestions, or modifications to the program. To facilitate
the modification process, on request, I will supply a commented
version of the program. Also included is a listing of all
major variables, file structures, and comments on the major
routines. For this disk, I do request a $10.00 contribution.
COPYING THE PROGRAM FOR OTHER USERS:
The following files must be on the new user's disk:
MA.BAS
MA.DOC
MADOC.BAT
MACOPY.BAT
MACOPY.BAT is a batch file for copying the required
files to a user's disk. It assumes a 2 drive system with
Drive A as the source disk.
EXAMPLE USE OF MACOPY.BAT:
1. Put Original MICRO ACCOUNTING disk in Drive A
2. Put New user's Formatted System disk in drive B
(User's disk should contain BASIC or BASICA)
3. Type MACOPY.BAT and press <ENTER>.
4. The required files will be copied to Drive B.
APPENDIX
SAMPLE BUDGET CODE:
Code Description
==== ===========
AEX1 Auto- car 1 expense
AEX2 Auto- car 2 expense
AGAS Auto- gas
APMT Auto- payments
AZ
BCOM Business- computer
BENT Business- entertaining
BSUP Business- supplies
BTEL Business- telephone
BZ
CASH Pocket cash
CLTH Clothes
CONT Contributions
DUMP Catch all category
FUN Hobbies & entertainment
GIFT Gifts
H
HADU Home- association dues
HEL Home- electric bill
HFUR Home- furnishings
HINS Home- insurance
HMOR Home- mortgage
HTEL Home- telephone
HWAT Home- water
HZ
IHUS Income- husband
IWIF Income- wife
IDIV Income- dividends
IINT Income- interest
IMIS Income- miscellaneous
IZ
MAG Magazines
MAIL Stamps & postage
MED Medical
TAX Taxes
UNDU Union dues
XFER Transfer $ acc to acc
SAMPLE BANK CODE:
CK__ Bank checking account
CKCU Checking account credit union
S___ Saving account
Directory of PC-SIG Library Disk #0179
Volume in drive A has no label
Directory of A:\
CRC TXT 2110 11-15-84 7:08a
CRCK4 COM 1536 10-21-82 7:54p
MA BAS 41896 3-12-84 8:43a
MA DOC 25882 3-12-84 9:39a
MACOPY BAT 370 3-04-84 12:30a
MADOC BAT 667 2-16-84 1:20p
PIZZA EXE 28800 1-01-80 12:04a
SCR10 DOC 1920 1-01-80 12:19a
SCR11 DOC 1920 1-01-80 12:21a
SCR12 DOC 1920 1-01-80 2:00a
SCR13 DOC 1920 1-01-80 1:59a
SCR14 DOC 1920 1-01-80 1:58a
SCR15 DOC 1920 1-01-80 12:26a
SCR16 DOC 1920 1-01-80 12:29a
SCR17 DOC 1920 1-01-80 12:32a
SCR18 DOC 1920 1-01-80 3:19a
SCR19 DOC 1920 1-01-80 12:36a
SCR2 DOC 1920 1-01-80 12:02a
SCR20 DOC 1920 1-01-80 12:41a
SCR21 DOC 1920 1-01-80 3:55a
SCR22 DOC 1920 1-01-80 12:54a
SCR23 DOC 1920 1-01-80 12:59a
SCR24 DOC 1920 1-01-80 1:05a
SCR25 DOC 1920 1-01-80 1:09a
SCR26 DOC 1920 1-01-80 1:12a
SCR27 DOC 1920 1-01-80 1:27a
SCR3 DOC 1920 1-01-80 12:10a
SCR4 DOC 1920 1-01-80 12:06a
SCR5 DOC 1920 1-01-80 12:10a
SCR6 DOC 1920 1-01-80 12:12a
SCR7 DOC 1920 1-01-80 12:14a
SCR8 DOC 1920 1-01-80 12:16a
SCR9 DOC 1920 1-01-80 12:18a
XXX 1024 5-28-84 6:07p
XXX BAK 1176 5-28-84 6:06p
35 file(s) 153381 bytes
1536 bytes free