home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / anwender / zephyr / zephyr4s.2 / BEISPIEL.EXE / lha / PRINTER.PRG < prev    next >
Text File  |  1991-11-24  |  1KB  |  50 lines
  1. set talk off
  2. set shadows on
  3. store 0 to choice
  4. do while choice < 11
  5. clear
  6.  
  7. @ 6,10     say "      Drucker-Util's   "
  8. @ 8,10  prompt "  1 - 10 Zeichen/Zoll  "
  9. @ 9,10  prompt "  2 - 17 Zeichen/Zoll  "
  10. @ 10,10 prompt "  3 - Fettdruck        "
  11. @ 11,10 prompt "  4 - weite Schrift    "
  12. @ 12,10 prompt "  5 - Elite 12/Zoll    "
  13. @ 13,10 prompt "  6 - sehr weit        "
  14. @ 14,10 prompt "  7 - Weit und fett    "
  15. @ 15,10 prompt "  8 - Hochgestellt     "
  16. @ 16,10 prompt "  9 - Tiefgestellt     "
  17. @ 17,10 prompt "  R - Reset Init.      "
  18. @ 18,10 prompt "  0 - Port  Init.      "
  19. @7,8 to 19,33 double
  20. set print on
  21. menu to choice
  22. do case
  23.  case choice=1
  24.      ??? CHR(27)+CHR(33)+CHR(2)
  25.  case choice=2
  26.      ??? CHR(27)+CHR(33)+CHR(4)       
  27.  case choice=3
  28.      ??? CHR(27)+CHR(33)+CHR(8)
  29.  case choice=4
  30.      ??? CHR(27)+CHR(33)+CHR(49)
  31.  case choice=5
  32.      ??? CHR(27)+CHR(33)+CHR(5)
  33.  case choice=6
  34.      ??? CHR(27)+CHR(33)+CHR(32)
  35.  case choice=7
  36.      ??? CHR(27)+CHR(33)+CHR(40)
  37.  case choice=8
  38.      ??? CHR(27)+CHR(83)+CHR(48)
  39.  case choice=9
  40.      ??? CHR(27)+CHR(83)+CHR(1)
  41.  case choice=10
  42.      ??? CHR(27)+CHR(64)
  43.  case choice=11
  44.      do prport
  45.      set printer off
  46.  
  47.      return
  48.  endcase
  49. enddo
  50.