985 CLOSE #N2:OPEN #N2,N4,N0,"D:BEGINFO":INPUT #N2;STARTMO:INPUT #N2;STARTMO:CLOSE #N2›1005 MONTHDAT$=""›1040 POSITION N11,N11:? #N6;MONTH;" "›1080 IF CHECK$(N2,N5)="DEP " THEN UCDEP=UCDEP+N1:UCDAMNT=UCDAMNT+VAL(CHECK$(35))›1085 IF CHECK$(N2,N5)="DEP " THEN MONTHDAT$(LEN(MONTHDAT$)+N1)=CHECK$(N1,41):GOTO 1060›1090 UNCAN=UNCAN+N1:UCAMNT=UCAMNT+VAL(CHECK$(35)):MONTHDAT$(LEN(MONTHDAT$)+N1)=CHECK$(N1,41):GOTO 1060›1100 STMTH=N0:IF MONTH=N0 THEN STMTH=N1:IF STARTMO<>N1 THEN MONTH=STARTMO-N1›1105 MONTH=MONTH+N1:IF MONTH=N13 THEN MONTH=N1›1108 IF MONTH<>STARTMO+STMTH THEN 1010›1110 CLOSE #N2:OPEN #N2,N4,N0,"D:BALANCE.DAT":INPUT #N2;BALANCE$:CLOSE #N2›1480 POSITION N11,22:? #N6;"M=MENU  P=PRINTOUT"›1515 IF A=ASC("P") THEN GOTO 1600›1600 FOR XX=0 TO N2:POSITION N0,N20+XX:? B$:NEXT XX:POSITION N2,21:? "Report Date (MM/DD/YY)";:INPUT AMOUNT$›1610 POSITION N0,21:? B$:TRAP 40000:POSITION N1,21:? "Prepare ะาษฮิลา & Press ะ to Print";›1620 OPEN #N1,N4,N0,"K:":GET #N1,X:CLOSE #N1:IF X<>ASC("P") THEN GOTO 1620›1630 POSITION N0,21:? B$›1640 CLOSE #3:CLOSE #N4:OPEN #N4,N4,0,"D:NAME.DAT"›1650 TRAP 1610:OPEN #N3,N8,0,"P:":PRINT #N3;B$(N20);AMOUNT$:PRINT #N3›1660 FOR N=N1 TO N3:INPUT #N4;MEMO$›1670 FOR X=N1 TO 40-LEN(MEMO$):PRINT #N3;" ";:NEXT X:PUT #N3,27:PUT #N3,87:PUT #N3,N1:PRINT #N3;MEMO$›1680 PUT #N3,27:PUT #N3,87:PUT #N3,0:NEXT N:PRINT #N3:PRINT #N3:CLOSE #N4›1690 PRINT #N3;B$(N20);"BANK STATEMENT BALANCE";›1700 FOR X=N1 TO N17-LEN(EBAL$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";EBAL$:PRINT #N3›1710 PRINT #N3;B$(N20);"ฬลำำ OUTSTANDING CHECKS:":PRINT #N3›1720 IF UNCAN=0 THEN PRINT #N3;B$(N15);"NONE":PRINT #N3:GOTO 1740›1730 COUNT=0:GOSUB 1870:PRINT #N3;B$(N15);"TOTAL";›1740 FOR X=N1 TO 29-LEN(UCAMNT$):PRINT #N3;".";:NEXT X:PRINT #N3;"(";UCAMNT$;")":PRINT #N3›1750 TEMP$=STR$(EBAL-UCAMNT):GOSUB DOLFORMAT:PRINT #N3;B$(N15);"SUBTOTAL";›1760 FOR X=N1 TO 27-LEN(TEMP$):PRINT #N3;".";:NEXT X:PRINT #N3;TEMP$:PRINT #N3›1770 PRINT #N3;B$(N20);"ะฬีำ OUTSTANDING DEPOSITS:":PRINT #N3›1780 IF UCDEP=0 THEN PRINT #N3;B$(N15);"NONE":? #N3:GOTO 1800›1790 COUNT=N1:GOSUB 1870›1800 PRINT #N3;B$(N15);"TOTAL";:FOR X=N1 TO 30-LEN(UCDAMNT$):PRINT #N3;".";:NEXT X:PRINT #N3;UCDAMNT$:PRINT #N3›1810 TEMP$=STR$(EBAL-UCAMNT+UCDAMNT):GOSUB DOLFORMAT:PRINT #N3;B$(N20);"YOUR BALANCE SHOULD BE";›1820 FOR X=N1 TO N17-LEN(TEMP$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";TEMP$›1830 PRINT #N3:PRINT #N3;B$(N20);"YOUR BALANCE IS";›1840 FOR X=N1 TO 24-LEN(BALANCE$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";BALANCE$:PRINT #N3›1850 TEMP$=STR$(DIF):GOSUB DOLFORMAT:PRINT #N3;B$(N20);"DIFFERENCE";›1860 FOR X=N1 TO 29-LEN(TEMP$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";TEMP$:CLOSE #N3:GOTO 1470›1870 FOR XX=N1 TO LEN(MONTHDAT$) STEP 41:IF MONTHDAT$(XX,XX+N4)=" DEP " AND COUNT=0 THEN GOTO 1920›1880 IF MONTHDAT$(XX,XX+N4)<>" DEP " AND COUNT=N1 THEN GOTO 1920›1890 CHECK$=MONTHDAT$(XX,XX+40):PRINT #N3;B$(N15);CHECK$(N2,N5);" ";CHECK$(N6,N13);" ";›1900 TEMP$=STR$(VAL(CHECK$(35,41))):GOSUB DOLFORMAT›1910 FOR X=N1 TO N8-LEN(TEMP$):PRINT #N3;" ";:NEXT X:PRINT #N3;TEMP$›1920 NEXT XX:PRINT #N3:RETURN ›