Checking

Gallery

Source Code

  10 LET U=0
  20 LET V=0
  30 LET D=0
  40 LET N=0
  50 LET B=0
  60 LET AM=0
  70 LET F=0
  80 DIM I(80)
  90 LET J=0
 100 DIM D$(25,8)
 110 DIM E(80)
 120 DIM W$(80,25)
 130 DIM Q$(80,8)
 140 DIM R(80)
 150 DIM W(25)
 160 DIM I$(80,25)
 170 LET IN=0
 180 DIM P(80)
 190 LET CN=0
 200 LET AM=0
 210 LET INT=0
 220 LET SC=0
 230 LET SCT=0
 240 CLS 
 250 PRINT AT 2,8; "ZX81/TIMEX 1000"
 260 PRINT AT 3,11;"CHECKING"
 270 PRINT AT 4,14;"BY"
 280 PRINT AT 5,4;"HEATH COMPUTER SERVICES"
 290 PRINT AT 6,7;"950 EAST 52 SOUTH"
 300 PRINT AT 7,9;"GREENTOWN IN."
 310 PRINT AT 8,12;"46936"
 320 PRINT AT 10,9;"COPYRIGHT 1982"
 330 PRINT AT 12,6;"PRESS <ENTER> TO RUN"
 340 INPUT S$
 350 CLS 
 360 PRINT AT 2,6;"DO YOU WANT TO--"
 370 PRINT AT 4,3;"(1)ENTER DEPOSITS"
 380 PRINT AT 5,3;"(2)LOOK AT DEPOSITS"
 390 PRINT AT 6,3;"(3)ENTER CHECKS"
 400 PRINT AT 7,3;"(4)LIST ACCOUNTS"
 410 PRINT AT 8,3;"(5)LIST CHECKS"
 420 PRINT AT 9,3;"(6)LOOK AT BALANCE"
 430 PRINT AT 10,3;"(7)SAVE ON TAPE"
 440 PRINT AT 11,3;"(8)SEARCH FOR A CHECK"
 450 PRINT AT 12,3;"(9)ENTER INTEREST AND              SERVICE CHARGES"
 460 PRINT AT 16,5;"PRESS NO. 1-9"
 470 LET M$=INKEY$
 480 IF M$="" THEN GOTO 0470
 490 IF M$="1" THEN GOTO 0590
 500 IF M$="2" THEN GOTO 0720
 510 IF M$="3" THEN GOTO 1270
 520 IF M$="4" THEN GOTO 0950
 530 IF M$="5" THEN GOTO 1800
 540 IF M$="6" THEN GOTO 3280
 550 IF M$="7" THEN GOTO 2170
 560 IF M$="8" THEN GOTO 2280
 570 IF M$="9" THEN GOTO 3020
 580 IF M$>"9" THEN GOTO 0350
 590 CLS 
 600 LET N=N+1
 610 PRINT 
 620 PRINT "PRESS <ENTER> WHEN FINISHED."
 630 PRINT "ENTER DATE ?/?/?"
 640 INPUT G$
 650 IF G$="" THEN LET N=N-1
 660 IF G$="" THEN GOTO 0350
 670 LET D$(N)=G$
 680 PRINT "ENTER AMOUNT OF DEPOSIT"
 690 INPUT W(N)
 700 LET V=V+W(N)
 710 GOTO 0590
 720 CLS 
 730 PRINT 
 740 PRINT "PRESS (P) TO PRINT (L) TO LIST"
 750 LET P$=INKEY$
 760 IF P$="" THEN GOTO 0750
 770 CLS 
 780 LET X=25
 790 IF P$="P" THEN LPRINT "DATE";,"AMOUNT"
 800 FOR Y=1 TO X-1 STEP 20
 810 PRINT "DATE";,"AMOUNT"
 820 FOR Z=Y TO Y+19
 830 IF P$="P" AND D$(Z)="        " THEN GOTO 0350
 840 IF Z=26 THEN GOTO 0880
 850 PRINT D$(Z),"$";W(Z)
 860 IF P$="P" THEN LPRINT D$(Z),"$";W(Z)
 870 NEXT Z
 880 PRINT " PRESS (L) TO LIST (M) FOR MENU."
 890 LET C$=INKEY$
 900 IF C$="" THEN GOTO 0890
 910 IF C$="M" THEN GOTO 0350
 920 CLS 
 930 NEXT Y
 940 GOTO 0350
 950 CLS 
 960 PRINT AT 9,0;"PRESS (P) TO PRINT (L) TO LIST"
 970 LET P$=INKEY$
 980 IF P$="" THEN GOTO 0970
 990 IF P$="L" THEN GOTO 1020
1000 IF P$="P" THEN GOTO 1020
1010 GOTO 0970
1020 FOR O=1 TO 80 STEP 9
1030 CLS 
1040 PRINT 
1050 PRINT "ACCOUNT";TAB (23);"AMOUNT"
1060 IF P$="L" THEN GOTO 1100
1070 LPRINT 
1080 LPRINT "ACCOUNT";TAB (23);"AMOUNT"
1090 LPRINT 
1100 FOR Q=O TO O+8
1110 IF P$="L" THEN GOTO 1150
1120 IF I$(Q)="                         " THEN GOTO 0350
1130 LPRINT I$(Q)
1140 LPRINT TAB (22);"$";I(Q)
1150 PRINT I$(Q)
1160 PRINT TAB (22);"$";I(Q)
1170 IF Q=80 THEN GOTO 1200
1180 NEXT Q
1190 IF P$="P" THEN GOTO 1240
1200 PRINT "PRESS (L) TO LIST (M) FOR MENU."
1210 LET C$=INKEY$
1220 IF C$="" THEN GOTO 1210
1230 IF C$="M" THEN GOTO 0350
1240 CLS 
1250 NEXT O
1260 GOTO 0350
1270 CLS 
1280 PRINT AT 14,1;"ACCOUNT THE SAME PRESS ENTER."
1290 PRINT "ENTER ACCOUNT NAME."
1300 INPUT K$
1310 PRINT " ENTER (0) WHEN FINISHED."
1320 PRINT "ENTER CHECK NO."
1330 INPUT X
1340 IF X=0 THEN GOTO 0350
1350 PRINT "ENTER DATE ?/?/?"
1360 INPUT L$
1370 IF L$="" THEN GOTO 1350
1380 IF K$<>"" THEN GOTO 1410
1390 IF F=1 THEN LET K$=I$(J)
1400 IF K$="" THEN LET K$=I$(D)
1410 PRINT "AMOUNT OF CHECK?"
1420 LET K=LEN K$
1430 INPUT L
1440 CLS 
1450 PRINT 
1460 PRINT "DATE ";L$
1470 PRINT 
1480 PRINT AT 2,2;"CHECK NUMBER ";X
1490 PRINT 
1500 PRINT "TO ";K$
1510 PRINT 
1520 PRINT "CHECK";TAB (12);"TOTAL"
1530 PRINT "AMOUNT";TAB (12);"CHECKS";TAB (23);"BALANCE"
1540 LET U=U+L
1550 LET U=U+.005
1560 LET U=INT (U*100)/100
1570 PRINT "$";L;TAB (12);"$";U;TAB (23);"$";V-U
1580 LET B=B+1
1590 LET W$(B)=K$
1600 LET R(B)=L
1610 LET E(B)=X
1620 LET Q$(B)=L$
1630 FOR J=1 TO 80
1640 IF J>B THEN GOTO 1680
1650 LET A$=I$(J)(1 TO K)
1660 IF K$=A$ THEN GOTO 1760
1670 NEXT J
1680 LET D=D+1
1690 IF D=81 THEN GOTO 0350
1700 REM I$=ACCOUNT,P=CHECK NO.,I=AMOUNT
1710 LET I$(D)=K$
1720 LET P(D)=X
1730 LET I(D)=L
1740 LET F=0
1750 GOTO 1790
1760 LET I(J)=I(J)+L
1770 LET H=J
1780 LET F=1
1790 GOTO 1280
1800 CLS 
1810 PRINT AT 9,0;"PRESS (P) TO PRINT (L) TO LIST"
1820 LET P$=INKEY$
1830 IF P$="" THEN GOTO 1820
1840 IF P$="L" THEN GOTO 1870
1850 IF P$="P" THEN GOTO 1870
1860 GOTO 1820
1870 FOR Y=1 TO 80 STEP 9
1880 CLS 
1890 PRINT 
1900 PRINT " DATE      NO.       AMOUNT"
1910 PRINT 
1920 IF P$="L" THEN GOTO 1960
1930 LPRINT 
1940 LPRINT " DATE      NO.       AMOUNT"
1950 LPRINT 
1960 FOR Z=Y TO Y+8
1970 IF Z>80 THEN GOTO 2130
1980 IF P$="L" THEN GOTO 2030
1990 IF W$(Z)="                         " THEN GOTO 0350
2000 LPRINT W$(Z)
2010 LPRINT Q$(Z);TAB (11);E(Z);TAB (21);"$";R(Z)
2020 GOTO 2050
2030 PRINT W$(Z)
2040 PRINT Q$(Z);TAB (11);E(Z);TAB (21);"$";R(Z)
2050 NEXT Z
2060 IF P$="P" THEN GOTO 2110
2070 PRINT "PRESS (L) TO LIST (M) FOR MENU"
2080 LET C$=INKEY$
2090 IF C$="" THEN GOTO 2080
2100 IF C$="M" THEN GOTO 0350
2110 CLS 
2120 NEXT Y
2130 PRINT 
2140 PRINT "PRESS <ENTER> FOR MENU"
2150 INPUT C$
2160 GOTO 0350
2170 CLS 
2180 PRINT 
2190 PRINT "TYPE MONTH"
2200 PRINT 
2210 PRINT "PRESS PLAY AND RECORD ON THE"
2220 PRINT "RECORDER"
2230 PRINT 
2240 PRINT "PRESS (ENTER) WHEN READY" 
2250 INPUT T$
2260 SAVE T$
2270 GOTO 0240
2280 CLS 
2290 LET K=1
2300 PRINT 
2310 LET X$=""
2320 LET Y$=""
2330 PRINT "   PRESS:"
2340 PRINT 
2350 PRINT "(C) TO SEARCH BY CHECK NUMBER"
2360 PRINT "(D) TO SEARCH BY DATE"
2370 PRINT "(N) TO SEARCH BY NAME"
2380 PRINT "(A) TO SEARCH BY AMOUNT"
2390 PRINT 
2400 LET C$=INKEY$
2410 IF C$="" THEN GOTO 2400
2420 IF C$="C" THEN GOTO 2470
2430 IF C$="D" THEN GOTO 2510
2440 IF C$="N" THEN GOTO 2560
2450 IF C$="A" THEN GOTO 2610
2460 GOTO 2400
2470 PRINT "ENTER CHECK NUMBER"
2480 INPUT CN
2490 IF CN=0 THEN GOTO 2280
2500 GOTO 2630
2510 PRINT "ENTER DATE"
2520 INPUT X$
2530 IF X$="" THEN GOTO 2280
2540 LET K=LEN X$
2550 GOTO 2630
2560 PRINT "ENTER NAME"
2570 INPUT Y$
2580 IF Y$="" THEN GOTO 2280
2590 LET K=LEN Y$
2600 GOTO 2630
2610 PRINT "ENTER AMOUNT"
2620 INPUT AM
2630 CLS 
2640 PRINT 
2650 PRINT 
2660 FOR J=1 TO 80
2670 IF J=80 THEN GOTO 2780
2680 IF E(J)=0 THEN NEXT J
2690 IF C$="D" THEN LET V$=Q$(J)(1 TO K)
2700 IF C$="N" THEN LET V$=W$(J)(1 TO K)
2710 IF E(J)=CN THEN GOTO 2860
2720 IF V$=Y$ THEN GOTO 2860
2730 IF V$=X$ THEN GOTO 2860
2740 IF R(J)=AM THEN GOTO 2860
2750 NEXT J
2760 CLS 
2770 PRINT 
2780 PRINT "CHECK NOT LISTED"
2790 PRINT 
2800 PRINT "PRESS (M) FOR MENU (S) TO SEARCH"
2810 LET C$=INKEY$
2820 IF C$="" THEN GOTO 2810
2830 IF C$="M" THEN GOTO 0350
2840 IF C$="S" THEN GOTO 2280
2850 GOTO 2810
2860 CLS 
2870 PRINT 
2880 PRINT "CHECK NO. ";E(J)
2890 PRINT "DATE ";Q$(J)
2900 PRINT "TO ";W$(J)
2910 PRINT "AMOUNT $";R(J)
2920 PRINT 
2930 LET CN=0
2940 LET Y$=""
2950 LET X$=""
2960 LET AM=0
2970 PRINT "PRESS (M) FOR MENU (S) TO SEARCH"
2980 LET C$=INKEY$
2990 IF C$="" THEN GOTO 2980
3000 IF C$="M" THEN GOTO 0350
3010 IF C$="S" THEN GOTO 2280
3020 CLS 
3030 PRINT 
3040 PRINT "PRESS -"
3050 PRINT 
3060 PRINT 
3070 PRINT "(S) TO ENTER SERVICE CHARGE"
3080 PRINT "(I) TO ENTER INTEREST"
3090 PRINT "(M) FOR MENU"
3100 PRINT 
3110 LET C$=INKEY$
3120 IF C$="" THEN GOTO 3110
3130 IF C$="S" THEN GOTO 3180
3140 IF C$="I" THEN GOTO 3230
3150 IF C$="M" THEN GOTO 0350
3160 GOTO 3110
3170 PRINT 
3180 PRINT "ENTER SERVICE CHARGE"
3190 INPUT SC
3200 LET V=V-SC
3210 LET SCT=SCT+SC
3220 GOTO 3020
3230 PRINT "ENTER INTEREST"
3240 INPUT IN
3250 LET V=V+IN
3260 LET INT=INT+IN
3270 GOTO 3020
3280 CLS 
3290 PRINT AT 8,2;"TOTAL CHECKS";TAB (20);"BALANCE"
3300 PRINT TAB (5);"$";U;TAB (21);"$";V-U
3310 PRINT AT 14,0;"SERVICE CHARGES     INTEREST"
3320 PRINT TAB (5);"$";SCT;TAB (21);"$";INT
3330 PRINT 
3340 PRINT 
3350 PRINT 
3360 PRINT "PRESS <ENTER> FOR MENU"
3370 INPUT C$
3380 GOTO 0350
3500 SAVE "CHECKIN%G"
3510 GOTO 0010