10 REM THIS PROGRAM PRINTS OUT MILEAGE REIMBURSMENT FORMS
20 REM FOUR PER PAGE
22 B$ ="-------------------------"
24 C$ ="---------------"
25 D$ ="(MONTH)              (MILES)"
26 E$ ="@ 20C PER MILE EQUALS $                   ."
30 PRINT "      MILEAGE REIMBURSMENT FORM PROGRAM"
40 PRINT
50 PRINT "      SIX FORMS PER PAGE WILL PRINT OUT"
60 PRINT 
65 PRINT
68 PRINT
70 PRINT
72 PRINT"      ENTER NUMBER OF PAGES OF FORMS TO BE PRINTED"
74 PRINT
76 PRINT"      (ENTER 0 TO END PROGRAM)"
78 PRINT
79 PRINT
80 INPUT A
90 IF A=0 THEN 9999
94 LPRINTER WIDTH 132 REM SET PRINTER WIDTH TO 132 CHARACTERS
96 PRINT CHR$(15) REM  SETS PRINTER TO CONDENSED PRINT SIZE
100 FOR I=1 TO A
104 FOR J=1 TO 3 REM THREE SETS PER PAGE COUNTER
110 PRINT TAB(5);"DATE";TAB(70);"DATE"
120 PRINT TAB(9);B$;TAB(74);B$ REM LINE FOR DATE
140 PRINT TAB(5);"MILEAGE FOR";TAB(70);"MILEAGE FOR"
150 PRINT TAB(16);C$;"   ";C$;TAB(82);C$;"   ";C$
170 PRINT TAB(19);D$;TAB(85);D$ REM MONTH MILES
174 PRINT
180 PRINT TAB(5);E$;TAB(70);E$ REM @ 20C PER MILE EQUALS $
190 PRINT TAB(30);C$;TAB(95);C$
182 PRINT
186 PRINT TAB(5);"SIGNED";TAB(70);"SIGNED"
200 PRINT TAB(15);B$;TAB(80);B$ 
220 PRINT TAB(5);"DATE PAID";TAB(70);"DATE PAID"
230 PRINT TAB(16);B$;TAB(80);B$ REM DATE PAID LINE
240 PRINT TAB(5);"CHECK # ";TAB(70);"CHECK #"
250 PRINT TAB(13);C$;TAB(78);C$ REM CHECK # LINE
264 PRINT
267 PRINT
268 PRINT
269 PRINT
270 NEXT J
272 FOR K=1 TO 7 REM END OF PAGE LINE SPACING TO NEXT PAGE TOP
274 PRINT
276 NEXT K
280 NEXT I REM NUMBER OF PAGES COUNTER
300 PRINT CHR$(18) REM SET PRINTER BACK TO 80 COLUMNS
400 CONSOLE REM BACK TO TERMINAL
9999 END