|
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: »4EDITFIL.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »4EDITFIL.K«
0x0000…001b Line {l1=0x19, l2=»PROGRAM ORDREINDTASTNING;«, l3=0x19}
0x001b…0021 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0021…004a Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x004a…0095 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0095…00ae Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x00ae…00c9 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00c9…00df Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00df…00f2 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x00f2…0108 Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x0108…0110 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0110…0124 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0124…0139 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0139…014d Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x014d…0162 Line {l1=0x13, l2=» MVINDUEZ=292;«, l3=0x13}
0x0162…0177 Line {l1=0x13, l2=» MMAXMÅLZ=259;«, l3=0x13}
0x0177…018a Line {l1=0x11, l2=» MGLASZ=245;«, l3=0x11}
0x018a…019e Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x019e…01b3 Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x01b3…01c8 Line {l1=0x13, l2=» MORDREHZ=331;«, l3=0x13}
0x01c8…01dc Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x01dc…01ee Line {l1=0x10, l2=» MSYSZ=243;«, l3=0x10}
0x01ee…01fd Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x01fd…0210 Line {l1=0x11, l2=»VINDUEZONE=RECORD«, l3=0x11}
0x0210…0227 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0227…0254 Line {l1=0x2b, l2=» T:ARRAY(1..MVINDUEZ) OF INTEGER;«, l3=0x2b}
0x0254…025a Line {l1=0x04, l2=»END;«, l3=0x04}
0x025a…025d Line {l1=0x01, l2=» «, l3=0x01}
0x025d…0270 Line {l1=0x11, l2=»MAXMÅLZONE=RECORD«, l3=0x11}
0x0270…0287 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0287…02b4 Line {l1=0x2b, l2=» T:ARRAY(1..MMAXMÅLZ) OF INTEGER;«, l3=0x2b}
0x02b4…02ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ba…02bd Line {l1=0x01, l2=» «, l3=0x01}
0x02bd…02ce Line {l1=0x0f, l2=»GLASZONE=RECORD«, l3=0x0f}
0x02ce…02e3 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x02e3…030c Line {l1=0x27, l2=» T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x27}
0x030c…0312 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0312…0315 Line {l1=0x01, l2=» «, l3=0x01}
0x0315…0328 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x0328…033f Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x033f…036c Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x036c…0372 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0372…0375 Line {l1=0x01, l2=» «, l3=0x01}
0x0375…0387 Line {l1=0x10, l2=»HOVEDZONE=RECORD«, l3=0x10}
0x0387…039d Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x039d…03c9 Line {l1=0x2a, l2=» T:ARRAY(1..MORDREHZ) OF INTEGER;«, l3=0x2a}
0x03c9…03cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x03cf…03d2 Line {l1=0x01, l2=» «, l3=0x01}
0x03d2…03e4 Line {l1=0x10, l2=»KOMBIZONE=RECORD«, l3=0x10}
0x03e4…03fa Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x03fa…0425 Line {l1=0x29, l2=» T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x29}
0x0425…042b Line {l1=0x04, l2=»END;«, l3=0x04}
0x042b…042e Line {l1=0x01, l2=» «, l3=0x01}
0x042e…043e Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x043e…0452 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0452…0479 Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x0479…047f Line {l1=0x04, l2=»END;«, l3=0x04}
0x047f…04a5 Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x04a5…04c0 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x04c0…04de Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x04de…04fc Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x04fc…051a Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x051a…0538 Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x0538…053b Line {l1=0x01, l2=» «, l3=0x01}
0x053b…055c Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x055c…055f Line {l1=0x01, l2=» «, l3=0x01}
0x055f…0581 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0581…0584 Line {l1=0x01, l2=» «, l3=0x01}
0x0584…0597 Line {l1=0x11, l2=»VINDUEPOST=RECORD«, l3=0x11}
0x0597…05ac Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x05ac…05be Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x05be…05d3 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x05d3…05e3 Line {l1=0x0e, l2=» (*NR,«, l3=0x0e}
0x05e3…05f7 Line {l1=0x12, l2=» KARMNR,«, l3=0x12}
0x05f7…0613 Line {l1=0x1a, l2=» MAXMÅL:INTEGER;«, l3=0x1a}
0x0613…063e Line {l1=0x29, l2=» RAMME:ARRAY(1..16) OF INTEGER;«, l3=0x29}
0x063e…0657 Line {l1=0x17, l2=» BESLAG:AR14;«, l3=0x17}
0x0657…066b Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x066b…0685 Line {l1=0x18, l2=» HØJDE:AR13;*)«, l3=0x18}
0x0685…06ad Line {l1=0x26, l2=» C:ARRAY (1..29) OF INTEGER;«, l3=0x26}
0x06ad…06c3 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x06c3…06c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06c9…06cc Line {l1=0x01, l2=» «, l3=0x01}
0x06cc…06df Line {l1=0x11, l2=»MAXMÅLPOST=RECORD«, l3=0x11}
0x06df…06f4 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x06f4…0706 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0706…071b Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x071b…072e Line {l1=0x11, l2=» (*AREAL,«, l3=0x11}
0x072e…0749 Line {l1=0x19, l2=» BHFORHOL:REAL;«, l3=0x19}
0x0749…0759 Line {l1=0x0e, l2=» NR,«, l3=0x0e}
0x0759…076d Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x076d…078a Line {l1=0x1b, l2=» HØJDE:INTEGER;*)«, l3=0x1b}
0x078a…07b2 Line {l1=0x26, l2=» C:ARRAY (1..11) OF INTEGER;«, l3=0x26}
0x07b2…07c8 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x07c8…07ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x07ce…07df Line {l1=0x0f, l2=»GLASPOST=RECORD«, l3=0x0f}
0x07df…07f2 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x07f2…0802 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x0802…0815 Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x0815…0823 Line {l1=0x0c, l2=» (*NR,«, l3=0x0c}
0x0823…083d Line {l1=0x18, l2=» KODE:INTEGER;*)«, l3=0x18}
0x083d…0862 Line {l1=0x23, l2=» C:ARRAY (1..2) OF INTEGER;«, l3=0x23}
0x0862…0876 Line {l1=0x12, l2=» TEKST:TEK«, l3=0x12}
0x0876…087c Line {l1=0x04, l2=»END;«, l3=0x04}
0x087c…087f Line {l1=0x01, l2=» «, l3=0x01}
0x087f…0892 Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x0892…08a7 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x08a7…08b9 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x08b9…08ce Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x08ce…08e4 Line {l1=0x14, l2=» (*KOSTPRIS,«, l3=0x14}
0x08e4…08fa Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x08fa…0912 Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x0912…0927 Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x0927…093d Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x093d…0950 Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x0950…0966 Line {l1=0x14, l2=» VINDUENR,«, l3=0x14}
0x0966…097a Line {l1=0x12, l2=» FARVE1,«, l3=0x12}
0x097a…098e Line {l1=0x12, l2=» FARVE2,«, l3=0x12}
0x098e…09a4 Line {l1=0x14, l2=» RAMMENR1,«, l3=0x14}
0x09a4…09ba Line {l1=0x14, l2=» GLASART1,«, l3=0x14}
0x09ba…09d0 Line {l1=0x14, l2=» RAMMENR2,«, l3=0x14}
0x09d0…09e6 Line {l1=0x14, l2=» GLASART2,«, l3=0x14}
0x09e6…09fc Line {l1=0x14, l2=» RAMMENR3,«, l3=0x14}
0x09fc…0a12 Line {l1=0x14, l2=» GLASART3,«, l3=0x14}
0x0a12…0a28 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x0a28…0a46 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x0a46…0a5f Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x0a5f…0a77 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0a77…0a91 Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x0a91…0aad Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0aad…0acb Line {l1=0x1c, l2=» STATUS:INTEGER;*)«, l3=0x1c}
0x0acb…0af2 Line {l1=0x25, l2=» C:ARRAY (1..38) OF INTEGER«, l3=0x25}
0x0af2…0af8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0af8…0b0a Line {l1=0x10, l2=»HOVEDPOST=RECORD«, l3=0x10}
0x0b0a…0b1e Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0b1e…0b2f Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0b2f…0b43 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0b43…0b5a Line {l1=0x15, l2=» (*NR:INTEGER;«, l3=0x15}
0x0b5a…0b73 Line {l1=0x17, l2=» DATO:DOBBINT;«, l3=0x17}
0x0b73…0b90 Line {l1=0x1b, l2=» TILBUDNR:INTEGER;«, l3=0x1b}
0x0b90…0bae Line {l1=0x1c, l2=» TLBUDDATO:DOBBINT;«, l3=0x1c}
0x0bae…0bc9 Line {l1=0x19, l2=» SAGSNR:INTEGER;«, l3=0x19}
0x0bc9…0bdd Line {l1=0x12, l2=» KUNDENR,«, l3=0x12}
0x0bdd…0bf8 Line {l1=0x19, l2=» POSTNR:DOBBINT;«, l3=0x19}
0x0bf8…0c0c Line {l1=0x12, l2=» LEVTERM,«, l3=0x12}
0x0c0c…0c27 Line {l1=0x19, l2=» STATUS:INTEGER;«, l3=0x19}
0x0c27…0c3d Line {l1=0x14, l2=» KUNDENAVN,«, l3=0x14}
0x0c3d…0c4e Line {l1=0x0f, l2=» GADE,«, l3=0x0f}
0x0c4e…0c5d Line {l1=0x0d, l2=» BY,«, l3=0x0d}
0x0c5d…0c75 Line {l1=0x16, l2=» KONTAKT:TEK;«, l3=0x16}
0x0c75…0ca5 Line {l1=0x2e, l2=» TELEFON:PACKED ARRAY(1..10) OF CHAR;«, l3=0x2e}
0x0ca5…0cbd Line {l1=0x16, l2=» LEVSTED:TEK;«, l3=0x16}
0x0cbd…0cee Line {l1=0x2f, l2=» INITIAL:PACKED ARRAY(1..4) OF CHAR;*)«, l3=0x2f}
0x0cee…0d14 Line {l1=0x24, l2=» C:ARRAY (1..95) OF INTEGER«, l3=0x24}
0x0d14…0d1a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d1a…0d2c Line {l1=0x10, l2=»KOMBIPOST=RECORD«, l3=0x10}
0x0d2c…0d40 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0d40…0d51 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0d51…0d65 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0d65…0d74 Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0d74…0d8b Line {l1=0x15, l2=» KARMPROFIL,«, l3=0x15}
0x0d8b…0d9d Line {l1=0x10, l2=» POST1,«, l3=0x10}
0x0d9d…0daf Line {l1=0x10, l2=» POST2,«, l3=0x10}
0x0daf…0dc7 Line {l1=0x16, l2=» RAMMEPROFIL,«, l3=0x16}
0x0dc7…0de6 Line {l1=0x1d, l2=» F3PROFIL:INTEGER;*)«, l3=0x1d}
0x0de6…0e0b Line {l1=0x23, l2=» C:ARRAY (1..6) OF INTEGER«, l3=0x23}
0x0e0b…0e11 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e11…0e21 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0e21…0e35 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0e35…0e46 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0e46…0e5a Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0e5a…0e69 Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0e69…0e7d Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x0e7d…0e9f Line {l1=0x20, l2=» SDAT1,SDAT2:INTEGER;*)«, l3=0x20}
0x0e9f…0ec4 Line {l1=0x23, l2=» C:ARRAY (1..4) OF INTEGER«, l3=0x23}
0x0ec4…0eca Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eca…0ee3 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0ee3…0ef4 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0ef4…0f04 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0f04…0f0a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f0a…0f2e Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0f2e…0f5f Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0f5f…0f86 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0f86…0f9e Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0f9e…0fb2 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0fb2…0fca Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0fca…0ff0 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0ff0…0ffe Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0ffe…1019 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x1019…103d Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x103d…1054 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x1054…1075 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x1075…1089 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x1089…109d Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x109d…10b1 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x10b1…10cc Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x10cc…10e4 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x10e4…1102 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x1102…1110 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x1110…1131 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x1131…1155 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x1155…1185 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x1185…11a8 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x11a8…11bc Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x11bc…11c2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11c2…11e4 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x11e4…1216 Line {l1=0x30, l2=»VAR VINF,MAXF,GLAF,FARF,OLIF,HOVF,KOMF,SYSF:ISF;«, l3=0x30}
0x1216…122c Line {l1=0x14, l2=» VINZ:VINDUEZONE;«, l3=0x14}
0x122c…1242 Line {l1=0x14, l2=» MAXZ:MAXMÅLZONE;«, l3=0x14}
0x1242…125b Line {l1=0x17, l2=» GLAZ,FARZ:GLASZONE;«, l3=0x17}
0x125b…1271 Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x1271…1286 Line {l1=0x13, l2=» HOVZ:HOVEDZONE;«, l3=0x13}
0x1286…129b Line {l1=0x13, l2=» KOMZ:KOMBIZONE;«, l3=0x13}
0x129b…12ae Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x12ae…12c6 Line {l1=0x16, l2=» VINDUE:VINDUEPOST;«, l3=0x16}
0x12c6…12de Line {l1=0x16, l2=» MAXMÅL:MAXMÅLPOST;«, l3=0x16}
0x12de…12f8 Line {l1=0x18, l2=» GLAS,FARVE:GLASPOST;«, l3=0x18}
0x12f8…1310 Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x1310…1326 Line {l1=0x14, l2=» HOVED:HOVEDPOST;«, l3=0x14}
0x1326…133c Line {l1=0x14, l2=» KOMBI:KOMBIPOST;«, l3=0x14}
0x133c…1351 Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x1351…1362 Line {l1=0x0f, l2=» FELT:NFELT;«, l3=0x0f}
0x1362…1377 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1377…13a3 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x13a3…13d9 Line {l1=0x34, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;«, l3=0x34}
0x13d9…13ec Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x13ec…13fe Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x13fe…1410 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x1410…1424 Line {l1=0x12, l2=» HOVED:BOOLEAN;«, l3=0x12}
0x1424…142c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x142c…1458 Line {l1=0x2a, l2=»SEGMENT PROCEDURE LÆSDESC(DESCNR:INTEGER);«, l3=0x2a}
0x1458…146e Line {l1=0x14, l2=»VAR DESCNAVN:STRING;«, l3=0x14}
0x146e…1481 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x1481…1488 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1488…149c Line {l1=0x12, l2=» IF DESCNR=1 THEN«, l3=0x12}
0x149c…14bd Line {l1=0x1f, l2=» DESCNAVN:='OINDDESC:P2:0:J'«, l3=0x1f}
0x14bd…14c5 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x14c5…14e7 Line {l1=0x20, l2=» DESCNAVN:='OLITDESC:P2:0:J';«, l3=0x20}
0x14e7…1502 Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x1502…1505 Line {l1=0x01, l2=» «, l3=0x01}
0x1505…1513 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x1513…151c Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x151c…1539 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x1539…1542 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1542…154f Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x154f…156b Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x156b…1594 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x1594…15ce Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x15ce…15d8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x15d8…15ef Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x15ef…1608 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x1608…1613 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1613…162e Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x162e…164f Line {l1=0x1f, l2=» FELTNAVN:=FFIL^.FELTNAVN;«, l3=0x1f}
0x164f…1670 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x1670…1691 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x1691…16b0 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x16b0…16cf Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x16cf…16f6 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x16f6…171d Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x171d…1740 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1740…1765 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x1765…1788 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x1788…17a9 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x17a9…17c6 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x17c6…17e3 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x17e3…1800 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x1800…182d Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x182d…1851 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1851…185e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x185e…1872 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1872…1889 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x1889…18af Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x18af…18ca Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x18ca…1903 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x1903…1934 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x1934…1964 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1964…197e Line {l1=0x18, l2=» END;«, l3=0x18}
0x197e…1999 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x1999…19d2 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x19d2…1a20 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x1a20…1a6d Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x1a6d…1a87 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1a87…1aa2 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x1aa2…1adb Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x1adb…1b0e Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x1b0e…1b40 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1b40…1b5a Line {l1=0x18, l2=» END;«, l3=0x18}
0x1b5a…1b8a Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x1b8a…1b98 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1b98…1bb7 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1bb7…1bda Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1bda…1c0e Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x1c0e…1c1a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c1a…1c35 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1c35…1c3f Line {l1=0x08, l2=» END;«, l3=0x08}
0x1c3f…1c4e Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x1c4e…1c56 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1c56…1c66 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1c66…1c78 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x1c78…1c7e Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c7e…1c86 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c86…1c8f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1c8f…1ca1 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x1ca1…1cae Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x1cae…1cbc Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x1cbc…1ce7 Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x1ce7…1cee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cee…1d23 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x1d23…1d3b Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x1d3b…1d53 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x1d53…1d6b Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x1d6b…1d7c Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1d7c…1d82 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d82…1dad Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x1dad…1dbd Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1dbd…1dc4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1dc4…1dd5 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1dd5…1e24 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x1e24…1e54 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1e54…1e8d Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1e8d…1ea9 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x1ea9…1eb8 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1eb8…1ebe Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ebe…1ec6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1ec6…1edf Line {l1=0x17, l2=»SEGMENT PROCEDURE INIT;«, l3=0x17}
0x1edf…1ee6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ee6…1ef6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1ef6…1f16 Line {l1=0x1e, l2=» HOVZ.H.FILENAME:='ORDREHOV';«, l3=0x1e}
0x1f16…1f36 Line {l1=0x1e, l2=» FNAVN:='ORDREHOV:P2:0000:I';«, l3=0x1e}
0x1f36…1f4e Line {l1=0x16, l2=» REWRITE(HOVF,FNAVN);«, l3=0x16}
0x1f4e…1f91 Line {l1=0x41, l2=» IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);«, l3=0x41}
0x1f91…1fb1 Line {l1=0x1e, l2=» OLIZ.H.FILENAME:='OLINIE ';«, l3=0x1e}
0x1fb1…1fcf Line {l1=0x1c, l2=» FNAVN:='OLINIE:P2:0000:I';«, l3=0x1c}
0x1fcf…1fe7 Line {l1=0x16, l2=» REWRITE(OLIF,FNAVN);«, l3=0x16}
0x1fe7…202a Line {l1=0x41, l2=» IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);«, l3=0x41}
0x202a…204a Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x204a…2068 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x2068…2080 Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x2080…20c3 Line {l1=0x41, l2=» IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x41}
0x20c3…20e3 Line {l1=0x1e, l2=» VINZ.H.FILENAME:='VINDUE ';«, l3=0x1e}
0x20e3…2101 Line {l1=0x1c, l2=» FNAVN:='VINDUE:P2:0000:I';«, l3=0x1c}
0x2101…2119 Line {l1=0x16, l2=» REWRITE(VINF,FNAVN);«, l3=0x16}
0x2119…215a Line {l1=0x3f, l2=» IOPEN(VINZ.H,VINF,LÆS);IF IER<>0 THEN OFEJL(VINZ.H.FILENAME);«, l3=0x3f}
0x215a…217a Line {l1=0x1e, l2=» MAXZ.H.FILENAME:='MAXMÅL ';«, l3=0x1e}
0x217a…2198 Line {l1=0x1c, l2=» FNAVN:='MAXMÅL:P2:0000:I';«, l3=0x1c}
0x2198…21b0 Line {l1=0x16, l2=» REWRITE(MAXF,FNAVN);«, l3=0x16}
0x21b0…21f1 Line {l1=0x3f, l2=» IOPEN(MAXZ.H,MAXF,LÆS);IF IER<>0 THEN OFEJL(MAXZ.H.FILENAME);«, l3=0x3f}
0x21f1…2211 Line {l1=0x1e, l2=» GLAZ.H.FILENAME:='GLAS ';«, l3=0x1e}
0x2211…222d Line {l1=0x1a, l2=» FNAVN:='GLAS:P2:0000:I';«, l3=0x1a}
0x222d…2245 Line {l1=0x16, l2=» REWRITE(GLAF,FNAVN);«, l3=0x16}
0x2245…2286 Line {l1=0x3f, l2=» IOPEN(GLAZ.H,GLAF,LÆS);IF IER<>0 THEN OFEJL(GLAZ.H.FILENAME);«, l3=0x3f}
0x2286…22a6 Line {l1=0x1e, l2=» FARZ.H.FILENAME:='FARVE ';«, l3=0x1e}
0x22a6…22c3 Line {l1=0x1b, l2=» FNAVN:='FARVE:P2:0000:I';«, l3=0x1b}
0x22c3…22db Line {l1=0x16, l2=» REWRITE(FARF,FNAVN);«, l3=0x16}
0x22db…231c Line {l1=0x3f, l2=» IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);«, l3=0x3f}
0x231c…233c Line {l1=0x1e, l2=» KOMZ.H.FILENAME:='KOMBINAT';«, l3=0x1e}
0x233c…235c Line {l1=0x1e, l2=» FNAVN:='KOMBINAT:P2:0000:I';«, l3=0x1e}
0x235c…2374 Line {l1=0x16, l2=» REWRITE(KOMF,FNAVN);«, l3=0x16}
0x2374…23b4 Line {l1=0x3e, l2=» IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME)«, l3=0x3e}
0x23b4…23ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x23ba…23ca Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x23ca…23d7 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x23d7…23e7 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x23e7…23f7 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x23f7…2406 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x2406…2414 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x2414…2422 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x2422…2431 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x2431…243f Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x243f…2447 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2447…246b Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x246b…247e Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x247e…2497 Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x2497…24af Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x24af…24b6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24b6…24c2 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x24c2…24dd Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x24dd…24f1 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x24f1…250b Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x250b…2539 Line {l1=0x2c, l2=» TAL:=ABS(HOVED.A(F^.INDEKS));«, l3=0x2c}
0x2539…2550 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2550…257d Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x257d…25a6 Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x25a6…25c8 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x25c8…25e5 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x25e5…262d Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x262d…2671 Line {l1=0x42, l2=» IF HOVED.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x42}
0x2671…2684 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2684…2698 Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x2698…26b2 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x26b2…2700 Line {l1=0x4c, l2=» RESULT:=ABS(HOVED.A(F^.INDEKS)*10000.0+HOVED.A(F^.INDEKS+1));«, l3=0x4c}
0x2700…2721 Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x2721…2738 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2738…2762 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2762…278e Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x278e…27aa Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x27aa…27d4 Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x27d4…27eb Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x27eb…280c Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x280c…2835 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2835…285f Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x285f…288b Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x288b…28a9 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x28a9…28c8 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x28c8…2910 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2910…295c Line {l1=0x4a, l2=» IF HOVED.A(F^.INDEKS)*10000.0+HOVED.A(F^.INDEKS+1)<0.0 THEN«, l3=0x4a}
0x295c…2985 Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x2985…2998 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2998…29ac Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x29ac…29c6 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x29c6…2a03 Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x2a03…2a19 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2a19…2a3f Line {l1=0x24, l2=» CH(1):=HOVED.AA(I);«, l3=0x24}
0x2a3f…2a67 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x2a67…2a7b Line {l1=0x12, l2=» END«, l3=0x12}
0x2a7b…2a8e Line {l1=0x11, l2=» END;«, l3=0x11}
0x2a8e…2aa2 Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x2aa2…2ad5 Line {l1=0x31, l2=» RESULT:=ABS(HOVED.AAA(F^.INDEKS));«, l3=0x31}
0x2ad5…2af3 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2af3…2b12 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2b12…2b2c Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x2b2c…2b41 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2b41…2b57 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2b57…2b72 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x2b72…2bc0 Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x2bc0…2bd5 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2bd5…2bef Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2bef…2c13 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2c13…2c29 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2c29…2c4f Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x2c4f…2c68 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x2c68…2c94 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x2c94…2cc2 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2cc2…2ce2 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2ce2…2d18 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2d18…2d2c Line {l1=0x12, l2=» END«, l3=0x12}
0x2d2c…2d41 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2d41…2d57 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2d57…2d72 Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x2d72…2daa Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x2daa…2dd4 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2dd4…2e00 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2e00…2e1e Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2e1e…2e33 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2e33…2e4a Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2e4a…2e6b Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2e6b…2e94 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2e94…2ecc Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x2ecc…2ef6 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2ef6…2f22 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2f22…2f40 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2f40…2f5f Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x2f5f…2fa7 Line {l1=0x46, l2=» IF HOVED.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x46}
0x2fa7…2fb9 Line {l1=0x10, l2=» END«, l3=0x10}
0x2fb9…2fc4 Line {l1=0x09, l2=» END«, l3=0x09}
0x2fc4…2fca Line {l1=0x04, l2=»END;«, l3=0x04}
0x2fca…2fd2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2fd2…2ff5 Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x2ff5…2ffc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2ffc…3021 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x3021…3029 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3029…304b Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x304b…3067 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x3067…3079 Line {l1=0x10, l2=» MOVETOLINE(F);«, l3=0x10}
0x3079…308b Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x308b…3091 Line {l1=0x04, l2=» END«, l3=0x04}
0x3091…3097 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3097…309f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x309f…30c0 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x30c0…30d9 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x30d9…30e9 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x30e9…30fe Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x30fe…3101 Line {l1=0x01, l2=» «, l3=0x01}
0x3101…3109 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3109…311e Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x311e…312f Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x312f…314c Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x314c…315a Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x315a…315d Line {l1=0x01, l2=» «, l3=0x01}
0x315d…3164 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3164…316e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x316e…317e Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x317e…3190 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x3190…319d Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x319d…31ab Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x31ab…31c7 Line {l1=0x1a, l2=» GOTOXY(1,F^.INDPOS.Y);«, l3=0x1a}
0x31c7…31dd Line {l1=0x14, l2=» WRITELN(' ':79);«, l3=0x14}
0x31dd…3203 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x3203…323d Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x323d…327a Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x327a…328a Line {l1=0x0e, l2=» LINE:='0';«, l3=0x0e}
0x328a…32a5 Line {l1=0x19, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x19}
0x32a5…32e8 Line {l1=0x41, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);«, l3=0x41}
0x32e8…3301 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x3301…3309 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x3309…332e Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x332e…3339 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3339…334a Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x334a…3371 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x3371…338e Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x338e…33b0 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x33b0…33be Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x33be…33e0 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x33e0…33ea Line {l1=0x08, l2=» END;«, l3=0x08}
0x33ea…33fb Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x33fb…3417 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3417…3422 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3422…342f Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x342f…3442 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x3442…345d Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x345d…346a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x346a…3480 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3480…348e Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x348e…349a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x349a…34b9 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x34b9…34c6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34c6…34d9 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x34d9…34ea Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x34ea…3519 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x3519…3528 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3528…353e Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x353e…3559 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3559…3567 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3567…3592 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x3592…359e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x359e…35bd Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x35bd…35cf Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x35cf…35ea Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x35ea…3636 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x3636…3666 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x3666…367b Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x367b…36a8 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x36a8…36d9 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x36d9…36ec Line {l1=0x11, l2=» END«, l3=0x11}
0x36ec…370a Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x370a…3715 Line {l1=0x09, l2=» END«, l3=0x09}
0x3715…372d Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x372d…3734 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x3734…3750 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3750…375b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x375b…3768 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x3768…377b Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x377b…378c Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x378c…37a7 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x37a7…37b4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37b4…37ca Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x37ca…37d8 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x37d8…37e4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x37e4…3812 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x3812…381f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x381f…3832 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x3832…3843 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3843…386c Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x386c…3899 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x3899…38a7 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x38a7…38d7 Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x38d7…38ea Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x38ea…38f8 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x38f8…3907 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3907…391d Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x391d…3938 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3938…3945 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3945…3951 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3951…3961 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3961…3980 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3980…398d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x398d…399e Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x399e…39b4 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x39b4…39dd Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x39dd…39ec Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x39ec…3a1c Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x3a1c…3a34 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x3a34…3a41 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3a41…3a4f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3a4f…3a5e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3a5e…3a74 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3a74…3a8f Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3a8f…3a9c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3a9c…3aa8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3aa8…3ac7 Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x3ac7…3aec Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x3aec…3af5 Line {l1=0x07, l2=» END«, l3=0x07}
0x3af5…3b08 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x3b08…3b11 Line {l1=0x07, l2=» END«, l3=0x07}
0x3b11…3b1d Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x3b1d…3b23 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3b23…3b2b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3b2b…3b40 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x3b40…3b65 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x3b65…3b88 Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x3b88…3b8f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3b8f…3bae Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3bae…3bbc Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x3bbc…3bed Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3bed…3bfb Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x3bfb…3c3b Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x3c3b…3c7a Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x3c7a…3c88 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x3c88…3cc1 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3cc1…3cca Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x3cca…3ce6 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3ce6…3cf1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3cf1…3d22 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x3d22…3d56 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x3d56…3d89 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x3d89…3dd7 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3dd7…3df1 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3df1…3e06 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3e06…3e35 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x3e35…3e80 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x3e80…3e8b Line {l1=0x09, l2=» END«, l3=0x09}
0x3e8b…3e94 Line {l1=0x07, l2=» END«, l3=0x07}
0x3e94…3eac Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x3eac…3eb4 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x3eb4…3ed1 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x3ed1…3edc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3edc…3f0e Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x3f0e…3f2d Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x3f2d…3f4d Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x3f4d…3f6a Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x3f6a…3fb8 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3fb8…3fd2 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3fd2…3fe7 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3fe7…4016 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x4016…4060 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x4060…406c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x406c…4086 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x4086…4093 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4093…40e2 Line {l1=0x4d, l2=» MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+«, l3=0x4d}
0x40e2…410c Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x410c…413b Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x413b…4146 Line {l1=0x09, l2=» END«, l3=0x09}
0x4146…414f Line {l1=0x07, l2=» END«, l3=0x07}
0x414f…4167 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x4167…416e Line {l1=0x05, l2=» END«, l3=0x05}
0x416e…4174 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4174…417c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x417c…4185 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x4185…419c Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x419c…41a3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x41a3…41ad Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x41ad…41c1 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x41c1…41d8 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x41d8…41e7 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x41e7…41fa Line {l1=0x11, l2=» IF HOVED THEN«, l3=0x11}
0x41fa…4205 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4205…423e Line {l1=0x37, l2=» IF (RESULT=0.0) AND ((FELTNR=2) OR (FELTNR=4)) THEN«, l3=0x37}
0x423e…4249 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4249…425a Line {l1=0x0f, l2=» VAL:=NIL;«, l3=0x0f}
0x425a…4273 Line {l1=0x17, l2=» TAL:=SYSTEM.A(3);«, l3=0x17}
0x4273…428c Line {l1=0x17, l2=» TAL1:=SYSTEM.A(4)«, l3=0x17}
0x428c…4295 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x429e…42a8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x42a8…42b3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x42b3…42e2 Line {l1=0x2d, l2=» IF (FELTNR=2) AND (TAL=0) THEN VAL:=NIL«, l3=0x2d}
0x42e2…42ec Line {l1=0x08, l2=» END;«, l3=0x08}
0x42ec…4316 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x4316…4321 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4321…4332 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x4332…434c Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x434c…4356 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4356…4380 Line {l1=0x28, l2=» IF (NOT BUMMED) AND (NOT HOVED) THEN«, l3=0x28}
0x4380…4394 Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x4394…43a1 Line {l1=0x0b, l2=» 1:BEGIN«, l3=0x0b}
0x43a1…43c5 Line {l1=0x22, l2=» MAPOST.MEDARBEJDERNR:=TAL;«, l3=0x22}
0x43c5…43ea Line {l1=0x23, l2=» GETREC(MAZ.H,MAF,MAPOST.A);«, l3=0x23}
0x43ea…4429 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(MAZ.H.FILENAME);«, l3=0x3d}
0x4429…4443 Line {l1=0x18, l2=» BUMMED:=(IER=-6)«, l3=0x18}
0x4443…444e Line {l1=0x09, l2=» END«, l3=0x09}
0x444e…4457 Line {l1=0x07, l2=» END«, l3=0x07}
0x4457…445d Line {l1=0x04, l2=» *)«, l3=0x04}
0x445d…4466 Line {l1=0x07, l2=» END«, l3=0x07}
0x4466…447b Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x447b…448d Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x448d…44b6 Line {l1=0x27, l2=» 1,3,5,14,16: HOVED.A(F^.INDEKS):=TAL;«, l3=0x27}
0x44b6…44c7 Line {l1=0x0f, l2=» 2,4,6,9:BEGIN«, l3=0x0f}
0x44c7…44ed Line {l1=0x24, l2=» HOVED.A(F^.INDEKS):=TAL;«, l3=0x24}
0x44ed…4515 Line {l1=0x26, l2=» HOVED.A(F^.INDEKS+1):=TAL1«, l3=0x26}
0x4515…4525 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4525…4554 Line {l1=0x2d, l2=» 7,8,10,11,12,13,15:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x2d}
0x4554…458e Line {l1=0x38, l2=» HOVED.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x38}
0x458e…4595 Line {l1=0x05, l2=» END«, l3=0x05}
0x4595…459b Line {l1=0x04, l2=»END;«, l3=0x04}
0x459b…45a3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x45a3…45b8 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x45b8…45cb Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x45cb…45ea Line {l1=0x1d, l2=» ENHEDER,CENTIMER:INTEGER;«, l3=0x1d}
0x45ea…45f9 Line {l1=0x0d, l2=» LØN:REAL;«, l3=0x0d}
0x45f9…4616 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x4616…4624 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x4624…462b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x462b…4644 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x4644…4657 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x4657…466f Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x466f…4675 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4675…467c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x467c…468c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x468c…469b Line {l1=0x0d, l2=» FELTNR:=16;«, l3=0x0d}
0x469b…46b8 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1b}
0x46b8…46d1 Line {l1=0x17, l2=» IF HOVED.A(13)=1 THEN«, l3=0x17}
0x46d1…46e6 Line {l1=0x13, l2=» BEGIN (*ORDRE*)«, l3=0x13}
0x46e6…46f6 Line {l1=0x0e, l2=» FELTNR:=1;«, l3=0x0e}
0x46f6…4715 Line {l1=0x1d, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1d}
0x4715…472f Line {l1=0x18, l2=» IF HOVED.A(1)>0 THEN«, l3=0x18}
0x472f…473a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x473a…475e Line {l1=0x22, l2=» GETREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x22}
0x475e…479c Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(HOVZ.H.FILENAME);«, l3=0x3c}
0x479c…47c7 Line {l1=0x29, l2=» IF (IER=0) AND (HOVED.A(13)=0) THEN«, l3=0x29}
0x47c7…47ef Line {l1=0x26, l2=» BEGIN (*ORDREN VAR OPRETTET*)«, l3=0x26}
0x47ef…4805 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x4805…481e Line {l1=0x17, l2=» HOVED.A(13):=1;«, l3=0x17}
0x481e…485a Line {l1=0x3a, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x3a}
0x485a…486a Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x486a…487e Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x487e…4897 Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x4897…48bf Line {l1=0x26, l2=» WRITELN('Rigtig ordre J/N');«, l3=0x26}
0x48bf…48e1 Line {l1=0x20, l2=» GOTOXY(18,23);EDIT(CH)«, l3=0x20}
0x48e1…4906 Line {l1=0x23, l2=» UNTIL (CH='J') OR (CH='N');«, l3=0x23}
0x4906…491e Line {l1=0x16, l2=» IF CH='J' THEN«, l3=0x16}
0x491e…492d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x492d…4979 Line {l1=0x4a, l2=» FELTNR:=2; LÆSFELT(PICTURE(FELTNR)); SKRIVFELT(PICTURE(FELTNR));«, l3=0x4a}
0x4979…498b Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x498b…499f Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x499f…49bc Line {l1=0x1b, l2=» GOTOXY(1,23);«, l3=0x1b}
0x49bc…49ff Line {l1=0x41, l2=» WRITELN('Ændring af feltnr (0 for færdig)',' ':47);«, l3=0x41}
0x49ff…4a1d Line {l1=0x1c, l2=» GOTOXY(34,23);«, l3=0x1c}
0x4a1d…4a62 Line {l1=0x43, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x43}
0x4a62…4aa4 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x40}
0x4aa4…4acd Line {l1=0x27, l2=» IF FELTNR IN (.2..15.) THEN«, l3=0x27}
0x4acd…4ae0 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4ae0…4b09 Line {l1=0x27, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x27}
0x4b09…4b33 Line {l1=0x28, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x28}
0x4b33…4b44 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4b44…4b60 Line {l1=0x1a, l2=» UNTIL FELTNR=0;«, l3=0x1a}
0x4b60…4b88 Line {l1=0x26, l2=» PUTREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x26}
0x4b88…4bba Line {l1=0x30, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);«, l3=0x30}
0x4bba…4bef Line {l1=0x33, l2=» OLINIE.A(13):=HOVED.A(1);OLINIE.A(14):=0;«, l3=0x33}
0x4bef…4c19 Line {l1=0x28, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x28}
0x4c19…4c54 Line {l1=0x39, l2=» IF IER<>-1 THEN ERROR(OLIZ.H.FILENAME); IER:=0;«, l3=0x39}
0x4c54…4c8e Line {l1=0x38, l2=» WHILE (IER=0) AND (OLINIE.A(13)=HOVED.A(1)) DO«, l3=0x38}
0x4c8e…4c9f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4c9f…4cbd Line {l1=0x1c, l2=» OLINIE.A(38):=1;«, l3=0x1c}
0x4cbd…4ce8 Line {l1=0x29, l2=» PUTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x29}
0x4ce8…4d1c Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);«, l3=0x32}
0x4d1c…4d47 Line {l1=0x29, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A)«, l3=0x29}
0x4d47…4d57 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4d57…4da6 Line {l1=0x4d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OLIZ.H.FILENAME)«, l3=0x4d}
0x4da6…4db3 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4db3…4dbe Line {l1=0x09, l2=» END«, l3=0x09}
0x4dbe…4dca Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x4dca…4dd7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4dd7…4dee Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x4dee…4e07 Line {l1=0x17, l2=» IF IER=-6 THEN«, l3=0x17}
0x4e07…4e41 Line {l1=0x38, l2=» WRITE('Tilbuddet findes ikke, RETURN ')«, l3=0x38}
0x4e41…4e4f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4e4f…4e8a Line {l1=0x39, l2=» WRITE('Ordren er allerede inde, RETURN ');«, l3=0x39}
0x4e8a…4e9a Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x4e9a…4ea6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4ea6…4eaf Line {l1=0x07, l2=» END«, l3=0x07}
0x4eaf…4eb7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4eb7…4ee5 Line {l1=0x2c, l2=» IF (HOVED.A(13)=0) OR (HOVED.A(1)=0) THEN«, l3=0x2c}
0x4ee5…4eee Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4eee…4f0d Line {l1=0x1d, l2=» HOVED.A(1):= SYSTEM.A(2);«, l3=0x1d}
0x4f0d…4f2e Line {l1=0x1f, l2=» SYSTEM.A(2):=SYSTEM.A(2)+1;«, l3=0x1f}
0x4f2e…4f49 Line {l1=0x19, l2=» IF HOVED.A(13)=1 THEN«, l3=0x19}
0x4f49…4f54 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4f54…4f7f Line {l1=0x29, l2=» FELTNR:=2;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x4f7f…4f95 Line {l1=0x14, l2=» HOVED.A(5):=0;«, l3=0x14}
0x4f95…4faa Line {l1=0x13, l2=» HOVED.A(6):=0«, l3=0x13}
0x4faa…4fb3 Line {l1=0x07, l2=» END«, l3=0x07}
0x4fb3…4fbd Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4fbd…4fc8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4fc8…4ff3 Line {l1=0x29, l2=» FELTNR:=4;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x4ff3…5009 Line {l1=0x14, l2=» HOVED.A(2):=0;«, l3=0x14}
0x5009…501e Line {l1=0x13, l2=» HOVED.A(3):=0«, l3=0x13}
0x501e…5028 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5028…5049 Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x5049…5072 Line {l1=0x27, l2=» FELTNR:=3;LÆSFELT(PICTURE(FELTNR));«, l3=0x27}
0x5072…5093 Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x5093…50cf Line {l1=0x3a, l2=» FOR FELTNR:=5 TO 15 DO BEGIN LÆSFELT(PICTURE(FELTNR));«, l3=0x3a}
0x50cf…510c Line {l1=0x3b, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x3b}
0x510c…512d Line {l1=0x1f, l2=» END;«, l3=0x1f}
0x512d…513f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x513f…5177 Line {l1=0x36, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x36}
0x5177…5183 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5183…5191 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x5191…51a8 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x51a8…51e5 Line {l1=0x3b, l2=» WRITELN('Ændring af feltnr (0 for færdig)',' ':47);«, l3=0x3b}
0x51e5…51fd Line {l1=0x16, l2=» GOTOXY(34,23);«, l3=0x16}
0x51fd…523c Line {l1=0x3d, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x3d}
0x523c…5278 Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x3a}
0x5278…529b Line {l1=0x21, l2=» IF FELTNR IN (.2..15.) THEN«, l3=0x21}
0x529b…52a8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x52a8…52cb Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x21}
0x52cb…52ef Line {l1=0x22, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x22}
0x52ef…52fa Line {l1=0x09, l2=» END«, l3=0x09}
0x52fa…5310 Line {l1=0x14, l2=» UNTIL FELTNR=0;«, l3=0x14}
0x5310…5332 Line {l1=0x20, l2=» INSERT(HOVZ.H,HOVF,HOVED.A);«, l3=0x20}
0x5332…535d Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME)«, l3=0x29}
0x535d…5365 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5365…536b Line {l1=0x04, l2=»END;«, l3=0x04}
0x536b…5374 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x5374…537c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x537c…5383 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5383…538c Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x538c…539f Line {l1=0x11, l2=» SYSTEM.A(1):=1;«, l3=0x11}
0x539f…53c0 Line {l1=0x1f, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x53c0…53ea Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x53ea…53f4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x53f4…5406 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x5406…5414 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x5414…5427 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x5427…5450 Line {l1=0x27, l2=» WRITELN('Flere tilbud/ordrer J/N');«, l3=0x27}
0x5450…546d Line {l1=0x1b, l2=» GOTOXY(28,23);EDIT(CH);«, l3=0x1b}
0x546d…548a Line {l1=0x1b, l2=» IF CH='J' THEN MAINTAIN«, l3=0x1b}
0x548a…549b Line {l1=0x0f, l2=» UNTIL CH='N';«, l3=0x0f}
0x549b…54bc Line {l1=0x1f, l2=» PUTREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x54bc…54c0 28 20 20 49 ┆( I┆
0x54c0…54e0 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 28 53 59 53 5a 2e 48 2e 46 49 4c 45 4e ┆F IER<>0 THEN ERROR(SYSZ.H.FILEN┆
0x54e0…5500 57 0f 13 38 33 30 30 20 45 58 45 43 20 53 4b 52 49 56 50 49 43 54 13 12 38 33 31 30 20 46 4f 52 ┆W 8300 EXEC SKRIVPICT 8310 FOR┆
0x5500…5520 20 4a 3d 31 20 54 4f 20 32 31 12 1e 38 33 32 30 20 49 46 20 4a 3d 37 20 41 4e 44 20 45 33 3d 30 ┆ J=1 TO 21 8320 IF J=7 AND E3=0┆
0x5520…5540 20 54 48 45 4e 20 4a 3d 54 49 1e 12 38 33 33 30 20 45 58 45 43 20 49 4e 4f 50 4c 28 4a 29 12 0b ┆ THEN J=TI 8330 EXEC INOPL(J) ┆
0x5540…5560 38 33 34 30 20 4e 45 58 54 20 4a 0b 0a 38 33 35 30 20 4b 31 3d 37 32 0a 09 38 33 35 35 20 4a 36 ┆8340 NEXT J 8350 K1=72 8355 J6┆
0x5560…5580 3d 30 09 09 38 33 36 30 20 46 38 3d 30 09 0c 38 33 37 30 20 46 30 24 3d 45 39 24 0c 1c 38 33 37 ┆=0 8360 F8=0 8370 F0$=E9$ 837┆
0x5580…55a0 32 20 50 55 54 20 44 39 24 3a 41 37 24 2c 41 38 24 2c 41 39 24 2c 42 30 24 1c 14 38 33 37 34 20 ┆2 PUT D9$:A7$,A8$,A9$,B0$ 8374 ┆
0x55a0…55c0 50 55 54 20 45 30 24 3a 41 37 24 2c 41 38 24 14 0f 38 33 37 36 20 50 55 54 20 45 31 24 3a 49 36 ┆PUT E0$:A7$,A8$ 8376 PUT E1$:I6┆
0x55c0…55e0 0f 0d 38 33 38 30 20 4f 55 54 50 55 54 20 50 0d 0c 38 33 39 30 20 52 45 50 45 41 54 20 0c 0f 38 ┆ 8380 OUTPUT P 8390 REPEAT 8┆
0x55e0…5600 34 30 30 20 45 58 45 43 20 4e 5b 53 54 45 0f 12 38 34 31 30 20 4c 33 2c 4c 34 2c 4b 32 2c 4b 39 ┆400 EXEC NÆSTE 8410 L3,L4,K2,K9┆
0x5600…5620 3d 30 12 30 38 34 31 32 20 43 37 24 3d 42 33 24 28 33 3a 54 49 29 2b 42 33 24 28 33 3a 54 49 29 ┆=0 08412 C7$=B3$(3:TI)+B3$(3:TI)┆
0x5620…5640 2b 42 33 24 28 33 3a 54 49 29 2b 42 33 24 28 33 3a 54 49 29 30 16 38 34 31 34 20 43 38 24 3d 43 ┆+B3$(3:TI)+B3$(3:TI)0 8414 C8$=C┆
0x5640…5660 37 24 2b 42 33 24 28 33 3a 54 49 29 16 0c 38 34 31 36 20 42 36 24 3d 43 38 24 0c 0d 38 34 31 37 ┆7$+B3$(3:TI) 8416 B6$=C8$ 8417┆
0x5660…5680 20 42 36 31 24 3d 42 36 24 0d 14 38 34 32 30 20 49 46 20 46 38 3c 3d 49 39 20 54 48 45 4e 20 14 ┆ B61$=B6$ 8420 IF F8<=I9 THEN ┆
0x5680…56a0 12 38 34 33 30 20 49 46 20 45 33 3d 31 20 54 48 45 4e 20 12 08 38 34 34 30 20 4a 3d 31 08 0c 38 ┆ 8430 IF E3=1 THEN 8440 J=1 8┆
0x56a0…56c0 34 35 30 20 52 45 50 45 41 54 20 0c 26 38 34 36 30 20 49 46 20 41 31 28 4a 29 3d 46 38 20 4f 52 ┆450 REPEAT &8460 IF A1(J)=F8 OR┆
0x56c0…56e0 20 41 31 28 4a 29 3d 2d 31 20 54 48 45 4e 20 4a 3d 54 49 26 0a 38 34 37 30 20 4a 3d 4a 2b 31 0a ┆ A1(J)=-1 THEN J=TI& 8470 J=J+1 ┆
0x56e0…5700 0e 38 34 38 30 20 55 4e 54 49 4c 20 4a 3e 33 0e 12 38 34 39 30 20 49 46 20 4a 3d 45 4c 20 54 48 ┆ 8480 UNTIL J>3 8490 IF J=EL TH┆
0x5700…5720 45 4e 20 12 13 38 35 30 30 20 45 58 45 43 20 42 45 52 45 47 4e 4c 5c 4e 13 0b 38 35 32 30 20 45 ┆EN 8500 EXEC BEREGNLØN 8520 E┆
0x5720…5740 4e 44 49 46 20 0b 0b 38 35 33 30 20 45 4e 44 49 46 20 0b 12 38 35 34 30 20 49 46 20 45 34 3d 31 ┆NDIF 8530 ENDIF 8540 IF E4=1┆
0x5740…5760 20 54 48 45 4e 20 12 17 38 35 35 30 20 4b 33 3d 4f 52 44 28 44 32 24 28 32 32 29 29 2d 34 38 17 ┆ THEN 8550 K3=ORD(D2$(22))-48 ┆
0x5760…5780 12 38 35 36 30 20 49 46 20 4b 33 3c 34 20 54 48 45 4e 20 12 24 38 35 37 30 20 49 46 20 41 32 28 ┆ 8560 IF K3<4 THEN $8570 IF A2(┆
0x5780…57a0 4b 33 29 3d 46 38 20 4f 52 20 41 32 28 4b 33 29 3d 2d 31 20 54 48 45 4e 20 24 15 38 35 38 30 20 ┆K3)=F8 OR A2(K3)=-1 THEN $ 8580 ┆
0x57a0…57c0 45 58 45 43 20 42 45 52 45 47 4e 46 45 52 49 45 15 09 38 35 39 30 20 4b 39 3d 31 09 0b 38 36 30 ┆EXEC BEREGNFERIE 8590 K9=1 860┆
0x57c0…57e0 30 20 45 4e 44 49 46 20 0b 0b 38 36 31 30 20 45 4e 44 49 46 20 0b 0b 38 36 32 30 20 45 4e 44 49 ┆0 ENDIF 8610 ENDIF 8620 ENDI┆
0x57e0…5800 46 20 0b 12 38 36 33 30 20 49 46 20 45 35 3d 31 20 54 48 45 4e 20 12 17 38 36 34 30 20 4b 33 3d ┆F 8630 IF E5=1 THEN 8640 K3=┆
0x5800…5820 4f 52 44 28 44 32 24 28 32 33 29 29 2d 34 38 17 12 38 36 35 30 20 49 46 20 4b 33 3c 34 20 54 48 ┆ORD(D2$(23))-48 8650 IF K3<4 TH┆
0x5820…5840 45 4e 20 12 24 38 36 36 30 20 49 46 20 41 33 28 4b 33 29 3d 46 38 20 4f 52 20 41 33 28 4b 33 29 ┆EN $8660 IF A3(K3)=F8 OR A3(K3)┆
0x5840…5860 3d 2d 31 20 54 48 45 4e 20 24 12 38 36 37 30 20 45 58 45 43 20 42 45 52 45 47 4e 53 48 12 09 38 ┆=-1 THEN $ 8670 EXEC BEREGNSH 8┆
0x5860…5880 36 38 30 20 4c 34 3d 31 09 0b 38 36 39 30 20 45 4e 44 49 46 20 0b 0b 38 37 30 30 20 45 4e 44 49 ┆680 L4=1 8690 ENDIF 8700 ENDI┆
0x5880…58a0 46 20 0b 0b 38 37 31 30 20 45 4e 44 49 46 20 0b 15 38 37 32 30 20 49 46 20 4b 39 2a 4c 34 3d 31 ┆F 8710 ENDIF 8720 IF K9*L4=1┆
0x58a0…58c0 20 54 48 45 4e 20 15 1a 38 37 33 30 20 45 58 45 43 20 43 28 30 2c 43 30 24 2c 43 32 24 2c 43 33 ┆ THEN 8730 EXEC C(0,C0$,C2$,C3┆
0x58c0…58e0 24 29 1a 1a 38 37 33 31 20 45 58 45 43 20 43 28 34 2c 43 33 24 2c 42 33 24 2c 43 33 24 29 1a 13 ┆$) 8731 EXEC C(4,C3$,B3$,C3$) ┆
0x58e0…5900 38 37 33 32 20 49 46 20 53 49 3c 3e 30 20 54 48 45 4e 20 13 1a 38 37 34 30 20 45 58 45 43 20 43 ┆8732 IF SI<>0 THEN 8740 EXEC C┆
0x5900…5920 28 32 2c 43 30 24 2c 42 34 24 2c 43 34 24 29 1a 1a 38 37 35 30 20 45 58 45 43 20 43 28 33 2c 43 ┆(2,C0$,B4$,C4$) 8750 EXEC C(3,C┆
0x5920…5940 34 24 2c 43 33 24 2c 43 34 24 29 1a 1a 38 37 36 30 20 45 58 45 43 20 43 28 34 2c 43 34 24 2c 42 ┆4$,C3$,C4$) 8760 EXEC C(4,C4$,B┆
0x5940…5960 34 24 2c 43 33 24 29 1a 19 38 37 37 30 20 49 46 20 53 49 3d 32 20 54 48 45 4e 20 43 34 24 3d 42 ┆4$,C3$) 8770 IF SI=2 THEN C4$=B┆
0x5960…5980 34 24 19 0a 38 37 37 31 20 45 4c 53 45 20 0a 0c 38 37 37 32 20 43 34 24 3d 42 33 24 0c 0b 38 37 ┆4$ 8771 ELSE 8772 C4$=B3$ 87┆
0x5980…59a0 37 33 20 45 4e 44 49 46 20 0b 0b 38 37 38 30 20 50 52 49 4e 54 20 0b 34 38 37 39 30 20 50 52 49 ┆73 ENDIF 8780 PRINT 48790 PRI┆
0x59a0…59c0 4e 54 20 22 4e 65 74 74 6f 66 65 72 69 65 70 65 6e 67 65 6e 65 20 75 64 67 7c 72 20 22 3b 43 34 ┆NT "Nettoferiepengene udgør ";C4┆
0x59c0…59e0 24 28 36 2c 45 4c 29 3b 22 20 25 22 34 0c 38 38 30 30 20 4a 36 3d 4a 36 2b 32 0c 0b 38 38 31 30 ┆$(6,EL);" %"4 8800 J6=J6+2 8810┆
0x59e0…5a00 20 45 4e 44 49 46 20 0b 18 38 38 31 35 20 49 46 20 4b 32 2b 4b 39 2b 4c 34 3e 30 20 54 48 45 4e ┆ ENDIF 8815 IF K2+K9+L4>0 THEN┆
0x5a00…5a20 20 18 13 38 38 32 30 20 45 58 45 43 20 53 4b 52 49 56 42 55 4e 44 13 16 38 38 33 30 20 45 58 45 ┆ 8820 EXEC SKRIVBUND 8830 EXE┆
0x5a20…5a40 43 20 55 44 4c 5c 4e 4d 4f 44 28 46 38 29 16 0f 38 38 34 30 20 45 58 45 43 20 55 44 54 5b 4c 0f ┆C UDLØNMOD(F8) 8840 EXEC UDTÆL ┆
0x5a40…5a60 13 38 38 34 33 20 50 55 54 20 44 39 24 3a 46 38 2c 43 37 24 13 10 38 38 34 34 20 50 55 54 20 44 ┆ 8843 PUT D9$:F8,C7$ 8844 PUT D┆
0x5a60…5a80 39 24 3a 43 38 24 10 0b 38 38 34 35 20 45 4e 44 49 46 20 0b 12 38 38 34 36 20 49 46 20 4b 32 3d ┆9$:C8$ 8845 ENDIF 8846 IF K2=┆
0x5a80…5aa0 31 20 54 48 45 4e 20 12 13 38 38 34 37 20 50 55 54 20 45 30 24 3a 46 38 2c 42 36 24 13 14 38 38 ┆1 THEN 8847 PUT E0$:F8,B6$ 88┆
0x5aa0…5ac0 34 38 20 50 55 54 20 45 30 24 3a 46 38 2c 42 36 31 24 14 0b 38 38 34 39 20 45 4e 44 49 46 20 0b ┆48 PUT E0$:F8,B61$ 8849 ENDIF ┆
0x5ac0…5ae0 0b 38 38 35 30 20 45 4e 44 49 46 20 0b 11 38 38 36 30 20 55 4e 54 49 4c 20 46 38 3d 3e 49 39 11 ┆ 8850 ENDIF 8860 UNTIL F8=>I9 ┆
0x5ae0…5b00 15 38 38 36 31 20 50 55 54 20 44 39 24 3a 49 39 2b 31 2c 43 37 24 15 36 38 38 36 32 20 50 55 54 ┆ 8861 PUT D9$:I9+1,C7$ 68862 PUT┆
0x5b00…5b20 20 44 39 24 3a 45 32 24 28 31 29 2c 45 32 24 28 32 29 2c 45 32 24 28 33 29 2c 45 32 24 28 34 29 ┆ D9$:E2$(1),E2$(2),E2$(3),E2$(4)┆
0x5b20…5b40 2c 45 32 24 28 35 29 2c 45 32 24 28 36 29 36 39 38 38 36 34 20 50 55 54 20 44 39 24 3a 45 32 24 ┆,E2$(5),E2$(6)698864 PUT D9$:E2$┆
0x5b40…5b60 28 37 29 2c 45 32 24 28 38 29 2c 45 32 24 28 39 29 2c 45 32 24 28 54 49 29 2c 45 32 24 28 45 4c ┆(7),E2$(8),E2$(9),E2$(TI),E2$(EL┆
0x5b60…5b80 29 2c 45 32 24 28 31 32 29 39 2c 38 38 36 36 20 50 55 54 20 44 39 24 3a 45 32 24 28 31 33 29 2c ┆),E2$(12)9,8866 PUT D9$:E2$(13),┆
0x5b80…5ba0 45 32 24 28 31 34 29 2c 45 32 24 28 31 35 29 2c 45 32 24 28 31 36 29 2c 10 38 38 36 37 20 45 4e ┆E2$(14),E2$(15),E2$(16), 8867 EN┆
0x5ba0…5bc0 44 46 49 4c 45 20 45 30 24 10 10 38 38 36 38 20 45 4e 44 46 49 4c 45 20 45 31 24 10 0b 38 38 37 ┆DFILE E0$ 8868 ENDFILE E1$ 887┆
0x5bc0…5be0 30 20 43 4c 4f 53 45 20 0b 1c 38 38 38 30 20 43 48 41 49 4e 20 22 50 36 34 31 32 31 30 3a 4a 4f ┆0 CLOSE 8880 CHAIN "P641210:JO┆
0x5be0…5c00 55 52 4e 41 4c 22 1c 00 00 49 54 45 52 49 4e 47 3a 35 2c 4d 2e 20 20 20 20 20 20 20 20 20 20 20 ┆URNAL" ITERING:5,M. ┆
0x5c00…5c20 20 20 20 27 20 27 3a 35 2c 4e 49 56 45 41 55 44 28 4f 52 44 28 5b 4e 44 52 45 4e 49 56 45 41 55 ┆ ' ':5,NIVEAUD(ORD(ÆNDRENIVEAU┆
0x5c20…5c40 29 29 2c 2e 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 27 3a 31 31 2d 4c 45 4e 47 ┆)),.M ' ':11-LENG┆
0x5c40…5c60 54 48 28 4e 49 56 45 41 55 44 28 4f 52 44 28 5b 4e 44 52 45 4e 49 56 45 41 55 29 29 29 2c 55 44 ┆TH(NIVEAUD(ORD(ÆNDRENIVEAU))),UD┆
0x5c60…5c80 50 4f 53 2e 58 3a 35 2c 55 44 50 4f 53 2e 59 3a 35 2c 4d 4d 20 20 20 20 20 20 20 20 20 20 20 20 ┆POS.X:5,UDPOS.Y:5,MM ┆
0x5c80…5ca0 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 ┆ ┆
0x5ca0…5cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 4e 47 44 45 3a 37 2c 46 4f 52 41 4e 30 3a 37 29 ┆ LÆNGDE:7,FORAN0:7)┆
0x5cc0…5ce0 3b 4d 2d 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 35 2c 46 54 59 50 45 44 ┆;M- WRITE(LIST,' ':5,FTYPED┆
0x5ce0…5d00 28 4f 52 44 28 46 45 4c 54 54 59 50 45 29 29 2c 2d 3b 20 20 20 20 20 20 20 20 20 20 20 20 27 20 ┆(ORD(FELTTYPE)),-; ' ┆
0x5d00…5d20 27 3a 31 31 2d 4c 45 4e 47 54 48 28 46 54 59 50 45 44 28 4f 52 44 28 46 45 4c 54 54 59 50 45 29 ┆':11-LENGTH(FTYPED(ORD(FELTTYPE)┆
0x5d20…5d40 29 29 2c 49 4e 44 45 4b 53 3a 34 29 3b 3b 43 20 20 20 20 20 20 49 46 20 46 45 4c 54 54 59 50 45 ┆)),INDEKS:4);;C IF FELTTYPE┆
0x5d40…5d60 3d 52 45 45 4c 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 44 45 43 3a 31 32 29 20 ┆=REEL THEN WRITELN(LIST,DEC:12) ┆
0x5d60…5d80 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 43 08 20 20 20 20 45 4e 44 3b 08 19 20 20 ┆ELSE WRITELN(LIST)C END; ┆
0x5d80…5da0 20 20 46 45 4c 54 3a 3d 46 45 4c 54 5e 2e 4e 5b 53 54 45 56 41 4c 3b 19 16 20 20 20 20 57 48 49 ┆ FELT:=FELT^.NÆSTEVAL; WHI┆
0x5da0…5dc0 4c 45 20 46 45 4c 54 3c 3e 4e 49 4c 20 44 4f 16 09 20 20 20 20 42 45 47 49 4e 09 3a 20 20 20 20 ┆LE FELT<>NIL DO BEGIN : ┆
0x5dc0…5de0 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 44 28 46 ┆ WRITE(LIST,' ':15,VTYPED(ORD(F┆
0x5de0…5e00 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 20 20 20 ┆ELT^.VALIDITETSTYPE)),:> ┆
0x5e00…5e20 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 46 45 4c ┆ ' ':15-LENGTH(VTYPED(ORD(FEL┆
0x5e20…5e40 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 20 43 41 ┆T^.VALIDITETSTYPE))));>" CA┆
0x5e40…5e60 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 20 20 20 ┆SE FELT^.VALIDITETSTYPE OF"8 ┆
0x5e60…5e80 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 5e 2e 4d ┆ HINTERVAL:WRITELN(LIST,FELT^.M┆
0x5e80…5ea0 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 49 4e 54 ┆IN:12,FELT^.MAX:17);8A DINT┆
0x5ea0…5ec0 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 2a 31 30 ┆ERVAL:WRITELN(LIST,FELT^.MIN1*10┆
0x5ec0…5ee0 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 20 20 20 ┆000.0+FELT^.MIN2:12:-2,AI ┆
0x5ee0…5f00 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 46 45 4c ┆ FEL┆
0x5f00…5f20 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 3a 2d 32 ┆T^.MAX1*10000.0+FELT^.MAX2:17:-2┆
0x5f20…5f40 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 49 53 54 ┆);I> RINTERVAL:WRITELN(LIST┆
0x5f40…5f60 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 37 3a 32 ┆,FELT^.RMIN:12:2,FELT^.RMAX:17:2┆
0x5f60…5f80 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 49 53 54 ┆);> DATO,CPR: WRITELN(LIST┆
0x5f80…5fa0 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 4c 54 5e ┆) END; FELT:=FELT^┆
0x5fa0…5fc0 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 45 4c 4e ┆.NÆSTEVAL END; WRITELN┆
0x5fc0…5fe0 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 04 45 4e ┆(LIST) END; PAGE(LIST) EN┆
0x5fe0…6000 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 05 42 45 ┆D; (*$P*) (*HOVEDPROGRAM*) BE┆
0x6000…6020 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 4d 55 4c ┆GIN INIT; USERNIVEAU:=UMUL┆
0x6020…6040 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 46 45 4c ┆IUS; CLEARSCREEN; ANTALFEL┆
0x6040…6060 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 57 52 49 ┆TER:=0; FNAVN:='NONE'; WRI┆
0x6060…6080 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 31 31 2c ┆TELN('Input-fil'); GOTOXY(11,┆
0x6080…60a0 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 50 4f 53 ┆1); EDIT(FNAVN:16); ' IF POS┆
0x60a0…60c0 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 43 3b 27 ┆('NONE',FNAVN)<>1 THEN LÆSDESC;'┆
0x60c0…60e0 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 20 20 20 ┆ REPEAT CLEARSCREEN; . ┆
0x60e0…6100 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 62 65 73 ┆ WRITELN('1 Opbygning af feltbes┆
0x6100…6120 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 6e 64 72 ┆krivelse');.9 WRITELN('2 Ændr┆
0x6120…6140 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 69 76 65 ┆ing af eksisterende feltbeskrive┆
0x6140…6160 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 72 69 6e ┆lse');9 WRITELN('3 Simulerin┆
0x6160…6180 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 73 65 20 ┆g'); ' WRITELN('4 Oprettelse ┆
0x6180…61a0 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 20 50 72 ┆af datafil');'4 WRITELN('5 Pr┆
0x61a0…61c0 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 6c 73 65 ┆interudskrift af feltbeskrivelse┆
0x61c0…61e0 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 18 0a 20 ┆');4 WRITELN('Vælg 0-5'); ┆
0x61e0…6200 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 3b 13 14 ┆ REPEAT GOTOXY(12,6); ┆
0x6200…6220 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 49 4c 20 ┆ READLN;READ(I) UNTIL ┆
0x6220…6240 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 49 20 4f ┆(I>=0) AND (I<=5); CASE I O┆
0x6240…6260 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 4e 50 44 ┆F 1:CREATEPD; 2:MAINPD┆
0x6260…6280 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 53 54 3b ┆; 3:BEGIN NULPOST;┆
0x6280…62a0 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 20 52 45 ┆ SKRIVPOST; RE┆
0x62a0…62c0 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 20 20 20 ┆PEAT READLN; $ ┆
0x62c0…62e0 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 24 20 20 ┆ FOR I:=1 TO ANTALFELTER DO$ ┆
0x62e0…6300 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 29 3b 20 ┆ LÆSFELT(PICTURE(I)); ┆
0x6300…6320 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 20 20 20 ┆ READLN;READ(I); ! ┆
0x6320…6340 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 21 12 20 ┆ IF I<>-1 THEN SKRIVPOST! ┆
0x6340…6360 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 0a 0c 20 ┆ UNTIL I=-1 END; ┆
0x6360…6380 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 20 20 20 ┆ 4:OPRET; 5:LISTDESC ┆
0x6380…63a0 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 52 45 45 ┆ END UNTIL I=0; CLEARSCREE┆
0x63a0…63c0 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 0f 20 20 ┆N; WRITELN('Output-fil'); ┆
0x63c0…63e0 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 36 29 3b ┆GOTOXY(12,1); EDIT(FNAVN:16);┆
0x63e0…6400 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 20 20 27 ┆ . IF FNAVN<>' '┆
0x6400…6420 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 00 00 20 ┆ THEN SKRIVDESC;. END. ┆
0x6420…6440 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆ 0+ -3 0+ 0+┆
0x6440…6460 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 ┆ 0+ 0+ 0+ 3┆
0x6460…6480 2d 06 90 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 ┆- 0+ 0+ ┆
0x6480…64a0 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 ┆ 0+ 0+ -3 0+ ┆
0x64a0…64c0 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x64c0…64e0 30 2b 00 33 2d 06 94 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 ┆0+ 3- 0+ 0+ ┆
0x64e0…6500 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 ┆ 0+ 0+ -3 0+ ┆
0x6500…6520 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x6520…6540 20 20 20 20 30 2b 00 33 2d 06 98 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 ┆ 0+ 3- 0+ 0┆
0x6540…6560 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 ┆+ 0+ 0+ -3 ┆
0x6560…6580 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆0+ 0+ 0+ 0+┆
0x6580…65a0 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 9c 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 ┆ 0+ 3- 0+ ┆
0x65a0…65c0 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 ┆ 0+ 0+ 0+ -3 ┆
0x65c0…65e0 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x65e0…6600 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a0 00 00 20 20 20 20 20 20 20 20 30 2b 20 ┆ 0+ 0+ 3- 0+ ┆
0x6600…6620 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 33 ┆ 0+ 0+ 0+ -3┆
0x6620…6640 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 ┆ 0+ 0+ 0+ ┆
0x6640…6660 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a4 00 00 20 20 20 20 20 20 20 ┆ 0+ 0+ 3- ┆
0x6660…6680 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 ┆ 0+ 0+ 0+ 0┆
0x6680…66a0 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 ┆+ -3 0+ 0+ ┆
0x66a0…66c0 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 a8 00 00 20 20 20 ┆0+ 0+ 0+ 3- ┆
0x66c0…66e0 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 ┆ 0+ 0+ 0+ ┆
0x66e0…6700 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 ┆ 0+ -3 0+ 0+ ┆
0x6700…6720 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 2d 06 ac 00 ┆ 0+ 0+ 0+ 3- ┆
0x6720…6740 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 ┆ 0+ 0+ 0+ ┆
0x6740…6760 20 20 20 20 20 20 20 30 2b 00 2d 33 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b ┆ 0+ -3 0+ 0+┆
0x6760…6780 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 33 ┆ 0+ 0+ 0+ 3┆
0x6780…67a0 2d 07 ca 00 00 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 20 30 2b 20 20 20 20 20 20 20 ┆- 0+ 0+ ┆
0x67a0…67c0 20 30 2b 20 20 20 20 20 20 20 20 30 2b 00 2d 4e 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 ┆ 0+ 0+ -N 0+ ┆
0x67c0…67e0 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 ┆ 0+ 0+ ┆
0x67e0…6800 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 4e 4e ┆ 0+ 0+ 0+ NN┆
0x6800…6820 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 20 20 20 20 20 20 ┆ 0+ ,00+ ┆
0x6820…6840 20 20 2c 30 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b ┆ ,00+ ,00+ 0+┆
0x6840…6860 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 4e 34 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 ┆ 0+ N4 0+ ┆
0x6860…6880 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 20 20 20 20 20 ┆ 0+ 0+ ┆
0x6880…68a0 20 30 2b 00 34 20 2c 30 30 2b 00 20 20 20 20 20 38 39 31 2c 30 30 2d 00 20 20 20 20 20 36 37 31 ┆ 0+ 4 ,00+ 891,00- 671┆
0x68a0…68c0 2c 34 30 2b 00 20 20 20 20 20 20 20 20 2c 30 30 2b 00 4e 34 20 20 20 20 20 32 34 38 2c 30 30 2d ┆,40+ ,00+ N4 248,00-┆
0x68c0…68e0 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 20 20 20 20 31 33 30 30 2c 31 34 2b 00 20 20 20 20 20 ┆ 0+ 1300,14+ ┆
0x68e0…6900 33 36 34 2c 30 35 2b 00 34 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆364,05+ 4ccccccccccccccccccccccc┆
0x6900…6920 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x69c0…69e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 55 ┆cccccccccccccccccccccccccccccccU┆
0x69e0…6a00 53 49 4d 55 44 53 4b 52 4b 41 03 0a 00 97 00 08 00 00 00 97 00 08 41 6c 00 fe 00 49 4d 55 44 53 ┆SIMUDSKRKA Al IMUDS┆
0x6a00…6a20 4d 30 31 30 30 20 52 45 4d 20 53 59 53 54 45 4d 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 ┆M0100 REM SYSTEM TEKNIK A/S : BU┆
0x6a20…6a40 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 2a ┆DGETSIMULERING *****************┆
0x6a40…6a60 20 52 32 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 4d 34 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆ R2.1 ********M40110 REM *******┆
0x6a60…6a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 55 44 53 4b 52 49 56 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*********** UDSKRIV **********┆
0x6a80…6aa0 2a 2a 2a 2a 34 36 30 31 32 30 20 49 4e 54 45 47 45 52 20 4f 4b 2c 4e 52 2c 55 44 2c 4a 2c 4c 49 ┆****460120 INTEGER OK,NR,UD,J,LI┆
0x6aa0…6ac0 4e 49 45 2c 46 52 41 2c 54 49 4c 2c 49 2c 4d 44 2c 41 28 31 33 29 2c 42 28 31 33 29 36 3c 30 31 ┆NIE,FRA,TIL,I,MD,A(13),B(13)6<01┆
0x6ac0…6ae0 33 30 20 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 42 37 2c ┆30 INTEGER B1,B2,B3,B4,B5,B6,B7,┆
0x6ae0…6b00 42 38 2c 42 39 2c 42 31 30 2c 42 31 31 2c 42 31 32 2c 42 31 33 2c 49 41 4c 54 3c 37 30 31 34 30 ┆B8,B9,B10,B11,B12,B13,IALT<70140┆
0x6b00…6b20 20 44 42 4c 52 45 41 4c 20 44 31 2c 44 32 2c 44 33 2c 44 34 2c 44 35 2c 44 36 2c 44 37 2c 44 38 ┆ DBLREAL D1,D2,D3,D4,D5,D6,D7,D8┆
0x6b20…6b40 2c 44 39 2c 44 31 30 2c 44 31 31 2c 44 31 32 2c 44 31 33 37 16 30 31 35 30 20 44 42 4c 52 45 41 ┆,D9,D10,D11,D12,D137 0150 DBLREA┆
0x6b40…6b60 4c 20 41 42 45 4c 2c 42 42 45 4c 16 49 30 31 36 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c ┆L ABEL,BBEL I0160 DIM SV$(2),FIL┆
0x6b60…6b80 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 31 37 29 2c 4d 24 28 31 29 2c 4b 4f 44 45 52 24 28 ┆N$(17),DATAPL$(17),M$(1),KODER$(┆
0x6b80…6ba0 31 30 29 2c 4e 41 56 4e 24 28 33 30 29 2c 54 41 42 24 28 35 30 29 49 4a 30 31 37 30 20 44 49 4d ┆10),NAVN$(30),TAB$(50)IJ0170 DIM┆
0x6ba0…6bc0 20 5d 46 24 28 31 29 2c 49 4e 44 45 58 24 28 31 30 30 30 29 2c 4f 54 58 54 31 24 28 33 30 29 2c ┆ ÅF$(1),INDEX$(1000),OTXT1$(30),┆
0x6bc0…6be0 4f 54 58 54 32 41 24 28 35 30 29 2c 4f 54 58 54 32 42 24 28 35 30 29 2c 4f 54 58 54 33 24 28 38 ┆OTXT2A$(50),OTXT2B$(50),OTXT3$(8┆
0x6be0…6c00 30 29 4a 30 30 31 38 30 20 44 49 4d 20 46 4e 52 24 28 38 29 2c 4b 56 54 24 28 31 29 2c 46 49 4c ┆0)J00180 DIM FNR$(8),KVT$(1),FIL┆
0x6c00…6c20 4b 54 4f 24 28 31 37 29 2c 50 52 47 52 50 4c 24 28 31 37 29 30 0b 30 31 39 30 20 43 4c 45 41 52 ┆KTO$(17),PRGRPL$(17)0 0190 CLEAR┆
0x6c20…6c40 20 0b 39 30 32 30 30 20 4f 54 58 54 32 41 24 3d 22 20 20 20 20 20 30 20 20 20 20 20 31 20 20 20 ┆ 90200 OTXT2A$=" 0 1 ┆
0x6c40…6c60 20 20 32 20 20 20 20 20 33 20 20 20 20 20 34 20 20 20 20 20 35 20 20 20 20 20 36 22 39 3a 30 32 ┆ 2 3 4 5 6"9:02┆
0x6c60…6c80 31 30 20 4f 54 58 54 32 42 24 3d 22 20 20 20 20 20 37 20 20 20 20 20 38 20 20 20 20 20 39 20 20 ┆10 OTXT2B$=" 7 8 9 ┆
0x6c80…6ca0 20 20 31 30 20 20 20 20 31 31 20 20 20 20 31 32 20 20 41 66 73 74 2e 22 3a 33 30 32 32 30 20 4f ┆ 10 11 12 Afst.":30220 O┆
0x6ca0…6cc0 54 58 54 33 24 3d 22 20 20 20 20 20 30 20 20 20 20 20 31 20 20 20 20 20 32 20 20 20 20 20 33 20 ┆TXT3$=" 0 1 2 3 ┆
0x6cc0…6ce0 20 20 20 20 34 20 20 41 66 73 74 2e 22 33 12 30 32 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a ┆ 4 Afst."3 0230 DATAPL$="TF:┆
0x6ce0…6d00 22 12 12 30 32 34 30 20 50 52 47 52 50 4c 24 3d 22 54 46 3a 22 12 1c 30 32 35 30 20 46 49 4c 4b ┆" 0240 PRGRPL$="TF:" 0250 FILK┆
0x6d00…6d20 54 4f 24 3d 44 41 54 41 50 4c 24 2b 22 4b 4f 4e 54 49 22 1c 0b 30 32 36 30 20 4d 24 3d 22 52 22 ┆TO$=DATAPL$+"KONTI" 0260 M$="R"┆
0x6d20…6d40 0b 1e 30 32 37 30 20 45 58 45 43 20 5d 42 4e 45 5f 46 49 4c 28 46 49 4c 4b 54 4f 24 2c 4d 24 29 ┆ 0270 EXEC ÅBNE_FIL(FILKTO$,M$)┆
0x6d40…6d60 1e 0b 30 32 38 30 20 4d 24 3d 22 52 22 0b 1a 30 32 39 30 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c ┆ 0280 M$="R" 0290 FILN$=DATAPL┆
0x6d60…6d80 24 2b 22 49 4e 44 45 58 22 1a 1c 30 33 30 30 20 45 58 45 43 20 5d 42 4e 45 5f 46 49 4c 28 46 49 ┆$+"INDEX" 0300 EXEC ÅBNE_FIL(FI┆
0x6d80…6da0 4c 4e 24 2c 4d 24 29 1c 13 30 33 31 30 20 46 4f 52 20 4e 52 3d 31 20 54 4f 20 32 30 13 16 30 33 ┆LN$,M$) 0310 FOR NR=1 TO 20 03┆
0x6da0…6dc0 32 30 20 47 45 54 20 46 49 4c 4e 24 2c 4e 52 3a 54 41 42 24 16 12 30 33 33 30 20 49 3d 28 4e 52 ┆20 GET FILN$,NR:TAB$ 0330 I=(NR┆
0x6dc0…6de0 2d 31 29 2a 35 30 2b 31 12 16 30 33 34 30 20 49 4e 44 45 58 24 28 49 3a 35 30 29 3d 54 41 42 00 ┆-1)*50+1 0340 INDEX$(I:50)=TAB ┆