|
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: »BUDREG.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »BUDREG.K«
REGISTRERING AF TURE. Programmet bruges til løbende gennem en lønperiode at re- gistrere hvilke ture, et bud har gået, og hvad han har uddelt. På spørgsmålet "Bud-nr :" indtastes nummeret på det bud, der skal registreres. Ma- skinen vender tilbage til PROGRAMVALG, hvis der tastes 0. Programmet udskriver nu budets navn, og spørger om det er det rigtige bud. Svares "N" kan et nyt bud-nr indtastes. Hvis der svares "J" ,undersøger programmet, om der er plads til registrering af flere ture. Er dette ikke til- fældet, beder programmet om et nyt bud-nr; i modsat fald stilles spørgsmålet "Rutenr :" Tastes 0 spørges om nyt bud-nr. Når det ønskede rutenum- mer er indtastet, udskrives rutens betegnelse med et spørgsmål, om det er den rigtige rute. Svares "N" spørges om rutenummer igen, svares "J" spørger maskinen "Avis :1, Tryksag :2" Svares 1 hentes antal og pris automatisk fra rutekartotek og priskartotek. Hvis der svares 2 skal antallet fra ru- tekartoteket bekræftes/ændres, og priskoden (21,22,23,24) indtastes. Programmet udskriver nu antal og pris, og spørger om det indtastede er rigtigt. Svares N begyndes forfra fra "Rutenr :", svares J gemmes registreringen, og der spørges om nyt rutenr. Der kan nu registreres en ny tur af samme bud, eller der kan svares 0, hvorefter der spørges om nyt budnr. Dette fortsættes, indtil der svares 0 til "Bud-nr", hvor- efter maskinen vender tilbage til PROGRAMVALG.
0x000…017 Line {l1=0x15, l2=»REGISTRERING AF TURE.«, l3=0x15}
0x017…01a Line {l1=0x01, l2=» «, l3=0x01}
0x01a…055 Line {l1=0x39, l2=»Programmet bruges til løbende gennem en lønperiode at re-«, l3=0x39}
0x055…08d Line {l1=0x36, l2=»gistrere hvilke ture, et bud har gået, og hvad han har«, l3=0x36}
0x08d…096 Line {l1=0x07, l2=»uddelt.«, l3=0x07}
0x096…099 Line {l1=0x01, l2=» «, l3=0x01}
0x099…0a9 Line {l1=0x0e, l2=»På spørgsmålet«, l3=0x0e}
0x0a9…0ac Line {l1=0x01, l2=» «, l3=0x01}
0x0ac…0ba Line {l1=0x0c, l2=» "Bud-nr :"«, l3=0x0c}
0x0ba…0bd Line {l1=0x01, l2=» «, l3=0x01}
0x0bd…0f7 Line {l1=0x38, l2=»indtastes nummeret på det bud, der skal registreres. Ma-«, l3=0x38}
0x0f7…132 Line {l1=0x39, l2=»skinen vender tilbage til PROGRAMVALG, hvis der tastes 0.«, l3=0x39}
0x132…16d Line {l1=0x39, l2=»Programmet udskriver nu budets navn, og spørger om det er«, l3=0x39}
0x16d…1a7 Line {l1=0x38, l2=»det rigtige bud. Svares "N" kan et nyt bud-nr indtastes.«, l3=0x38}
0x1a7…1de Line {l1=0x35, l2=»Hvis der svares "J" ,undersøger programmet, om der er«, l3=0x35}
0x1de…218 Line {l1=0x38, l2=»plads til registrering af flere ture. Er dette ikke til-«, l3=0x38}
0x218…252 Line {l1=0x38, l2=»fældet, beder programmet om et nyt bud-nr; i modsat fald«, l3=0x38}
0x252…267 Line {l1=0x13, l2=»stilles spørgsmålet«, l3=0x13}
0x267…26a Line {l1=0x01, l2=» «, l3=0x01}
0x26a…277 Line {l1=0x0b, l2=» "Rutenr :"«, l3=0x0b}
0x277…27a Line {l1=0x01, l2=» «, l3=0x01}
0x27a…2b4 Line {l1=0x38, l2=»Tastes 0 spørges om nyt bud-nr. Når det ønskede rutenum-«, l3=0x38}
0x2b4…2ea Line {l1=0x34, l2=»mer er indtastet, udskrives rutens betegnelse med et«, l3=0x34}
0x2ea…325 Line {l1=0x39, l2=»spørgsmål, om det er den rigtige rute. Svares "N" spørges«, l3=0x39}
0x325…356 Line {l1=0x2f, l2=»om rutenummer igen, svares "J" spørger maskinen«, l3=0x2f}
0x356…359 Line {l1=0x01, l2=» «, l3=0x01}
0x359…371 Line {l1=0x16, l2=» "Avis :1, Tryksag :2"«, l3=0x16}
0x371…374 Line {l1=0x01, l2=» «, l3=0x01}
0x374…3af Line {l1=0x39, l2=»Svares 1 hentes antal og pris automatisk fra rutekartotek«, l3=0x39}
0x3af…3e9 Line {l1=0x38, l2=»og priskartotek. Hvis der svares 2 skal antallet fra ru-«, l3=0x38}
0x3e9…424 Line {l1=0x39, l2=»tekartoteket bekræftes/ændres, og priskoden (21,22,23,24)«, l3=0x39}
0x424…45a Line {l1=0x34, l2=»indtastes. Programmet udskriver nu antal og pris, og«, l3=0x34}
0x45a…493 Line {l1=0x37, l2=»spørger om det indtastede er rigtigt. Svares N begyndes«, l3=0x37}
0x493…4cc Line {l1=0x37, l2=»forfra fra "Rutenr :", svares J gemmes registreringen,«, l3=0x37}
0x4cc…505 Line {l1=0x37, l2=»og der spørges om nyt rutenr. Der kan nu registreres en«, l3=0x37}
0x505…53d Line {l1=0x36, l2=»ny tur af samme bud, eller der kan svares 0, hvorefter«, l3=0x36}
0x53d…558 Line {l1=0x19, l2=»der spørges om nyt budnr.«, l3=0x19}
0x558…55b Line {l1=0x01, l2=» «, l3=0x01}
0x55b…596 Line {l1=0x39, l2=»Dette fortsættes, indtil der svares 0 til "Bud-nr", hvor-«, l3=0x39}
0x596…5c6 Line {l1=0x2e, l2=»efter maskinen vender tilbage til PROGRAMVALG.«, l3=0x2e}
0x5c6…5e0 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 ┆ ┆
0x5e0…600 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 ┆ ┆
[…0x1e…]