home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / vmsnet / tpu / 619 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  2.5 KB
  1. Path: sparky!uunet!pipex!warwick!doc.ic.ac.uk!agate!spool.mu.edu!howland.reston.ans.net!zaphod.mps.ohio-state.edu!moe.ksu.ksu.edu!mccall!info-tpu-newsgate!list
  2. Newsgroups: vmsnet.tpu
  3. Subject: Having EVE act as a WYSIWYG editor
  4. Message-ID: <00967473.1CEAA840.11108@SHSU.edu>
  5. From: Ken Selvia x3547 <ucs_kas@shsu.edu>
  6. Date: Thu, 28 Jan 1993 09:00:25 CST
  7. Reply-To: Ken Selvia x3547 <ucs_kas@SHSU.edu>
  8. Organization: The Internet
  9. Return-Path: <TPU-Mgr@SHSU.edu>
  10. Errors-To: TPU-Mgr@SHSU.edu
  11. X-Listname: Text Processing Utility (TPU) Language Discussion List
  12. Lines: 44
  13.  
  14. Hello,
  15.  
  16. This is not EVE or TPU, but if you have FMS you might find this little
  17. .COM file useful.  FMS has lots of nifty keyboard and display functions
  18. for VTxxx terminals.  This .COM file will startup FMS, let you design
  19. a screen, then export the form to a file containing ASCII escape sequences.
  20. You could use that output in any way you wanted.  You could even spawn
  21. a process in eve to start this .COM file and read in the output when
  22. you return to EVE if you really had to edit it.
  23.  
  24. Regards, Ken Selvia.
  25. Kenneth Selvia                 Internet : ucs_kas@shsu.edu
  26. Unix Systems Coordinator       BITNET : UCS_KAS@SHSU.BITNET
  27. Sam Houston State University   MaBell : (409)294-3547
  28. Huntsville, TX 77341                    [INFO-TPU list owner]
  29. $!---------------------------------cut here---------------------------
  30. $   write sys$output "H"
  31. $   write sys$output " "
  32. $   write sys$output "#3       Message MAKER!"
  33. $   write sys$output "#4       Message MAKER!"
  34. $   write sys$output " "
  35. $   msg = p1
  36. $   if msg .eqs. "" then read/prompt="Message name?: " sys$command msg
  37. $   ASSIGN/USER SYS$COMMAND SYS$INPUT
  38. $   FMS/EDIT sys$login:'MSG'
  39. $   if f$search("sys$login:msg.flb") .nes. "" then goto replace
  40. $   FMS/LIB/CREATE sys$login:msg sys$login:'msg'
  41. $   goto list
  42. $replace:
  43. $   fms/LIB/replace sys$login:msg sys$login:'msg'
  44. $list:
  45. $   fms/desc/disp=escape/out=sys$login:'msg'.lis sys$login:msg /form='msg'
  46. $   read/prompt="Clear screen before displaying this message? (Y/N): " -
  47.         sys$command clr_yn
  48. $   if .not. clr_yn then goto no_clr
  49. $   RENAME/NOLOG SYS$LOGIN:'MSG'.LIS SYS$LOGIN:'MSG'.TMP_01
  50. $   copy/nolog sys$input, SYS$LOGIN:'MSG'.TMP_01 SYS$LOGIN:'MSG'.LIS
  51. H
  52. $   delete/nolog/noconf SYS$LOGIN:'MSG'.TMP_01.*
  53. $no_clr:
  54. $   write sys$output "H"
  55. $   type sys$login:'msg'.lis
  56. $   write sys$output "THATS IT. ITS CALLED ''MSG'.LIS IN YOUR HOME DIRECTORY"
  57. $   WRITE SYS$OUTPUT "ENTER ""$TYPE SYS$LOGIN:''MSG'"" TO SEE IT ANYTIME."
  58.