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 / PRPORT.PRG < prev    next >
Text File  |  1991-11-24  |  850b  |  39 lines
  1. set talk off
  2. set shadows on
  3. store 0 to choice
  4. do while choice < 8
  5. clear
  6.  
  7. @ 6,10     say " Drucker Port Init."
  8. @ 8,10  prompt " 1 - Seriell       "
  9. @ 9,10  prompt " 2 - Parallel      "
  10. @ 10,10 prompt " 3 - Port LPT1     "
  11. @ 11,10 prompt " 4 - Port LPT2     "
  12. @ 12,10 prompt " 5 - Port LPT3     "
  13. @ 13,10 prompt " 6 - Port COM1     "
  14. @ 14,10 prompt " 7 - Port COM2     "
  15. @ 15,10 prompt " 0 -  E N D E      "
  16. @7,8 to 16,30 double
  17. set print on
  18. menu to choice
  19. do case
  20.  case choice=1
  21.      run mode com1:9600,n,8,2,p
  22.      run mode lpt1:=com1
  23.  case choice=2
  24.      run mode lpt1:       
  25.  case choice=3
  26.      set print to lpt1
  27.  case choice=4
  28.      set print to lpt2
  29.  case choice=5
  30.      set print to lpt3
  31.  case choice=6
  32.      set print to com1
  33.  case choice=7
  34.      set print to com2
  35.  case choice=0
  36.      return
  37.  endcase
  38. enddo
  39.