10 CLS
20 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
30 PRINT TAB(36);"WELCOME TO":PRINT
40 PRINT TAB(27);"THE BANK STATEMENT ANALIZER":PRINT
50 FOR X=1 TO 5000
60 NEXT X :CLS
70 PRINT:PRINT :PRINT :PRINT :PRINT :PRINT
80 INPUT "   WOULD YOU LIKE TO SEE SOME INSTRUCTIONS? (Y/N)  ";Z$
90 IF Z$="N" THEN 340
100 IF Z$="n" THEN 340
110 CLS
120 PRINT
130 PRINT
140 PRINT
150 PRINT "   THIS PROGRAM IS FAIRLY SIMPLE.  IT IS DESIGNED TO GET INFORMATION THAT IS  "
160 PRINT
170 PRINT "LISTED ON YOUR BANK CHECKING ACCOUNT STATEMENT AND ALL TRANSACTIONS YOU HAVE  "
180 PRINT
190 PRINT "MADE SINCE YOUR STATMENT WAS PRINTED.  IT WILL THEN PROCESS THAT INFORMATION  "
200 PRINT
210 PRINT "                   AND GIVE YOU YOUR CURRENT BALANCE."
220 PRINT
230 PRINT
240 PRINT "   ALL YOU NEED TO HAVE HANDY IS YOUR LAST STATEMENT, YOUR CHECK REGISTER,   "
250 PRINT
260 PRINT "                   AND ANY AUTOMATIC TELLER RECIEPTS.  "
270 PRINT
280 PRINT
290 PRINT
300 PRINT
310 PRINT "           WHEN YOU ARE READY TO BEGIN  -||-  PRESS <RETURN> <-'"
320 INPUT Z
330 CLS
340 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
350 PRINT "ENTER CHECK AMOUNTS OR AUTOMATIC TELLER WITHDRAWL AMOUNTS"
360 INPUT "ENTER <0> WHEN ALL AMOUNTS HAVE BEEN ENTERED";CKS
370 IF CKS=0 THEN 410
380 NEG=NEG+CKS
390 CKS=0
400 GOTO 330
410 CLS
420 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
430 INPUT "ARE YOU SURE YOU ENTERED ALL THE AMOUNTS?  (Y/N)";Z$
440 IF Z$="N" THEN 330
450 IF Z$="n" THEN 330
460 PRINT "THE TOTAL WITHDRAWL AMOUNTS ARE: ";NEG
470 FOR X=1 TO 2000
480 NEXT X
490 PLS=0
500 CLS
510 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
520 PRINT "ENTER DEPOSIT AMOUNTS AND/OR AUTOMATIC TELLER DEPOSITS"
530 PRINT "ENTER <0> WHEN ALL DEPOSITS NOT LISTED ON YOUR STATEMENT HAVE BEEN ENTERED"
540 PRINT
550 INPUT "                                 ";DEP
560 IF DEP=0 THEN 600
570 PLS=PLS+DEP
580 DEP=0
590 GOTO 500
600 CLS
610 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
620 INPUT "ARE YOU SURE ALL DEPOSITS HAVE BEEN ENTERED?  (Y/N)";C$
630 IF C$="N" THEN 500
640 IF C$="n" THEN 500
650 PRINT "THE TOTAL DEPOSIT AMOUNT IS: ";PLS
660 FOR X=1 TO 2000
670 NEXT X
680 CLS
690 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
700 INPUT "ENTER THE ENDING BALANCE FROM YOUR LAST STATEMENT ";EB
710 PRINT
720 INPUT "ARE YOU SURE THIS IS CORRECT?  (Y/N)";V$
730 IF V$="N" THEN 680
740 IF V$="n" THEN 680
750 CLS
760 TOT=EB+PLS-NEG
770 PRINT:PRINT:PRINT:PRINT
780 PRINT "YOUR CURRENT BALANCE IS AS FOLLOWS: "
790 PRINT:PRINT:PRINT:PRINT
800 PRINT EB;"  THIS IS YOUR ENDING BALANCE FROM YOUR STATEMENT."
810 PRINT "+";PLS;"  THIS IS YOUR TOTAL DEPOSITS SINCE YOUR STATEMENT DATE."
820 STOT=EB+PLS
830 PRINT "__________"
840 PRINT STOT
850 PRINT "-";NEG;"  THIS IS TOTAL CHECKS AND WITHDRAWLS SINCE STATEMENT DATE."
860 PRINT "__________"
870 PRINT TOT;" THIS IS YOUR CURRENT BALANCE."
880 PRINT:PRINT:PRINT
890 INPUT "WOULD YOU LIKE TO DO IT AGAIN TO MAKE SURE? (Y/N)";B$
900 IF B$="Y" THEN 330
910 IF B$="y" THEN 330
920 PRINT:PRINT "TO END THIS PROGRAM AND RETURN TO THE OPERATING SYSTEM PRESS RETURN."
930 INPUT Z
940 SYSTEM