🚀 go-pugleaf

Hello,

This is not EVE or TPU, but if you have FMS you might find this little
.COM file useful.  FMS has lots of nifty keyboard and display functions
for VTxxx terminals.  This .COM file will startup FMS, let you design
a screen, then export the form to a file containing ASCII escape sequences.
You could use that output in any way you wanted.  You could even spawn
a process in eve to start this .COM file and read in the output when
you return to EVE if you really had to edit it.

Regards, Ken Selvia.
Kenneth Selvia                 Internet : ucs_kas@shsu.edu
Unix Systems Coordinator       BITNET : UCS_KAS@SHSU.BITNET
Sam Houston State University   MaBell : (409)294-3547
Huntsville, TX 77341                    [INFO-TPU list owner]
$!---------------------------------cut here---------------------------
$   write sys$output ""
$   write sys$output " "
$   write sys$output "#3       Message MAKER!"
$   write sys$output "#4       Message MAKER!"
$   write sys$output " "
$   msg = p1
$   if msg .eqs. "" then read/prompt="Message name?: " sys$command msg
$   ASSIGN/USER SYS$COMMAND SYS$INPUT
$   FMS/EDIT sys$login:'MSG'
$   if f$search("sys$login:msg.flb") .nes. "" then goto replace
$   FMS/LIB/CREATE sys$login:msg sys$login:'msg'
$   goto list
$replace:
$   fms/LIB/replace sys$login:msg sys$login:'msg'
$list:
$   fms/desc/disp=escape/out=sys$login:'msg'.lis sys$login:msg /form='msg'
$   read/prompt="Clear screen before displaying this message? (Y/N): " -
        sys$command clr_yn
$   if .not. clr_yn then goto no_clr
$   RENAME/NOLOG SYS$LOGIN:'MSG'.LIS SYS$LOGIN:'MSG'.TMP_01
$   copy/nolog sys$input, SYS$LOGIN:'MSG'.TMP_01 SYS$LOGIN:'MSG'.LIS

$   delete/nolog/noconf SYS$LOGIN:'MSG'.TMP_01.*
$no_clr:
$   write sys$output ""
$   type sys$login:'msg'.lis
$   write sys$output "THATS IT. ITS CALLED ''MSG'.LIS IN YOUR HOME DIRECTORY"
$   WRITE SYS$OUTPUT "ENTER ""$TYPE SYS$LOGIN:''MSG'"" TO SEE IT ANYTIME."