10 REM-IBM Printer Option Program
20 REM-By Carmela Linsalata
30 CLS
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 & 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 & 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 CHR$(27);"0";:RETURN 'Compre