|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »BUDRUTE.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »BUDRUTE.K«
RUTEKARTOTEKS - VEDLIGEHOLDELSE.
I dette program kan der vælges mellem følgende seks
funktioner:
1. Ændring af faste oplysninger på en enkelt rute.
2. Udskrift af rutens faste oplysninger på skærmen.
3. Udskrift af rutens faste oplysninger på printeren.
4. Oprettelse af faste oplysninger om en ny rute.
5. Sletning af en rutes samlede oplysninger.
6. Udskrift af en rutefortegnelse.
Valget foretages ved at indtaste funktionens nummer som
svar på spørgsmålet "Vælg 0-6". Når den valgte funktion
er afsluttet, kan man igen vælge mellem disse 6 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 "Rute-nr" skal indtastes et 4-cifret
lovligt rutenr. Såfremt ruten findes, udskrives de
faste oplysninger på skærmen, efterfulgt af spørgsmå-
let
"Feltnr :"
Felterne 2-6 kan nu ændres ved indtastning af det
tilsvarende feltnummer, mens indtastning af 0 bevir-
ker, at der vendes tilbage til valget mellem de 6
funktioner.
Felterne 2,3 og 4 skal indeholde et positivt tal un-
der 1000000, mens felt 5 skal indeholde et helt tal
mellem 1 og 20.
Distriksnummeret bruges ved udskrift af DISTRIKTS-
TOTALER (se det). Priskoden er nummeret på den pris
i priskartoteket, der indeholder stk. prisen i øre
for aviser på ruten.
Felt 6 skal bestå af højst 6 tegn.
2-3 Efter indtastning af et lovligt rutenummer udskrives
rutens faste oplysninger på skærmen ell. printeren.
4. Efter indtastning af et lovligt, ikke optaget, rute-
nummer, indtastes felterne 2-6.
Når de er iorden, svares 0 til "Feltnr :", og ruten
oprettes automatisk.
5. Efter indtastning af rutenr udskrives rutens faste
oplysninger på skærmen, og på spørgsmålet "Sletning
korrekt 1" bevirker svaret 1, at ruten slettes, mens
der kan fortrydes ved at svare 0.
6. Der udskrives uden videre spørgsmål en liste i rute-
nr-orden over samtlige ruter, indeholdende alle op-
lysninger, samt totaler på kryds og tværs af antal
villaer og antal lejligheder.
0x000…022 Line {l1=0x20, l2=»RUTEKARTOTEKS - VEDLIGEHOLDELSE.«, l3=0x20}
0x022…025 Line {l1=0x01, l2=» «, l3=0x01}
0x025…05b Line {l1=0x34, l2=»I dette program kan der vælges mellem følgende seks «, l3=0x34}
0x05b…068 Line {l1=0x0b, l2=»funktioner:«, l3=0x0b}
0x068…06b Line {l1=0x01, l2=» «, l3=0x01}
0x06b…0a0 Line {l1=0x33, l2=» 1. Ændring af faste oplysninger på en enkelt rute.«, l3=0x33}
0x0a0…0a3 Line {l1=0x01, l2=» «, l3=0x01}
0x0a3…0d9 Line {l1=0x34, l2=» 2. Udskrift af rutens faste oplysninger på skærmen.«, l3=0x34}
0x0d9…0dc Line {l1=0x01, l2=» «, l3=0x01}
0x0dc…114 Line {l1=0x36, l2=» 3. Udskrift af rutens faste oplysninger på printeren.«, l3=0x36}
0x114…117 Line {l1=0x01, l2=» «, l3=0x01}
0x117…14b Line {l1=0x32, l2=» 4. Oprettelse af faste oplysninger om en ny rute.«, l3=0x32}
0x14b…14e Line {l1=0x01, l2=» «, l3=0x01}
0x14e…17d Line {l1=0x2d, l2=» 5. Sletning af en rutes samlede oplysninger.«, l3=0x2d}
0x17d…180 Line {l1=0x01, l2=» «, l3=0x01}
0x180…1a5 Line {l1=0x23, l2=» 6. Udskrift af en rutefortegnelse.«, l3=0x23}
0x1a5…1a8 Line {l1=0x01, l2=» «, l3=0x01}
0x1a8…1e2 Line {l1=0x38, l2=»Valget foretages ved at indtaste funktionens nummer som «, l3=0x38}
0x1e2…21b Line {l1=0x37, l2=»svar på spørgsmålet "Vælg 0-6". Når den valgte funktion«, l3=0x37}
0x21b…256 Line {l1=0x39, l2=»er afsluttet, kan man igen vælge mellem disse 6 funktion-«, l3=0x39}
0x256…290 Line {l1=0x38, l2=»er, eller, hvis man er færdig, indtaste et 0 (nul). I så«, l3=0x38}
0x290…2cc Line {l1=0x3a, l2=»fald vender maskinen tilbage til situationen PROGRAMVALG, «, l3=0x3a}
0x2cc…305 Line {l1=0x37, l2=»se det. Ved valg af de øvrige funktionsnumre fortsættes«, l3=0x37}
0x305…312 Line {l1=0x0b, l2=»som følger:«, l3=0x0b}
0x312…315 Line {l1=0x01, l2=» «, l3=0x01}
0x315…34e Line {l1=0x37, l2=» 1. På spørgsmålet "Rute-nr" skal indtastes et 4-cifret«, l3=0x37}
0x34e…386 Line {l1=0x36, l2=» lovligt rutenr. Såfremt ruten findes, udskrives de«, l3=0x36}
0x386…3c1 Line {l1=0x39, l2=» faste oplysninger på skærmen, efterfulgt af spørgsmå-«, l3=0x39}
0x3c1…3ca Line {l1=0x07, l2=» let«, l3=0x07}
0x3ca…3cd Line {l1=0x01, l2=» «, l3=0x01}
0x3cd…3de Line {l1=0x0f, l2=» "Feltnr :"«, l3=0x0f}
0x3de…3e1 Line {l1=0x01, l2=» «, l3=0x01}
0x3e1…418 Line {l1=0x35, l2=» Felterne 2-6 kan nu ændres ved indtastning af det«, l3=0x35}
0x418…452 Line {l1=0x38, l2=» tilsvarende feltnummer, mens indtastning af 0 bevir-«, l3=0x38}
0x452…489 Line {l1=0x35, l2=» ker, at der vendes tilbage til valget mellem de 6«, l3=0x35}
0x489…49a Line {l1=0x0f, l2=» funktioner.«, l3=0x0f}
0x49a…49d Line {l1=0x01, l2=» «, l3=0x01}
0x49d…4d7 Line {l1=0x38, l2=» Felterne 2,3 og 4 skal indeholde et positivt tal un-«, l3=0x38}
0x4d7…510 Line {l1=0x37, l2=» der 1000000, mens felt 5 skal indeholde et helt tal«, l3=0x37}
0x510…525 Line {l1=0x13, l2=» mellem 1 og 20.«, l3=0x13}
0x525…528 Line {l1=0x01, l2=» «, l3=0x01}
0x528…560 Line {l1=0x36, l2=» Distriksnummeret bruges ved udskrift af DISTRIKTS-«, l3=0x36}
0x560…599 Line {l1=0x37, l2=» TOTALER (se det). Priskoden er nummeret på den pris«, l3=0x37}
0x599…5d1 Line {l1=0x36, l2=» i priskartoteket, der indeholder stk. prisen i øre«, l3=0x36}
0x5d1…5eb Line {l1=0x18, l2=» for aviser på ruten.«, l3=0x18}
0x5eb…5ee Line {l1=0x01, l2=» «, l3=0x01}
0x5ee…616 Line {l1=0x26, l2=» Felt 6 skal bestå af højst 6 tegn.«, l3=0x26}
0x616…619 Line {l1=0x01, l2=» «, l3=0x01}
0x619…653 Line {l1=0x38, l2=»2-3 Efter indtastning af et lovligt rutenummer udskrives«, l3=0x38}
0x653…68c Line {l1=0x37, l2=» rutens faste oplysninger på skærmen ell. printeren.«, l3=0x37}
0x68c…68f Line {l1=0x01, l2=» «, l3=0x01}
0x68f…6c9 Line {l1=0x38, l2=» 4. Efter indtastning af et lovligt, ikke optaget, rute-«, l3=0x38}
0x6c9…6ee Line {l1=0x23, l2=» nummer, indtastes felterne 2-6.«, l3=0x23}
0x6ee…727 Line {l1=0x37, l2=» Når de er iorden, svares 0 til "Feltnr :", og ruten«, l3=0x37}
0x727…741 Line {l1=0x18, l2=» oprettes automatisk.«, l3=0x18}
0x741…744 Line {l1=0x01, l2=» «, l3=0x01}
0x744…77c Line {l1=0x36, l2=» 5. Efter indtastning af rutenr udskrives rutens faste«, l3=0x36}
0x77c…7b5 Line {l1=0x37, l2=» oplysninger på skærmen, og på spørgsmålet "Sletning«, l3=0x37}
0x7b5…7ef Line {l1=0x38, l2=» korrekt 1" bevirker svaret 1, at ruten slettes, mens«, l3=0x38}
0x7ef…816 Line {l1=0x25, l2=» der kan fortrydes ved at svare 0.«, l3=0x25}
0x816…819 Line {l1=0x01, l2=» «, l3=0x01}
0x819…853 Line {l1=0x38, l2=» 6. Der udskrives uden videre spørgsmål en liste i rute-«, l3=0x38}
0x853…88c Line {l1=0x37, l2=» nr-orden over samtlige ruter, indeholdende alle op-«, l3=0x37}
0x88c…8c4 Line {l1=0x36, l2=» lysninger, samt totaler på kryds og tværs af antal«, l3=0x36}
0x8c4…8e7 Line {l1=0x21, l2=» villaer og antal lejligheder.«, l3=0x21}
0x8e7…8ea Line {l1=0x01, l2=» «, l3=0x01}
0x8ea…900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x900…920 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 ┆ ┆
[…0x5…]