10 'lptlf -- add line feeds to lpt
20 'copyright 1983
30 '    Michael M Rubenstein
40 P=PEEK(64228)+256*PEEK(64229)
50 IF P=32755 THEN 100
60 PRINT "LPTLF enabled.  Disable? ";
70 C$=INPUT$(1):PRINT C$;:IF C$="y" OR C$="Y" THEN POKE 64228,243:POKE 64229,127:CLEAR 256,MAXRAM
80 MENU
100 CLEAR 256,MAXRAM-11:P=INT(HIMEM/256):POKE 64229,P:POKE 64228,HIMEM-256*P:P=HIMEM
110 READ B:IF B>=0 THEN POKE P,B:P=P+1:GOTO 110
120 MENU
150 DATA 254,13,192,62,10,205,63,109,62,13,201,-1