|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »BUDBUD.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »BUDBUD.K«
BUDKARTOTEKSVEDLIGEHOLDELSE.
I dette program kan der vælges mellem følgende otte
funktioner:
1. Ændring af faste oplysninger på et enkelt bud.
2. Udskrift af budets faste oplysninger på skærmen.
3. Udskrift af budets faste oplysninger på printeren.
4. Oprettelse af faste oplysninger om et nyt bud.
5. Sletning af et buds samlede oplysninger.
6. Udskrivning af en budfortegnelse.
7. Udskrivning af en liste over bude, som har overskre-
det frikortet.
8. Udskrivning af indberetning til FerieGiro.
Valget foretages ved at indtaste funktionens nummer som
svar på spørgsmålet "Vælg 0-8". Når den valgte funktion
er afsluttet, kan man igen vælge mellem disse 8 funktion-
er, eller, hvis man er færdig, indtaste et 0 (nul). I så
fald vender maskinen tilbage til situationen PROGRAMVALG,
se det.
Ved valg af de øvrige funktionsnumre fortsættes som
følger:
1. På spørgsmålet "Bud-nr" skal indtastes et 4-cifret
budnr. Hvis budet findes, skrives de faste oplysnin-
ger på skærmen, efterfulgt af spørgsmålet
"Feltnr, 0 for færdig" .
Det er nu muligt at ændre de enkelte budoplysninger
ved at indtaste det tilsvarende feltnummer. Budets
nummer kan ikke ændres.
Ved felterne 2-6 skal indtastes en tekst på højst
hhv. 30,25,25,25 og 7 tegn.
I felt 7 skal indtastes et 4-cifret rutenummer, bu-
dets normale rute.
I felt 8 et lovligt CPR-nummer.
Felt 9 og 10 er budets bankkonto og bankens registre-
ringsnummer. De skal være på hhv. 10 og 4 cifre.
Felterne 11,12,14 og 15 skal indeholde beløb. Felt 11
er frikortets pålydende, ikke frikortets rest (som i-
øvrigt kan findes ved at trække felt 14 fra felt 11).
Felt 13 skal indeholde en trækprocent mellem 0 og 99.
Felterne 16 og 17 skal være lovlige datoer på formen
ÅÅMMDD . Såfremt fratrædelsesdatoen er udfyldt, mar-
keres budet som fratrådt på FerieGiro-listen.
Felt 18 indeholder de til FerieGiro indberettede fe-
riedage, med 1 decimal.
2-3 Efter indtastning af et lovligt budnummer udskrives
budets faste oplysninger på skærm hhv. printer.
4. Efter indtastning af et lovligt budnummer, som ikke
er optaget, indtastes oplysningerne: felterne 2-13
samt 16, hvorefter de indtastede oplysninger kan æn-
dres. Når de er iorden tastes 0 til spørgsmålet
"Feltnr ", hvorefter budet er oprettet.
5. Efter indtastning af bud-nr udskrives budets faste
oplysninger på skærmen og på spørgsmålet
"Sletning korrekt 1" bevirker svaret 1 at budet slet-
tes, mens der kan fortrydes ved at svare 0.
6-7 Maskinen udskriver uden yderligere spørgsmål den øn-
skede liste på printeren, der altså skal være tændt
og monteret med papir, se PAPIRISÆTNING.
8. Maskinen spørger om listens indsendelsesdato samt be-
tegnelsen på det indberettede kvartal. Den beder her-
efter om at få monteret FerieGiro-lister, se PAPIR-
ISÆTNING, hvorefter listen udskrives. Når den er fær-
dig, skal der isættes almindeligt listepapir, hvoref-
ter der udskrives en journal med oplysninger om til-
bageholdt A-skat og overførte feriepenge.
0x000…01e Line {l1=0x1c, l2=»BUDKARTOTEKSVEDLIGEHOLDELSE.«, l3=0x1c}
0x01e…021 Line {l1=0x01, l2=» «, l3=0x01}
0x021…056 Line {l1=0x33, l2=»I dette program kan der vælges mellem følgende otte«, l3=0x33}
0x056…063 Line {l1=0x0b, l2=»funktioner:«, l3=0x0b}
0x063…066 Line {l1=0x01, l2=» «, l3=0x01}
0x066…09a Line {l1=0x32, l2=» 1. Ændring af faste oplysninger på et enkelt bud.«, l3=0x32}
0x09a…09d Line {l1=0x01, l2=» «, l3=0x01}
0x09d…0d3 Line {l1=0x34, l2=» 2. Udskrift af budets faste oplysninger på skærmen.«, l3=0x34}
0x0d3…0d6 Line {l1=0x01, l2=» «, l3=0x01}
0x0d6…10e Line {l1=0x36, l2=» 3. Udskrift af budets faste oplysninger på printeren.«, l3=0x36}
0x10e…111 Line {l1=0x01, l2=» «, l3=0x01}
0x111…145 Line {l1=0x32, l2=» 4. Oprettelse af faste oplysninger om et nyt bud.«, l3=0x32}
0x145…148 Line {l1=0x01, l2=» «, l3=0x01}
0x148…176 Line {l1=0x2c, l2=» 5. Sletning af et buds samlede oplysninger.«, l3=0x2c}
0x176…179 Line {l1=0x01, l2=» «, l3=0x01}
0x179…1a0 Line {l1=0x25, l2=» 6. Udskrivning af en budfortegnelse.«, l3=0x25}
0x1a0…1a3 Line {l1=0x01, l2=» «, l3=0x01}
0x1a3…1dd Line {l1=0x38, l2=» 7. Udskrivning af en liste over bude, som har overskre-«, l3=0x38}
0x1dd…1f1 Line {l1=0x12, l2=» det frikortet.«, l3=0x12}
0x1f1…1f4 Line {l1=0x01, l2=» «, l3=0x01}
0x1f4…224 Line {l1=0x2e, l2=» 8. Udskrivning af indberetning til FerieGiro.«, l3=0x2e}
0x224…227 Line {l1=0x01, l2=» «, l3=0x01}
0x227…261 Line {l1=0x38, l2=»Valget foretages ved at indtaste funktionens nummer som «, l3=0x38}
0x261…29a Line {l1=0x37, l2=»svar på spørgsmålet "Vælg 0-8". Når den valgte funktion«, l3=0x37}
0x29a…2d5 Line {l1=0x39, l2=»er afsluttet, kan man igen vælge mellem disse 8 funktion-«, l3=0x39}
0x2d5…30f Line {l1=0x38, l2=»er, eller, hvis man er færdig, indtaste et 0 (nul). I så«, l3=0x38}
0x30f…34b Line {l1=0x3a, l2=»fald vender maskinen tilbage til situationen PROGRAMVALG, «, l3=0x3a}
0x34b…354 Line {l1=0x07, l2=»se det.«, l3=0x07}
0x354…389 Line {l1=0x33, l2=»Ved valg af de øvrige funktionsnumre fortsættes som«, l3=0x33}
0x389…392 Line {l1=0x07, l2=»følger:«, l3=0x07}
0x392…395 Line {l1=0x01, l2=» «, l3=0x01}
0x395…3cd Line {l1=0x36, l2=» 1. På spørgsmålet "Bud-nr" skal indtastes et 4-cifret«, l3=0x36}
0x3cd…407 Line {l1=0x38, l2=» budnr. Hvis budet findes, skrives de faste oplysnin-«, l3=0x38}
0x407…436 Line {l1=0x2d, l2=» ger på skærmen, efterfulgt af spørgsmålet«, l3=0x2d}
0x436…439 Line {l1=0x01, l2=» «, l3=0x01}
0x439…459 Line {l1=0x1e, l2=» "Feltnr, 0 for færdig" .«, l3=0x1e}
0x459…45c Line {l1=0x01, l2=» «, l3=0x01}
0x45c…495 Line {l1=0x37, l2=» Det er nu muligt at ændre de enkelte budoplysninger«, l3=0x37}
0x495…4cd Line {l1=0x36, l2=» ved at indtaste det tilsvarende feltnummer. Budets«, l3=0x36}
0x4cd…4ea Line {l1=0x1b, l2=» nummer kan ikke ændres.«, l3=0x1b}
0x4ea…4ed Line {l1=0x01, l2=» «, l3=0x01}
0x4ed…524 Line {l1=0x35, l2=» Ved felterne 2-6 skal indtastes en tekst på højst«, l3=0x35}
0x524…545 Line {l1=0x1f, l2=» hhv. 30,25,25,25 og 7 tegn.«, l3=0x1f}
0x545…548 Line {l1=0x01, l2=» «, l3=0x01}
0x548…581 Line {l1=0x37, l2=» I felt 7 skal indtastes et 4-cifret rutenummer, bu-«, l3=0x37}
0x581…599 Line {l1=0x16, l2=» dets normale rute.«, l3=0x16}
0x599…59c Line {l1=0x01, l2=» «, l3=0x01}
0x59c…5c1 Line {l1=0x23, l2=» I felt 8 et lovligt CPR-nummer.«, l3=0x23}
0x5c1…5c4 Line {l1=0x01, l2=» «, l3=0x01}
0x5c4…5ff Line {l1=0x39, l2=» Felt 9 og 10 er budets bankkonto og bankens registre-«, l3=0x39}
0x5ff…635 Line {l1=0x34, l2=» ringsnummer. De skal være på hhv. 10 og 4 cifre.«, l3=0x34}
0x635…638 Line {l1=0x01, l2=» «, l3=0x01}
0x638…673 Line {l1=0x39, l2=» Felterne 11,12,14 og 15 skal indeholde beløb. Felt 11«, l3=0x39}
0x673…6ae Line {l1=0x39, l2=» er frikortets pålydende, ikke frikortets rest (som i-«, l3=0x39}
0x6ae…6e9 Line {l1=0x39, l2=» øvrigt kan findes ved at trække felt 14 fra felt 11).«, l3=0x39}
0x6e9…6ec Line {l1=0x01, l2=» «, l3=0x01}
0x6ec…727 Line {l1=0x39, l2=» Felt 13 skal indeholde en trækprocent mellem 0 og 99.«, l3=0x39}
0x727…72a Line {l1=0x01, l2=» «, l3=0x01}
0x72a…764 Line {l1=0x38, l2=» Felterne 16 og 17 skal være lovlige datoer på formen«, l3=0x38}
0x764…79e Line {l1=0x38, l2=» ÅÅMMDD . Såfremt fratrædelsesdatoen er udfyldt, mar-«, l3=0x38}
0x79e…7d1 Line {l1=0x31, l2=» keres budet som fratrådt på FerieGiro-listen.«, l3=0x31}
0x7d1…7d4 Line {l1=0x01, l2=» «, l3=0x01}
0x7d4…80e Line {l1=0x38, l2=» Felt 18 indeholder de til FerieGiro indberettede fe-«, l3=0x38}
0x80e…82b Line {l1=0x1b, l2=» riedage, med 1 decimal.«, l3=0x1b}
0x82b…82e Line {l1=0x01, l2=» «, l3=0x01}
0x82e…868 Line {l1=0x38, l2=»2-3 Efter indtastning af et lovligt budnummer udskrives «, l3=0x38}
0x868…89d Line {l1=0x33, l2=» budets faste oplysninger på skærm hhv. printer.«, l3=0x33}
0x89d…8a0 Line {l1=0x01, l2=» «, l3=0x01}
0x8a0…8d9 Line {l1=0x37, l2=» 4. Efter indtastning af et lovligt budnummer, som ikke«, l3=0x37}
0x8d9…911 Line {l1=0x36, l2=» er optaget, indtastes oplysningerne: felterne 2-13«, l3=0x36}
0x911…94b Line {l1=0x38, l2=» samt 16, hvorefter de indtastede oplysninger kan æn-«, l3=0x38}
0x94b…980 Line {l1=0x33, l2=» dres. Når de er iorden tastes 0 til spørgsmålet«, l3=0x33}
0x980…9ad Line {l1=0x2b, l2=» "Feltnr ", hvorefter budet er oprettet.«, l3=0x2b}
0x9ad…9b0 Line {l1=0x01, l2=» «, l3=0x01}
0x9b0…9e8 Line {l1=0x36, l2=» 5. Efter indtastning af bud-nr udskrives budets faste«, l3=0x36}
0x9e8…a16 Line {l1=0x2c, l2=» oplysninger på skærmen og på spørgsmålet«, l3=0x2c}
0xa16…a51 Line {l1=0x39, l2=» "Sletning korrekt 1" bevirker svaret 1 at budet slet-«, l3=0x39}
0xa51…a82 Line {l1=0x2f, l2=» tes, mens der kan fortrydes ved at svare 0.«, l3=0x2f}
0xa82…a85 Line {l1=0x01, l2=» «, l3=0x01}
0xa85…abf Line {l1=0x38, l2=»6-7 Maskinen udskriver uden yderligere spørgsmål den øn-«, l3=0x38}
0xabf…af8 Line {l1=0x37, l2=» skede liste på printeren, der altså skal være tændt«, l3=0x37}
0xaf8…b26 Line {l1=0x2c, l2=» og monteret med papir, se PAPIRISÆTNING.«, l3=0x2c}
0xb26…b29 Line {l1=0x01, l2=» «, l3=0x01}
0xb29…b64 Line {l1=0x39, l2=» 8. Maskinen spørger om listens indsendelsesdato samt be-«, l3=0x39}
0xb64…b9f Line {l1=0x39, l2=» tegnelsen på det indberettede kvartal. Den beder her-«, l3=0x39}
0xb9f…bd8 Line {l1=0x37, l2=» efter om at få monteret FerieGiro-lister, se PAPIR-«, l3=0x37}
0xbd8…c13 Line {l1=0x39, l2=» ISÆTNING, hvorefter listen udskrives. Når den er fær-«, l3=0x39}
0xc13…c4e Line {l1=0x39, l2=» dig, skal der isættes almindeligt listepapir, hvoref-«, l3=0x39}
0xc4e…c88 Line {l1=0x38, l2=» ter der udskrives en journal med oplysninger om til-«, l3=0x38}
0xc88…cb7 Line {l1=0x2d, l2=» bageholdt A-skat og overførte feriepenge.«, l3=0x2d}
0xcb7…cba Line {l1=0x01, l2=» «, l3=0x01}
0xcba…cc0 00 00 00 00 00 00 ┆ ┆
0xcc0…ce0 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 ┆ ┆
[…0xe…]