home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / archives / mskermit.zip / msvibmzip.uue / MSVIBM.ZIP / UTILS / PCPRINT.COM next >
Text File  |  1990-03-07  |  1KB  |  55 lines
  1. $ v = f$verify(0)                    ! PCPRINT.COM
  2. $!
  3. $! Print VMS files on the printer that is attached to your VT102,
  4. $! VT200, or VT300, or PC with MS-DOS Kermit or other VT terminal
  5. $! emulator that supports the "transparent print" function.
  6. $!
  7. $! Author: Mark Buda
  8. $!
  9. $! Usage:
  10. $!    pcprint :== @sys$login:pcprint.com
  11. $!    pcprint file.ext [,...]
  12. $!
  13. $ print_in_progress = 0
  14. $ type        := type
  15. $ write        := write
  16. $ say        := write sys$output
  17. $ sayerr    := write sys$error
  18. $ ff[0,7]    = 12
  19. $ esc[0,7]    = 27
  20. $ rp_on        = esc + "[5i"    ! Remote printer "ON" sequence
  21. $ rp_off    = esc + "[4i"    ! Remote printer "OFF" sequence
  22. $!
  23. $ on error then goto exit
  24. $ on control_y then goto ctly_exit
  25. $!
  26. $ file = p1
  27. $check_file:
  28. $ file = f$edit(file,"collapse")
  29. $ if file .eqs. ""
  30. $ then
  31. $    read/prompt="_Filename: "/end_of_file=exit sys$command file
  32. $    goto check_file
  33. $ endif
  34. $ f = f$search(file)
  35. $ if f .eqs. ""
  36. $ then
  37. $    sayerr "%PCPRINT-F-FNF, File not found - ''file'"
  38. $    goto exit
  39. $ endif
  40. $ say rp_on
  41. $ print_in_progress = 1
  42. $ type 'file'
  43. $ print_in_progress = 0
  44. $ say ff
  45. $ goto exit
  46. $!
  47. $ctly_exit:
  48. $ if print_in_progress then say ff
  49. $ goto exit
  50. $!
  51. $exit:
  52. $ say rp_off
  53. $ v = f$verify(v)
  54. $ exit
  55.