|
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: 3813 (0xee5)
Types: TextFile
Notes: UNIX file
Names: »mmerge.add2«
└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/ufill/usrc/mmerge.add2«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
T I L F ▶9d◀ J A D R E S S E
:SCREEN
Navn p▶86◀ adresseregister: [docname______________________]
DAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B B B@@
[ [ [
B Fornavn B [name________________] B@@
[ [ [
B Fulde navn B [formal__________________________________] B@@
[ [ [
B Stilling B [title___________________________________] B@@
[ [ [
B Firmanavn B [company_________________________________] B@@
[ [ [
B B B@@
[ [ [
B Adresse B [add1____________________________________] B@@
[ [ [
B B [add2____________________________________] B@@
[ [ [
B B [add3____________________________________] B@@
[ [ [
B B [add4____________________________________] B@@
[ [ [
B B [add5____________________________________] B@@
[ [ [
B B B@@
[ [ [
JAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
docname = type char, default = $(1), display only;
name = type char, prompt = "Angiv fornavn (eks: Peter)";
formal = type char, prompt = "Angiv det fulde navn og evt. titel (eks: Hr. Peter Post)";
title = type char, prompt = "Angiv stillingsbetegnelse";
company = type char, prompt = "Angiv firmanavn";
add1 = type char, prompt = "Angiv adresse";
add2 = type char, prompt = "Angiv adresse";
add3 = type char, prompt = "Angiv adresse";
add4 = type char, prompt = "Angiv adresse";
add5 = type char, prompt = "Angiv adresse";
:COMMANDS
if test -f "$(docname)" ; then
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)"
else
echo "Opgave findes ikke: $(docname)"
fi
hold
reset
:HELP
..V.....T.......T.......T.......T.......T.......T.......T.......T.......T..H..
TILF▶9d◀J ADRESSE
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.