Content
Image Gallery
Check Book
1 REM "CHECKBOOK"
10 LET A=0
15 DIM B(200)
20 LET B=0
25 LET L=0
30 LET C=0
35 LET W=0
40 LET D=0
45 LET X=0
50 LET E=0
55 LET T=0
60 LET F=0
70 LET J=200
80 LET I=0
90 LET K=0
200 PRINT "INPUT ENDING STATEMENT BALANCE"
210 INPUT A
220 PRINT "INPUT DEPOSIT THIS STATEMENT","PERIOD"
230 PRINT "IF LAST DEPOSIT, INPUT 0"
240 INPUT D
250 IF D=0 THEN GOTO 300
260 LET I=I+D
270 LET E=E+1
280 GOTO 240
300 PRINT "INPUT CHECKS OUT"
310 PRINT "IF LAST CHECK ENTERED, ENTER 0"
350 FOR J=1 TO J
360 INPUT B(J)
370 IF B(J)=0 THEN GOTO 490
380 LET K=K+B(J)
390 LET C=C+1
400 NEXT J
490 CLS
495 LET Z=0
500 PRINT "THERE WERE ";E;" DEPOSITS DURING","THIS STATEMENT TOTALING $ ";I
505 PRINT
510 PRINT "THERE WERE ";C;" CHECKS OUT"," TOTALING $ ";K
515 PRINT
520 PRINT "STATEMENT BALANCE IS $ ";(A+I)-K
525 PRINT
590 LET J=C
600 PRINT "IF YOU WANT TO SEE ENTERED","CHECKS, ENTER Y"
610 PRINT "IF YOU WISH A BOOK BALANCE,","ENTER B"
620 PRINT "IF YOU ARE THRU, ENTER N"
630 IF INKEY$="N" THEN STOP
640 IF INKEY$="B" THEN GOTO 2000
650 IF INKEY$="Y" THEN GOTO 690
660 IF INKEY$="" THEN GOTO 630
665 CLS
670 GOTO 600
690 CLS
691 FAST
692 LET J=C
695 FOR S=1 TO J
700 PRINT AT W,X;B(S)
710 LET L=L+1
711 LET T=T+1
712 LET W=W+1
713 IF T=C THEN GOTO 1000
715 IF L=21 OR L=42 OR L=63 THEN GOTO 728
716 IF L=84 THEN GOTO 720
718 IF L<>21 OR L<>42 OR L<>63 OR L<>84 THEN GOTO 730
720 LET L=0
722 LET W=0
724 LET X=0
726 GOTO 738
728 LET X=X+8
729 LET W=0
730 NEXT S
732 IF T=C THEN GOTO 1000
735 GOTO 700
738 IF T=C THEN GOTO 1000
740 PRINT AT 21,0;"HIT ANY KEY TO CONTINUE"
745 SLOW
750 PAUSE 300
760 IF INKEY$<>"" THEN GOTO 690
770 GOTO 750
1000 PRINT AT 21,0;"HIT ANY KEY TO CONTINUE"
1005 SLOW
1010 PAUSE 300
1020 IF INKEY$="" THEN GOTO 1010
1030 CLS
1040 GOTO 610
1050 SAVE "1016%8"
1060 RUN
People
No people associated with this content.