|
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 m
Length: 3134 (0xc3e)
Types: TextFile
Notes: UNIX file
Names: »mmerge.add1«
└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/ufill/ubld/mmerge.add1«
#help
OPRET ADRESSEREGISTER
Udfyldelse af formularen:
N▶86◀r sk▶91◀rmformularens felter er udfyldt trykkes <ESC> e eller UDF▶9d◀R.
Uniplex opretter adressen i adresseregisteret og viser sk▶91◀rmformularen
igen.
Der kan derefter oprettes adresser for flere personer som beskrevet
ovenfor.
N▶86◀r alle adresser er oprettet trykkes <ESC> a eller AFBRYD.
))
:II+ COMPILED
:TITLE
O P R E T A D R E S S E R E G .
:SCREEN
screen lines : 14
9 5 1 Navn p▶86◀ adresseregister:
6 7 1 ▶1b◀[DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF
6 8 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 9 1 ▶1b◀[B▶1b◀ Fornavn ▶1b◀[B▶1b◀ ▶1b◀[B
6 10 1 ▶1b◀[B▶1b◀ Fulde navn ▶1b◀[B▶1b◀ ▶1b◀[B
6 11 1 ▶1b◀[B▶1b◀ Stilling ▶1b◀[B▶1b◀ ▶1b◀[B
6 12 1 ▶1b◀[B▶1b◀ Firmanavn ▶1b◀[B▶1b◀ ▶1b◀[B
6 13 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 14 1 ▶1b◀[B▶1b◀ Adresse ▶1b◀[B▶1b◀ ▶1b◀[B
6 15 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 16 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 17 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 18 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 19 1 ▶1b◀[B▶1b◀ ▶1b◀[B▶1b◀ ▶1b◀[B
6 20 1 ▶1b◀[JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH
:LABELS
Label lines : 9
i labx laby lpage llen itype itbnum iprompt idefval label width
CHARS: charset reply prompt wrap
DEC : dec_pl min max
DATES:No output
0 36 5 1 29 C 0 Angiv opgavenavn $(1) docname 0
CHAR E 1 -1
1 28 9 1 20 C 0 Angiv fornavn (eks: Peter) name 0
CHAR 0 -1
2 28 10 1 40 C 0 Angiv det fulde navn og evt. titel (eks: Hr. Peter Post) formal 0
CHAR 0 -1
3 28 11 1 40 C 0 Angiv stillingsbetegnelse title 0
CHAR 0 -1
4 28 12 1 40 C 0 Angiv firmanavn company 0
CHAR 0 -1
5 28 14 1 40 C 0 Angiv adresse add1 0
CHAR 0 -1
6 28 15 1 40 C 0 Angiv adresse add2 0
CHAR 0 -1
7 28 16 1 40 C 0 Angiv adresse add3 0
CHAR 0 -1
8 28 17 1 40 C 0 Angiv adresse add4 0
CHAR 0 -1
9 28 18 1 40 C 0 Angiv adresse add5 0
CHAR 0 -1
:MAPS
Map lines : -1
i type label compar data map to
:COMMANDS
Hold pause clear reset:
0 0 1 0
Command: 21
if test -f "$(docname)"; then
echo "Opgaven findes i forvejen - v▶91◀lg: *<RETUR> = Overskriv, <RETUR> = Annuller"
read RSP
case "$RSP" in
'*') : ;;
*) exit 0;;
esac
fi
echo ".SL12" > "$(docname)"
echo "$(name)" >> "$(docname)"
echo "$(formal)" >> "$(docname)"
echo "$(title)" >> "$(docname)"
echo "$(company)" >> "$(docname)"
echo "$(add1)" >> "$(docname)"
echo "$(add2)" >> "$(docname)"
echo "$(add3)" >> "$(docname)"
echo "$(add4)" >> "$(docname)"
echo "$(add5)" >> "$(docname)"
echo " " >> "$(docname)"
echo " " >> "$(docname)"
echo "." >> "$(docname)"
exec ufill mmerge.add2 $(docname)
:END