4198 REM ****************************          * AUTOCHECK - Listing 2    *          * for FORTY COLUMN PRINTER *4199 REM ****************************            ϠԠŠΠ͠ӛ4200 ? #Q2;DATE$(Q33*I-Q32,Q33*I);" ";:C=C+Q14205 IF CE$(I,I)<"Q" THEN T=T+VAL(AM$(Q9*I-Q8,Q9*I))4207 IF CE$(I,I)>"P" THEN S=S+VAL(AM$(Q9*I-Q8,Q9*I))7005 POSITION Q8,Q31:? "40 COLUMN PRINTER VERSION":POSITION Q13,Q29:? "LAST TOTAL :  ";C$;7900 POKE Q286,Q64:OPEN #Q2,Q8,Q0,"P:":GOSUB 7905:GOTO 79307907 IF LEN(Z$)>Q0 AND LEN(Z1$)>Q0 THEN ? #Q2;"   DATES ";Z$(Q1,Q2);"/";Z$(Q7,Q31);"/";Z$(Q32,Q33);" TO ";7908 IF LEN(Z$)>Q0 AND LEN(Z1$)>Q0 THEN ? #Q2;Z1$(Q1,Q2);"/";Z1$(Q7,Q31);"/";Z1$(Q32,Q33):? #Q2:? #Q27910 ? #Q2;"MMDDYY NUMBER PAYEE           AMOUNT"7920 ? #Q2;"------ ------ --------------- ---------":RETURN 7970 NEXT I:? #Q2;"---------------------------------------":C$=STR$(T):GOSUB Q41:C$=F$7974 ? #Q2;"              TOTAL EXPENSE   ";C$7976 C$=STR$(S):GOSUB Q41:C$=F$:? #Q2;"               TOTAL INCOME   ";C$7977 ? #Q2;"---------------------------------------":CLOSE #Q2:POKE Q286,Q192:GOTO Q257980 C=Q0:? #Q2;"---------------------------------------"7982 C$=STR$(T):GOSUB Q41:C$=F$:? #Q2;"          SUB TOTAL EXPENSE   ";C$7983 C$=STR$(S):GOSUB Q41:C$=F$:? #Q2;"           SUB TOTAL INCOME   ";C$7984 ? #Q2;"---------------------------------------"8009 BB=BAL1:OPEN #Q2,Q8,Q0,"P:"8020 ? #Q2;"---------------------------------------"8030 ? #Q2;"          STARTING BALANCE   ";BAL2$8040 ? #Q2;"---------------------------------------"8050 ? #Q2;"MMDD PAYEE         AMOUNT    BALANCE   "8060 ? #Q2;"---- ------------- --------- ----------":RETURN 8080 ? #Q2;DATE$(Q33*I-Q32,Q33*I-Q2);" ";PAYEE$(Q15*I-Q14,Q15*I-Q2);" ";AM$(Q9*I-Q8,Q9*I);" ";:C=C+Q18085 REM THIS LINE NOT REQUIRED8090 REM THIS LINE NOT REQUIRED8130 ? #Q2;"---------------------------------------"8140 ? #Q2;"         TOTALS   ";C$;" ";BAL2$8150 ? #Q2;"---------------------------------------":RETURN 