LPTDOX.BA (c) Wilson Van Alst [76576,2735] 9/25/87 1 IFNTHENIFEOF(1)THENCLOSE:LPRINTCHR$(12):NEXT:CLOSE:MENUELSELINEINPUT#1,P$:LPRINTP$:GOTO1ELSEIFI=0THENCLEAR500:E$=CHR$(27):CLS:FILES:I=1:GOTO1ELSEI=I+1:PRINT@251,E$"p Name"E$"K";:INPUTA$(I):IFA$(I)=""THENFORN=2TOI-1:OPENA$(N)FORINPUTAS1:GOTO1ELSE1