0 'LSETUP.BA  J.K. Heilman  120685
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 'For Epson and Gemini Printers
3 DEFINTA-Z:E$=CHR$(27):R=80:T=2:B=2
4 IF(INP(187)AND6)<>2THENPRINT" Turn Printer <<ON>>";:GOTO4
5 CLS:PRINT@13,E$;"p LSETUP.BA v1.0 ";E$+"q":PRINT:PRINT"<E>pson  or  <G>emini ";:P$=INPUT$(1):P$=CHR$(ASC(P$)AND223):GOSUB11:D=R:PRINT:PRINT"Left Margin [ 0 ]";:INPUTL:PRINT"Right Margin [";R;"]";:INPUTR:IFP$="G"THENPRINT"Top Margin [ 2 ]";:INPUTT
6 PRINT"Bottom Margin [ 2 ]";:INPUTB:IFL<>0THENLPRINTE$+"l"+CHR$(L);
7 IFR<>DTHENLPRINTE$+"Q"+CHR$(R);
8 IFP$="E"THEN9ELSEIFT<>0THENLPRINTE$+"r"+CHR$(T);
9 IFB<>0THENLPRINTE$+"N"+CHR$(B);
10 MENU:'Font Selection
11 PRINT:PRINT"<P>ica  <E>lite  <C>ondensed ";:F$=INPUT$(1):F$=CHR$(ASC(F$)AND223):IFF$="E"THENR=96:LPRINTE$+"M";
12 IFF$="C"THENR=136:LPRINTCHR$(15);
13 RETURN