home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
prt
/
setrx.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
572b
|
12 lines
0 'SETRX.BA - BY PHIL WHEELER CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
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"
2 ONINSTR("eErRwWmMcCsSdDxX",INPUT$(1))GOTO3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10:GOTO2
3 LPRINTE$"E";:GOTO1
4 LPRINTE$"@";:GOTO1
5 LPRINTE$"W1";:GOTO1
6 LPRINTE$"l"CHR$(8);:GOTO1
7 LPRINTCHR$(15);:GOTO1
8 LPRINTE$"N"CHR$(6);:GOTO1
9 LPRINTE$"G";:GOTO1
10 CLEAR:MENU