Check

Related Content

• Check (product)

Source Code

   7 SAVE "CHEC%K"
  10 FAST 
  20 GOSUB 2300
  30 CLS 
  40 PRINT D$;AT A,K-C;"TODAYS ";F$,"ENTER IN THIS ORDER.","YEAR MONTH DAY",,"USE ONLY SIX DIGITS TOTAL"
  50 INPUT DA
  60 CLS 
  70 PRINT "% % % %P%R%O%G%R%A%M% %B%Y% %D%A%L%E% %F% %L%I%P%I%N%S%K%I% % % ";"% % \: CHECK BOOK\ :% \: DATE\ :% \: ";DA;TAB L+L+K;"\ :% % ";M$;"BALANCE $ ";BA/100;TAB A;"LAST ";G$;LC,M$
  80 PRINT "NOTE: IF AT ANY TIME YOU LOSE","\''\''\''\'' CONTROL AND GET THE PROGRAM";TAB G;"PRESS %G%O%T%O 60 %E%N%T%E%R.",M$;,,,,C$,,"1= INPUT ENTRY",,"2= SEARCH",,"3= RECONCILE",,"6= ";N$,,E$
  95 LET HI=C
 100 INPUT R$
 120 IF R$="0" THEN GOTO 2730
 130 IF R$="1" THEN GOTO 170
 140 IF R$="2" THEN GOSUB 1590
 150 IF R$="3" THEN GOSUB 1030
 155 IF R$="6" THEN GOSUB 1590
 160 GOTO 60
 170 REM 
 180 CLS 
 181 IF R$<>"6" THEN GOTO 190
 182 IF (INT (A(W,C)/R))=C THEN LET BA=BA-A(W,E)
 183 LET A(W,D)=A
 184 IF (INT (A(W,C)/R))>=D THEN LET BA=BA+A(W,E)
 185 LET A(W,E)=A
 186 LET A(W,C)=A
 187 CLS 
 188 PRINT TAB I;N$,O$
 190 PRINT C$,,"1= CHECK ENTRY",,"5= ";A$(C),,,E$
 210 INPUT Z$
 225 IF R$="6" AND Z$="0" THEN CLS 
 226 IF R$="6" AND Z$="0" THEN PRINT "YOU MUST ENTER VALUES TO AN EDIT"
 227 IF R$="6" AND Z$="0" THEN GOTO 190
 230 IF Z$="0" THEN GOTO 60
 240 IF Z$="1" THEN GOSUB 330
 250 IF Z$="5" THEN GOSUB 270
 260 GOTO 170
 270 REM 
 280 CLS 
 290 LET Y$=A$(C)
 300 LET Y=A
 310 GOSUB 490
 320 RETURN 
 330 REM 
 340 CLS 
 350 PRINT D$;H$;"NAME?",,,C$,,M$
 370 INPUT Y$
 385 IF CODE Y$=A THEN GOTO 340
 386 IF R$="6" AND Y$="0" THEN GOTO 340
 390 IF Y$="0" THEN RETURN 
 400 CLS 
 410 PRINT G$;LC+C;,,,,TAB A;J$,M$
 430 INPUT Z$
 450 IF CODE Z$=A THEN LET Y=LC+C
 460 IF CODE Z$=A THEN GOTO 500
 470 IF CODE Z$<=O OR CODE Z$>=P THEN GOTO 400
 480 IF CODE Z$<>A THEN LET Y=VAL Z$
 490 REM 
 500 CLS 
 510 IF Y$=A$(C) THEN PRINT A$(C)
 520 PRINT F$;DA,,,,J$,C$,,M$
 540 INPUT Z$
 560 IF CODE Z$=A THEN LET Z=DA
 570 IF CODE Z$=A THEN GOTO 610
 580 IF Z$="0" THEN RETURN 
 590 IF CODE Z$<=O OR CODE Z$>=P THEN GOTO 500
 600 IF CODE Z$<>A THEN LET Z=VAL Z$
 610 CLS 
 620 PRINT D$;"AMOUNT?",M$
 640 INPUT Z$
 660 IF CODE Z$<=O OR CODE Z$>=P THEN GOTO 610
 670 LET X=(VAL Z$)*100
 680 CLS 
 690 PRINT Y$;TAB A;F$;Z,,G$;Y,,"$ ";X/100;TAB A,,,,K$,M$
 700 IF Y$<>A$(C) AND BA-X<A THEN PRINT "%O%V%E%R%D%R%A%F%T",,M$
 720 INPUT Z$
 740 IF Y$<>A$(C) AND BA-X<A THEN RETURN 
 742 IF N>=B THEN GOTO 752
 744 IF Q-C>=M THEN GOTO 752
 750 IF CODE Z$=A THEN GOTO 780
 752 CLS 
 755 PRINT "INFO %N%O%T ENTERED  ",,,
 756 IF Q-C>=M THEN GOTO 2705
 757 IF N>=B THEN GOTO 2710
 760 IF Y$=A$(C) THEN GOTO 510
 770 GOTO 350
 782 IF R$="6" THEN LET NN=N
 784 IF R$="6" THEN LET N=W
 790 IF Y$<>A$(C) THEN GOTO 840
 800 LET AA=R
 810 LET BA=BA+X
 820 LET W=C
 830 GOTO 920
 840 LET BA=BA-X
 850 IF Y>LC THEN LET LC=Y
 860 LET A$(Q)=Y$
 870 FOR W=D TO Q-C
 880 IF A$(Q)=A$(W) THEN GOTO 902
 890 NEXT W
 900 LET Q=Q+C
 910 LET AA=R*W
 920 LET A(N,C)=AA+Y
 930 LET A(N,D)=R+Z
 940 LET A(N,E)=X
 942 IF R$="6" THEN LET N=NN-C
 950 LET N=N+C
 955 PRINT AT G,L;"INFO ENTERED",M$;L$
 956 IF R$="6" THEN PRINT AT G+C,E;N$;"      CORRECTION",M$
 957 PRINT ,,"BALANCE = $";BA/100
 970 INPUT Z$
 980 IF Z$="1" THEN COPY 
 990 IF N-C>=B OR Q-C>=M THEN GOTO 2705
 992 IF R$="6" THEN LET R$="0"
 994 IF R$="0" THEN RETURN 
1000 IF CODE Z$=A AND Y$=A$(C) THEN GOTO 500
1010 IF CODE Z$=A OR Z$="1" THEN GOTO 340
1020 RETURN 
1030 REM 
1040 CLS 
1050 PRINT "ENTER ";G$;"TO BE RECONCILED";,,C$,,M$;E$
1070 INPUT Y$
1077 IF CODE Y$<=O OR CODE Y$>=P THEN GOTO 1040
1080 IF Y$="0" THEN GOTO 1180
1090 LET Z=VAL Y$
1092 FOR W=D TO N
1094 CLS 
1095 IF A(W,C)-(INT (A(W,C)/R)*R)=Z THEN GOSUB 2190
1100 IF A(W,C)-(INT (A(W,C)/R)*R)=Z THEN PRINT AT G,A;M$;K$
1105 IF A(W,C)-(INT (A(W,C)/R)*R)<>Z THEN NEXT W
1115 IF W>=N THEN PRINT "NOT FOUND"
1116 IF W>=N THEN GOTO 1050
1120 INPUT Z$
1130 IF Z$="0" THEN NEXT W
1160 GOSUB 1560
1170 GOTO 1040
1180 CLS 
1190 PRINT AT A,A;"ENTER ";A$(C);AT A,G+K;"TO BE RECONCILED. ENTER BY DATE",,,,C$,,M$;E$
1210 INPUT Y$
1218 IF CODE Y$<=O OR CODE Y$>=P THEN GOTO 1180
1220 IF Y$="0" THEN GOTO 1320
1230 LET Z=VAL Y$
1235 FOR W=D TO N
1240 CLS 
1242 IF INT (A(W,C)/R)<>C THEN NEXT W
1245 IF INT (A(W,C)/R)=C AND A(W,D)-(INT (A(W,D)/R)*R)=Z THEN GOSUB 2190
1250 IF INT (A(W,C)/R)=C AND A(W,D)-(INT (A(W,D)/R)*R)=Z THEN PRINT AT G,A;M$;K$
1255 IF A(W,D)-(INT (A(W,D)/R)*R)<>Z THEN NEXT W
1265 IF W>=N THEN PRINT AT L,G;"NOT FOUND"
1270 IF W>=N THEN GOTO 1190
1275 INPUT Z$
1290 IF Z$="0" THEN NEXT W
1300 GOSUB 1560
1310 GOTO 1180
1320 LET Z=S
1330 FOR W=D TO N
1340 CLS 
1345 IF (INT (A(W,D)/R)*R)<>Z THEN GOSUB 2190
1350 IF (INT (A(W,D)/R)*R)<>Z THEN PRINT AT G,A;"OUTSTANDING ITEMS         ",M$;C$;"           ","5= SKIP OUTSTANDING ITEMS LIST",L$(O+P TO ),M$;E$
1355 IF (INT (A(W,D)/R)*R)=Z THEN NEXT W
1357 IF W>=N THEN GOTO 1440
1370 INPUT Z$
1390 IF Z$="0" THEN RETURN 
1400 IF Z$="5" OR W=N-D THEN GOTO 1440
1410 NEXT W
1440 LET BAL=A
1450 FOR X=C TO N-C
1460 IF (INT (A(X,D)/R)*R)<>S AND (INT (A(X,C)/R))=C THEN LET BAL=BAL+A(X,E)
1470 IF (INT (A(X,D)/R)*R)<>S AND (INT (A(X,C)/R))<>C THEN LET BAL=BAL-A(X,E)
1480 NEXT X
1490 CLS 
1500 PRINT "BANK STATEMENT IS $ ";(BA-BAL)/100;TAB A;M$;L$
1520 INPUT Z$
1530 IF Z$="1" THEN COPY 
1550 RETURN 
1560 REM 
1570 LET A(W,D)=(A(W,D)-(INT (A(W,D)/R)*R))+S
1580 RETURN 
1590 REM 
1600 CLS 
1610 IF R$="6" THEN PRINT AT A,K;N$
1615 PRINT AT C,L;"SEARCH",M$;C$,,"1= BY ";F$,,"2= BY ";G$,"3= BY ";H$,,"4= BY OUTSTANDING ITEM",E$
1617 IF R$="6" THEN PRINT AT I,A;E$,"BE SURE TO COPY ALL INFO THAT ISCHANGED"
1630 INPUT Z$
1650 IF CODE Z$<=O OR CODE Z$>=P THEN GOTO 1600
1660 IF Z$="0" THEN RETURN 
1662 IF Z$="4" AND R$="6" THEN GOTO 1600
1663 IF R$="6" THEN GOTO 1730
1665 IF Z$="4" THEN GOTO 2080
1670 PRINT ,,"0= SPECIFIC ITEM","%E%N%T%E%R= ALL ITEMS",E$
1690 INPUT Y$
1720 IF CODE Y$=A THEN GOTO 2150
1730 PRINT ,,D$;"ITEM?"
1750 INPUT Y$
1765 IF Z$="3" THEN GOTO 1970
1770 IF CODE Y$<=O OR CODE Y$>=P THEN GOTO 1600
1780 IF Z$="1" THEN GOTO 1820
1790 IF Z$="2" THEN GOTO 1900
1810 GOTO 1600
1820 REM 
1830 LET Z=VAL Y$
1840 FOR W=C TO N-D
1850 REM 
1860 IF A(W,D)-(INT (A(W,D)/R)*R)=Z THEN GOSUB 2190
1865 IF HI=A AND R$="6" THEN GOTO 182
1870 NEXT W
1885 CLS 
1887 PRINT AT C,E+E;"END"
1890 GOTO 1610
1900 REM 
1910 LET Z=VAL Y$
1920 FOR W=D TO N-C
1930 IF A(W,C)-(INT (A(W,C)/R)*R)=Z THEN GOSUB 2190
1935 IF HI=A AND R$="6" THEN GOTO 182
1940 NEXT W
1955 CLS 
1957 PRINT "END"
1960 GOTO 1610
1970 LET A$(Q)=Y$
1980 FOR X=C TO N-C
1990 IF A$(Q)=A$(X) THEN GOTO 2020
1995 IF HI=A AND R$="6" THEN GOTO 182
2000 NEXT X
2005 CLS 
2007 PRINT "END"
2010 GOTO 1610
2020 LET Z=X*R
2030 FOR W=D TO N-C
2040 IF (INT (A(W,C)/R)*R)=Z THEN GOSUB 2190
2050 NEXT W
2055 CLS 
2057 PRINT "END"
2060 GOTO 1610
2070 REM 
2080 LET Z=S
2090 FOR W=D TO N-C
2100 REM 
2110 IF (INT (A(W,D)/R)*R)<>Z THEN GOSUB 2190
2120 IF R$="3" THEN RETURN 
2125 IF Z$="0" THEN GOTO 1600
2130 NEXT W
2135 CLS 
2137 PRINT "END"
2140 GOTO 1610
2150 FOR W=D TO N-C
2160 GOSUB 2190
2165 IF HI=D THEN GOTO 2175
2170 NEXT W
2175 CLS 
2177 PRINT AT C,E+E;"END"
2180 GOTO 1610
2190 REM 
2200 CLS 
2210 LET T=INT (A(W,D)/R)
2220 IF T=C THEN LET T=A
2230 PRINT F$;A(W,D)-(INT (A(W,D)/R)*R);TAB O;W,G$;A(W,C)-(INT (A(W,C)/R)*R),,H$;A$(INT (A(W,C)/R));TAB A;"$ ";(A(W,E)/100);TAB A,,"%  DENOTES RECONCILED ITEM",L$
2235 IF INT (A(W,D)/R)*R=S THEN PRINT AT A,O-D;"% "
2240 IF R$="3" THEN RETURN 
2245 IF R$="6" THEN PRINT AT G+C,A;"PRESS 0 %E%N%T%E%R IF NOT CORRECT";AT I+D,A;M$;N$,"DELETION"
2260 INPUT Z$
2265 LET HI=A
2270 IF Z$="1" THEN COPY 
2275 IF Z$="0" THEN LET HI=D
2285 IF HI=A AND R$="6" THEN GOTO 182
2290 RETURN 
2300 REM 
2310 LET B=207
2320 LET A=B-B
2330 LET C=B/B
2340 LET D=C+C
2350 LET E=D+C
2360 LET G=E+D
2370 LET I=G+D
2380 LET K=I+D
2390 LET L=K+C
2400 LET M=207
2410 LET N=D
2420 LET O=L+L+I
2430 LET P=O+L+C
2440 LET Q=D
2450 LET R=1E6
2460 LET S=(L*L+O+C)*R
2470 DIM A(B,E)
2480 DIM A$(M,22)
2490 LET C$="0= NO ENTRY "
2500 LET D$="WHAT IS THE "
2510 LET E$="% %E%N%T%E%R% %A%N%S%W%E%R% %N%U%M%B%E%R% "
2520 LET F$="DATE "
2530 LET G$="CHECK NO. "
2540 LET H$="ACCOUNT "
2550 LET I$="PRESS %E%N%T%E%R IF THIS IS CORRECT  "
2560 LET J$=I$+"IF NOT ENTER NUMBER"
2570 LET K$=I$+"PRESS 0 %E%N%T%E%R IF NOT CORRECT"
2580 LET L$="PRESS 0 %E%N%T%E%R TO RETURN         PRESS 1 %E%N%T%E%R TO COPY           PRESS %E%N%T%E%R TO CONTINUE"
2590 LET M$="\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
2592 LET N$="EDIT MODE"
2594 LET O$="INFO DELETED--ENTER CORRECT INFO"+M$
2595 IF USR 32736=40059 THEN PRINT "?% % % "
2600 PRINT D$;"FIRST ";G$,"TO BE USED IN THIS PROGRAM?"
2620 INPUT LC
2630 LET LC=LC-C
2640 PRINT ,,"WHAT IS THE BEGINNG BALANCE?"
2650 INPUT BA
2655 LET BA=BA*100
2660 LET A(C,C)=R
2670 LET A(C,D)=S
2680 LET A$(C)="DEPOSIT"
2690 RETURN 
2700 CLS 
2705 IF Q>=M-C THEN PRINT "NO ROOM FOR ";H$;"NAME"
2710 IF N>=B-C OR Q>=M-C THEN PRINT "CHECK BOOK IS FULL",M$
2720 GOTO 2740
2730 CLS 
2740 PRINT "ARE YOU FINISHED?",M$;"0= YES",,"1= NO",,E$
2760 INPUT Z$
2780 IF Z$<>"0" THEN GOTO 60
2800 PRINT ,,M$;"PLUG TAPE RECORDER IN.","START RECORDING.","PRESS %E%N%T%E%R",,M$
2810 INPUT Z$
2830 IF CODE Z$<>A THEN GOTO 60
2840 SAVE "CHEC%K"
2850 GOTO 30
2860 PRINT PEEK 16386-PEEK 16412+256*(PEEK 16387-PEEK 16413)-50