H

1670 LPRINT USING S$; A$(6); F1; AS (12) ; L1 : GOTO 2000

1680 LPRINT USING S$; G2

1690 LPRINT USING S$; H2

1700 LPRINT USING S$; 12

1720 LPRINT USING S$;

1730 LPRINT USING SS; ; L2

2000 PRINT : PRINT 2010 IF P = 1 GOTO 2110 2020 IF M = 1 GOTO 2200 2030 PRINT

2040 INPUT "DO YOU WANT TO ADD MORE ENT

RIES (Y/N)"; Y$ 2050 IF LEFTS(Y$, 1) = "Y" GOTO 550 2060 S1 = S1 + S s B1 = B1 + B ; C1 = C 1 + C : D1 = D1 + D : E1 = E1 + E : F 1 = F1 + F 2070 G1 = G1 + G : H1 = H1 + H : 11 = I 1 + I : J1 = J1 + J : K1 = K1 + K : L 1 = L1 + L 2080 PRINT : INPUT "ADDITIONAL PAGES TH

IS MONTH (Y/N)"; W$ 2090 IF LEFTS(W$, 1) = "Y" GOTO 500 2100 P = 1 : GOTO 1520 2110 S2 = S2 + S1 : B2 = B2 + B1 : C2 = C2 + C1 : D2 = D2 + D1 : E2 = E2 + E 1 : F2 = F2 + F1 2120 G2 = G2 + G1 : H2 = H2 + H1 : 12 = 12 + 11 : J2 = J2 + J1 : K2 = K2 + K 1 : L2 = L2 + L1 2130 M = 1

* (Y/N)"; AS 2150 IF LEFTS(AS, 1) = "Y" GOTO 2170 2160 GOTO 2200

2190 LPRINT " " : LPRINT " " : LPRINT "

*** GRAND TOTALS ***" : GOTO 1540 2200 PRINT : INPUT "ANOTHER MONTH (Y/N) "; RS

2210 IF LEFTS(RS, 1) = "Y" GOTO 500 2220 CLS : PRINT : PRINT : PRINT : PRIN T

2230 PRINT " END OF PROGRAM - SE

E YOU AGAIN SOMETIME " 2240 PRINT : PRINT : PRINT : PRINT 2250 END

3000 REM * ENTER COLUMN HEADINGS (14 CH ARACTERS EACH, MAX.) *

3060 DATA 1-TOTAL AMOUNT, 2-MERCHANDISE

, 3-PARTS/SAMPLES 3070 DATA 4-PROMOTION, 5-DELIV/POST, 6-

OFFICE EXPENSE 3080 DATA 7-UTILITIES, 8-TAX/INSUR/LIC,

9-PETTY CASH 3090 DATA 10-N0T USED, 11-NOT USED, 12-DRAW

4000 PRINT : PRINT " ENTER PREVIOUS

*** GRAND TOTALS *** :"
0 0

Post a comment