|
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: 4016 (0xfb0)
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/usrc/mmerge.add1«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
O P R E T A D R E S S E R E G .
: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), minimum = 1,
chars = "E",
prompt = "Angiv opgavenavn";
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
clear
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)
:HELP
..V.....T.......T.......T.......T.......T.......T.......T.......T.......T..H..
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.