|
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 - download
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.