|
DataMuseum.dkPresents historical artifacts from the history of: RC9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: @ T
Length: 1043 (0x413)
Types: TextFile
Notes: @(#)Text.read 13.1 (RC International) 91/07/25
Names: »Text.read«
└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
└─⟦97ad7467e⟧ »0005«
└─⟦this⟧ »./home/vmsys/OBJECTS/mail/Text.read«
# @(#)Text.read 13.1 (RC International) 91/07/25
#ident "@(#)face:OBJECTS/mail/Text.read 1.1"
`if [ "${ARG1}" = "new" ];
then
set -l ttext="Contents of New Mail Message";
set -l tname=SAVE;
else
set -l ttext="Contents of Saved Mail Message";
set -l tname="";
fi`
title="$ttext ${ARG2}"
altslks=true
help=OPEN TEXT OBJECTS/Text.h "${ttext}" mail/T.read
lifetime=longterm
framemsg=`message -o "Press CANCEL to cancel."`
rows=10
columns=72
text="`cosend $ARG1 "t ${ARG2}"`"
name=HELP
button=9
action=help
name=REPLY
button=10
action=OPEN FORM OBJECTS/mail/Form.send "Reply to" "$ARG3" "Re: $ARG4"
name=$tname
button=11
action=`if [ "${ARG1}" = "new" ];
then
message -w "Saving message. Please wait...";
cosend $ARG1 "s ${ARG2} $HOME/mbox" > /dev/null;
message -w "Message has been saved.";
fi`nop
name=DELETE
button=12
action=`message -w "Deleting message. Please wait...";
cosend $ARG1 "d ${ARG2}" > /dev/null;
message -w "Message has been deleted."`close
name=CANCEL
button=14
action=close