0 'LFT1 from LFT2 by RHP 11/25/2000
1 H=HIMEM:GOTO3
2 A$=INKEY$:IFA$=""THEN2ELSERETURN
3 CLS:P=PEEK(64228)+PEEK(64229)*256:IFP=32755THENPRINT"LF Disabled ":SOUND5000,2:SOUND10000,5:GOTO7
4 GOSUB 20:IFS=1109THEN5ELSEBEEP:PRINT"**CHECKSUM PROBLEM**":STOP
5 PRINT"LPT Line Feeds enabled behind F4.":PRINT"Disable? <Y/N>":GOSUB2:IFA$="y"ORA$="Y"THEN6ELSE10
6 POKE64228,243:POKE64229,127:CLEAR256,HIMEM:GOTO10
7 FORI=0TO8:READD:POKE63551+I,D:NEXT:POKE64228,63:POKE64229,248:GOTO3:DATA 254,13,192,205,63,109,62,10,201
10 MENU
20 S=0:FOR I=0TO8:Z=PEEK(63551+I):S=S+Z:NEXT:RETURN