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

⟦7df678e46⟧ TextFile

    Length: 14017 (0x36c1)
    Types: TextFile
    Notes: UNIX file
    Names: »cralias«

Derivation

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

TextFile

V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
*
* Translated:   5.08.88 - Regnecentralen/AGJ
* Help translation: 17.10.88 - Regnecentralen/AMR

:TITLE
O P R E T   G R U P P E

:SCREEN

      DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
      B  Gruppenavn     B  [alias___________________________________] B@@
      [                 [                                             [
      B  Tilg▶91◀ngelighed B  [avail___________________________________] B@@
      [                 [                                             [
      B                 B                                             B@@
      [                 [                                             [
      B  Adresse(r)     B  [l1______________________________________] B@@
      [                 [                                             [
      B                 B  [l2______________________________________] B@@
      [                 [                                             [
      B                 B  [l3______________________________________] B@@
      [                 [                                             [
      B                 B  [l4______________________________________] B@@
      [                 [                                             [
      B                 B  [l5______________________________________] B@@
      [                 [                                             [
      B                 B  [l6______________________________________] B@@
      [                 [                                             [
      B                 B  [l7______________________________________] B@@
      [                 [                                             [
      B                 B  [l8______________________________________] B@@
      [                 [                                             [
      B                 B  [l9______________________________________] B@@
      [                 [                                             [
      B                 B  [l10_____________________________________] B@@
      [                 [                                             [
      JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:SCREEN

      DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
      B                 B                                             B@@
      [                 [                                             [
      B  Adresser       B  [l11_____________________________________] B@@
      [                 [                                             [
      B  (side 2)       B  [l12_____________________________________] B@@
      [                 [                                             [
      B                 B  [l13_____________________________________] B@@
      [                 [                                             [
      B                 B  [l14_____________________________________] B@@
      [                 [                                             [
      B                 B  [l15_____________________________________] B@@
      [                 [                                             [
      B                 B  [l16_____________________________________] B@@
      [                 [                                             [
      B                 B  [l17_____________________________________] B@@
      [                 [                                             [
      B                 B  [l18_____________________________________] B@@
      [                 [                                             [
      B                 B  [l19_____________________________________] B@@
      [                 [                                             [
      B                 B  [l20_____________________________________] B@@
      [                 [                                             [
      JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:SCREEN

      DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
      B                 B                                             B@@
      [                 [                                             [
      B  Adresser       B  [l21_____________________________________] B@@
      [                 [                                             [
      B  (side 3)       B  [l22_____________________________________] B@@
      [                 [                                             [
      B                 B  [l23_____________________________________] B@@
      [                 [                                             [
      B                 B  [l24_____________________________________] B@@
      [                 [                                             [
      B                 B  [l25_____________________________________] B@@
      [                 [                                             [
      B                 B  [l26_____________________________________] B@@
      [                 [                                             [
      B                 B  [l27_____________________________________] B@@
      [                 [                                             [
      B                 B  [l28_____________________________________] B@@
      [                 [                                             [
      B                 B  [l29_____________________________________] B@@
      [                 [                                             [
      B                 B  [l30_____________________________________] B@@
      [                 [                                             [
      JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:SCREEN

      DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
      B                 B                                             B@@
      [                 [                                             [
      B  Adresser       B  [l31_____________________________________] B@@
      [                 [                                             [
      B  (side 4)       B  [l32_____________________________________] B@@
      [                 [                                             [
      B                 B  [l33_____________________________________] B@@
      [                 [                                             [
      B                 B  [l34_____________________________________] B@@
      [                 [                                             [
      B                 B  [l35_____________________________________] B@@
      [                 [                                             [
      B                 B  [l36_____________________________________] B@@
      [                 [                                             [
      B                 B  [l37_____________________________________] B@@
      [                 [                                             [
      B                 B  [l38_____________________________________] B@@
      [                 [                                             [
      B                 B  [l39_____________________________________] B@@
      [                 [                                             [
      B                 B  [l40_____________________________________] B@@
      [                 [                                             [
      JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:SCREEN

      DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
      B                 B                                             B@@
      [                 [                                             [
      B  Adresser       B  [l41_____________________________________] B@@
      [                 [                                             [
      B  (side 5)       B  [l42_____________________________________] B@@
      [                 [                                             [
      B                 B  [l43_____________________________________] B@@
      [                 [                                             [
      B                 B  [l44_____________________________________] B@@
      [                 [                                             [
      B                 B  [l45_____________________________________] B@@
      [                 [                                             [
      B                 B  [l46_____________________________________] B@@
      [                 [                                             [
      B                 B  [l47_____________________________________] B@@
      [                 [                                             [
      B                 B  [l48_____________________________________] B@@
      [                 [                                             [
      B                 B  [l49_____________________________________] B@@
      [                 [                                             [
      B                 B  [l50_____________________________________] B@@
      [                 [                                             [
      JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
      [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[

:LABELS
alias   =  type char, prompt = "Angiv navn p▶86◀ gruppen eller synonymet";
avail   =  type char, default = $(1), reply  = "Personlig!Generel",
                      prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";
l1      =  type char, prompt = "Angiv brugernavne adskilt med kommaer, eller eet brugernavn for synonym";
l2      =  type char;
l3      =  type char;
l4      =  type char;
l5      =  type char;
l6      =  type char;
l7      =  type char;
l8      =  type char;
l9      =  type char;
l10     =  type char;
l11     =  type char;
l12     =  type char;
l13     =  type char;
l14     =  type char;
l15     =  type char;
l16     =  type char;
l17     =  type char;
l18     =  type char;
l19     =  type char;
l20     =  type char;
l21     =  type char;
l22     =  type char;
l23     =  type char;
l24     =  type char;
l25     =  type char;
l26     =  type char;
l27     =  type char;
l28     =  type char;
l29     =  type char;
l30     =  type char;
l31     =  type char;
l32     =  type char;
l33     =  type char;
l34     =  type char;
l35     =  type char;
l36     =  type char;
l37     =  type char;
l38     =  type char;
l39     =  type char;
l40     =  type char;
l41     =  type char;
l42     =  type char;
l43     =  type char;
l44     =  type char;
l45     =  type char;
l46     =  type char;
l47     =  type char;
l48     =  type char;
l49     =  type char;
l50     =  type char;

:MAPS
map $(avail) = "Personlig" "PERSONAL"
map $(avail) = "Generel" "SYSTEM"

:COMMANDS

case $(avail) in
    "PERSONAL")
        ((cd $HOME/UAP)>/dev/null  2>&1) || mkdir $HOME/UAP
        file=$HOME/UAP/uniplex.alias;;
    "SYSTEM")
        file=$Uniplex/uniplex.alias;;
esac

acc=ok
if test -f "$file"; then
    if test -w "$file"; then :
    else
        echo "Du har ikke adgang til filen, der indeholder grupper"
        acc=notok
        echo "Tryk <RETUR> for at forts▶91◀tte"
        read RSP
    fi
fi

case $acc in
   ok)
       set xx\
       "$(l1)"  "$(l2)"  "$(l3)"  "$(l4)"  "$(l5)"\
       "$(l6)"  "$(l7)"  "$(l8)"  "$(l9)"  "$(l10)"\
       "$(l11)" "$(l12)" "$(l13)" "$(l14)" "$(l15)"\
       "$(l16)" "$(l17)" "$(l18)" "$(l19)" "$(l20)"\
       "$(l21)" "$(l22)" "$(l23)" "$(l24)" "$(l25)"\
       "$(l26)" "$(l27)" "$(l28)" "$(l29)" "$(l30)"\
       "$(l31)" "$(l32)" "$(l33)" "$(l34)" "$(l35)"\
       "$(l36)" "$(l37)" "$(l38)" "$(l39)" "$(l40)"\
       "$(l41)" "$(l42)" "$(l43)" "$(l44)" "$(l45)"\
       "$(l46)" "$(l47)" "$(l48)" "$(l49)" "$(l50)"

       shift

       yy=`echo $1`
       case "$yy" in
           '') :Do not set an alias if nothing in first item;;
            *)
               echo "$(alias) = $1 ," >> $file
               shift
               while : ; do
                   case $# in
                       0) break;;
                   esac
                   yy=`echo $1`
                   case "$yy" in
                       '') : Do not set blank lines;;
                       *)  echo "        $1 ," >> $file;;
                   esac
                   shift
               done
               echo "        ;" >> $file;;
       esac
       case "$(1)" in
           1|2) ;;
             *)
                 case "$(avail)" in
                     "SYSTEM") exec ufill cralias 2;;
                 esac;;
        esac
esac

hold
reset

..F..............V......T.......T.......T.......T.......T.......T....L..
:HELP
  OPRET GRUPPELISTE

  Formularen Opret gruppe udfyldes p▶86◀ f▶9b◀lgende m▶86◀de:@@
             BBBBBBBBBBBB                           

  Gruppenavn     Indtast navnet p▶86◀ gruppelisten. F.eks.: forfattere.

                 Kommentarer  til  gruppenavne kan eventuelt  tilf▶9b◀jes
                 mellem stjerner (*).

  Tilg▶91◀ngelighed Feltet  er som standard udfyldt med Personlig. Feltet
                 skal ikke ▶91◀ndres.

  Adresse(r)     Indtast  adresserne p▶86◀ de brugere, der ▶9b◀nskes i grup▶ad◀
                 pelisten, adskilt af kommaer.