|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2976 (0xba0)
Types: TextFile
Notes: Mikados_K
Names: »SOMEDL.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »SOMEDL.K«
MEDLEMSKARTOTEKSVEDLIGEHOLDELSE.
I dette program kan der vælges mellem følgende fem funktioner:
1. Ændring af faste oplysninger om et enkelt medlem.
2. Udskrift af medlemmets faste oplysninger på skærmen.
3. Udskrift af medlemmets faste oplysninger på printeren.
4. Oprettelse af faste oplysninger om et nyt medlem.
5. Sletning af et medlems samlede oplysninger.
Valget foretages ved at indtaste funktionens nummer som svar på
spørgsmålet "Vælg 0-5". Når den valgte funktion er afsluttet, kan man
igen vælge mellem disse 5 funktioner, eller, hvis man er færdig,
indtaste et 0 (nul). I så fald vender maskinen tilbage til situa-
tionen PROGRAMVALG, se det.
Ved valg af de øvrige funktionsnumre fortsættes som følger:
1. På spørgsmålet "Medlemsnr" skal indtastes et lovligt
medlemsnr. Hvis medlemmet findes, skrives de faste
oplysninger på skærmen, efterfulgt af spørgsmålet
"Feltnr, 0 for færdig" .
Det er nu muligt at ændre de enkelte medlemsoplys-
ninger ved at indtaste det tilsvarende feltnummer.
Medlemsnummeret kan ikke ændres.
Ved felterne 2-4,6 skal indtastes en tekst på højst
hhv. 30,25,22 og 19 tegn.
I felt 5 skal indtastes et 4-cifret postnummer.
I felt 7 en landekode mellem 1 og 10, se landebetegnel-
ser i systemregister.
I felt 8 medlemmets fødselsdato på formen ÅÅMMDD.
I felt 9 et klassenr mellem 1 og 10, se klassebetegnel-
ser i systemregister.
I felt 10 et tal mellem 0 og 99 angivende medlemmets
årgang.
I felt 11 et tal mellem 1 og 5, medlemmets kontingent-
kode. Se kontingentbeløb i systemregister.
Felt 12 skal indeholde et beløb. Medlemmets skyldige
saldo.
2-3 Efter indtastning af et lovligt medlemsnummer udskrives
medlemmets faste oplysninger på skærm hhv. printer.
4. Efter indtastning af et lovligt medlemsnummer, som ikke
er optaget, indtastes oplysningerne:
felterne 2-12, hvorefter de indtastede oplysninger
kan ændres. Når de er iorden tastes 0 til spørgsmålet
"Feltnr ", hvorefter medlemmet er oprettet.
5. Efter indtastning af medlemsnummer udskrives medlem-
mets faste oplysninger på skærmen og på spørgsmålet
"Sletning korrekt 1" bevirker svaret 1 at medlemmet
slettes, mens der kan fortrydes ved at svare 0.
0x000…022 Line {l1=0x20, l2=»MEDLEMSKARTOTEKSVEDLIGEHOLDELSE.«, l3=0x20}
0x022…025 Line {l1=0x01, l2=» «, l3=0x01}
0x025…065 Line {l1=0x3e, l2=»I dette program kan der vælges mellem følgende fem funktioner:«, l3=0x3e}
0x065…068 Line {l1=0x01, l2=» «, l3=0x01}
0x068…09f Line {l1=0x35, l2=» 1. Ændring af faste oplysninger om et enkelt medlem.«, l3=0x35}
0x09f…0a2 Line {l1=0x01, l2=» «, l3=0x01}
0x0a2…0dc Line {l1=0x38, l2=» 2. Udskrift af medlemmets faste oplysninger på skærmen.«, l3=0x38}
0x0dc…0df Line {l1=0x01, l2=» «, l3=0x01}
0x0df…11b Line {l1=0x3a, l2=» 3. Udskrift af medlemmets faste oplysninger på printeren.«, l3=0x3a}
0x11b…11e Line {l1=0x01, l2=» «, l3=0x01}
0x11e…155 Line {l1=0x35, l2=» 4. Oprettelse af faste oplysninger om et nyt medlem.«, l3=0x35}
0x155…158 Line {l1=0x01, l2=» «, l3=0x01}
0x158…189 Line {l1=0x2f, l2=» 5. Sletning af et medlems samlede oplysninger.«, l3=0x2f}
0x189…18c Line {l1=0x01, l2=» «, l3=0x01}
0x18c…1cd Line {l1=0x3f, l2=»Valget foretages ved at indtaste funktionens nummer som svar på«, l3=0x3f}
0x1cd…214 Line {l1=0x45, l2=»spørgsmålet "Vælg 0-5". Når den valgte funktion er afsluttet, kan man«, l3=0x45}
0x214…256 Line {l1=0x40, l2=»igen vælge mellem disse 5 funktioner, eller, hvis man er færdig,«, l3=0x40}
0x256…299 Line {l1=0x41, l2=»indtaste et 0 (nul). I så fald vender maskinen tilbage til situa-«, l3=0x41}
0x299…2b6 Line {l1=0x1b, l2=»tionen PROGRAMVALG, se det.«, l3=0x1b}
0x2b6…2f3 Line {l1=0x3b, l2=»Ved valg af de øvrige funktionsnumre fortsættes som følger:«, l3=0x3b}
0x2f3…2f6 Line {l1=0x01, l2=» «, l3=0x01}
0x2f6…330 Line {l1=0x38, l2=» 1. På spørgsmålet "Medlemsnr" skal indtastes et lovligt«, l3=0x38}
0x330…368 Line {l1=0x36, l2=» medlemsnr. Hvis medlemmet findes, skrives de faste«, l3=0x36}
0x368…39f Line {l1=0x35, l2=» oplysninger på skærmen, efterfulgt af spørgsmålet«, l3=0x35}
0x39f…3a2 Line {l1=0x01, l2=» «, l3=0x01}
0x3a2…3c2 Line {l1=0x1e, l2=» "Feltnr, 0 for færdig" .«, l3=0x1e}
0x3c2…3c5 Line {l1=0x01, l2=» «, l3=0x01}
0x3c5…3fd Line {l1=0x36, l2=» Det er nu muligt at ændre de enkelte medlemsoplys-«, l3=0x36}
0x3fd…435 Line {l1=0x36, l2=» ninger ved at indtaste det tilsvarende feltnummer.«, l3=0x36}
0x435…45b Line {l1=0x24, l2=» Medlemsnummeret kan ikke ændres.«, l3=0x24}
0x45b…45e Line {l1=0x01, l2=» «, l3=0x01}
0x45e…497 Line {l1=0x37, l2=» Ved felterne 2-4,6 skal indtastes en tekst på højst«, l3=0x37}
0x497…4b6 Line {l1=0x1d, l2=» hhv. 30,25,22 og 19 tegn.«, l3=0x1d}
0x4b6…4b9 Line {l1=0x01, l2=» «, l3=0x01}
0x4b9…4ee Line {l1=0x33, l2=» I felt 5 skal indtastes et 4-cifret postnummer.«, l3=0x33}
0x4ee…4f1 Line {l1=0x01, l2=» «, l3=0x01}
0x4f1…52e Line {l1=0x3b, l2=» I felt 7 en landekode mellem 1 og 10, se landebetegnel-«, l3=0x3b}
0x52e…549 Line {l1=0x19, l2=» ser i systemregister.«, l3=0x19}
0x549…54c Line {l1=0x01, l2=» «, l3=0x01}
0x54c…583 Line {l1=0x35, l2=» I felt 8 medlemmets fødselsdato på formen ÅÅMMDD.«, l3=0x35}
0x583…586 Line {l1=0x01, l2=» «, l3=0x01}
0x586…5c3 Line {l1=0x3b, l2=» I felt 9 et klassenr mellem 1 og 10, se klassebetegnel-«, l3=0x3b}
0x5c3…5de Line {l1=0x19, l2=» ser i systemregister.«, l3=0x19}
0x5de…5e1 Line {l1=0x01, l2=» «, l3=0x01}
0x5e1…61b Line {l1=0x38, l2=» I felt 10 et tal mellem 0 og 99 angivende medlemmets«, l3=0x38}
0x61b…628 Line {l1=0x0b, l2=» årgang.«, l3=0x0b}
0x628…62b Line {l1=0x01, l2=» «, l3=0x01}
0x62b…667 Line {l1=0x3a, l2=» I felt 11 et tal mellem 1 og 5, medlemmets kontingent-«, l3=0x3a}
0x667…697 Line {l1=0x2e, l2=» kode. Se kontingentbeløb i systemregister.«, l3=0x2e}
0x697…69a Line {l1=0x01, l2=» «, l3=0x01}
0x69a…6d4 Line {l1=0x38, l2=» Felt 12 skal indeholde et beløb. Medlemmets skyldige«, l3=0x38}
0x6d4…6e0 Line {l1=0x0a, l2=» saldo.«, l3=0x0a}
0x6e0…6e3 Line {l1=0x01, l2=» «, l3=0x01}
0x6e3…720 Line {l1=0x3b, l2=»2-3 Efter indtastning af et lovligt medlemsnummer udskrives«, l3=0x3b}
0x720…759 Line {l1=0x37, l2=» medlemmets faste oplysninger på skærm hhv. printer.«, l3=0x37}
0x759…75c Line {l1=0x01, l2=» «, l3=0x01}
0x75c…799 Line {l1=0x3b, l2=» 4. Efter indtastning af et lovligt medlemsnummer, som ikke«, l3=0x3b}
0x799…7c3 Line {l1=0x28, l2=» er optaget, indtastes oplysningerne:«, l3=0x28}
0x7c3…7fb Line {l1=0x36, l2=» felterne 2-12, hvorefter de indtastede oplysninger«, l3=0x36}
0x7fb…836 Line {l1=0x39, l2=» kan ændres. Når de er iorden tastes 0 til spørgsmålet«, l3=0x39}
0x836…867 Line {l1=0x2f, l2=» "Feltnr ", hvorefter medlemmet er oprettet.«, l3=0x2f}
0x867…86a Line {l1=0x01, l2=» «, l3=0x01}
0x86a…8a4 Line {l1=0x38, l2=» 5. Efter indtastning af medlemsnummer udskrives medlem-«, l3=0x38}
0x8a4…8dd Line {l1=0x37, l2=» mets faste oplysninger på skærmen og på spørgsmålet«, l3=0x37}
0x8dd…916 Line {l1=0x37, l2=» "Sletning korrekt 1" bevirker svaret 1 at medlemmet«, l3=0x37}
0x916…94b Line {l1=0x33, l2=» slettes, mens der kan fortrydes ved at svare 0.«, l3=0x33}
0x94b…960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x960…980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x11…]