|
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: 28128 (0x6de0)
Notes: Mikados_K, Mikados_K_Other
Names: »AEDITFIL.K«
└─⟦6d3a41ba7⟧ Bits:30009006 WW
└─⟦this⟧ »AEDITFIL.K«
0x0000…002f Line {l1=0x2d, l2=»123ERIALESTYRINGSSYSTEM, GENEREL BESKRIVELSE.«, l3=0x2d}
0x002f…0032 Line {l1=0x01, l2=» «, l3=0x01}
0x0032…0069 Line {l1=0x35, l2=»Materialestyringssystemets primære formål er at styre«, l3=0x35}
0x0069…00a3 Line {l1=0x38, l2=»indkøb af komponenter samt egen produktion af halvfabri-«, l3=0x38}
0x00a3…00d5 Line {l1=0x30, l2=»kata udfra produktionsordrer på færdige enheder.«, l3=0x30}
0x00d5…0110 Line {l1=0x39, l2=»Dette opnås gennem en successiv nedbrydning af de færdige«, l3=0x39}
0x0110…014b Line {l1=0x39, l2=»enheder i stk-lister indeholdende halvfabrikata og kompo-«, l3=0x39}
0x014b…0185 Line {l1=0x38, l2=»nenter, indtil alle indgående enheder er komponenter el-«, l3=0x38}
0x0185…01a9 Line {l1=0x22, l2=»ler hermed ligestillede produkter.«, l3=0x22}
0x01a9…01e3 Line {l1=0x38, l2=»Det bliver således muligt på grundlag af stk-listerne og«, l3=0x38}
0x01e3…021e Line {l1=0x39, l2=»et lagerregister dels at angive, hvormange komponenter og«, l3=0x39}
0x021e…0258 Line {l1=0x38, l2=»halvfabrikata, der kræves til en ønsket produktion, dels«, l3=0x38}
0x0258…0264 Line {l1=0x0a, l2=»1------===«, l3=0x0a}
0x0264…026b Line {l1=0x05, l2=»ning.«, l3=0x05}
0x026b…02a6 Line {l1=0x39, l2=»Udfra disse oversigter kan der udskrives indkøbsordrer på«, l3=0x39}
0x02a6…02dd Line {l1=0x35, l2=»komponenter, hhv. produktionsordrer på halvfabrikata.«, l3=0x35}
0x02dd…02e0 Line {l1=0x01, l2=» «, l3=0x01}
0x02e0…031a Line {l1=0x38, l2=»På basis af den opbyggede datastruktur bliver det endvi-«, l3=0x38}
0x031a…0354 Line {l1=0x38, l2=»dere muligt at udskrive lister over, hvor i produktionen«, l3=0x38}
0x0354…038f Line {l1=0x39, l2=»hver enkelt komponent indgår, såkaldte where-used-lister.«, l3=0x39}
0x038f…03c9 Line {l1=0x38, l2=»Adskilt fra stk-liste-strukturen etableres et komponent-«, l3=0x38}
0x03c9…0401 Line {l1=0x36, l2=»register med oplysninger om alternative komponenter og«, l3=0x36}
0x0401…0437 Line {l1=0x34, l2=»alternative leverandører for de enkelte komponenter.«, l3=0x34}
0x0437…043a Line {l1=0x01, l2=» «, l3=0x01}
0x043a…0474 Line {l1=0x38, l2=»Systemet indeholder programmer til udførelse af følgende«, l3=0x38}
0x0474…04ad Line {l1=0x37, l2=»rutiner, der dels sørger for opsamling af de nødvendige«, l3=0x37}
0x04ad…04e1 Line {l1=0x32, l2=»oplysninger, dels udskriver de ønskede oversigter:«, l3=0x32}
0x04e1…04e4 Line {l1=0x01, l2=» «, l3=0x01}
0x04e4…0534 Line {l1=0x4e, l2=»1. Behandling af indkøbstransaktionsregistret. G«, l3=0x4e}
0x0534…0537 Line {l1=0x01, l2=» «, l3=0x01}
0x0537…055a Line {l1=0x21, l2=» a) Indtastning af indkøbsordrer.«, l3=0x21}
0x055a…0591 Line {l1=0x35, l2=» De automatisk, eller manuelt, genererede indkøbs-«, l3=0x35}
0x0591…05e1 Line {l1=0x4e, l2=» transaktioner forsynes med indKøbsorOIOOOOOOOOOOIIIIIIIIIIIIIIIOUY O«, l3=0x4e}
0x05e1…061b Line {l1=0x38, l2=» ønsket leveringstermin og leverandør, når indkøbsor-«, l3=0x38}
0x061b…066b Line {l1=0x4e, l2=» dren afgives. U7777«, l3=0x4e}
0x066b…0692 Line {l1=0x25, l2=» b) Indtastning af ordrebekræftelser.«, l3=0x25}
0x0692…06cc Line {l1=0x38, l2=» Indkøbstransaktioner forsynes med ordrebekræftelses-«, l3=0x38}
0x06cc…0706 Line {l1=0x38, l2=» nummer, bekræftet antal og bekræftet leveringstermin«, l3=0x38}
0x0706…0741 Line {l1=0x39, l2=» når ordrebekræftelsen modtages. Leverancen kan herun-«, l3=0x39}
0x0741…0768 Line {l1=0x25, l2=» der deles på flere delleverancer.«, l3=0x25}
0x0768…076b Line {l1=0x01, l2=» «, l3=0x01}
0x076b…0784 Line {l1=0x17, l2=» leverandør-faktura.«, l3=0x17}
0x0784…078b Line {l1=0x05, l2=»JLJJK«, l3=0x05}
0x078b…07b3 Line {l1=0x26, l2=» interval af varenumre (evt. alle).«, l3=0x26}
0x07b3…07ec Line {l1=0x37, l2=» e) Oprettelse, udskrift, ændring og sletning af en en-«, l3=0x37}
0x07ec…0826 Line {l1=0x38, l2=» kelt indkøbstransaktion uafhængigt af ovennævnte ru-«, l3=0x38}
0x0826…0832 Line {l1=0x0a, l2=» tiner.«, l3=0x0a}
0x0832…0835 Line {l1=0x01, l2=» «, l3=0x01}
0x0835…086c Line {l1=0x35, l2=»OØØ;'Åvn1236547891111112467**88888ndringer i indkøbs-«, l3=0x35}
0x086c…08a6 Line {l1=0x38, l2=»transaktionsregistret, mens det henter oplysninger i la-«, l3=0x38}
0x08a6…08df Line {l1=0x37, l2=»gerregistret og leverandørregistret. Det er således kun«, l3=0x37}
0x08df…08e0 35 ┆5┆
0x08e0…0900 6e 73 61 6b 74 69 6f 6e 73 72 65 67 69 73 74 72 65 74 2c 20 64 65 72 20 76 69 6c 20 76 7b 72 65 ┆nsaktionsregistret, der vil være┆
0x0900…0920 20 6c 75 6b 6b 65 74 20 66 6f 72 35 37 74 69 6c 67 61 6e 67 20 66 72 61 20 65 76 65 6e 74 75 65 ┆ lukket for57tilgang fra eventue┆
0x0920…0940 6c 6c 65 20 61 6e 64 72 65 20 74 65 72 6d 69 6e 61 6c 65 72 2c 20 6e 7d 72 20 6f 76 65 6e 6e 7b ┆lle andre terminaler, når ovennæ┆
0x0940…0960 76 6e 74 65 37 11 72 75 74 69 6e 65 72 20 61 6e 76 65 6e 64 65 73 2e 11 01 20 01 39 32 2e 20 42 ┆vnte7 rutiner anvendes. 92. B┆
0x0960…0980 65 68 61 6e 64 6c 69 6e 67 20 61 66 20 6c 61 67 65 72 72 65 67 69 73 74 72 65 74 20 69 6e 74 65 ┆ehandling af lagerregistret inte┆
0x0980…09a0 67 72 65 72 65 74 20 6d 65 64 20 73 74 6b 2d 6c 69 73 74 65 2d 39 22 20 20 20 72 65 67 69 73 74 ┆greret med stk-liste-9" regist┆
0x09a0…09c0 72 65 74 20 6f 67 20 77 68 65 72 65 2d 75 73 65 64 2d 6c 69 73 74 65 6e 2e 22 01 20 01 37 20 61 ┆ret og where-used-listen." 7 a┆
0x09c0…09e0 29 20 4f 70 72 65 74 74 65 6c 73 65 2c 20 75 64 73 6b 72 69 66 74 2c 20 7b 6e 64 72 69 6e 67 20 ┆) Oprettelse, udskrift, ændring ┆
0x09e0…0a00 6f 67 20 73 6c 65 74 6e 69 6e 67 20 61 66 20 65 6e 20 65 6e 2d 37 0e 20 20 20 20 6b 65 6c 74 20 ┆og sletning af en en-7 kelt ┆
0x0a00…0a20 76 61 72 65 2e 0e 1b 20 62 29 20 55 64 73 6b 72 69 66 74 20 61 66 20 6c 61 67 65 72 6c 69 73 74 ┆vare. b) Udskrift af lagerlist┆
0x0a20…0a40 65 2e 1b 39 20 63 29 20 44 69 72 65 6b 74 65 20 61 64 67 61 6e 67 20 66 72 61 20 76 61 72 65 6e ┆e. 9 c) Direkte adgang fra varen┆
0x0a40…0a60 20 74 69 6c 20 64 65 6e 6e 65 73 20 73 74 6b 2d 6c 69 73 74 65 20 66 6f 72 20 6f 70 2d 39 39 20 ┆ til dennes stk-liste for op-99 ┆
0x0a60…0a80 20 20 20 72 65 74 74 65 6c 73 65 2c 20 75 64 73 6b 72 69 66 74 2c 20 7b 6e 64 72 69 6e 67 20 6f ┆ rettelse, udskrift, ændring o┆
0x0a80…0aa0 67 20 73 6c 65 74 6e 69 6e 67 20 61 66 20 73 74 6b 2d 6c 69 73 74 65 6e 39 1c 20 20 20 20 20 20 ┆g sletning af stk-listen9 ┆
0x0aa0…0ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1c 38 20 64 29 20 44 69 72 65 ┆ 8 d) Dire┆
0x0ac0…0ae0 6b 74 65 20 61 64 67 61 6e 67 20 66 72 61 20 6c 69 6e 69 65 72 20 70 7d 20 73 74 6b 2d 6c 69 73 ┆kte adgang fra linier på stk-lis┆
0x0ae0…0b00 74 65 6e 20 74 69 6c 20 76 61 72 65 72 20 70 7d 38 12 20 20 20 20 6c 61 76 65 72 65 20 6e 69 76 ┆ten til varer på8 lavere niv┆
0x0b00…0b20 65 61 75 2e 12 33 20 65 29 20 44 69 72 65 6b 74 65 20 61 64 67 61 6e 67 20 66 72 61 20 76 61 72 ┆eau. 3 e) Direkte adgang fra var┆
0x0b20…0b40 65 6e 20 74 69 6c 20 75 64 73 6b 72 69 66 74 20 61 66 20 64 65 6e 6e 65 73 33 15 20 20 20 20 77 ┆en til udskrift af dennes3 w┆
0x0b40…0b60 68 65 72 65 2d 75 73 65 64 2d 6c 69 73 74 65 2e 15 01 20 01 39 44 65 74 20 65 72 20 61 6c 74 73 ┆here-used-liste. 9Det er alts┆
0x0b60…0b80 7d 20 6d 75 6c 69 67 74 20 76 65 64 20 7b 6e 64 72 69 6e 67 65 72 20 69 20 6c 61 67 65 72 72 65 ┆å muligt ved ændringer i lagerre┆
0x0b80…0ba0 67 69 73 74 72 65 74 20 61 74 20 62 65 2d 39 39 76 7b 67 65 20 73 69 67 20 66 72 69 74 20 72 75 ┆gistret at be-99væge sig frit ru┆
0x0ba0…0bc0 6e 64 74 20 6d 65 6c 6c 65 6d 20 76 61 72 65 72 6e 65 20 65 6e 74 65 6e 20 76 2e 68 6a 2e 61 2e ┆ndt mellem varerne enten v.hj.a.┆
0x0bc0…0be0 20 76 61 72 65 6e 75 6d 2d 39 37 6d 65 72 65 74 20 65 6c 6c 65 72 20 67 65 6e 6e 65 6d 20 64 65 ┆ varenum-97meret eller gennem de┆
0x0be0…0c00 6e 20 6f 70 62 79 67 67 65 64 65 20 73 74 72 75 6b 74 75 72 20 61 66 20 73 74 6b 2d 6c 69 73 74 ┆n opbyggede struktur af stk-list┆
0x0c00…0c20 65 72 37 15 6f 67 20 77 68 65 72 65 2d 75 73 65 64 2d 6c 69 73 74 65 72 2e 15 01 20 01 21 33 2e ┆er7 og where-used-lister. !3.┆
0x0c20…0c40 20 42 65 68 61 6e 64 6c 69 6e 67 20 61 66 20 6b 6f 6d 70 6f 6e 65 6e 74 6c 69 73 74 65 72 2e 21 ┆ Behandling af komponentlister.!┆
0x0c40…0c60 01 20 01 37 20 61 29 20 4f 70 72 65 74 74 65 6c 73 65 2c 20 75 64 73 6b 72 69 66 74 2c 20 7b 6e ┆ 7 a) Oprettelse, udskrift, æn┆
0x0c60…0c80 64 72 69 6e 67 20 6f 67 20 73 6c 65 74 6e 69 6e 67 20 61 66 20 65 6e 20 65 6e 2d 37 18 20 20 20 ┆dring og sletning af en en-7 ┆
0x0c80…0ca0 20 6b 65 6c 74 20 6b 6f 6d 70 6f 6e 65 6e 74 6c 69 73 74 65 2e 18 38 20 62 29 20 55 64 73 6b 72 ┆ kelt komponentliste. 8 b) Udskr┆
0x0ca0…0cc0 69 66 74 20 61 66 20 6b 6f 6d 70 6f 6e 65 6e 74 6c 69 73 74 65 72 20 66 6f 72 20 65 74 20 69 6e ┆ift af komponentlister for et in┆
0x0cc0…0ce0 74 65 72 76 61 6c 20 61 66 20 76 61 72 65 2d 38 0a 20 20 20 20 6e 75 6d 72 65 2e 0a 01 20 01 24 ┆terval af vare-8 numre. $┆
0x0ce0…0d00 34 2e 20 42 65 68 61 6e 64 6c 69 6e 67 20 61 66 20 6c 65 76 65 72 61 6e 64 7c 72 72 65 67 69 73 ┆4. Behandling af leverandørregis┆
0x0d00…0d20 74 65 72 2e 24 01 20 01 36 20 61 29 20 4f 70 72 65 74 74 65 6c 73 65 2c 20 75 64 73 6b 72 69 66 ┆ter.$ 6 a) Oprettelse, udskrif┆
0x0d20…0d40 74 2c 20 7b 6e 64 72 69 6e 67 20 6f 67 20 73 6c 65 6e 69 6e 67 20 61 66 20 65 6e 20 65 6e 2d 36 ┆t, ændring og slening af en en-6┆
0x0d40…0d60 14 20 20 20 20 6b 65 6c 74 20 6c 65 76 65 72 61 6e 64 7c 72 2e 14 20 20 62 29 20 55 64 73 6b 72 ┆ kelt leverandør. b) Udskr┆
0x0d60…0d80 69 66 74 20 61 66 20 6c 65 76 65 72 61 6e 64 7c 72 6c 69 73 74 65 2e 20 01 20 01 19 35 2e 20 50 ┆ift af leverandørliste. 5. P┆
0x0d80…0da0 72 6f 64 75 6b 74 69 6f 6e 73 70 72 6f 67 72 61 6d 6d 65 72 2e 19 01 20 01 38 20 61 29 20 4d 69 ┆roduktionsprogrammer. 8 a) Mi┆
0x0da0…0dc0 64 6c 65 72 74 69 64 69 67 65 20 74 65 6f 72 65 74 69 73 6b 65 20 6c 61 67 65 72 74 72 7b 6b 20 ┆dlertidige teoretiske lagertræk ┆
0x0dc0…0de0 76 65 64 20 6b 61 6c 6b 75 6c 61 74 69 6f 6e 65 72 2e 38 39 20 62 29 20 42 6c 69 76 65 6e 64 65 ┆ved kalkulationer.89 b) Blivende┆
0x0de0…0e00 20 74 65 6f 72 65 74 69 73 6b 65 20 6c 61 67 65 72 74 72 7b 6b 20 76 65 64 20 70 72 6f 64 75 6b ┆ teoretiske lagertræk ved produk┆
0x0e00…0e20 74 69 6f 6e 73 72 65 73 65 72 76 61 2d 39 0b 20 20 20 20 74 69 6f 6e 65 72 2e 0b 16 20 63 29 20 ┆tionsreserva-9 tioner. c) ┆
0x0e20…0e40 46 79 73 69 73 6b 65 20 6c 61 67 65 72 74 72 7b 6b 2e 16 2f 20 64 29 20 4c 61 67 65 72 74 69 6c ┆Fysiske lagertræk. / d) Lagertil┆
0x0e40…0e60 67 61 6e 67 20 76 65 64 20 68 68 76 2e 20 70 72 6f 64 75 6b 74 69 6f 6e 20 6f 67 20 69 6e 64 6b ┆gang ved hhv. produktion og indk┆
0x0e60…0e80 7c 62 2e 2f 01 20 01 01 20 01 37 53 79 73 74 65 6d 65 74 20 76 69 6c 20 65 6e 64 76 69 64 65 72 ┆øb./ 7Systemet vil endvider┆
0x0e80…0ea0 65 20 69 6e 64 65 68 6f 6c 64 65 20 65 74 20 70 72 6f 67 72 61 6d 2c 20 64 65 72 20 67 65 6e 6e ┆e indeholde et program, der genn┆
0x0ea0…0ec0 65 6d 37 35 65 6e 20 6b 6f 6d 6d 75 6e 69 6b 61 74 69 6f 6e 20 70 7d 20 73 6b 7b 72 6d 65 6e 20 ┆em75en kommunikation på skærmen ┆
0x0ec0…0ee0 66 6f 72 65 73 74 7d 72 20 76 61 6c 67 65 74 20 6d 65 6c 6c 65 6d 20 64 65 35 16 6f 76 65 6e 6e ┆forestår valget mellem de5 ovenn┆
0x0ee0…0f00 7b 76 6e 74 65 20 70 72 6f 67 72 61 6d 6d 65 72 2e 16 01 20 01 39 44 65 20 69 20 73 79 73 74 65 ┆ævnte programmer. 9De i syste┆
0x0f00…0f20 6d 65 74 20 69 6e 64 65 68 6f 6c 64 74 65 20 72 65 67 69 73 74 72 65 20 73 61 6d 74 20 69 6e 64 ┆met indeholdte registre samt ind┆
0x0f20…0f40 68 6f 6c 64 65 74 20 61 66 20 64 69 73 73 65 39 18 66 72 65 6d 67 7d 72 20 61 66 20 64 65 74 20 ┆holdet af disse9 fremgår af det ┆
0x0f40…0f60 66 7c 6c 67 65 6e 64 65 3a 18 01 20 01 20 31 2e 20 49 6e 64 6b 7c 62 73 74 72 61 6e 73 61 6b 74 ┆følgende: 1. Indkøbstransakt┆
0x0f60…0f80 69 6f 6e 73 72 65 67 69 73 74 72 65 74 2e 20 01 20 01 36 45 74 20 69 6e 64 65 6b 73 73 65 6b 76 ┆ionsregistret. 6Et indekssekv┆
0x0f80…0fa0 65 6e 74 69 65 6c 74 20 6f 72 67 61 6e 69 73 65 72 65 74 20 72 65 67 69 73 74 65 72 20 70 7d 20 ┆entielt organiseret register på ┆
0x0fa0…0fc0 6d 61 6b 73 69 6d 61 6c 74 36 27 31 30 30 30 20 70 6f 73 74 65 72 2c 20 68 76 65 72 20 6d 65 64 ┆maksimalt6'1000 poster, hver med┆
0x0fc0…0fe0 20 66 7c 6c 67 65 6e 64 65 20 69 6e 64 68 6f 6c 64 3a 27 01 20 01 34 20 20 20 20 20 20 20 56 61 ┆ følgende indhold:' 4 Va┆
0x0fe0…1000 72 65 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 61 6c 66 61 6e 75 6d 65 ┆renummer 8 alfanume┆
0x1000…1020 72 69 73 6b 65 20 74 65 67 6e 2e 34 29 20 20 20 20 20 20 20 49 6e 64 6b 7c 62 73 6f 72 64 72 65 ┆riske tegn.4) Indkøbsordre┆
0x1020…1040 6e 75 6d 6d 65 72 20 20 20 20 20 20 30 20 2d 20 33 32 30 30 30 2e 29 29 20 20 20 20 20 20 20 41 ┆nummer 0 - 32000.)) A┆
0x1040…1060 6e 74 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 2d 20 33 32 30 30 30 ┆ntal 0 - 32000┆
0x1060…1080 2e 29 32 20 20 20 20 20 20 20 50 72 69 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.)2 Pris ┆
0x1080…10a0 20 20 31 33 20 62 65 74 79 64 65 6e 64 65 20 63 69 66 72 65 2e 32 25 20 20 20 20 20 20 20 5c 6e ┆ 13 betydende cifre.2% Øn┆
0x10a0…10c0 73 6b 65 74 20 6c 65 76 65 72 69 6e 67 73 75 67 65 20 20 20 20 20 31 20 2d 20 35 34 25 35 20 20 ┆sket leveringsuge 1 - 54%5 ┆
0x10c0…10e0 20 20 20 20 20 4f 72 64 72 65 62 65 6b 72 7b 66 74 65 6c 73 65 73 6e 72 2e 20 20 20 20 31 32 20 ┆ Ordrebekræftelsesnr. 12 ┆
0x10e0…1100 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 35 29 20 20 20 20 20 20 20 42 65 6b 72 ┆alfanumeriske tegn.5) Bekr┆
0x1100…1120 7b 66 74 65 74 20 61 6e 74 61 6c 20 20 20 20 20 20 20 20 20 30 20 2d 20 33 32 30 30 30 2e 29 32 ┆æftet antal 0 - 32000.)2┆
0x1120…1140 20 20 20 20 20 20 20 42 65 6b 72 7b 66 74 65 74 20 70 72 69 73 20 20 20 20 20 20 20 20 20 20 31 ┆ Bekræftet pris 1┆
0x1140…1160 33 20 62 65 74 79 64 65 6e 64 65 20 63 69 66 72 65 2e 32 25 20 20 20 20 20 20 20 42 65 6b 72 7b ┆3 betydende cifre.2% Bekræ┆
0x1160…1180 66 74 65 74 20 6c 65 76 2e 75 67 65 20 20 20 20 20 20 20 31 20 2d 20 35 34 25 2a 20 20 20 20 20 ┆ftet lev.uge 1 - 54%* ┆
0x1180…11a0 20 20 4c 65 76 65 72 61 6e 64 7c 72 6e 72 2e 20 20 20 20 20 20 20 20 20 20 20 31 20 2d 20 31 30 ┆ Leverandørnr. 1 - 10┆
0x11a0…11c0 30 20 3f 3f 3f 2a 01 20 01 01 20 01 11 32 2e 20 4c 61 67 65 72 72 65 67 69 73 74 65 72 2e 11 01 ┆0 ???* 2. Lagerregister. ┆
0x11c0…11e0 20 01 37 45 74 20 69 6e 64 65 6b 73 73 65 6b 76 65 6e 74 69 65 6c 74 20 6f 72 67 61 6e 69 73 65 ┆ 7Et indekssekventielt organise┆
0x11e0…1200 72 65 74 20 72 65 67 69 73 74 65 72 20 6d 65 64 20 6d 61 6b 73 69 6d 61 6c 74 37 21 33 30 30 30 ┆ret register med maksimalt7!3000┆
0x1200…1220 20 70 6f 73 74 65 72 20 6d 65 64 20 66 7c 6c 67 65 6e 64 65 20 69 6e 64 68 6f 6c 64 3a 21 01 20 ┆ poster med følgende indhold:! ┆
0x1220…1240 01 34 20 20 20 20 20 20 20 56 61 72 65 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 4 Varenummer ┆
0x1240…1260 20 38 20 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 34 35 20 20 20 20 20 20 20 42 ┆ 8 alfanumeriske tegn.45 B┆
0x1260…1280 65 73 6b 72 69 76 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 31 38 20 61 6c 66 61 6e 75 ┆eskrivelse 18 alfanu┆
0x1280…12a0 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 35 32 20 20 20 20 20 20 20 50 72 69 73 20 20 20 20 20 20 ┆meriske tegn.52 Pris ┆
0x12a0…12c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 20 62 65 74 79 64 65 6e 64 65 20 63 69 66 72 65 ┆ 13 betydende cifre┆
0x12c0…12e0 2e 32 2d 20 20 20 20 20 20 20 46 79 73 69 73 6b 20 6c 61 67 65 72 20 20 20 20 20 20 20 20 20 20 ┆.2- Fysisk lager ┆
0x12e0…1300 20 20 2d 33 32 30 30 30 20 2d 20 33 32 30 30 30 2d 2d 20 20 20 20 20 20 20 52 65 73 65 72 76 65 ┆ -32000 - 32000-- Reserve┆
0x1300…1320 72 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 33 32 30 30 30 20 2d 20 33 32 30 30 30 2d ┆ret -32000 - 32000-┆
0x1320…1340 2d 20 20 20 20 20 20 20 4d 69 64 6c 74 2e 72 65 73 65 72 76 65 72 65 74 20 20 20 20 20 20 20 20 ┆- Midlt.reserveret ┆
0x1340…1360 2d 33 32 30 30 30 20 2d 20 33 32 30 30 30 2d 34 20 20 20 20 20 20 20 45 6e 68 65 64 20 20 20 20 ┆-32000 - 32000-4 Enhed ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 ┆ 4 alfanumeriske t┆
0x1380…13a0 65 67 6e 2e 34 2d 20 20 20 20 20 20 20 47 65 6e 62 65 73 74 69 6c 6c 69 6e 67 73 70 75 6e 6b 74 ┆egn.4- Genbestillingspunkt┆
0x13a0…13c0 20 20 20 20 20 2d 33 32 30 30 30 20 2d 20 33 32 30 30 30 2d 32 20 20 20 20 20 20 20 46 6f 72 62 ┆ -32000 - 32000-2 Forb┆
0x13c0…13e0 72 75 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 20 62 65 74 79 64 65 6e 64 65 ┆rug 13 betydende┆
0x13e0…1400 20 63 69 66 72 65 2e 32 2a 20 20 20 20 20 20 20 4c 65 76 65 72 61 6e 64 7c 72 6e 72 2e 20 20 20 ┆ cifre.2* Leverandørnr. ┆
0x1400…1420 20 20 20 20 20 20 20 20 31 20 2d 20 31 30 30 20 3f 3f 3f 2a 27 20 20 20 20 20 20 20 46 7c 72 73 ┆ 1 - 100 ???*' Førs┆
0x1420…1440 74 65 20 69 20 73 74 6b 2d 6c 69 73 74 65 20 20 20 20 20 20 30 20 2d 20 36 37 35 30 27 27 20 20 ┆te i stk-liste 0 - 6750'' ┆
0x1440…1460 20 20 20 20 20 46 7c 72 73 74 65 20 69 20 77 2d 75 2d 6c 69 73 74 65 20 20 20 20 20 20 30 20 2d ┆ Første i w-u-liste 0 -┆
0x1460…1480 20 36 37 35 30 27 01 20 01 39 33 2e 20 53 74 6b 2d 6c 69 73 74 65 2d 72 65 67 69 73 74 65 72 2c ┆ 6750' 93. Stk-liste-register,┆
0x1480…14a0 20 64 65 72 20 73 61 6d 74 69 64 69 67 20 65 72 20 77 68 65 72 65 75 73 65 64 72 65 67 69 73 74 ┆ der samtidig er whereusedregist┆
0x14a0…14c0 65 72 2e 39 01 20 01 39 45 74 20 64 69 72 65 6b 74 65 20 61 64 72 65 73 73 65 72 62 61 72 74 20 ┆er.9 9Et direkte adresserbart ┆
0x14c0…14e0 72 65 67 69 73 74 65 72 20 70 7d 20 6d 61 6b 73 69 6d 61 6c 74 20 36 37 35 30 20 70 6f 73 74 65 ┆register på maksimalt 6750 poste┆
0x14e0…1500 72 39 15 6d 65 64 20 66 7c 6c 67 65 6e 64 65 20 69 6e 64 68 6f 6c 64 3a 15 01 20 01 34 20 20 20 ┆r9 med følgende indhold: 4 ┆
0x1500…1520 20 20 20 20 56 61 72 65 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 61 6c ┆ Varenummer 8 al┆
0x1520…1540 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 34 29 20 20 20 20 20 20 20 41 6e 74 61 6c 20 ┆fanumeriske tegn.4) Antal ┆
0x1540…1560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 2d 20 33 32 30 30 30 2e 29 34 20 20 ┆ 0 - 32000.)4 ┆
0x1560…1580 20 20 20 20 20 50 6f 73 69 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 61 ┆ Position 2 a┆
0x1580…15a0 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 34 34 20 20 20 20 20 20 20 57 68 65 72 65 ┆lfanumeriske tegn.44 Where┆
0x15a0…15c0 2d 75 73 65 64 20 76 61 72 65 6e 75 6d 6d 65 72 20 20 20 38 20 61 6c 66 61 6e 75 6d 65 72 69 73 ┆-used varenummer 8 alfanumeris┆
0x15c0…15e0 6b 65 20 74 65 67 6e 2e 34 27 20 20 20 20 20 20 20 4e 7b 73 74 65 20 69 20 73 74 6b 2d 6c 69 73 ┆ke tegn.4' Næste i stk-lis┆
0x15e0…1600 74 65 2e 20 20 20 20 20 20 30 20 2d 20 36 37 35 30 27 27 20 20 20 20 20 20 20 46 6f 72 72 69 67 ┆te. 0 - 6750'' Forrig┆
0x1600…1620 65 20 69 20 73 74 6b 2d 6c 69 73 74 65 20 20 20 20 20 30 20 2d 20 36 37 35 30 27 27 20 20 20 20 ┆e i stk-liste 0 - 6750'' ┆
0x1620…1640 20 20 20 4e 7b 73 74 65 20 69 20 77 2d 75 2d 6c 69 73 74 65 20 20 20 20 20 20 20 30 20 2d 20 36 ┆ Næste i w-u-liste 0 - 6┆
0x1640…1660 37 35 30 27 27 20 20 20 20 20 20 20 46 6f 72 72 69 67 65 20 69 20 77 2d 75 2d 6c 69 73 74 65 20 ┆750'' Forrige i w-u-liste ┆
0x1660…1680 20 20 20 20 30 20 2d 20 36 37 35 30 27 01 20 01 22 34 2e 20 4b 6f 6d 70 6f 6e 65 6e 74 72 65 67 ┆ 0 - 6750' "4. Komponentreg┆
0x1680…16a0 69 73 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 22 01 20 01 37 45 74 20 69 6e 64 65 6b ┆isAAAAAAAAAAAAAAAAA" 7Et indek┆
0x16a0…16c0 73 73 65 6b 76 65 6e 74 69 65 6c 74 20 6f 72 67 61 6e 69 73 65 72 65 74 20 72 65 67 69 73 74 65 ┆ssekventielt organiseret registe┆
0x16c0…16e0 72 20 6d 65 64 20 6d 61 6b 73 69 6d 61 6c 74 37 21 31 35 30 30 20 70 6f 73 74 65 72 20 6d 65 64 ┆r med maksimalt7!1500 poster med┆
0x16e0…1700 20 66 7c 6c 67 65 6e 64 65 20 69 6e 64 68 6f 6c 64 3a 21 39 20 20 20 20 20 20 20 20 20 20 20 20 ┆ følgende indhold:!9 ┆
0x1700…1720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 41 41 41 41 41 41 41 41 41 ┆ AAAAAAAAAA┆
0x1720…1740 41 41 41 41 41 41 41 41 41 41 41 41 41 39 34 20 20 20 20 20 20 20 56 61 72 65 6e 75 6d 6d 65 72 ┆AAAAAAAAAAAAA94 Varenummer┆
0x1740…1760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 20 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 ┆ 8 alfanumeriske te┆
0x1760…1780 67 6e 2e 34 35 20 20 20 20 20 20 20 42 65 73 6b 72 69 76 65 6c 73 65 20 41 20 20 20 20 20 20 20 ┆gn.45 Beskrivelse A ┆
0x1780…17a0 20 20 20 20 31 38 20 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 35 29 4d 7d 73 6b ┆ 18 alfanumeriske tegn.5)Måsk┆
0x17a0…17c0 65 20 62 6c 6f 74 20 76 61 72 65 6e 75 6d 6d 65 72 20 70 7d 20 61 6e 64 65 6e 20 6c 61 67 65 72 ┆e blot varenummer på anden lager┆
0x17c0…17e0 76 61 72 65 3f 29 35 20 20 20 20 20 20 20 42 65 73 6b 72 69 76 65 6c 73 65 20 42 20 20 20 20 20 ┆vare?)5 Beskrivelse B ┆
0x17e0…1800 20 20 20 20 20 20 31 38 20 61 6c 66 61 6e 75 6d 65 72 69 73 6b 65 20 74 65 67 6e 2e 35 2a 20 20 ┆ 18 alfanumeriske tegn.5* ┆
0x1800…1820 20 20 20 20 20 4c 65 76 65 72 61 6e 64 7c 72 20 41 20 20 20 20 20 20 20 20 20 20 20 20 31 20 2d ┆ Leverandør A 1 -┆
0x1820…1840 20 31 30 30 20 3f 3f 3f 2a 23 20 20 20 20 20 20 20 4c 65 76 65 72 61 6e 64 7c 72 20 42 20 20 20 ┆ 100 ???*# Leverandør B ┆
0x1840…1860 20 20 20 20 20 20 20 20 20 20 20 20 22 23 23 20 20 20 20 20 20 20 4c 65 76 65 72 61 6e 64 7c 72 ┆ "## Leverandør┆
0x1860…1880 20 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 23 23 20 20 20 20 20 20 20 4c 65 76 65 72 ┆ C "## Lever┆
0x1880…18a0 61 6e 64 7c 72 20 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 23 32 20 20 20 20 20 20 20 ┆andør D "#2 ┆
0x18a0…18c0 50 72 69 73 20 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 20 62 65 74 79 64 ┆Pris A 13 betyd┆
0x18c0…18df 65 6e 64 65 20 63 69 66 72 65 2e 32 23 20 20 20 20 20 20 20 50 72 69 73 20 42 20 20 20 20 20 ┆ende cifre.2# Pris B ┆
0x18df…5de0 […elided…]
0x5de0…5e00 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 35 2c 56 54 59 50 45 44 28 4f 52 ┆ WRITE(LIST,' ':15,VTYPED(OR┆
0x5e00…5e20 44 28 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 29 29 2c 3a 3e 20 20 20 20 20 ┆D(FELT^.VALIDITETSTYPE)),:> ┆
0x5e20…5e40 20 20 20 20 20 20 20 27 20 27 3a 31 35 2d 4c 45 4e 47 54 48 28 56 54 59 50 45 44 28 4f 52 44 28 ┆ ' ':15-LENGTH(VTYPED(ORD(┆
0x5e40…5e60 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 29 29 29 29 3b 3e 22 20 20 20 20 20 ┆FELT^.VALIDITETSTYPE))));>" ┆
0x5e60…5e80 20 43 41 53 45 20 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 20 4f 46 22 38 20 ┆ CASE FELT^.VALIDITETSTYPE OF"8 ┆
0x5e80…5ea0 20 20 20 20 20 48 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 46 45 4c 54 ┆ HINTERVAL:WRITELN(LIST,FELT┆
0x5ea0…5ec0 5e 2e 4d 49 4e 3a 31 32 2c 46 45 4c 54 5e 2e 4d 41 58 3a 31 37 29 3b 38 41 20 20 20 20 20 20 44 ┆^.MIN:12,FELT^.MAX:17);8A D┆
0x5ec0…5ee0 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 46 45 4c 54 5e 2e 4d 49 4e 31 ┆INTERVAL:WRITELN(LIST,FELT^.MIN1┆
0x5ee0…5f00 2a 31 30 30 30 30 2e 30 2b 46 45 4c 54 5e 2e 4d 49 4e 32 3a 31 32 3a 2d 32 2c 41 49 20 20 20 20 ┆*10000.0+FELT^.MIN2:12:-2,AI ┆
0x5f00…5f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5f20…5f40 46 45 4c 54 5e 2e 4d 41 58 31 2a 31 30 30 30 30 2e 30 2b 46 45 4c 54 5e 2e 4d 41 58 32 3a 31 37 ┆FELT^.MAX1*10000.0+FELT^.MAX2:17┆
0x5f40…5f60 3a 2d 32 29 3b 49 3e 20 20 20 20 20 20 52 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c ┆:-2);I> RINTERVAL:WRITELN(L┆
0x5f60…5f80 49 53 54 2c 46 45 4c 54 5e 2e 52 4d 49 4e 3a 31 32 3a 32 2c 46 45 4c 54 5e 2e 52 4d 41 58 3a 31 ┆IST,FELT^.RMIN:12:2,FELT^.RMAX:1┆
0x5f80…5fa0 37 3a 32 29 3b 3e 1d 20 20 20 20 20 20 44 41 54 4f 2c 43 50 52 3a 20 57 52 49 54 45 4c 4e 28 4c ┆7:2);> DATO,CPR: WRITELN(L┆
0x5fa0…5fc0 49 53 54 29 1d 0a 20 20 20 20 20 20 45 4e 44 3b 0a 1a 20 20 20 20 20 20 46 45 4c 54 3a 3d 46 45 ┆IST) END; FELT:=FE┆
0x5fc0…5fe0 4c 54 5e 2e 4e 5b 53 54 45 56 41 4c 1a 08 20 20 20 20 45 4e 44 3b 08 11 20 20 20 20 57 52 49 54 ┆LT^.NÆSTEVAL END; WRIT┆
0x5fe0…6000 45 4c 4e 28 4c 49 53 54 29 11 06 20 20 45 4e 44 3b 06 0c 20 20 50 41 47 45 28 4c 49 53 54 29 0c ┆ELN(LIST) END; PAGE(LIST) ┆
0x6000…6020 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 10 28 2a 48 4f 56 45 44 50 52 4f 47 52 41 4d 2a 29 10 ┆ END; (*$P*) (*HOVEDPROGRAM*) ┆
0x6020…6040 05 42 45 47 49 4e 05 07 20 20 49 4e 49 54 3b 07 16 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 55 ┆ BEGIN INIT; USERNIVEAU:=U┆
0x6040…6060 4d 55 4c 49 55 53 3b 16 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 11 20 20 41 4e 54 41 4c ┆MULIUS; CLEARSCREEN; ANTAL┆
0x6060…6080 46 45 4c 54 45 52 3a 3d 30 3b 11 10 20 20 46 4e 41 56 4e 3a 3d 27 4e 4f 4e 45 27 3b 10 17 20 20 ┆FELTER:=0; FNAVN:='NONE'; ┆
0x6080…60a0 57 52 49 54 45 4c 4e 28 27 49 6e 70 75 74 2d 66 69 6c 27 29 3b 17 0f 20 20 47 4f 54 4f 58 59 28 ┆WRITELN('Input-fil'); GOTOXY(┆
0x60a0…60c0 31 31 2c 31 29 3b 0f 11 20 20 45 44 49 54 28 46 4e 41 56 4e 3a 31 36 29 3b 11 27 20 20 49 46 20 ┆11,1); EDIT(FNAVN:16); ' IF ┆
0x60c0…60e0 50 4f 53 28 27 4e 4f 4e 45 27 2c 46 4e 41 56 4e 29 3c 3e 31 20 54 48 45 4e 20 4c 5b 53 44 45 53 ┆POS('NONE',FNAVN)<>1 THEN LÆSDES┆
0x60e0…6100 43 3b 27 08 20 20 52 45 50 45 41 54 08 10 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 2e ┆C;' REPEAT CLEARSCREEN; .┆
0x6100…6120 20 20 20 20 57 52 49 54 45 4c 4e 28 27 31 20 4f 70 62 79 67 6e 69 6e 67 20 61 66 20 66 65 6c 74 ┆ WRITELN('1 Opbygning af felt┆
0x6120…6140 62 65 73 6b 72 69 76 65 6c 73 65 27 29 3b 2e 39 20 20 20 20 57 52 49 54 45 4c 4e 28 27 32 20 5b ┆beskrivelse');.9 WRITELN('2 Æ┆
0x6140…6160 6e 64 72 69 6e 67 20 61 66 20 65 6b 73 69 73 74 65 72 65 6e 64 65 20 66 65 6c 74 62 65 73 6b 72 ┆ndring af eksisterende feltbeskr┆
0x6160…6180 69 76 65 6c 73 65 27 29 3b 39 1c 20 20 20 20 57 52 49 54 45 4c 4e 28 27 33 20 53 69 6d 75 6c 65 ┆ivelse');9 WRITELN('3 Simule┆
0x6180…61a0 72 69 6e 67 27 29 3b 1c 27 20 20 20 20 57 52 49 54 45 4c 4e 28 27 34 20 4f 70 72 65 74 74 65 6c ┆ring'); ' WRITELN('4 Oprettel┆
0x61a0…61c0 73 65 20 61 66 20 64 61 74 61 66 69 6c 27 29 3b 27 34 20 20 20 20 57 52 49 54 45 4c 4e 28 27 35 ┆se af datafil');'4 WRITELN('5┆
0x61c0…61e0 20 50 72 69 6e 74 65 72 75 64 73 6b 72 69 66 74 20 61 66 20 66 65 6c 74 62 65 73 6b 72 69 76 65 ┆ Printerudskrift af feltbeskrive┆
0x61e0…6200 6c 73 65 27 29 3b 34 18 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 7b 6c 67 20 30 2d 35 27 29 3b ┆lse');4 WRITELN('Vælg 0-5');┆
0x6200…6220 18 0a 20 20 20 20 52 45 50 45 41 54 0a 13 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 32 2c 36 29 ┆ REPEAT GOTOXY(12,6)┆
0x6220…6240 3b 13 14 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 14 1c 20 20 20 20 55 4e 54 ┆; READLN;READ(I) UNT┆
0x6240…6260 49 4c 20 28 49 3e 3d 30 29 20 41 4e 44 20 28 49 3c 3d 35 29 3b 1c 0d 20 20 20 20 43 41 53 45 20 ┆IL (I>=0) AND (I<=5); CASE ┆
0x6260…6280 49 20 4f 46 0d 0f 20 20 20 20 31 3a 43 52 45 41 54 45 50 44 3b 0f 0d 20 20 20 20 32 3a 4d 41 49 ┆I OF 1:CREATEPD; 2:MAI┆
0x6280…62a0 4e 50 44 3b 0d 0b 20 20 20 20 33 3a 42 45 47 49 4e 0b 10 20 20 20 20 20 20 20 20 4e 55 4c 50 4f ┆NPD; 3:BEGIN NULPO┆
0x62a0…62c0 53 54 3b 10 12 20 20 20 20 20 20 20 20 53 4b 52 49 56 50 4f 53 54 3b 12 0e 20 20 20 20 20 20 20 ┆ST; SKRIVPOST; ┆
0x62c0…62e0 20 52 45 50 45 41 54 0e 11 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 11 24 20 20 20 20 ┆ REPEAT READLN; $ ┆
0x62e0…6300 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 46 45 4c 54 45 52 20 44 4f ┆ FOR I:=1 TO ANTALFELTER DO┆
0x6300…6320 24 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 49 29 ┆$ LÆSFELT(PICTURE(I)┆
0x6320…6340 29 3b 20 19 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 3b 19 21 20 ┆); READLN;READ(I); ! ┆
0x6340…6360 20 20 20 20 20 20 20 20 20 49 46 20 49 3c 3e 2d 31 20 54 48 45 4e 20 53 4b 52 49 56 50 4f 53 54 ┆ IF I<>-1 THEN SKRIVPOST┆
0x6360…6380 21 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 3d 2d 31 12 0a 20 20 20 20 20 20 45 4e 44 3b ┆! UNTIL I=-1 END;┆
0x6380…63a0 0a 0c 20 20 20 20 34 3a 4f 50 52 45 54 3b 0c 0e 20 20 20 20 35 3a 4c 49 53 54 44 45 53 43 0e 07 ┆ 4:OPRET; 5:LISTDESC ┆
0x63a0…63c0 20 20 20 20 45 4e 44 07 0c 20 20 55 4e 54 49 4c 20 49 3d 30 3b 0c 0e 20 20 43 4c 45 41 52 53 43 ┆ END UNTIL I=0; CLEARSC┆
0x63c0…63e0 52 45 45 4e 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 4f 75 74 70 75 74 2d 66 69 6c 27 29 3b 18 ┆REEN; WRITELN('Output-fil'); ┆
0x63e0…6400 0f 20 20 47 4f 54 4f 58 59 28 31 32 2c 31 29 3b 0f 11 20 20 45 44 49 54 28 46 4e 41 56 4e 3a 31 ┆ GOTOXY(12,1); EDIT(FNAVN:1┆
0x6400…6420 36 29 3b 11 2e 20 20 49 46 20 46 4e 41 56 4e 3c 3e 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6); . IF FNAVN<>' ┆
0x6420…6440 20 20 27 20 54 48 45 4e 20 53 4b 52 49 56 44 45 53 43 3b 2e 01 20 01 01 20 01 04 45 4e 44 2e 04 ┆ ' THEN SKRIVDESC;. END. ┆
0x6440…6460 00 00 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 4d 2c 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆ .1 *********M,0110 REM *******┆
0x6460…6480 2a 2a 2a 2a 2a 20 20 4d 45 4e 55 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 25 30 31 ┆***** MENU ***************,%01┆
0x6480…64a0 32 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 ┆20 DIM SV$(2),FILN$(17),DATAPL$(┆
0x64a0…64c0 31 37 29 25 12 30 31 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a 22 12 0b 30 31 34 30 20 43 4c ┆17)% 0130 DATAPL$="TF:" 0140 CL┆
0x64c0…64e0 45 41 52 20 0b 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 10 30 31 36 30 20 43 55 52 53 4f 52 20 ┆EAR 0150 REPEAT 0160 CURSOR ┆
0x64e0…6500 31 35 2c 32 10 26 30 31 37 30 20 50 52 49 4e 54 20 22 4d 45 4e 55 20 46 4f 52 20 42 55 44 47 45 ┆15,2 &0170 PRINT "MENU FOR BUDGE┆
0x6500…6520 54 53 49 4d 55 4c 45 52 49 4e 47 22 26 0f 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 2c 30 ┆TSIMULERING"& 0180 CURSOR 1,4 ,0┆
0x6520…6540 31 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 49 6e 64 6b 6f 64 6e 69 6e 67 22 3b 54 ┆190 PRINT TAB(10);"Indkodning";T┆
0x6540…6560 41 42 28 35 30 29 3b 22 69 6b 22 2c 2c 30 32 30 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b ┆AB(50);"ik",,0200 PRINT TAB(10);┆
0x6560…6580 22 53 69 6d 75 6c 65 72 69 6e 67 22 3b 54 41 42 28 35 30 29 3b 22 73 69 22 2c 2d 30 32 31 30 20 ┆"Simulering";TAB(50);"si",-0210 ┆
0x6580…65a0 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 55 64 73 6b 72 69 76 6e 69 6e 67 22 3b 54 41 42 28 ┆PRINT TAB(10);"Udskrivning";TAB(┆
0x65a0…65c0 35 30 29 3b 22 75 73 22 2d 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 29 30 32 33 30 20 49 4e 50 55 ┆50);"us"- 0220 PRINT )0230 INPU┆
0x65c0…65e0 54 20 22 49 6e 64 74 61 73 74 20 66 75 6e 6b 74 69 6f 6e 73 6b 6f 64 65 20 3a 20 22 2c 53 56 24 ┆T "Indtast funktionskode : ",SV$┆
0x65e0…6600 29 0b 30 32 34 30 20 43 4c 45 41 52 20 0b 11 30 32 35 30 20 43 41 53 45 20 53 56 24 20 4f 46 20 ┆) 0240 CLEAR 0250 CASE SV$ OF ┆
0x6600…6620 11 13 30 32 36 30 20 57 48 45 4e 20 22 49 4b 22 2c 22 69 6b 22 13 1c 30 32 37 30 20 46 49 4c 4e ┆ 0260 WHEN "IK","ik" 0270 FILN┆
0x6620…6640 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 49 4e 44 4b 22 1c 10 30 32 38 30 20 43 48 41 49 4e 20 ┆$=DATAPL$+"SIMINDK" 0280 CHAIN ┆
0x6640…6660 46 49 4c 4e 24 10 13 30 32 39 30 20 57 48 45 4e 20 22 53 49 22 2c 22 73 69 22 13 1a 30 33 30 30 ┆FILN$ 0290 WHEN "SI","si" 0300┆
0x6660…6680 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 55 4c 22 1a 10 30 33 31 30 20 43 48 41 ┆ FILN$=DATAPL$+"SIMUL" 0310 CHA┆
0x6680…66a0 49 4e 20 46 49 4c 4e 24 10 13 30 33 32 30 20 57 48 45 4e 20 22 55 53 22 2c 22 75 73 22 13 1d 30 ┆IN FILN$ 0320 WHEN "US","us" 0┆
0x66a0…66c0 33 33 30 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 55 44 53 4b 52 22 1d 10 30 33 ┆330 FILN$=DATAPL$+"SIMUDSKR" 03┆
0x66c0…66e0 34 30 20 43 48 41 49 4e 20 46 49 4c 4e 24 10 0d 30 33 35 30 20 45 4e 44 43 41 53 45 20 0d 0e 30 ┆40 CHAIN FILN$ 0350 ENDCASE 0┆
0x66e0…6700 00 49 4d 4d 45 4e 55 20 4b 42 01 03 00 00 00 00 92 00 0c 92 00 12 41 92 00 20 00 00 00 00 00 00 ┆ IMMENU KB A ┆
0x6700…6720 33 36 30 20 55 4e 54 49 4c 20 31 3d 30 0e 00 00 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 ┆360 UNTIL 1=0 TEKNIK A/S : BU┆
0x6720…6740 44 47 45 54 53 49 4d 55 4c 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆DGETSIMULERING **************** ┆
0x6740…6760 52 32 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 4d 2c 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆R2.1 *********M,0110 REM *******┆
0x6760…6780 2a 2a 2a 2a 2a 20 20 4d 45 4e 55 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 25 30 31 ┆***** MENU ***************,%01┆
0x6780…67a0 32 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 ┆20 DIM SV$(2),FILN$(17),DATAPL$(┆
0x67a0…67c0 31 37 29 25 12 30 31 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a 22 12 0b 30 31 34 30 20 43 4c ┆17)% 0130 DATAPL$="TF:" 0140 CL┆
0x67c0…67e0 45 41 52 20 0b 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 10 30 31 36 30 20 43 55 52 53 4f 52 20 ┆EAR 0150 REPEAT 0160 CURSOR ┆
0x67e0…6800 43 20 52 45 4f 52 47 5f 4f 52 44 52 45 15 12 34 33 32 30 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 ┆C REORG_ORDRE 4320 FOR J=1 TO 1┆
0x6800…6820 30 12 18 34 33 33 30 20 45 58 45 43 20 42 45 4e 59 54 5f 4f 52 44 52 45 28 4a 29 18 0b 34 33 34 ┆0 4330 EXEC BENYT_ORDRE(J) 434┆
0x6820…6840 30 20 4e 45 58 54 20 4a 0b 0b 34 33 35 30 20 45 4e 44 49 46 20 0b 0b 34 33 36 30 20 45 4e 44 49 ┆0 NEXT J 4350 ENDIF 4360 ENDI┆
0x6840…6860 46 20 0b 18 34 33 37 30 20 49 46 20 53 56 41 52 48 24 3d 22 61 22 20 54 48 45 4e 20 18 12 34 33 ┆F 4370 IF SVARH$="a" THEN 43┆
0x6860…6880 38 30 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 30 12 2c 34 33 39 30 20 49 46 20 4f 4e 52 28 4a 29 ┆80 FOR J=1 TO 10 ,4390 IF ONR(J)┆
0x6880…68a0 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 53 4c 45 54 5f 45 4e 5f 4f 52 44 52 45 28 4a 29 2c 0b ┆<>0 THEN EXEC SLET_EN_ORDRE(J), ┆
0x68a0…68c0 34 34 30 30 20 4e 45 58 54 20 4a 0b 0d 34 34 31 30 20 4f 53 4c 24 3d 22 53 22 0d 18 34 34 32 30 ┆4400 NEXT J 4410 OSL$="S" 4420┆
0x68c0…68e0 20 45 58 45 43 20 53 4b 52 49 56 5f 48 4f 56 45 44 4f 50 4c 18 0b 34 34 33 30 20 45 4e 44 49 46 ┆ EXEC SKRIV_HOVEDOPL 4430 ENDIF┆
0x68e0…6900 20 0b 13 34 34 34 30 20 57 48 45 4e 20 22 4f 50 22 2c 22 6f 70 22 13 1a 34 34 35 30 20 45 58 45 ┆ 4440 WHEN "OP","op" 4450 EXE┆
0x6900…6920 43 20 45 44 49 54 5f 48 4f 56 45 44 4f 50 4c 28 37 29 1a 1a 34 34 36 30 20 45 58 45 43 20 45 44 ┆C EDIT_HOVEDOPL(7) 4460 EXEC ED┆
0x6920…6940 49 54 5f 48 4f 56 45 44 4f 50 4c 28 38 29 1a 1a 34 34 37 30 20 49 46 20 4f 42 24 3d 22 20 20 20 ┆IT_HOVEDOPL(8) 4470 IF OB$=" ┆
0x6940…6960 20 20 20 22 20 54 48 45 4e 20 1a 12 34 34 38 30 20 4f 42 24 28 31 3a 32 29 3d 22 31 35 22 12 1a ┆ " THEN 4480 OB$(1:2)="15" ┆
0x6960…6980 34 34 39 30 20 48 4a 4c 50 3d 41 53 43 28 48 44 41 54 4f 24 28 33 3a 34 29 29 1a 17 34 35 30 30 ┆4490 HJLP=ASC(HDATO$(3:4)) 4500┆
0x6980…69a0 20 49 46 20 48 4a 4c 50 3e 31 31 39 39 20 54 48 45 4e 20 17 19 34 35 31 30 20 48 4a 4c 50 3d 28 ┆ IF HJLP>1199 THEN 4510 HJLP=(┆
0x69a0…69c0 48 4a 4c 50 2b 31 30 31 29 2d 31 32 30 30 19 0a 34 35 32 30 20 45 4c 53 45 20 0a 12 34 35 33 30 ┆HJLP+101)-1200 4520 ELSE 4530┆
0x69c0…69e0 20 48 4a 4c 50 3d 48 4a 4c 50 2b 31 30 30 12 0b 34 35 34 30 20 45 4e 44 49 46 20 0b 1b 34 35 c7 ┆ HJLP=HJLP+100 4540 ENDIF 45 ┆
0x69e0…6a00 00 49 4d 55 4c 20 20 20 42 41 0a 0a 00 93 00 02 00 00 00 93 00 02 00 00 00 ff 00 00 00 00 00 00 ┆ IMUL BA ┆
0x6a00…6a20 4d a1 82 64 00 89 53 59 53 54 45 4d 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 44 47 45 54 ┆M d SYSTEM TEKNIK A/S : BUDGET┆
0x6a20…6a40 53 49 4d 55 4c 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 52 32 2e 31 ┆SIMULERING **************** R2.1┆
0x6a40…6a60 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ff db 82 6e 4d 4d 00 89 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ********* nMM **************┆
0x6a60…6a80 2a 2a 2a 2a 2a 2a 20 20 53 49 4d 55 4c 45 52 49 4e 47 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****** SIMULERING ************┆
0x6a80…6aa0 2a 2a 2a 2a 2a 2a ff 13 83 78 00 89 49 4e 54 45 47 45 52 20 41 31 2c 41 32 2c 41 33 2c 4d 4d 41 ┆****** x INTEGER A1,A2,A3,MMA┆
0x6aa0…6ac0 34 2c 41 35 2c 41 36 2c 41 37 2c 41 38 2c 41 39 2c 41 31 30 2c 41 31 31 2c 41 31 32 2c 41 31 33 ┆4,A5,A6,A7,A8,A9,A10,A11,A12,A13┆
0x6ac0…6ae0 ff 4b 83 82 00 89 49 4e 54 45 47 45 52 20 42 31 2c 42 32 2c 42 33 2c 42 34 2c 42 35 2c 42 36 2c ┆ K INTEGER B1,B2,B3,B4,B5,B6,┆
0x6ae0…6b00 42 37 2c 42 38 2c 42 39 2c 42 31 30 4d 4d 2c 42 31 31 2c 42 31 32 2c 42 31 33 ff 83 83 8c 00 89 ┆B7,B8,B9,B10MM,B11,B12,B13 ┆
0x6b00…6b20 49 4e 54 45 47 45 52 20 43 31 2c 43 32 2c 43 33 2c 43 34 2c 43 35 2c 43 36 2c 43 37 2c 43 38 2c ┆INTEGER C1,C2,C3,C4,C5,C6,C7,C8,┆
0x6b20…6b40 43 39 2c 43 31 30 2c 43 31 31 2c 43 31 32 2c 43 31 33 ff bb 83 96 00 89 49 4e 54 4d 4d 45 47 45 ┆C9,C10,C11,C12,C13 INTMMEGE┆
0x6b40…6b60 52 20 44 31 2c 44 32 2c 44 33 2c 44 34 2c 44 35 2c 44 36 2c 44 37 2c 44 38 2c 44 39 2c 44 31 30 ┆R D1,D2,D3,D4,D5,D6,D7,D8,D9,D10┆
0x6b60…6b80 2c 44 31 31 2c 44 31 32 2c 44 31 33 ff e0 83 a0 00 89 49 4e 54 45 47 45 52 20 41 28 31 33 29 2c ┆,D11,D12,D13 INTEGER A(13),┆
0x6b80…6ba0 42 28 31 33 29 2c 43 28 31 33 4d 4d 29 2c 44 28 31 33 29 ff ff 83 aa 00 89 49 4e 54 45 47 45 52 ┆B(13),C(13MM),D(13) INTEGER┆
0x6ba0…6bc0 20 58 2c 59 2c 5a 2c 57 2c 51 2c 50 2c 46 2c 47 2c 52 ff 31 84 b4 00 89 49 4e 54 45 47 45 52 20 ┆ X,Y,Z,W,Q,P,F,G,R 1 INTEGER ┆
0x6bc0…6be0 49 2c 4d 44 2c 44 47 2c 4b 54 4f 2c 42 45 4c 2c 55 44 2c 49 58 2c 4e 55 4c 4d 4d 2c 46 4f 52 54 ┆I,MD,DG,KTO,BEL,UD,IX,NULMM,FORT┆
0x6be0…6c00 45 47 4e 2c 53 4c ff 57 84 be 00 89 44 42 4c 52 45 41 4c 20 42 45 4c 41 2c 42 45 4c 42 2c 42 45 ┆EGN,SL W DBLREAL BELA,BELB,BE┆
0x6c00…6c20 4c 43 2c 42 45 4c 44 2c 53 41 54 53 ff c4 84 c8 00 87 44 41 54 41 50 4c ef ed 31 37 fe 00 00 88 ┆LC,BELD,SATS DATAPL 17 ┆
0x6c20…6c40 05 ee ec 53 56 ef ed 32 4d 4d fe 00 00 80 02 ee ec 46 49 4c 4e ef ed 31 37 fe 00 00 88 05 ee ec ┆ SV 2MM FILN 17 ┆
0x6c40…6c60 4d ef ed 31 fe 00 00 80 01 ee ec 46 49 4c 4b 54 4f ef ed 31 37 fe 00 00 88 05 ee ec 54 41 42 ef ┆M 1 FILKTO 17 TAB ┆
0x6c60…6c80 ed 35 30 fe 00 00 c8 06 ee ec 49 4e 44 45 58 ef ed 31 30 30 30 fe 00 4d 4d 00 fa 0a ee ff 03 85 ┆ 50 INDEX 1000 MM ┆
0x6c80…6ca0 d2 00 87 5d 46 ef ed 31 fe 00 00 80 01 ee ec 49 4e 44 45 58 46 ef ed 31 37 fe 00 00 88 05 ee ec ┆ ÅF 1 INDEXF 17 ┆
0x6ca0…6cc0 47 58 ef ed 31 fe 00 00 80 01 ee ec 50 52 47 52 50 4c ef ed 31 37 fe 00 00 88 05 ee ff 70 85 dc ┆GX 1 PRGRPL 17 p ┆
0x6cc0…6ce0 00 87 4b 41 ef ed 4d 4d 31 30 fe 00 00 a0 04 ee ec 4b 42 ef ed 31 30 fe 00 00 a0 04 ee ec 4b 43 ┆ KA MM10 KB 10 KC┆
0x6ce0…6d00 ef ed 31 30 fe 00 00 a0 04 ee ec 4b 44 ef ed 31 30 fe 00 00 a0 04 ee ec 4e 41 ef ed 33 30 fe 00 ┆ 10 KD 10 NA 30 ┆
0x6d00…6d20 00 f0 05 ee ec 4e 42 ef ed 33 30 fe 00 00 f0 05 ee ec 4e 43 ef 4d 4d ed 33 30 fe 00 00 f0 05 ee ┆ NB 30 NC MM 30 ┆
0x6d20…6d40 ec 4e 44 ef ed 33 30 fe 00 00 f0 05 ee ff 76 85 e6 00 a0 ff 88 85 f0 00 44 41 54 41 50 4c ef dc ┆ ND 30 v DATAPL ┆
0x6d40…6d60 22 54 46 3a 22 ff 9a 85 fa 00 50 52 47 52 50 4c ef dc 22 54 46 3a 22 ff a5 85 04 01 4d ef dc 22 ┆"TF:" PRGRPL "TF:" M "┆
0x6d60…6d80 57 22 ff c1 4d 4d 85 0e 01 49 4e 44 45 58 46 ef dc 44 41 54 41 50 4c ef f1 22 49 4e 44 45 58 22 ┆W" MM INDEXF DATAPL "INDEX"┆
0x6d80…6da0 ff db 85 18 01 9d 5d 42 4e 45 5f 46 49 4c ed 49 4e 44 45 58 46 ef ec 4d ef ee ff f3 85 22 01 83 ┆ ÅBNE_FIL INDEXF M " ┆
0x6da0…6dc0 4b 54 4f dc 31 fe 00 00 80 01 b7 32 30 fe 00 00 a0 05 ff 4d 4d 09 86 2c 01 a9 49 4e 44 45 58 46 ┆KTO 1 20 MM , INDEXF┆
0x6dc0…6de0 ef ec 4b 54 4f f0 54 41 42 ef ff 2b 86 36 01 49 dc ed 4b 54 4f e3 31 fe 00 00 80 01 ee e4 35 00 ┆ KTO TAB + 6 I KTO 1 5 ┆