10 REM    IBM PRINTER OPTION PROGRAM
20 REM    BY LINDA AND SID BROUDY
30 CLS:KEY OFF
40 PRINT "IBM/EPSON PRINTER OPTION MENU"
50 PRINT:PRINT "Choose from the following options:"
60 PRINT
70 PRINT "0) End program"
80 PRINT "1) Regular characters (default)"
90 PRINT "2) Compressed characters"
100 PRINT "3) Regular mode (default)"
110 PRINT "4) Emphasized mode--regular characters only"
120 PRINT "5) Double-strike mode"
130 PRINT "6) Emphasized double-strike mode"
140 PRINT "7) Normal line spacing (default)"
150 PRINT "8) Compressed line spacing"
160 PRINT "9) Silence paper-out buzzer"
170 PRINT
180 INPUT "Which option do you wish";ANS
190 IF ANS<0 OR ANS>9 THEN BEEP:GOTO 180
200 IF ANS=0 THEN 340
210 ON ANS GOSUB 250,260,270,280,290,300,310,320,330
220 PRINT "Done..."
230 FOR DELAY=1 TO 1000:NEXT
240 GOTO 30
250 LPRINT CHR$(18);:RETURN  'set regular characters
260 LPRINT CHR$(15);:RETURN  'set compressed characters
270 LPRINT CHR$(27);"F";CHR$(27);"H";:RETURN 'Emphasized and double strike off
280 LPRINT CHR$(27);"E";:RETURN 'Emphasized mode
290 LPRINT CHR$(27);"G";:RETURN 'Double strike mode
300 LPRINT CHR$(27);"E";CHR$(27);"G";:RETURN 'Emphasized and double strike on
310 LPRINT CHR$(27);"2";:RETURN 'Normal line spacing
320 LPRINT CHR$(27);"0";:RETURN 'Compressed line spacing
330 LPRINT CHR$(27);"8";:RETURN 'Override paper-out condition
340 END
 LPRINT