home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / lsetup.ba < prev    next >
Text File  |  2006-10-19  |  880b  |  15 lines
  1. 0 'LSETUP.BA  J.K. Heilman  120685
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'For Epson and Gemini Printers
  4. 3 DEFINTA-Z:E$=CHR$(27):R=80:T=2:B=2
  5. 4 IF(INP(187)AND6)<>2THENPRINT" Turn Printer <<ON>>";:GOTO4
  6. 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
  7. 6 PRINT"Bottom Margin [ 2 ]";:INPUTB:IFL<>0THENLPRINTE$+"l"+CHR$(L);
  8. 7 IFR<>DTHENLPRINTE$+"Q"+CHR$(R);
  9. 8 IFP$="E"THEN9ELSEIFT<>0THENLPRINTE$+"r"+CHR$(T);
  10. 9 IFB<>0THENLPRINTE$+"N"+CHR$(B);
  11. 10 MENU:'Font Selection
  12. 11 PRINT:PRINT"<P>ica  <E>lite  <C>ondensed ";:F$=INPUT$(1):F$=CHR$(ASC(F$)AND223):IFF$="E"THENR=96:LPRINTE$+"M";
  13. 12 IFF$="C"THENR=136:LPRINTCHR$(15);
  14. 13 RETURN
  15.