Tttt ttttmtm

150 REM * INITIALIZE VALUES AT ZERO * 160 A = 0 : B = 0 : C = 0 : D = 0 : E = 0 : F = 0 : 6 = 0 : H = 0 : I = 0 :

170 S1 = 0 : B1 = 0 s C1 = 0 : D1 = 0 : E1 = 0 : F1 = 0 : G1 = 0 : H1 = 0 :

11 « 0 s J1 = 0 s K1 = 0 : L1 = 0 180 S2 = 0 s B2 = 0 : C2 = 0 s D2 = 0 s

12 = 0 : J2 = 0 s K2 = 0 s L2 = 0 190 POKE 16425/ 1 : REM * SETS PRINTER

LINE COUNTER AT FIRST LINE * 200 CLS : PRINT : PRINT "

12-COLUMN LEDGER" : PRINT 210 INPUT "DO YOU WANT INSTRUCTIONS <Y/ N)"; A$

300 CLS : PRINT "THESE ARE THE HEADINGS ENTERED IN DATA LINES 3060 TO 3090."

310 PRINT " CHANGE THEM IF N

ECESSARY " : GOTO 3000

400 CLS : PRINT : PRINT " ***** TUR N ON PRINTER OR PROGRAM WILL 'FREEZE* J1 *★***"

410 PRINT : INPUT "DO YOU HAVE PREVIOUS *** GRAND TOTALS *** TO ENTER <Y/N>" ; 0$

420 IF LEFTS(0$, 1) = "Y" GOTO 4000 500 GOSUB 5000 : CLS : LPRINT " " : LPR INT " BEGINS NEW PAGE..." : LPRI

510 A = 0 : B = 0 : C = 0:D = 0:E = 0; F = 0:G = 0:H = 0:I=0: J=0:K = 0:L = 0:S = 0 520 IF LEFT$(R$, 1) = "Y" THEN S1 = 0 : B1 = 0 s C1 = 0 s D1 = 0 : E1 = 0 : F1 = 0

0 : R$ = "" 550 LPRINT "DATE"; TAB(6)"CHECK#"; TAB(

19)"AMOUNT"; 560 LPRINT TABC32)"TO WHOM AND PURPOSE"

; TAB(60)"COLUMNS" 600 CLS : PRINT A$(1) TAB(32)A$(7) 610 PRINT AS(2) TAB(32)ASC8) 620 PRINT AS(3) TAB(32)A$(9) 630- PRINT AS(4) TAB(32)AS(10) 640 PRINT AS(5) TAB(32)A$(11) 650 PRINT AS(6) TAB(32)AS(12)

TAL/0,0 ENTER" 665 PRINT "-----------------------------

0 0

Post a comment