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 ¢
