DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦11ff02923⟧ TextFile

    Length: 10943 (0x2abf)
    Types: TextFile
    Notes: UNIX file
    Names: »easiletter«

Derivation

└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
    └─⟦this⟧ »ua/new/usr/UAP/ufill/usrc/easiletter« 

TextFile

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.