PC-Blue - MS DOS Public Domain Library

home *** CD-ROM | disk | FTP | other *** search

/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol120 / chkcon.bas (.txt) < prev next >

Wrap

GW-BASIC | 1986-12-15 | 27.4 KB | 864 lines

1 CLS 10 REM - THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF CARL T. KIKER 20 REM - 7713 GLENCANNON DR. 30 REM - CHARLOTTE, NC 28212 40 REM - PHONE (704)536-3107 48 PRINT "The heading must be left intact and not removed from the program. 49 PRINT "If it is removed then all rights to use the program are withdrawn. 50 PRINT " I hereby grant anyone in a computer club to freely copy and use 60 PRINT " this program. I retain full ownership of the program and all 70 PRINT " rights to it. No one is authorized to sell this program for profit. 80 PRINT " I will be glad to tailor the check printing portion of the program 90 PRINT " for a nominal fee of $15. I am changing the program to add some 100 PRINT " more features. You can find my address and phone number by 110 PRINT "listing lines 10 thru 40. Carl T. Kiker 120 PRINT:INPUT " Hit return to Continue.";R 130 CLS 140 PRINT 150 RESET:LOCATE 10,1:INPUT " Which account do you wish to open ";AN$ 160 SEL=0 170 CLS 180 LOCATE 3,1:PRINT " -=* BE SURE TO USE CAPS FOR ALL ENTRYS *=-" 190 PRINT SPC(9);STRING$(63,8) 200 PRINT SPC(9);CHR$(8); " ";CHR$(8) 210 PRINT SPC(9);CHR$(8);" Chose one of the following functions! ";CHR$(8) 220 PRINT SPC(9);CHR$(8); " 1...Add Checks To File 11...Interogate By Flag ";CHR$(8) 230 PRINT SPC(9);CHR$(8); " 2...Clear Checks 12...List Chks,Dep,Wthd ";CHR$(8) 240 PRINT SPC(9);CHR$(8); " 3...List Outstanding Checks 13...Print Next Command ";CHR$(8) 250 PRINT SPC(9);CHR$(8); " 4...-=*Exit to Basic*=- 14...Fix Chks,Bal,Sbal ";CHR$(8) 260 PRINT SPC(9);CHR$(8); " 5...List Balance 15...Fix Dep,Wthd ";CHR$(8) 270 PRINT SPC(9);CHR$(8); " 6...Add Deposit 16...Search For By Name ";CHR$(8) 280 PRINT SPC(9);CHR$(8); " 7...Enter Withdrawal 17...Open An Account ";CHR$(8) 290 PRINT SPC(9);CHR$(8); " 8...List Statement Balance 18...List Files on A: ";CHR$(8) 300 PRINT SPC(9);CHR$(8); " 9...Print Checks 19...List Files on B: ";CHR$(8) 310 PRINT SPC(9);CHR$(8); " 10...Tally By Month 20...Reset ";CHR$(8) 320 PRINT SPC(9);CHR$(8); " 21...-=* CLOSE ALL FILES AND RETURN TO SYSTEM *=- ";CHR$(8) 330 PRINT SPC(9);CHR$(8); " ";CHR$(8) 340 PRINT SPC(9);STRING$(63,8) 350 PRINT SPC(27) "-=* What is your selection *=-" 360 PRINT:PRINT " -=* BE SURE TO USE CAPS FOR ALL ENTRYS *=-":PRINT 370 LOCATE 21,40:INPUT"";SEL 380 PRINT 390 IF SEL <1 OR SEL >22 THEN PRINT "Invalid selection.":GOTO 160 400 CLS 410 ON SEL GOSUB 440,920,1310,1590,1620,1670,2080,2540,440,4320,2700,3060,5540,5550,6330,6650,150,7330,7390,8040,8050,8560 420 D#=0:CN=0 430 PR=PR-1:GOTO 160 440 CLS 450 CHKNUM=1 460 ANN$=AN$+".CKS" 470 OPEN "R",#1,ANN$,49 480 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 490 GET #1,CHKNUM 500 IF CVS(F.NO$)=0 THEN 610 510 WHILE NOT EOF(1) 520 CHKNUM=CVS(F.NO$) 530 IF CN=0 THEN 550 540 IF CVS(F.NUM$) = CN THEN GOTO 5630 ELSE 550 550 IF CHKNUM=0 THEN 610 560 CHKNUM=CHKNUM+1 570 B=CHKNUM 580 GET #1,CHKNUM 590 WEND 600 PRINT STRING$(5,10) 610 PRINT STRING$(5,10) 620 INPUT " What is the next check number";NUM 630 IF NUM=0 THEN 880 640 RSET F.NUM$ = MKS$(NUM) 650 PRINT " Todays date is ";DATE$ 660 INPUT " What is the date (Mon,Day,Year) ";MON,DAY,YEAR 670 INPUT " Payment to: ",PAYTO$ 680 INPUT " What flag ";FLAG$ 690 TYPE$="C" 700 PRINT:PRINT " Check number";NUM 710 INPUT " Amount of payment: ",AMOUNT# 720 IF PAYTO$="" THEN 900 730 IF B=0 THEN B=1 740 RSET F.NO$=MKS$(B) 750 LSET F.FLAG$=FLAG$ 760 LSET F.TYPE$=TYPE$ 770 LSET F.PAYTO$=PAYTO$ 780 RSET F.MON$=MKI$(MON) 790 RSET F.DAY$=MKI$(DAY) 800 RSET F.YEAR$=MKI$(YEAR) 810 RSET F.AMOUNT$=MKD$(AMOUNT#) 820 LSET F.STATUS$="O" 830 PUT #1,B 840 CLOSE 850 GOTO 2360 860 IF SEL=9 THEN GOTO 4010 870 GOTO 610 880 D=0:CLOSE 890 AMOUNT#=0 900 RETURN 910 REM 920 LOCATE 12,1:INPUT " Enter checknumber to clear: ",NUM 930 CLS 940 IF NUM=0 THEN 1290 950 CHKNUM=1 960 D=0 970 ANN$=AN$+".CKS" 980 OPEN "R",#1,ANN$,49 990 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 1000 GET #1,CHKNUM 1010 WHILE NOT EOF(1) 1020 CHKNUM=CVS(F.NO$) 1030 IF CVS(F.NUM$)=NUM THEN 1120 1040 IF CHKNUM=0 THEN 1090 1050 CHKNUM=CHKNUM+1 1060 B=CHKNUM 1070 GET #1,CHKNUM 1080 WEND 1090 LOCATE 8,20:PRINT "Bad checknumber reading past end of file!" 1100 CLOSE 1110 GOTO 920 1120 AMOUNT# =CVD(F.AMOUNT$) 1130 MON=CVI(F.MON$) 1140 DAY=CVI(F.DAY$) 1150 YEAR=CVI(F.YEAR$) 1160 NUM=CVS(F.NUM$) 1170 LOCATE 10,1:PRINT USING "Check no: #### Date: ##/##/## To: & For $$####.##";NUM;MON;DAY;YEAR;F.PAYTO$;AMOUNT# 1180 B=CVS(F.NO$) 1190 IF F.STATUS$="C" THEN PRINT " Check already cleared":GOTO 1100 1200 PRINT:INPUT " Post check as cleared (Y/N)? ",ANS$ 1210 CLS 1220 IF ANS$="Y" THEN LSET F.STATUS$="C" 1230 IF ANS$="Y" THEN PUT #1,B 1240 IF ANS$="Y" THEN D#=-AMOUNT# 1250 CLOSE 1260 IF ANS$="Y" THEN GOSUB 2540 1270 CLOSE 1280 GOTO 920 1290 RETURN 1300 REM 1310 TOTAL#=0:CHKNUM=1 1320 CLS 1330 ANN$=AN$+".CKS" 1340 OPEN "R",#1,ANN$,49 1350 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 1360 GET #1,CHKNUM 1370 WHILE NOT EOF(1) 1380 IF F.STATUS$<> "O" THEN 1470 1390 AMOUNT# =CVD(F.AMOUNT$) 1400 MON=CVI(F.MON$) 1410 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 1420 NUM=CVS(F.NUM$) 1430 IF PR=1 THEN 1440 ELSE 1450 1440 LPRINT:LPRINT USING "Check: #### Date: ##/##/## To: & For: $$####.##";NUM;MON,DAY;YEAR;F.PAYTO$;AMOUNT# 1450 PRINT USING "Check: #### Date: ##/##/## To: & For: $$####.##";NUM;MON,DAY;YEAR;F.PAYTO$;AMOUNT# 1460 TOTAL# = TOTAL#+AMOUNT# 1470 <UNK! {0009}>CHKNUM = CHKNUM+1 1480 <UNK! {0009}>GET #1,CHKNUM 1490 WEND 1500 PRINT 1510 IF PR=1 THEN 1520 ELSE 1530 1520 LPRINT : LPRINT USING "Total for outstanding checks: $$####.##";TOTAL# 1530 PRINT : PRINT USING " Total for outstanding checks: $$####.##";TOTAL# 1540 CLOSE 1550 INPUT " Hit <RET> to continue";Q$ 1560 IF Q$="END" THEN END 1570 RETURN 1580 REM 1590 CLOSE 1600 GOTO 2060 1610 BAL# = BAL#-TOTAL# 1620 D#=0 1630 GOSUB 2410 1640 LOCATE 12,28:INPUT "Hit <RETURN> to continue ";Q$ 1650 IF Q$ = "STOP" THEN 2060 1660 RETURN 1670 CLS 1680 DEPNUM=1 1690 ANN$=AN$+".DEP" 1700 OPEN "R",#1,ANN$,43 1710 FIELD #1,25 AS F.DEPNAM$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.DEPAMO$,4 AS F.NO$ 1720 GET #1,DEPNUM 1730 IF CVS(F.NO$)=0 THEN 1810 1740 WHILE NOT EOF(1) 1750 DEPNUM=CVS(F.NO$) 1760 IF DEPNUM=0 THEN 1810 1770 DEPNUM=DEPNUM+1 1780 B=DEPNUM 1790 GET #1,DEPNUM 1800 WEND 1810 LOCATE 10,25:INPUT "Amount of deposit: ",DEPAMO# 1820 IF DEPAMO#=0 THEN CLOSE:IF DEPAMO#=0 THEN RETURN 1830 INPUT " Deposit From: ";DEPNAM$ 1840 PRINT " Todays date is: ";DATE$ 1850 INPUT " What is the date (M,D,Y) ";MON,DAY,YEAR 1860 IF B=0 THEN B=1 1870 LSET F.DEPNAM$=DEPNAM$ 1880 RSET F.NO$=MKS$(B) 1890 RSET F.MON$=MKI$(MON) 1900 RSET F.DAY$=MKI$(DAY) 1910 RSET F.YEAR$=MKI$(YEAR) 1920 RSET F.DEPAMO$=MKD$(DEPAMO#) 1930 D#=DEPAMO# 1940 PUT #1,B 1950 CLOSE 1960 GOSUB 2540 1970 GOSUB 2410 1980 D#=0 1990 CLS 2000 LOCATE 9,30:PRINT USING "Deposit = $$#####.##";DEPAMO# 2010 LOCATE 10,30:PRINT USING "Balance = $$#####.## ";BALANCE# 2020 LOCATE 11,20:PRINT USING "Statement balance = $$#####.## ";STABAL# 2030 LOCATE 13,20:INPUT "Hit <RET> to continue!";Q$ 2040 IF Q$="end" THEN 2060 2050 RETURN 2060 CLS 2070 END 2080 TOTAL#=0:WNUM=1 2090 ANN$=AN$+".WDR" 2100 OPEN "R",#1,ANN$,43 2110 FIELD #1,25 AS F.WNAME$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.WAMOUNT$,4 AS F.NO$ 2120 GET #1,WNUM 2130 IF CVS(F.NO$)=0 THEN 2210 2140 WHILE NOT EOF(1) 2150 WNUM=CVS(F.NO$) 2160 IF WNUM=0 THEN 2210 2170 WNUM=WNUM+1 2180 B=WNUM 2190 GET #1,WNUM 2200 WEND 2210 LOCATE 10,28:INPUT "Amount of Withdrawall = ";AMOUNT# 2220 IF AMOUNT#=0 THEN CLOSE : IF AMOUNT#=0 THEN RETURN 2230 INPUT " Withdrawn by ";WNAME$ 2240 PRINT " Todays date is: ";DATE$ 2250 INPUT " What is the date (M,D,Y) ";MON,DAY,YEAR 2260 LSET F.WNAME$=WNAME$ 2270 RSET F.MON$=MKI$(MON) 2280 RSET F.DAY$=MKI$(DAY) 2290 RSET F.YEAR$=MKI$(YEAR) 2300 IF B=0 THEN B=1 2310 WNUM=B 2320 RSET F.NO$=MKS$(WNUM) 2330 RSET F.WAMOUNT$=MKD$(AMOUNT#) 2340 PUT #1,B 2350 CLOSE 2360 D#=-AMOUNT# 2370 GOSUB 2410 2380 IF SEL<>1 OR SEL<>9 THEN GOSUB 2540 ELSE RETURN 2390 IF SEL=9 THEN 4010 ELSE RETURN 2400 IF F.STATUS$="Y"THEN GOSUB 2540 ELSE 2410 2410 ANN$=AN$+".BAL" 2420 OPEN "R",#3,ANN$,8 2430 FIELD #3,8 AS F.BALANCE$ 2440 CLS 2450 GET #3,1 2460 BALANCE#=CVD(F.BALANCE$) 2470 BALANCE# = BALANCE# +D# 2480 LOCATE 9,29:PRINT USING "Balance = : $$#####.##";BALANCE# 2490 RSET F.BALANCE$=MKD$(BALANCE#) 2500 PUT #3,1 2510 CLOSE:IF SEL=1 OR SEL=9 THEN D#=0 2520 IF SEL=5 OR SEL=8 THEN D#=0 2530 RETURN 2540 IF SEL=9 THEN RETURN 2550 IF SEL=1 THEN RETURN 2560 ANN$=AN$+".SBA" 2570 OPEN "R",#1,ANN$,8 2580 FIELD #1,8 AS F.STABAL$ 2590 CLS 2600 GET #1,1 2610 STABAL#=CVD(F.STABAL$) 2620 STABAL#=STABAL#+D# 2630 LOCATE 7,1:PRINT USING " Statement balance =: $$#####.##";STABAL# 2640 RSET F.STABAL$=MKD$(STABAL#) 2650 PUT #1,1 2660 CLOSE 2670 IF SEL=2 OR SEL = 6 THEN RETURN 2680 PRINT STRING$(3,10):INPUT " Hit <RETURN> to continue";A$ 2690 IF A$<>"IMPOSSIBLE" THEN RETURN 2700 TOTAL#=0:CHKNUM=1 2710 CLS 2720 LOCATE 12,28:INPUT "Interogate by what flag ";F$ 2730 PRINT:PRINT 2740 CHKNUM=1 2750 ANN$=AN$+".CKS" 2760 OPEN "R",#1,ANN$,49 2770 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 2780 GET #1,CHKNUM 2790 WHILE NOT EOF(1) 2800 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 2810 CHKNUM=CVS(F.NO$) 2820 IF CHKNUM=0 THEN 2930 2830 AMOUNT# = CVD(F.AMOUNT$) 2840 IF F.PAYTO$="" THEN 3010 2850 IF PR=1 THEN GOTO 2860 ELSE GOTO 2870 2860 IF F.FLAG$=F$ THEN LPRINT USING "No: #### Date: ## ## ## Pay To: & For $$####.##";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 2870 IF F.FLAG$=F$ THEN PRINT USING "No: #### Date: ## ## ## Pay To: & For $$####.##";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 2880 IF F.FLAG$=F$ THEN TOTAL#=TOTAL#+AMOUNT# 2890 CHKNUM = CHKNUM+1 2900 GET #1,CHKNUM 2910 AMOUNT#=CVD(F.AMOUNT$) 2920 WEND 2930 PRINT 2940 IF PR=1 THEN GOTO 2950 ELSE GOTO 2970 2950 LPRINT:LPRINT USING "For flag: & Total = $$####.##";F$;TOTAL# 2960 LPRINT CHR$(12) 2970 PRINT USING " For Flag: & Total = $$####.##";F$;TOTAL# 2980 PRINT 2990 IF F$="X" THEN X=0.045*TOTAL#/1.045 3000 IF F$="X" THEN PRINT USING " Total sales tax paid = $$####.##";X 3010 CLOSE 3020 INPUT " Hit return to continue ";Q$ 3030 IF Q$="N" THEN 1590 3040 RETURN 3050 PRINT 3060 CLS 3070 LOCATE 10,18:INPUT "List checks(C),Deposits(D),Withdrawells(W)";L$ 3080 PRINT:PRINT 3090 IF L$="C" THEN GOTO 3120 3100 IF L$="D" THEN GOTO 3690 3110 IF L$="W" THEN GOTO 3410 3120 CHKNUM=1:TOTAL#=0 3130 ANN$=AN$+".CKS" 3140 OPEN "R",#1,ANN$,49 3150 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 3160 INPUT " Which month do you wish to list for ";LM 3170 PRINT 3180 GET #1,CHKNUM 3190 AMOUNT# =CVD(F.AMOUNT$) 3200 WHILE NOT EOF(1) 3210 IF LM=0 THEN 3230 3220 IF CVI(F.MON$)<>LM THEN 3280 3230 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 3240 IF PR=1 THEN 3250 ELSE 3260 3250 IF AMOUNT#<>0 THEN LPRINT USING "No: #### Date: ## ## ## To: & For $$#####.##";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 3260 IF AMOUNT#<>0 THEN PRINT USING "No: #### Date: ## ## ## To: & For: $$#####.##";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 3270 TOTAL#=TOTAL#+AMOUNT# 3280 CHKNUM=CHKNUM+1 3290 GET #1,CHKNUM 3300 AMOUNT#=CVD(F.AMOUNT$) 3310 WEND 3320 PRINT 3330 IF PR=1 THEN 3340 ELSE 3350 3340 LPRINT:LPRINT USING "Total checks = $$#####.##";TOTAL# 3350 PRINT:PRINT USING " Total checks = $$#####.##";TOTAL# 3360 CLOSE 3370 PRINT:PRINT 3380 INPUT " Hit return to continue";Q$ 3390 IF Q$="END" THEN 1590 ELSE 3400 3400 RETURN 3410 TOTAL#=0:WNUM=1 3420 ANN$=AN$+".WDR" 3430 OPEN "R",#1,ANN$,43 3440 FIELD #1,25 AS F.WNAME$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.WAMOUNT$,4 AS F.NO$ 3450 INPUT " Which month do you wish withdrawells listed for ";LM 3460 PRINT 3470 GET #1,WNUM 3480 AMOUNT#=CVD(F.WAMOUNT$) 3490 WHILE NOT EOF(1) 3500 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 3510 IF LM=0 THEN 3530 3520 IF MON<>LM THEN 3570 3530 IF PR=1 THEN 3540 ELSE 3550 3540 IF AMOUNT#<>0 THEN LPRINT USING "W.No: ### BY: & Date: ## ## ## Amnt: $$####.##";CVS(F.NO$);F.WNAME$;MON;DAY;YEAR;AMOUNT# 3550 IF AMOUNT#<>0 THEN PRINT USING "W.No: ### BY: & Date: ## ## ## Amnt: $$#####.##";CVS(F.NO$);F.WNAME$;MON;DAY;YEAR;AMOUNT# 3560 TOTAL#=TOTAL#+AMOUNT# 3570 WNUM=WNUM+1 3580 GET #1,WNUM 3590 AMOUNT# =CVD(F.WAMOUNT$) 3600 WEND 3610 PRINT 3620 IF PR=1 THEN 3630 ELSE 3640 3630 LPRINT:LPRINT USING "Total withdrawn = $$####.##";TOTAL# 3640 PRINT:PRINT USING " Total withdrawn = $$####.##";TOTAL# 3650 CLOSE 3660 INPUT " Hit return to continue ";C$ 3670 IF C$="5Y" THEN END 3680 RETURN 3690 TOTAL#=0:DEPNUM=1 3700 ANN$=AN$+".DEP" 3710 OPEN "R",#1,ANN$,43 3720 FIELD #1,25 AS F.DEPNAM$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.DEPAMO$,4 AS F.NO$ 3730 LOCATE 10,18:INPUT "Which month do you wish deposits listed for ";LM 3740 PRINT 3750 GET #1,DEPNUM 3760 WHILE NOT EOF(1) 3770 DEPNUM=CVS(F.NO$) 3780 IF DEPNUM=0 THEN 3930 3790 MON=CVI(F.MON$) 3800 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 3810 AMOUNT# =CVD(F.DEPAMO$) 3820 IF LM=0 THEN 3840 3830 IF CVI(F.MON$)<>LM THEN 3880 3840 IF PR=1 THEN 3850 ELSE 3860 3850 IF AMOUNT#<>0 THEN LPRINT USING "Dep.No: ### From: & Date: ## ## ## Amnt: $$#####.##";CVS(F.NO$);F.DEPNAM$;MON;DAY;YEAR;AMOUNT# 3860 IF AMOUNT#<>0 THEN PRINT USING "Dep.No: ### From: & Date: ## ## ## Amnt: $$#####.##";CVS(F.NO$);F.DEPNAM$;MON;DAY;YEAR;AMOUNT# 3870 TOTAL#=TOTAL#+AMOUNT# 3880 DEPNUM=DEPNUM+1 3890 GET #1,DEPNUM 3900 AMOUNT#=CVD(F.DEPAMO$) 3910 WEND 3920 PRINT 3930 IF PR=1 THEN 3940 ELSE 3950 3940 LPRINT:LPRINT USING "Total deposits = $$####.##";TOTAL# 3950 PRINT:PRINT USING "Total deposits = $$####.##";TOTAL# 3960 CLOSE 3970 PRINT 3980 INPUT "Hit return to continue ";Q$ 3990 IF Q$="ENDN" THEN 1590 ELSE 4000 4000 RETURN 4010 PRINT STRING$(6,10) 4020 PRINT 4030 INPUT " HIT RETURN WHEN READY TO PRINT CHECK ";P$ 4040 LPRINT:LPRINT:LPRINT 4050 LPRINT TAB(53) USING "##/##/## $$####.##";MON,DAY,YEAR,AMOUNT# 4060 LPRINT STRING$(3,10) 4070 PRINT 4080 PRINT 4090 GOSUB 8060 4100 LPRINT TAB(4);"** ";D$;C$;B$;" &";C;"/100 ****************** DOLLARS" 4110 LPRINT 4120 LPRINT TAB(5);STRING$(2,42);" ";PAYTO$;" ";STRING$(59-LEN(PAYTO$),42) 4130 IF PAYTO$ <> "NORTH CAROLINA FEDERAL SAVINGS AND LOAN" THEN 4160 4140 LPRINT STRING$(2,10):LPRINT SPC(5) "FOR: 003-0630535" 4150 LPRINT STRING$(5,10):GOTO 4170 4160 LPRINT STRING$(9,10) 4170 LPRINT:LPRINT:LPRINT 4180 LPRINT TAB(53) USING "##/##/## $$####.##";MON,DAY,YEAR,AMOUNT# 4190 LPRINT STRING$(2,10) 4200 PRINT 4210 PRINT 4220 LPRINT TAB(4);"** ";D$;C$;B$;" &";C;"/100 ****************** DOLLARS" 4230 LPRINT 4240 LPRINT TAB(5);STRING$(2,42);" ";PAYTO$;" ";STRING$(59-LEN(PAYTO$),42) 4250 IF PAYTO$ <> "NORTH CAROLINA FEDERAL SAVINGS AND LOAN" THEN 4280 4260 LPRINT:LPRINT SPC(5) "FOR: 003-0630535" 4270 LPRINT STRING$(8,10):GOTO 4290 4280 LPRINT STRING$(10,10) 4290 AMOUNT#=0 4300 CLS 4310 GOTO 180 4320 CLS 4330 LOCATE 5,20:INPUT "Which month do you wish to tally ";TMON 4340 TOTAL#=0:CHKNUM=1 4350 PRINT:PRINT "Total checks for month ";TMON 4360 IF PR=1 THEN LPRINT "Total checks for month ";TMON 4370 IF PR=1 THEN LPRINT STRING$(2,10) 4380 PRINT 4390 ANN$=AN$+".CKS" 4400 OPEN "R",#1,ANN$,49 4410 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 4420 GET #1,CHKNUM 4430 AMOUNT# = CVD(F.AMOUNT$) 4440 CKTOTAL#=0 4450 WHILE NOT EOF(1) 4460 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 4470 IF PR=1 THEN 4480 ELSE 4490 4480 IF MON=TMON THEN LPRINT USING "No: #### Date: ##/##/## To: & For $$####.## ";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 4490 IF MON=TMON THEN PRINT USING "No: #### Date: ##/##/## To: & For $$####.## ";CVS(F.NUM$);MON;DAY;YEAR;F.PAYTO$;AMOUNT# 4500 IF MON=TMON THEN TOTAL# = TOTAL#+AMOUNT# 4510 IF MON<TMON THEN CKTOTAL#=CKTOTAL#+AMOUNT# 4520 IF MON=TMON THEN CKT#=CKT#+AMOUNT# 4530 CHKNUM=CHKNUM+1 4540 GET #1,CHKNUM 4550 AMOUNT#=CVD(F.AMOUNT$) 4560 WEND 4570 PRINT 4580 TCHECKS#=TOTAL# 4590 IF PR=1 THEN 4600 ELSE 4610 4600 LPRINT:LPRINT USING "Total checks = $$#####.## ";TOTAL# 4610 PRINT:PRINT USING "Total checks = $$#####.## ";TOTAL# 4620 CTOTAL#=TOTAL# 4630 CLOSE 4640 AMOUNT#=0 4650 IF PR=1 THEN LPRINT STRING$(80,61) 4660 PRINT STRING$(80,61) 4670 PRINT 4680 TOTAL#=0:WNUM=1 4690 PRINT "Total withdrawalls for month ";TMON 4700 IF PR=1 THEN LPRINT "Total withdrawalls for month ";TMON 4710 IF PR=1 THEN LPRINT STRING$(2,10) 4720 PRINT 4730 ANN$=AN$+".WDR" 4740 OPEN "R",#1,ANN$,43 4750 FIELD #1,25 AS F.WNAME$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.WAMOUNT$,4 AS F.NO$ 4760 GET #1,WNUM 4770 WTOTAL#=0 4780 AMOUNT#=CVD(F.WAMOUNT$) 4790 WHILE NOT EOF(1) 4800 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 4810 IF PR=1 THEN 4820 ELSE 4830 4820 IF MON=TMON THEN LPRINT USING "Withdrawn by: & Date: ##/##/## Amount: $$####.## ";F.WNAME$;MON;DAY;YEAR;AMOUNT# 4830 IF MON=TMON THEN PRINT USING "Withdrawn by: & Date: ##/##/## Amount: $$####.## ";F.WNAME$;MON;DAY;YEAR;AMOUNT# 4840 WNUM=WNUM+1 4850 IF MON<TMON THEN WTOTAL#=WTOTAL#+AMOUNT# 4860 IF MON=TMON THEN WT#=WT#+AMOUNT# 4870 IF MON=TMON THEN TOTAL#=TOTAL#+AMOUNT# 4880 GET #1,WNUM 4890 AMOUNT#=CVD(F.WAMOUNT$) 4900 WEND 4910 PRINT 4920 TWTH#=TOTAL# 4930 IF PR=1 THEN 4940 ELSE 4950 4940 LPRINT:LPRINT USING "Total withdrawn: $$####.## ";TOTAL# 4950 PRINT USING " Total withdrawn: $$####.## ";TOTAL# 4960 CLOSE 4970 PRINT:PRINT 4980 TOTAL#=0:DEPNUM=1 4990 IF PR=1 THEN LPRINT STRING$(80,61) 5000 PRINT STRING$(80,61) 5010 PRINT " Total deposits for month ";TMON 5020 IF PR=1 THEN LPRINT "Total deposits for month ";TMON 5030 IF PR=1 THEN LPRINT STRING$(2,10) 5040 AMOUNT#=0 5050 PRINT 5060 DTOTAL#=0 5070 ANN$=AN$+".DEP" 5080 OPEN "R",#1,ANN$,43 5090 FIELD #1,25 AS F.DEPNAM$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.DEPAMO$,4 AS F.NO$ 5100 AMOUNT#=CVD(F.DEPAMO$) 5110 GET #1,DEPNUM 5120 WHILE NOT EOF(1) 5130 MON=CVI(F.MON$):DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 5140 AMOUNT#=CVD(F.DEPAMO$) 5150 IF PR=1 THEN 5160 ELSE 5170 5160 IF MON=TMON THEN LPRINT USING "Deposit From: & Date: ##/##/## Amount: $$####.##";F.DEPNAM$,MON,DAY,YEAR,AMOUNT# 5170 IF MON=TMON THEN PRINT USING "Deposit From: & Date: ##/##/## Amount: $$####.##";F.DEPNAM$,MON,DAY,YEAR,AMOUNT# 5180 DEPNUM=DEPNUM+1 5190 IF MON<TMON THEN DTOTAL#=DTOTAL#+AMOUNT# 5200 IF MON=TMON THEN TOTAL#=TOTAL#+AMOUNT# 5210 IF MON<=TMON THEN DT#=DT#+AMOUNT# 5220 GET #1,DEPNUM 5230 AMOUNT#=CVD(F.DEPAMO$) 5240 WEND 5250 PRINT 5260 TDEP#=TOTAL# 5270 IF PR=1 THEN 5280 ELSE 5300 5280 LPRINT:LPRINT USING "Total deposited: $$####.## ";TOTAL# 5290 LPRINT:LPRINT:LPRINT 5300 PRINT:PRINT USING " Total deposited: $$####.## ";TOTAL# 5310 CLOSE 5320 PRINT:PRINT 5330 TSB#=DTOTAL#-WTOTAL#-CKTOTAL# 5340 PRINT USING " Starting balance: $$#####.##";TSB# 5350 PRINT USING " +Dep: $$#####.## ";TDEP# 5360 PRINT USING " -Cks: $$#####.## ";TCHECKS# 5370 PRINT USING " -Wth: $$#####.## ";TWTH# 5380 PRINT " --------------" 5390 IF PR=1 THEN LPRINT USING "Starting balance = $$#####.##";TSB# 5400 IF PR=1 THEN LPRINT USING " +Dep.$$#####.##";TDEP# 5410 IF PR=1 THEN LPRINT USING " -Cks.$$#####.##";TCHECKS# 5420 IF PR=1 THEN LPRINT USING " -Wth.$$#####.##";TWTH# 5430 IF PR=1 THEN LPRINT " ------------" 5440 TEB#=TSB#+TOTAL#-CKT#-WT# 5450 PRINT USING " Ending balance: $$#####.## ";TEB# 5460 PRINT:PRINT:PRINT 5470 IF PR=1 THEN LPRINT USING " Ending balance = $$#####.## ";TEB# 5480 IF PR=1 THEN LPRINT CHR$(12) 5490 TEB#=0:DT#=0:CKT#=0:WT#=0 5500 AMOUNT#=0:WTOTAL#=0:CTOTAL#=0:DTOTAL#=0 5510 TOTAL#=0 5520 INPUT " Hit return to continue ";Q$ 5530 RETURN 5540 PR=2:LPRINT CHR$(12):LPRINT "LISTING FOR ACCOUNT: ";AN$:RETURN 5550 CLS 5560 INPUT " WHAT do you wish to correct (C,B,S) ";C$ 5570 IF C$="C" THEN 5600 5580 IF C$="B" THEN 5970 5590 IF C$="S" THEN 6160 5600 INPUT " What check number do you wish to correct ";CN 5610 IF CN=0 THEN RETURN 5620 GOTO 440 5630 AMOUNT# =CVD(F.AMOUNT$) 5640 MON=CVI(F.MON$) 5650 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 5660 NUM=CVS(F.NUM$) 5670 CLS 5680 PRINT USING "Check: #### Date: ##/##/## To: & For: $$####.##";NUM;MON,DAY;YEAR;F.PAYTO$;AMOUNT# 5690 PRINT STRING$(80,61) 5700 PRINT "WHAT do you wish to change? ck.num.(C),name(N),date(D),amount(A) " 5710 INPUT " Type in the letter representing desired change ";CN1$ 5720 PRINT 5730 IF CN1$="D"THEN 5820 5740 IF CN1$="A" THEN 5910 5750 IF CN1$="N" THEN 5940 5760 PRINT 5770 INPUT " What is the new check number";NUM 5780 RSET F.NUM$=MKS$(NUM) 5790 PUT #1,CVS(F.NO$) 5800 PRINT USING "Check: #### Date: ##/##/## To: & For: $$#####.##";NUM;MON;DAY;YEAR;F.PAYTO$;AMOUNT#:AMOUNT#=0:CAMOUNT#=0 5810 CLOSE:INPUT " Hit return to continue";Q$:RETURN 5820 INPUT " What is the new date (MON,DAY,YEAR) ";MON,DAY,YEAR 5830 RSET F.MON$=MKI$(MON):RSET F.DAY$=MKI$(DAY):RSET F.YEAR$=MKI$(YEAR) 5840 B=CVS(F.NO$) 5850 PUT #1,B 5860 CLOSE 5870 AMOUNT#=0 5880 CAMOUNT#=0 5890 CLS 5900 RETURN 5910 INPUT " What is the new amount ";CAMOUNT# 5920 RSET F.AMOUNT$=MKD$(CAMOUNT#) 5930 GOTO 5840 5940 INPUT " What is the new name ";CNAM$ 5950 LSET F.PAYTO$=CNAM$ 5960 GOTO 5840 5970 ANN$=AN$+".BAL" 5980 OPEN "R",#3,ANN$,8 5990 FIELD #3,8 AS F.BALANCE$ 6000 GET #3,1 6010 BALANCE#=CVD(F.BALANCE$) 6020 PRINT 6030 PRINT " Type in the exact value you wish to add to balance." 6040 PRINT " For example, if balance is too high enter a negative number " 6050 PRINT 6060 PRINT USING " Present balance is $$#####.## ";BALANCE# 6070 PRINT 6080 INPUT " Desired change is ";CBAL# 6090 RSET F.BALANCE$=MKD$(CBAL#+BALANCE#) 6100 PUT #3,1 6110 PRINT:PRINT USING " New balance is $$#####.## ";CBAL#+BALANCE# 6120 CLOSE 6130 BALANCE#=0 6140 CBAL#=0 6150 RETURN 6160 ANN$=AN$+".SBA" 6170 OPEN "R",#1,ANN$,8 6180 FIELD #1,8 AS F.STABAL$ 6190 GET #1,1 6200 STABAL#=CVD(F.STABAL$) 6210 PRINT "Type in the exact value you wish to add to Statement balance" 6220 PRINT "For example if amount is too high then type in a negative number" 6230 PRINT 6240 PRINT USING " Statement balance = $$#####.## ";STABAL# 6250 PRINT 6260 INPUT " What change do you wish to make ";CSTABAL# 6270 RSET F.STABAL$=MKD$(STABAL#+CSTABAL#) 6280 PUT #1,1 6290 CLOSE 6300 PRINT:PRINT USING " New statement balance is $$#####.## ";STABAL#+CSTABAL# 6310 STABAL#=0:CSTABAL#=0 6320 RETURN 6330 INPUT " What do you wish to fix? Dep(D), or Wthd(W) ";CR2$ 6340 IF CR2$="D" THEN 6360 6350 IF CR2$="W" THEN 7020 6360 PRINT 6370 ANN$=AN$+".DEP" 6380 OPEN "R",#1,ANN$,43 6390 FIELD #1,25 AS F.DEPNAM$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.DEPAMO$,4 AS F.NO$ 6400 INPUT " Which deposit number do you wish to change ";NO. 6410 DEPNUM=NO. 6420 GET #1,DEPNUM 6430 IF NOT EOF(1) THEN 6470 6440 IF EOF(1) THEN PRINT " BAD DEPOSIT NO. READING PAST END OF FILE" 6450 IF EOF(1) THEN CLOSE 6460 RETURN 6470 DEPNUM=CVS(F.NO$) 6480 DEPAMT#=CVD(F.DEPAMO$) 6490 IF CVS(F.NO$)=NO. THEN 6500 6500 PRINT USING "Dep.no: #### From: & Date: ##/##/## Amount: $$#####.## ";CVS(F.NO$);F.DEPNAM$;CVI(F.MON$);CVI(F.DAY$);CVI(F.YEAR$);CVD(F.DEPAMO$) 6510 PRINT STRING$(80,61) 6520 INPUT "What change do you wish to make (date(D),name(N),amount(A) ";DCNG$ 6530 IF DCNG$="D" THEN INPUT " What is the new date (M,D,Y)";NMON,NDAY,NYEAR 6540 IF DCNG$="N" THEN INPUT " What is the new name ";NN$ 6550 IF DCNG$="A" THEN INPUT " What is the new amount ";NA# 6560 IF DCNG$="D" THEN RSET F.MON$=MKI$(NMON) 6570 IF DCNG$="D" THEN RSET F.DAY$=MKI$(NDAY) 6580 IF DCNG$="D" THEN RSET F.YEAR$=MKI$(NYEAR) 6590 IF DCNG$="N" THEN LSET F.DEPNAM$=NN$ 6600 IF DCNG$="A" THEN RSET F.DEPAMO$=MKD$(NA#) 6610 PRINT 6620 PRINT USING "Dep.no: #### From: & Date: ##/##/## Amount: $$#####.## ";CVS(F.NO$);F.DEPNAM$;CVI(F.MON$);CVI(F.DAY$);CVI(F.YEAR$);CVD(F.DEPAMO$) 6630 PUT #1,CVS(F.NO$) 6640 CLOSE:NA#=0:RETURN 6650 CLS 6660 INPUT " Search for checks(C),deposits(D),withdrawels(W) ";SER$ 6670 IF SER$="C" THEN 6700 6680 IF SER$="D" THEN 7440 6690 IF SER$="W" THEN 7760 6700 TOTAL#=0:CHKNUM=1 6710 ANN$=AN$+".CKS" 6720 OPEN "R",#1,ANN$,49 6730 FIELD #1,25 AS F.PAYTO$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.AMOUNT$,1 AS F.STATUS$,1 AS F.FLAG$,4 AS F.NO$,4 AS F.NUM$ 6740 GET #1,CHKNUM 6750 CLS 6760 PRINT " Type the first letters of the name " 6770 INPUT " to search for and hit <RETURN> ";SF$ 6780 PRINT 6790 WHILE NOT EOF(1) 6800 AMOUNT# =CVD(F.AMOUNT$) 6810 MON=CVI(F.MON$) 6820 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 6830 NUM=CVS(F.NUM$) 6840 IF LEFT$(F.PAYTO$,LEN(SF$))<>SF$ THEN 6890 6850 IF PR=1 THEN 6860 ELSE 6870 6860 LPRINT:LPRINT USING "Check: #### Date: ##/##/## To: & For: $$#####.##";NUM;MON,DAY;YEAR;F.PAYTO$;AMOUNT# 6870 PRINT USING "Check: #### Date: ##/##/## To: & For: $$#####.##";NUM;MON,DAY;YEAR;F.PAYTO$;AMOUNT# 6880 TOTAL# = TOTAL#+AMOUNT# 6890 <UNK! {0009}>CHKNUM = CHKNUM+1 6900 <UNK! {0009}>GET #1,CHKNUM 6910 WEND 6920 PRINT 6930 IF PR=1 THEN 6940 ELSE 6960 6940 LPRINT:LPRINT USING "Total for query is $$#####.## ";TOTAL# 6950 LPRINT CHR$(12) 6960 PRINT:PRINT USING " Total for query is $$#####.## ";TOTAL# 6970 CLOSE 6980 PRINT 6990 INPUT " Hit return to continue ";Q$ 7000 TOTAL#=0:AMOUNT#=0 7010 IF Q$="end" THEN END ELSE RETURN 7020 PRINT 7030 TOTAL#=0:WNUM=1 7040 ANN$=AN$+".WDR" 7050 OPEN "R",#1,ANN$,43 7060 FIELD #1,25 AS F.WNAME$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.WAMOUNT$,4 AS F.NO$ 7070 GET #1,WNUM 7080 INPUT " Which withdrawall number do you wish to change";WNO. 7090 WHILE NOT EOF(1) 7100 IF CVS(F.NO$)=WNO. THEN 7160 7110 WNUM=CVS(F.NO$) 7120 IF WNUM=0 THEN 2210 7130 WNUM=WNUM+1 7140 GET #1,WNUM 7150 WEND 7160 PRINT 7170 PRINT USING "W.No: #### From: & Date: ##/##/## Amount: $$#####.## ";CVS(F.NO$);F.WNAME$;CVI(F.MON$);CVI(F.DAY$);CVI(F.YEAR$);CVD(F.WAMOUNT$) 7180 PRINT STRING$(80,61) 7190 INPUT " What change do you wish to make (date(D),name(N),amount(A) ";WCHG$ 7200 IF WCHG$="D" THEN INPUT " What is the new date (M,D,Y) ";WMON,WDAY,WYEAR 7210 IF WCHG$="D" THEN RSET F.MON$=MKI$(WMON):RSET F.DAY$=MKI$(WDAY):RSET F.YEAR$=MKI$(WYEAR) 7220 IF WCHG$="N" THEN INPUT " What is the new name ";NWN$ 7230 IF WCHG$="N" THEN LSET F.WNAME$=NWN$ 7240 IF WCHG$="A" THEN INPUT " What is the new amount ";NWA 7250 IF WCHG$="A" THEN RSET F.WAMOUNT$=MKD$(NWA) 7260 PRINT 7270 PUT #1,CVS(F.NO$) 7280 PRINT USING "W.No: #### From: & Date: ##/##/## Amount: $$#####.## ";CVS(F.NO$);F.WNAME$;CVI(F.MON$);CVI(F.DAY$);CVI(F.YEAR$);CVD(F.WAMOUNT$) 7290 CLOSE 7300 PRINT 7310 NWA=0 7320 RETURN 7330 CLS:PRINT " The following files reside on Drive A:" 7340 PRINT:FILES "A:*.* 7350 PRINT:PRINT 7360 PRINT 7370 INPUT " Hit return to continue ";Q$ 7380 RETURN 7390 CLS:PRINT " The following files reside on Drive B:" 7400 PRINT:PRINT:FILES "B:*.*" :PRINT 7410 PRINT:PRINT 7420 INPUT " Hit return to continue ";Q$ 7430 RESET:RETURN 7440 ANN$=AN$+".DEP" 7450 OPEN "R",#1,ANN$,43 7460 FIELD #1,25 AS F.DEPNAM$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.DEPAMO$,4 AS F.NO$ 7470 TOTAL#=0:NUM=1 7480 GET #1,NUM 7490 CLS 7500 PRINT " Type the first letters of the name " 7510 INPUT " to search for and hit <RETURN> ";SF$ 7520 PRINT 7530 WHILE NOT EOF(1) 7540 IF CVS(F.NO$)=0 THEN 7670 7550 AMOUNT# =CVD(F.DEPAMO$) 7560 MON=CVI(F.MON$) 7570 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 7580 NUM=CVS(F.NO$) 7590 IF LEFT$(F.DEPNAM$,LEN(SF$))<>SF$ THEN 7640 7600 IF PR=1 THEN 7610 ELSE 7620 7610 LPRINT:LPRINT USING "Dep: #### Date: ##/##/## From: & For: $$####.##";NUM;MON,DAY;YEAR;F.DEPNAM$;AMOUNT# 7620 PRINT USING "Dep: #### Date: ##/##/## From: & For: $$####.##";NUM;MON,DAY;YEAR;F.DEPNAM$;AMOUNT# 7630 TOTAL# = TOTAL#+AMOUNT# 7640 <UNK! {0009}>NUM = NUM+1 7650 <UNK! {0009}>GET #1,NUM 7660 WEND 7670 PRINT 7680 IF PR=1 THEN 7690 ELSE 7700 7690 LPRINT:LPRINT USING " Total for query is $$#####.## ";TOTAL# 7700 PRINT:PRINT USING " Total for query is $$#####.## ";TOTAL# 7710 CLOSE 7720 PRINT 7730 INPUT " Hit return to continue";Q$ 7740 TOTAL#=0:AMOUNT#=0 7750 RETURN 7760 TOTAL#=0:WNUM=1 7770 OPEN "R",#1,ANN$,43 7780 FIELD #1,25 AS F.WNAME$,2 AS F.MON$,2 AS F.DAY$,2 AS F.YEAR$,8 AS F.WAMOUNT$,4 AS F.NO$ 7790 INPUT " Type the first letters of name to search for ";SF$ 7800 GET #1,WNUM 7810 WHILE NOT EOF(1) 7820 AMOUNT#=CVD(F.WAMOUNT$) 7830 WNUM=CVS(F.NO$) 7840 IF WNUM=0 THEN 7960 7850 MON=CVI(F.MON$) 7860 DAY=CVI(F.DAY$):YEAR=CVI(F.YEAR$) 7870 NUM=CVS(F.NO$) 7880 IF LEFT$(F.WNAME$,LEN(SF$))<>SF$ THEN 7930 7890 IF PR=1 THEN 7900 ELSE 7910 7900 LPRINT:LPRINT USING "No: #### Date: ##/##/## By: & For: $$####.##";NUM;MON,DAY;YEAR;F.WNAME$;AMOUNT# 7910 PRINT USING "No: #### Date: ##/##/## By: & For: $$####.##";NUM;MON,DAY;YEAR;F.WNAME$;AMOUNT# 7920 TOTAL# = TOTAL#+AMOUNT# 7930 WNUM=WNUM+1 7940 GET #1,WNUM 7950 WEND 7960 PRINT 7970 IF PR=1 THEN 7980 ELSE 7990 7980 LPRINT:LPRINT USING "Total for query is $$#####.## ";TOTAL# 7990 PRINT:PRINT USING " Total for query is $$#####.## ";TOTAL# 8000 CLOSE 8010 PRINT 8020 INPUT " Hit return to continue ";Q$ 8030 TOTAL#=0:AMOUNT#=0 8040 RESET:RETURN 8050 RESET:CLS:SYSTEM 8060 B$="":C$="":D$="" 8070 RESTORE 8080 A=AMOUNT#:B=FIX(A):C=CINT(100*(A-B)) 8090 B1 =CINT((B/10-FIX(B/10))*10) 8100 IF A >9 AND A<20 THEN 8230 8110 IF A>109 AND A<120 THEN 8230:IF A>209 AND A<220 THEN 8230 8120 IF A>209 AND A<220 THEN 8230 8130 IF A>309 AND A<320 THEN 8230:IF A>409 AND A<420 THEN 8230 8140 IF A>409 AND A<420 THEN 8230 8150 IF A>509 AND A<520 THEN 8230:IF A>609 AND A<620 THEN 8230 8160 IF A>609 AND A<620 THEN 8230 8170 IF A>709 AND A<720 THEN 8230:IF A>809 AND A<820 THEN 8230 8180 IF A>809 AND A<820 THEN 8230 8190 IF A>909 AND A<920 THEN 8230 8200 FOR X=1 TO B1 8210 READ B$ 8220 NEXT X 8230 B2=FIX((B/100-FIX(B/100))*10) 8240 B3=FIX((B/1000-FIX(B/1000))*10) 8250 DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE 8260 IF B2=1 AND B1=0 AND B1<20 THEN C$="TEN" 8270 IF B2=1 AND B1=1 THEN C$="ELEVEN" 8280 IF B2=1 AND B1=2 THEN C$="TWELVE" 8290 IF B2=1 AND B1=3 THEN C$="THIRTEEN" 8300 IF B2=1 AND B1=4 THEN C$="FOURTEEN" 8310 IF B2=1 AND B1=5 THEN C$="FIFTEEN" 8320 IF B2=1 AND B1=6 THEN C$="SIXTEEN" 8330 IF B2=1 AND B1=7 THEN C$="SEVENTEEN" 8340 IF B2=1 AND B1=8 THEN C$="EIGHTEEN" 8350 IF B2=1 AND B1=9 THEN C$="NINETEEN" 8360 IF B2=2 THEN C$="TWENTY " 8370 IF B2=3 THEN C$="THIRTY " 8380 IF B2=4 THEN C$="FORTY " 8390 IF B2=5 THEN C$="FIFTY " 8400 IF B2=6 THEN C$="SIXTY " 8410 IF B2=7 THEN C$="SEVENTY " 8420 IF B2=8 THEN C$="EIGHTY " 8430 IF B2=9 THEN C$="NINETY " 8440 IF B3=1 THEN D$="ONE HUNDRED " 8450 IF B3=2 THEN D$="TWO HUNDRED " 8460 IF B3=3 THEN D$="THREE HUNDRED " 8470 IF B3=4 THEN D$="FOUR HUNDRED " 8480 IF B3=5 THEN D$="FIVE HUNDRED " 8490 IF B3=6 THEN D$="SIX HUNDRED " 8500 IF B3=7 THEN D$="SEVEN HUNDRED " 8510 IF B3=8 THEN D$="EIGHT HUNDRED " 8520 IF B3=9 THEN D$="NINE HUNDRED " 8530 RETURN 8540 CLOSE:RESET:RUN "ASSETS 8550 CLOSE:RESET:RUN "PERSONAL 8560 LOCATE 10,20:PRINT "Chose one of the following functions!" 8570 LOCATE 11,20:PRINT "1...Access the Data Base program" 8580 LOCATE 12,20:PRINT "2...Run the 'Assets' program to check on assets" 8590 LOCATE 16,40:INPUT SELL 8600 ON SELL GOSUB 8550,8540