home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / setrx.ba < prev    next >
Text File  |  2006-10-19  |  572b  |  12 lines
  1. 0 'SETRX.BA - BY PHIL WHEELER              CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:E$=CHR$(27):PRINT"  Turn Printer <<ON>>":PRINT"  Select Print Option:":PRINT:PRINT,"E)mph     ";"R)eset",,"W)ide     ";"M)arg8",,"C)omp     ";"S)kip6",,"D)ble     ";"X)exit"
  3. 2 ONINSTR("eErRwWmMcCsSdDxX",INPUT$(1))GOTO3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10:GOTO2
  4. 3 LPRINTE$"E";:GOTO1
  5. 4 LPRINTE$"@";:GOTO1
  6. 5 LPRINTE$"W1";:GOTO1
  7. 6 LPRINTE$"l"CHR$(8);:GOTO1
  8. 7 LPRINTCHR$(15);:GOTO1
  9. 8 LPRINTE$"N"CHR$(6);:GOTO1
  10. 9 LPRINTE$"G";:GOTO1
  11. 10 CLEAR:MENU
  12.