10 REM PRINT.BA for ASM source files
15 REM 27 Oct 84
20 REM By Mike Berro [75765,374]
30 CLS:INPUT "Enter filename";F$
40 INPUT "Program name";P$
50 T$=F$+"   "+P$+"     "+DATE$+"     "+TIME$+SPACE$(70):T$=LEFT$(T$,62)+"Page"
90 GOTO1000
100 LPRINTT$;P:P=P+1
110 FORI=1 TO80:LPRINT "=";:NEXT
120 LPRINT:LPRINT:RETURN
200 FORJ=1TOLEN(A$):B$=MID$(A$,J,1):IFB$=CHR$(9)ANDJ=1THENLPRINTSPACE$(9);:GOTO220
210 LPRINTB$;
220 NEXT:LPRINT:RETURN
1000 OPENF$FORINPUTAS1
1010 P=1:L=1
1100 GOSUB100
1110 FOR I=1 TO60
1115 IF EOF(1)THEN2000
1120 LINEINPUT#1,A$
1125 PRINT@80,"Printing line";L
1130 LPRINTUSING"####:  ";L;:L=L+1
1140 GOSUB200
1150 NEXT
1160 LPRINT:LPRINT:LPRINT
1170 GOSUB100:GOTO1110
2000 CLOSE
2010 END