home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / KERMIT23.ZIP / MSPVPC.COM < prev    next >
Encoding:
Text File  |  1990-02-06  |  1.3 KB  |  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.