home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / prtset.ba < prev    next >
Text File  |  2006-10-19  |  647b  |  11 lines
  1. 0 'PRTSET.BA -- Printer setup program      Written by Chia-Chi Chao  04/20/87
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:E$=CHR$(27):INPUT"<P>ica  (E)lite  (C)ompressed ";A$:IFA$="e"THENLPRINTE$;"M";:GOTO5
  4. 3 IFA$="c"THENLPRINTCHR$(15);:GOTO5
  5. 4 A$="p":LPRINTE$;"P";
  6. 5 PRINTA$,,"Line spacing 1/<6> or 1/(8) ";:INPUTA$:IFA$="8"THENLPRINTE$;"0";:GOTO7
  7. 6 A$="6":LPRINTE$;"2";
  8. 7 PRINTA$,,"Lines for bottom margin <6> ";:A$="":INPUTA$:IFA$=""THENA$="6"
  9. 8 LPRINTE$;"N";CHR$(VAL(A$));:PRINTA$,,"Columns for left margin <10> ";:A$="":INPUTA$:IFA$=""THENA$="10"
  10. 9 PRINTA$;:LPRINTE$;"l";CHR$(VAL(A$));:MENU
  11.