home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASIC00.ZIP / EPSON.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.4 KB  |  35 lines
  1. 10 REM-IBM Printer Option Program
  2. 20 REM-By Carmela Linsalata
  3. 30 CLS
  4. 40 PRINT "IBM/Epson Printer Option Menu "
  5. 50 PRINT:PRINT "Choose from the following options:"
  6. 60 PRINT
  7. 70 PRINT "0)End program"
  8. 80 PRINT "1)Regular characters (default)"
  9. 90 PRINT "2)Compressed characters"
  10. 100 PRINT "3)Regular mode (default)"
  11. 110 PRINT "4)Emphasized mode-regular characters only"
  12. 120 PRINT "5)Double-strike mode"
  13. 130 PRINT "6)Emphasized double-strike mode"
  14. 140 PRINT "7)Normal line spacing (default)"
  15. 150 PRINT "8)Compressed line spacing"
  16. 160 PRINT "9)Silence paper-out buzzer"
  17. 170 PRINT
  18. 180 INPUT "Which option do you wish";ANS
  19. 190 IF ANS<0 OR ANS>9 THEN BEEP:GOTO 180
  20. 200 IF ANS=0 THEN 340
  21. 210 ON ANS GOSUB 250,260,270,280,290,300,310,320,330
  22. 220 PRINT "Done........"
  23. 230 FOR DELAY=1 TO 1000:NEXT
  24. 240 GOTO 30
  25. 250 LPRINT CHR$(18);:RETURN 'Set regular characters
  26. 260 LPRINT CHR$(15);:RETURN 'Set compressed characters
  27. 270 LPRINT CHR$(27);"F";CHR$(27);"h";:RETURN 'Emphasized & double strike off
  28. 280 LPRINT CHR$(27);"E";:RETURN 'Emphasized mode
  29. 290 LPRINT CHR$(27);"G";:RETURN 'Double-strike mode
  30. 300 LPRINT CHR$(27);"E";CHR$(27);"g";:RETURN 'Emphasized & double strike on
  31. 310 LPRINT CHR$(27);"2";:RETURN 'Normal line spacing
  32. 320 LPRINT CHR$(27);"0";:RETURN 'Compressed line spacing
  33. 330 LPRINT CHR$(27);"8";:RETURN 'Override paper-out condition
  34. 340 END
  35.  LPRINT CHR$(27);"0";:RETURN 'Compre