|
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: 4671 (0x123f)
Types: TextFile
Notes: UNIX file
Names: »mailmerge«
└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/ufill/usrc/mailmerge«
V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
B R E V F L E T N I N G
:SCREEN
DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
B Brevets opgavenavn B [proforma________________________________] B@@
[ [[[[ [
B B B@@
[ [[[[ [
B Adresseregisterets navn B [datafile________________________________] B@@
[ [[[[ [
B (blankt hvis interaktiv) B B@@
[ [[[ [
B B B@@
[ [[[[ [
B Opgavenavn til resultatet B [output__________________________________] B@@
[ [[[[ [
B B [mode___________________________] B@@
[ [[[[ [
B B B@@
[ [[[[ [
B F▶9b◀rste adresse B [first] B@@
[ [[[[ [
B Sidste adresse B [last_] B@@
[ [[[[ [
B Sideskift mellem breve B [brk] B@@
[ [[[[ [
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
proforma = type char, default = $(1), minimum = 1,
chars = "E",
prompt = "Angiv opgavenavn";
datafile = type char, default = $(2),
chars = "E",
prompt = "Angiv navn p▶86◀ Uniplex adressereg., blankt hvis \
interaktiv brevfletning";
output = type char, minimum = 1, default = "brevflet.opg",
chars = "E",
prompt = "Angiv opgavenavn til resultatet af fletningen";
mode = type char, reply = "Opret ny opgave!Tilf▶9b◀j til eksisterende opg.",
prompt = "Tryk <MELLEMRUM> for at v▶91◀lge opret eller tilf▶9b◀j";
brk = type char, reply = "JA!NEJ",
prompt = "JA medf▶9b◀rer sideskift efter hvert brev, der genereres";
first = type dec, minimum = 1, maximum = 9999, default = 1,
prompt = "Angiv nummer p▶86◀ den f▶9b◀rste adresse, der skal flettes";
last = type dec, minimum = 1, maximum = 9999, default = 9999,
prompt = "Angiv nummer p▶86◀ den sidste adresse - u▶91◀ndret hvis resten";
:MAPS
if $(datafile) != ""
set $(REDIRECT) "<"
set $(SOURCE) $(datafile)
set $(IFLAG) ""
else
set $(REDIRECT) " "
set $(SOURCE) "INTERACTIVE"
set $(IFLAG) "-i"
endif
map $(mode) = "Opret ny opgave" ">"
map $(mode) = "Tilf▶9b◀j til eksisterende opg." ">>"
map $(brk) = "JA" ""
map $(brk) = "NEJ" "-p"
if $(last) <= $(first)
set $(last) $(first)
endif
:COMMANDS
umk $(output) MMDOC 'Adressereg.= $(SOURCE) Std.brev= $(proforma)'
umerge -q $(brk) -s$(first) -e$(last) $(IFLAG) $(proforma) \
$(REDIRECT) $(datafile) $(mode) $(output)
exit 0
:HELP
BREVFLETNING
Udfyldelse af formularen:
..V...................H.V..................................................H..
Brevets opgavenavn Angiv opgavenavn p▶86◀ standardbrevet.
Adresseregisterets Angiv navn p▶86◀ adresseregisteret, som skal benyttes.
navn (blank hvis Hvis feltet ikke udfyldes, kan navne og adresser
interaktiv) indtastes under selve brevfletningen.
Opgavenavn til Angiv navn p▶86◀ den opgave, der skal indeholde
resultatet resultatet af fletningen.
F▶9b◀rste adresse Angiv nummer p▶86◀ den f▶9b◀rste adresse, der skal
medtages - u▶91◀ndret hvis alle adresser.
Sidste adresse Angiv nummer p▶86◀ den sidste adresse, der skal
medtages - u▶91◀ndret hvis alle adresser.
Sideskift mellem JA medf▶9b◀rer sideskift efter hvert brev, der
breve genereres.