0 'LFT2.BA by RHP 09/01/2002
1 H=HIMEM:GOTO3
2 A$=INKEY$:IFA$=""THEN2ELSERETURN
3 CLS:P=PEEK(62739)+PEEK(62740)*256:IFP=40104THENPRINT"LF Disabled ":SOUND5000,2:SOUND10000,5:GOTO7
4 GOSUB20:IFS=1270 AND P=61738THEN5ELSEIFS<>1270ANDP=61738THENBEEP:PRINT"**PROBLEM**":STOP
5 PRINT"LPT Line Feeds now enabled behind F4.":PRINT"Disable? <Y/N>":GOSUB2:IFA$="y"ORA$="Y"THEN6ELSE10
6 POKE62739,168:POKE62740,156:CLEAR256,HIMEM:GOTO10
7 FORI=0TO8:READD:POKE61738+I,D:NEXT:POKE62740,241:POKE62739,42:GOTO3:DATA 254,13,192,205,201,132,62,10,201
10 MENU
20 S=0:FORI=0TO8:Z=PEEK(61738+I):S=S+Z:NEXT:RETURN