|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T U e
Length: 10943 (0x2abf)
Types: TextFile
Notes: UNIX file
Names: »easiletter«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/ufill/usrc/easiletter«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
*
* Translated/modified: 15.09.88 - Regnecentralen/AGJ
* Help translation: 12.10.88 - Regnecentralen/AMR
*
:TITLE
B R E V
:SCREEN
Opgavenavn: [docname________________________________________]
DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B@@
[ [
B Vor ref.: [refint_____________________] B@@
[ [
B Deres ref.: [refext_____________________] B@@
[ [
B B@@
[ [
B Adresse: [card___________________________________________] B@@
[ [
B B@@
[ [
B Dato: [d1_][d2_______][d3__] B @@
[ [[
B B@@
[ [
B K▶91◀re: [name_______________________] B@@
[ [
B B@@
[ [
B Vedr.: [subject________________________________________] B@@
[ [
B B@@
[ [
B Afslutning: [ending_____________________] B@@
[ [
B B@@
[ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
(Tryk <PIL-NED> for yderligere oplysninger)
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B@@
[ [
B Dit navn: [yname__________________________________________] B@@
[ [
B Din titel: [title__________________________________________] B@@
[ [
B B@@
[ [
B Bilag: [en] B@@
[ [
B B@@
[ [
B Kopier (cc.): [cc_] B@@
[ [
B B@@
[ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
name=type char , prompt="Angiv modtagerens navn. Hvis feltet er tomt, udelades 'K▶91◀re'";
subject=type char, prompt="Hvis feltet er tomt, udelades 'Vedr.'";
docname=type char file=CREATE chars="E", minimum=1, prompt="Angiv opgavenavn til det f▶91◀rdige brev";
refint=type char, prompt="Hvis feltet er tomt, udelades 'Vor ref.'";
refext=type char, prompt="Hvis feltet er tomt, udelades 'Deres ref.'";
d1=type char, default=$(7), display only;
d2=type char, default=$(8), display only;
d3=type char, default=$(9), display only;
ending=type char, reply="Med venlig hilsen!Venlig hilsen!Med hilsen!▶92◀rb▶9b◀digst!";
yname=type char, default=$(2),prompt="Angiv dit fulde navn";
title=type char, default=$(3),prompt="Angiv din titel (stillingsbetegnelse)";
card=type char,reply="Indtast navn og adresse!Brug dit adresse-/telefonregister\
!Brug f▶91◀lles, intern telefonliste";
en=type dec, default=0,
prompt="Angiv hvor mange bilag, der skal med brevet";
cc=type char, reply="Nej!Ja",prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
:COMMANDS
echo ".BA5" > $(docname)
echo ".SL62" >> $(docname)
echo ".TA5" >> $(docname)
echo " " >> $(docname)
echo ".FN" >> $(docname)
case "$(card)" in
"Indtast navn og adresse")
ufill easiletter1 $(name)
if test -f $HOME/.easiletter;
then
cat $HOME/.easiletter >> $(docname)
rm -f $HOME/.easiletter
fi;;
"Brug dit adresse-/telefonregister")
CDIR=$HOME/UAP
((cd $CDIR)>/dev/null 2>&1) || mkdir $CDIR
ucard -1:"$(name)*" -t3 -c $CDIR/addresses
if test -f $Ucutfile;
then
TAB=`echo | tr '\012' '\011'`
sed "1s/$TAB/\\
/g" $Ucutfile | sed -n 2,8p >> $(docname)
fi;;
"Brug f▶91◀lles, intern telefonliste")
ucard -1:"$(name)*" -t1 -c $Uniplex/ucard/ucards/addresses
if test -f $Ucutfile;
then
TAB=`echo | tr '\012' '\011'`
sed "1s/$TAB/\\
/g" $Ucutfile | sed -n 2p >> $(docname)
fi;;
esac
echo ".FJ" >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
sd1="$(d1)"
sd2="$(d2)"
sd3="$(d3)"
echo "Den" $sd1 $sd2 $sd3 >> $(docname)
echo " " >> $(docname)
case "$(refint)" in
'');;
*) echo "Vor ref.: $(refint)▶8d◀" >> $(docname);;
esac
case "$(refext)" in
"");;
*) echo "Deres ref.: $(refext)▶8d◀" >> $(docname);;
esac
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
case "$(name)" in
"");;
*) echo "K▶91◀re $(name)▶8d◀" >> $(docname)
echo " " >> $(docname);;
esac
case "$(subject)" in
"");;
*) echo "Vedr.: $(subject)▶8d◀ @@" >> $(docname)
echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" >> $(docname);;
esac
echo " " >> $(docname)
rm -f $HOME/.Easiletter
uniplex -qc $HOME/.Easiletter
if test -f $HOME/.Easiletter; then
cat $HOME/.Easiletter >> $(docname)
rm $HOME/.Easiletter
fi
echo " " >> $(docname)
echo " " >> $(docname)
echo "$(ending)" >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
echo "$(yname)▶8d◀" >> $(docname)
echo "$(title)▶8d◀ @@" >> $(docname)
echo "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" >> $(docname)
echo " " >> $(docname)
echo " " >> $(docname)
case "$(en)" in
"0");;
"1") echo "Bilag: $(en)" >> $(docname);;
*) echo "Bilag: $(en)" >> $(docname);;
esac
echo " " >> $(docname)
case "$(cc)" in
"Ja") ufill easilettercc $(docname);;
esac
ufill easiaction brev $(docname)
:HELP
BREV
..V.....T.......T.......T.......T.......T.......T.......T.......T....L
Felterne i den f▶9b◀rste del af formularen udfyldes p▶86◀ f▶9b◀lgende m▶86◀de:
..F.................V...T.......T.......T.......T.......T.......T....L
Opgavenavn Indtast et navn p▶86◀ brevet, som UNIPLEX anvender
som opgavenavn.
Vor ref. Indtast et referencenavn eller -nummer. Vor ref.
inds▶91◀ttes f▶9b◀rst i brevet. Hvis feltet ikke udfyld▶ad◀
es, udskrives linien ikke.
Deres ref. Indtast modtagerens referencenavn eller -nummer.
Hvis feltet ikke udfyldes, udskrives linien ikke.
Adresse V▶91◀lg ved at blade med <Mellemrum>. V▶91◀lg mellem at
indtaste adressen i en formular, at hente adressen
fra det private Adresse-/telefonregister eller fra
den interne Telefonliste.
.FS
Dato Dags dato inds▶91◀ttes automatisk.
K▶91◀re Indtast modtagerens navn. Hvis feltet ikke udfyld▶ad◀
es, udskrives linien ikke.
Vedr. Indtast, hvad brevet vedr▶9b◀rer. Der kan h▶9b◀jest
skrives 40 tegn. Hvis feltet ikke udfyldes, ud▶ad◀
skrives linien ikke.
Afslutning V▶91◀lg ved at blade med <Mellemrum> mellem:
Med venlig hilsen
Venlig hilsen
Med hilsen
▶92◀rb▶9b◀digst
eller en blank linie.
.FS
Felterne i den anden del af formularen udfyldes p▶86◀ f▶9b◀lgende m▶86◀de:
Dit navn Feltet er udfyldt p▶86◀ forh▶86◀nd af UNIPLEX med oplys▶ad◀
ningen fra Personlige data, som anvendes i afslut▶ad◀
ningen af brevet.
Din titel Feltet er udfyldt p▶86◀ forh▶86◀nd af UNIPLEX med oplys▶ad◀
ningen fra Personlige data, som anvendes i afslut▶ad◀
ningen af brevet.
Bilag Indtast antallet af vedlagte bilag. Hvis feltet
ikke udfyldes, udskrives linien ikke.
Kopier (cc.) Hvis der v▶91◀lges Ja, er der i en senere formular
mulighed for at angive de personer, som f▶86◀r til▶ad◀
sendt en kopi af brevet. Hvis feltet ikke ud▶ad◀
fyldes, udskrives linien ikke.
.FS
..V.....................T.......T.......T.......T.......T.......T....L
Hvis adressen ikke skal angives manuelt, v▶91◀lges "Brug dit
adresse-/telefonregister" eller "Brug f▶91◀lles, intern telefonliste" i
feltet Adresse, som begge er kartoteker i Planl▶91◀gningskalenderen.
Det valgte kartotek startes automatisk, og den ▶9b◀nskede adresse v▶91◀l▶ad◀
ges p▶86◀ f▶9b◀lgende m▶86◀de:
..F..V..................T.......T.......T.......T.......T.......T....L
1. V▶91◀lg det ▶9b◀nskede kort med FIND, og VIS kortet p▶86◀ sk▶91◀rmen.
2. V▶91◀lg MARKER for automatisk at inds▶91◀tte adressen i brevet.
3. Tryk <F4> (Afbryd).
UNIPLEX opretter en tekstbehandlingsopgave.