/* ========================== */
/*  Mo-Open v1.01 sAFRA 1999  */
/* ========================== */

/* Look momma, no Rexxtricks! */

parse arg node
options results
address value "AERexxControl"node

ac = "" ; bc = "" ; cc = "" ; dc = "" ; ec = ""
zc = "" ; gt=GETUSER ; tr=TRANSMIT ; sm=SENDMESSAGE ; CLS=""

signal on syntax

header="doors:moopen/header.txt"
tailer="doors:moopen/tailer.txt"

gt 105 ; axs=result

open(file,'doors:moopen/commands.cfg','r')

sm cls
showfile header

do forever

q1=readln(file)
if q1="[EOF]" then break
q2=readln(file)
q3=readln(file)

if axs>=q1 then do
tr dc||" ["||ec||center(q2,10,' ')||dc||"]"||bc||" "||dc||"[ "||cc||left(q3,62,' ')||dc||"]"
end

end
showfile tailer

close(file)
call exit

EXIT:
SHUTDOWN
EXIT
END

SYNTAX:
tr "An error has occured in line: "sigl" Please tickle the sysop."
SHUTDOWN
EXIT
END