Check Book

Gallery

Source Code

   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