DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦0342235e0⟧ TextFile

    Length: 1440 (0x5a0)
    Types: TextFile
    Notes: Mikados_K
    Names: »GR85REGI.K«

Derivation

└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
    └─⟦this⟧ »GR85REGI.K«

Mikados K File

%P
REGISTRERINGER AF MÅNEDLIGE INDBERETNINGER.
 
Dette programmodul starter med et spørgsmål om systemoplysningerne er
korrekte , d.v.s dato, månedsnr, årstal og momsprocent. Hvis ikke gå
til systemvedligeholdelse og foretag ændring. Det skal understreges
at specielt månedsnr er meget vigtig.
 
Når systemoplysningerne er korrekte , indtastes antal salgsdage for
indeværende måned.
 
Herefter indtastes medlemsnr , hvor følgende reaktioner er mulige:
 
   a) Maskinen skriver 'Indtast beløb' , hvilket betyder at det
      indtastede nr eksisterer og at det ikke tidligere har væ-
      ret registreret. Det indberettede beløb indtastes i 1000
      kr. med tre decimaler og der fortsættes med næste medlem
      eller der tastes 0 for færdig.
 
   b) Maskinen 'piver' , udskriver et beløb og 'Indtast beløb ,
      RETURN for samme' , hvilket betyder at medlemmet allerede
      er registret. Denne reaktion kan bevidst anvendes til at
      ændre et allerede registreret beløb ved indtastning af det
      nye beløb , ellers tastes return og der fortsættes.
 
   c) Maskinen skriver 'Medlem eksisterer ikke , tast RETURN' ,
      hvilket vil sige at der enten er indtastet et forkert nr
      eller at medlemmet rent faktisk ikke eksisterer.
 
Når yderligere registrering ikke ønskes tastes 0 for færdig og der
fortsættes til programvalg.

Mikados K File

0x000…004 Line {l1=0x02, l2=»%P«, l3=0x02}
0x004…031 Line {l1=0x2b, l2=»REGISTRERINGER AF MÅNEDLIGE INDBERETNINGER.«, l3=0x2b}
0x031…034 Line {l1=0x01, l2=» «, l3=0x01}
0x034…07b Line {l1=0x45, l2=»Dette programmodul starter med et spørgsmål om systemoplysningerne er«, l3=0x45}
0x07b…0c1 Line {l1=0x44, l2=»korrekte , d.v.s dato, månedsnr, årstal og momsprocent. Hvis ikke gå«, l3=0x44}
0x0c1…106 Line {l1=0x43, l2=»til systemvedligeholdelse og foretag ændring. Det skal understreges«, l3=0x43}
0x106…12d Line {l1=0x25, l2=»at specielt månedsnr er meget vigtig.«, l3=0x25}
0x12d…130 Line {l1=0x01, l2=» «, l3=0x01}
0x130…175 Line {l1=0x43, l2=»Når systemoplysningerne er korrekte , indtastes antal salgsdage for«, l3=0x43}
0x175…189 Line {l1=0x12, l2=»indeværende måned.«, l3=0x12}
0x189…18c Line {l1=0x01, l2=» «, l3=0x01}
0x18c…1d0 Line {l1=0x42, l2=»Herefter indtastes medlemsnr , hvor følgende reaktioner er mulige:«, l3=0x42}
0x1d0…1d3 Line {l1=0x01, l2=» «, l3=0x01}
0x1d3…214 Line {l1=0x3f, l2=»   a) Maskinen skriver 'Indtast beløb' , hvilket betyder at det«, l3=0x3f}
0x214…255 Line {l1=0x3f, l2=»      indtastede nr eksisterer og at det ikke tidligere har væ-«, l3=0x3f}
0x255…295 Line {l1=0x3e, l2=»      ret registreret. Det indberettede beløb indtastes i 1000«, l3=0x3e}
0x295…2d5 Line {l1=0x3e, l2=»      kr. med tre decimaler og der fortsættes med næste medlem«, l3=0x3e}
0x2d5…2fb Line {l1=0x24, l2=»      eller der tastes 0 for færdig.«, l3=0x24}
0x2fb…2fe Line {l1=0x01, l2=» «, l3=0x01}
0x2fe…33f Line {l1=0x3f, l2=»   b) Maskinen 'piver' , udskriver et beløb og 'Indtast beløb ,«, l3=0x3f}
0x33f…380 Line {l1=0x3f, l2=»      RETURN for samme' , hvilket betyder at medlemmet allerede«, l3=0x3f}
0x380…3c0 Line {l1=0x3e, l2=»      er registret. Denne reaktion kan bevidst anvendes til at«, l3=0x3e}
0x3c0…402 Line {l1=0x40, l2=»      ændre et allerede registreret beløb ved indtastning af det«, l3=0x40}
0x402…43d Line {l1=0x39, l2=»      nye beløb , ellers tastes return og der fortsættes.«, l3=0x39}
0x43d…440 Line {l1=0x01, l2=» «, l3=0x01}
0x440…481 Line {l1=0x3f, l2=»   c) Maskinen skriver 'Medlem eksisterer ikke , tast RETURN' ,«, l3=0x3f}
0x481…4c1 Line {l1=0x3e, l2=»      hvilket vil sige at der enten er indtastet et forkert nr«, l3=0x3e}
0x4c1…4f9 Line {l1=0x36, l2=»      eller at medlemmet rent faktisk ikke eksisterer.«, l3=0x36}
0x4f9…4fc Line {l1=0x01, l2=» «, l3=0x01}
0x4fc…540 Line {l1=0x42, l2=»Når yderligere registrering ikke ønskes tastes 0 for færdig og der«, l3=0x42}
0x540…55d Line {l1=0x1b, l2=»fortsættes til programvalg.«, l3=0x1b}
0x55d…560 00 00 00                                                                                          ┆   ┆
0x560…580 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   ┆                                ┆
          […0x1…]

Reduced view