|
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: »BEDITFIL.K«
└─⟦6d3a41ba7⟧ Bits:30009006 WW
└─⟦this⟧ »BEDITFIL.K«
0x0000…0006 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0006…0012 Line {l1=0x0a, l2=»UNTIL J=0;«, l3=0x0a}
0x0012…0019 Line {l1=0x05, l2=» END«, l3=0x05}
[…0x1…]
0x0020…0036 Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x0036…003e Line {l1=0x06, l2=» END;«, l3=0x06}
0x003e…0057 Line {l1=0x17, l2=» INSERT(RZ.H,FROR,A)«, l3=0x17}
0x0057…007f Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x007f…009d Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x009d…00c6 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(RZ.H.NBUC-1);«, l3=0x27}
0x00c6…00cf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x00cf…00e2 Line {l1=0x11, l2=» WITH RESTORD DO«, l3=0x11}
0x00e2…0100 Line {l1=0x1c, l2=» FOR I:=0 TO RZ.H.NBUC-1 DO«, l3=0x1c}
0x0100…0117 Line {l1=0x15, l2=» RESTORD.HEAD(3):=0;«, l3=0x15}
0x0117…011a Line {l1=0x01, l2=» «, l3=0x01}
0x011a…013c Line {l1=0x20, l2=» INITIATE(RZ.H,FROR,RZ.H.NBUC);«, l3=0x20}
0x013c…016c Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x016c…0184 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x0184…01ab Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x01ab…01de Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x01de…0212 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;«, l3=0x32}
0x0212…0221 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0221…0230 Line {l1=0x0d, l2=» RECSIZE:=9;«, l3=0x0d}
0x0230…0248 Line {l1=0x16, l2=» FNAVN:='RESTREG:P2';«, l3=0x16}
0x0248…0251 Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x0251…0254 Line {l1=0x01, l2=» «, l3=0x01}
0x0254…025c Line {l1=0x06, l2=» END;«, l3=0x06}
0x025c…0272 Line {l1=0x14, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x14}
0x0272…027a Line {l1=0x06, l2=» END;«, l3=0x06}
0x027a…0293 Line {l1=0x17, l2=» INSERT(PZ.H,FPLU,A)«, l3=0x17}
0x0293…02bb Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x02bb…02d9 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x02d9…0302 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(PZ.H.NBUC-1);«, l3=0x27}
0x0302…030b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x030b…031d Line {l1=0x10, l2=» WITH PLUORD DO«, l3=0x10}
0x031d…033b Line {l1=0x1c, l2=» FOR I:=0 TO PZ.H.NBUC-1 DO«, l3=0x1c}
0x033b…036a Line {l1=0x2d, l2=» FOR I:=1 TO 5 DO WITH PLUORD DO HEAD(I):=0;«, l3=0x2d}
0x036a…036d Line {l1=0x01, l2=» «, l3=0x01}
0x036d…038f Line {l1=0x20, l2=» INITIATE(PZ.H,FPLU,PZ.H.NBUC);«, l3=0x20}
0x038f…03bf Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x03bf…03d7 Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x03d7…03fe Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x03fe…0431 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x0431…0465 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x0465…0474 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0474…0485 Line {l1=0x0f, l2=» RECSIZE:=147;«, l3=0x0f}
0x0485…049b Line {l1=0x14, l2=» FNAVN:='PLUOR:P2';«, l3=0x14}
0x049b…04a4 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x04a4…04ac Line {l1=0x06, l2=» END;«, l3=0x06}
0x04ac…04c2 Line {l1=0x14, l2=» ICLOSE(OZ.H,FORD);«, l3=0x14}
0x04c2…04ca Line {l1=0x06, l2=» END;«, l3=0x06}
0x04ca…04e3 Line {l1=0x17, l2=» INSERT(OZ.H,FORD,A)«, l3=0x17}
0x04e3…050b Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x050b…0529 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x0529…0552 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(OZ.H.NBUC-1);«, l3=0x27}
0x0552…055b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x055b…056c Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x056c…058a Line {l1=0x1c, l2=» FOR I:=0 TO OZ.H.NBUC-1 DO«, l3=0x1c}
0x058a…05b8 Line {l1=0x2c, l2=» FOR I:=1 TO 5 DO WITH ORDRE DO HEAD(I):=0;«, l3=0x2c}
0x05b8…05bb Line {l1=0x01, l2=» «, l3=0x01}
0x05bb…05dd Line {l1=0x20, l2=» INITIATE(OZ.H,FORD,OZ.H.NBUC);«, l3=0x20}
0x05dd…060d Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x060d…0625 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x0625…064c Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x064c…067f Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x067f…06b3 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x06b3…06c2 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x06c2…06d3 Line {l1=0x0f, l2=» RECSIZE:=132;«, l3=0x0f}
0x06d3…06eb Line {l1=0x16, l2=» FNAVN:='ORDRERG:P2';«, l3=0x16}
0x06eb…06f4 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x06f4…06fc Line {l1=0x06, l2=»4:PIP;«, l3=0x06}
0x06fc…070b Line {l1=0x0d, l2=» CASE J OF«, l3=0x0d}
0x070b…0731 Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (NREC>0);«, l3=0x24}
0x0731…0758 Line {l1=0x25, l2=» GOTOXY(20,3);READLN;READ(NREC)«, l3=0x25}
0x0758…0785 Line {l1=0x2b, l2=» GOTOXY(1,3);WRITELN('ANTAL POSTER');«, l3=0x2b}
0x0785…0791 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0791…07bf Line {l1=0x2c, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<5);«, l3=0x2c}
0x07bf…07d6 Line {l1=0x15, l2=» READLN;READ(J)«, l3=0x15}
0x07d6…081f Line {l1=0x47, l2=» WRITELN('ORDREREG 1, PLUOR 2, RESTORDREREG 3, POSTERINGSREG 4');«, l3=0x47}
0x081f…084c Line {l1=0x2b, l2=» WRITELN('OPRETTELSE AF REGISTRE, ');«, l3=0x2b}
0x084c…0861 Line {l1=0x13, l2=» GOTOXY(1,1);«, l3=0x13}
0x0861…086d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x086d…0877 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0877…0887 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0887…088e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x088e…0894 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0894…0897 Line {l1=0x01, l2=» «, l3=0x01}
0x0897…089b Line {l1=0x02, l2=»*)«, l3=0x02}
0x089b…08b3 Line {l1=0x16, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x16}
0x08b3…08bb Line {l1=0x06, l2=» END;«, l3=0x06}
0x08bb…08d9 Line {l1=0x1c, l2=» INSERT(PSZ.H,FPOST,A)«, l3=0x1c}
0x08d9…0908 Line {l1=0x2d, l2=» HELTAL(2):=TRUNC(R-HELTAL(1)*10000.0);«, l3=0x2d}
0x0908…092b Line {l1=0x21, l2=» HELTAL(1):=TRUNC(R/10000);«, l3=0x21}
0x092b…0958 Line {l1=0x2b, l2=» R:=10000.0+80000.0*I/(PSZ.H.NBUC-1);«, l3=0x2b}
0x0958…0961 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0961…0975 Line {l1=0x12, l2=» WITH POSTERIN DO«, l3=0x12}
0x0975…0994 Line {l1=0x1d, l2=» FOR I:=0 TO PSZ.H.NBUC-1 DO«, l3=0x1d}
0x0994…09c7 Line {l1=0x31, l2=» FOR I:=1 TO 7 DO WITH POSTERIN DO HELTAL(I):=0;«, l3=0x31}
0x09c7…09ec Line {l1=0x23, l2=» INITIATE(PSZ.H,FPOST,PSZ.H.NBUC);«, l3=0x23}
0x09ec…0a1e Line {l1=0x30, l2=» IOPEN(PSZ.H,FPOST,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x30}
0x0a1e…0a37 Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x0a37…0a3b Line {l1=0x02, l2=»(*«, l3=0x02}
0x0a3b…0a62 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x0a62…0a95 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x0a95…0ac9 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=7;KEYDESC(1,3):=1;«, l3=0x32}
0x0ac9…0ad8 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0ad8…0ae8 Line {l1=0x0e, l2=» RECSIZE:=15;«, l3=0x0e}
0x0ae8…0b00 Line {l1=0x16, l2=» FNAVN:='POSTREG:P2';«, l3=0x16}
0x0b00…0b07 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b07…0b17 Line {l1=0x0e, l2=»PROCEDURE PIP;«, l3=0x0e}
0x0b17…0b1e Line {l1=0x05, l2=» END;«, l3=0x05}
0x0b1e…0b2d Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0b2d…0b49 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0b49…0b62 Line {l1=0x17, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x17}
0x0b62…0b79 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x0b79…0b90 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0b90…0ba7 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0ba7…0bcc Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0bcc…0bd4 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0bd4…0be7 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0be7…0bf4 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0bf4…0c04 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0c04…0c13 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0c13…0c22 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0c22…0c32 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0c32…0c43 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0c43…0c54 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0c54…0c62 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0c62…0c70 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0c70…0c84 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0c84…0c92 Line {l1=0x0c, l2=»(*$ICREATE*)«, l3=0x0c}
0x0c92…0c9b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0c9b…0cb8 Line {l1=0x1b, l2=» KEYDESC:KEYDESCRIPTION;«, l3=0x1b}
0x0cb8…0cc5 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0cc5…0ce9 Line {l1=0x22, l2=» NREC,RECSIZE,KEYFLDS :INTEGER;«, l3=0x22}
0x0ce9…0cfb Line {l1=0x10, l2=» IER,I,J,«, l3=0x10}
0x0cfb…0d12 Line {l1=0x15, l2=» PSZ:POSTZONE;«, l3=0x15}
0x0d12…0d27 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0d27…0d43 Line {l1=0x1a, l2=» POSTERIN:POSTPOST;«, l3=0x1a}
0x0d43…0d5d Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0d5d…0d78 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0d78…0d93 Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x0d93…0dad Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x0dad…0dc2 Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x0dc2…0dd7 Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0dd7…0e01 Line {l1=0x28, l2=» VAR FORD,FPLU,FROR,FPOST : ISF;«, l3=0x28}
0x0e01…0e3a Line {l1=0x37, l2=»KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;«, l3=0x37}
0x0e3a…0e42 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e42…0e67 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0e67…0e7b Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0e7b…0e8c Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x0e8c…0e94 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e94…0eb9 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0eb9…0ecd Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0ecd…0ede Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0ede…0ee6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ee6…0efa Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0efa…0f35 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0f35…0f43 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0f43…0f57 Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x0f57…0f66 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0f66…0f77 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0f77…0f7f Line {l1=0x06, l2=» END;«, l3=0x06}
0x0f7f…0fa4 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0fa4…0fb8 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0fb8…0fc9 Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x0fc9…0fcf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fcf…0ff4 Line {l1=0x23, l2=» T:ARRAY (1..1000) OF INTEGER«, l3=0x23}
0x0ff4…1007 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x1007…1018 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x1018…101e Line {l1=0x04, l2=»END;«, l3=0x04}
0x101e…1053 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x1053…10a2 Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x10a2…10b0 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x10b0…10c1 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x10c1…10c9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x10c9…10e0 29 20 20 20 20 20 20 20 20 4f 52 44 52 45 4c 49 4e 20 3a 20 41 52 52 ┆) ORDRELIN : ARR┆
0x10e0…1100 72 61 20 76 61 72 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 ┆ra varen til udskrift af dennes3┆
0x1100…1120 12 20 20 20 20 6c 61 76 65 72 65 20 6e 69 76 65 61 75 2e 12 38 20 64 29 20 44 69 72 65 6b 74 65 ┆ lavere niveau. 8 d) Direkte┆
0x1120…1140 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 74 65 6e ┆ adgang fra linier på stk-listen┆
0x1140…1160 20 74 69 6c 20 76 61 72 65 72 20 70 7d 38 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ til varer på8 ┆
0x1160…1180 20 20 20 20 20 20 20 20 20 20 20 1c 39 20 20 20 20 72 65 74 74 65 6c 73 65 2c 20 75 64 73 6b 72 ┆ 9 rettelse, udskr┆
0x1180…11a0 69 66 74 2c 20 7b 6e 64 72 69 6e 67 20 6f 67 20 73 6c 65 74 6e 69 6e 67 20 61 66 20 73 74 6b 2d ┆ift, ændring og sletning af stk-┆
0x11a0…11c0 6c 69 73 74 65 6e 39 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 ┆listen99 c) Direkte adgang fra v┆
0x11c0…11e0 61 72 65 6e 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 ┆aren til dennes stk-liste for op┆
0x11e0…1200 2d 39 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 65 2e 1b 0e ┆-9 b) Udskrift af lagerliste. ┆
0x1200…1220 20 20 20 20 6b 65 6c 74 20 76 61 72 65 2e 0e 37 20 61 29 20 4f 70 72 65 74 74 65 6c 73 65 2c 20 ┆ kelt vare. 7 a) Oprettelse, ┆
0x1220…1240 75 64 73 6b 72 69 66 74 2c 20 7b 6e 64 72 69 6e 67 20 6f 67 20 73 6c 65 74 6e 69 6e 67 20 61 66 ┆udskrift, ændring og sletning af┆
0x1240…1260 20 65 6e 20 65 6e 2d 37 01 20 01 22 20 20 20 72 65 67 69 73 74 72 65 74 20 6f 67 20 77 68 65 72 ┆ en en-7 " registret og wher┆
0x1260…1280 65 2d 75 73 65 64 2d 6c 69 73 74 65 6e 2e 22 39 32 2e 20 42 65 68 61 6e 64 6c 69 6e 67 20 61 66 ┆e-used-listen."92. Behandling af┆
0x1280…12a0 20 6c 61 67 65 72 72 65 67 69 73 74 72 65 74 20 69 6e 74 65 67 72 65 72 65 74 20 6d 65 64 20 73 ┆ lagerregistret integreret med s┆
0x12a0…12c0 74 6b 2d 6c 69 73 74 65 2d 39 01 20 01 11 72 75 74 69 6e 65 72 20 61 6e 76 65 6e 64 65 73 2e 11 ┆tk-liste-9 rutiner anvendes. ┆
0x12c0…12e0 37 74 69 6c 67 61 6e 67 20 66 72 61 20 65 76 65 6e 74 75 65 6c 6c 65 20 61 6e 64 72 65 20 74 65 ┆7tilgang fra eventuelle andre te┆
0x12e0…1300 72 6d 69 6e 61 6c 65 72 2c 20 6e 7d 72 20 6f 76 65 6e 6e 7b 76 6e 74 65 37 2c 20 75 64 73 6b 72 ┆rminaler, når ovennævnte7, udskr┆
0x1300…1320 69 66 74 2c 20 7b 6e 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 ┆ift, ændring og sletning af en e┆
0x1320…1340 6e 2d 37 26 20 20 20 20 69 6e 74 65 72 76 61 6c 20 61 66 20 76 61 72 65 6e 75 6d 72 65 20 28 65 ┆n-7& interval af varenumre (e┆
0x1340…1360 76 74 2e 20 61 6c 6c 65 29 2e 26 38 20 64 29 20 55 64 73 6b 72 69 66 74 20 61 66 20 69 6e 64 6b ┆vt. alle).&8 d) Udskrift af indk┆
0x1360…1380 7c 62 73 6f 72 64 72 65 6c 69 73 74 65 20 66 6f 72 20 65 6e 20 65 6e 6b 65 6c 74 20 65 6c 6c 65 ┆øbsordreliste for en enkelt elle┆
0x1380…13a0 72 20 65 74 38 17 20 20 20 20 6c 65 76 65 72 61 6e 64 7c 72 2d 66 61 6b 74 75 72 61 2e 17 37 20 ┆r et8 leverandør-faktura. 7 ┆
0x13a0…13c0 63 29 20 53 6c 65 74 6e 69 6e 67 20 61 66 20 69 6e 64 6b 7c 62 73 74 72 61 6e 73 61 6b 74 69 6f ┆c) Sletning af indkøbstransaktio┆
0x13c0…13e0 6e 65 72 20 76 65 64 20 67 6f 64 6b 65 6e 64 65 6c 73 65 20 61 66 37 25 20 20 20 20 64 65 72 20 ┆ner ved godkendelse af7% der ┆
0x13e0…1400 64 65 6c 65 73 20 70 7d 20 66 6c 65 72 65 20 64 65 6c 6c 65 76 65 72 61 6e 63 65 72 2e 25 39 20 ┆deles på flere delleverancer.%9 ┆
0x1400…1420 20 20 20 6e 7d 72 20 6f 72 64 72 65 62 65 6b 72 7b 66 74 65 6c 73 65 6e 20 6d 6f 64 74 61 67 65 ┆ når ordrebekræftelsen modtage┆
0x1420…1440 73 2e 20 4c 65 76 65 72 61 6e 63 65 6e 20 6b 61 6e 20 68 65 72 75 6e 2d 39 38 20 20 20 20 6e 75 ┆s. Leverancen kan herun-98 nu┆
0x1440…1460 6d 6d 65 72 2c 20 62 65 6b 72 7b 66 74 65 74 20 61 6e 74 61 6c 20 6f 67 20 62 65 6b 72 7b 66 74 ┆mmer, bekræftet antal og bekræft┆
0x1460…1480 65 74 20 6c 65 76 65 72 69 6e 67 73 74 65 72 6d 69 6e 38 38 20 20 20 20 49 6e 64 6b 7c 62 73 74 ┆et leveringstermin88 Indkøbst┆
0x1480…14a0 72 61 6e 73 61 6b 74 69 6f 6e 65 72 20 66 6f 72 73 79 6e 65 73 20 6d 65 64 20 6f 72 64 72 65 62 ┆ransaktioner forsynes med ordreb┆
0x14a0…14c0 65 6b 72 7b 66 74 65 6c 73 65 73 2d 38 25 20 62 29 20 49 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 ┆ekræftelses-8% b) Indtastning af┆
0x14c0…14e0 20 6f 72 64 72 65 62 65 6b 72 7b 66 74 65 6c 73 65 72 2e 25 11 20 20 20 20 64 72 65 6e 20 61 66 ┆ ordrebekræftelser.% dren af┆
0x14e0…1500 67 69 76 65 73 2e 11 38 20 20 20 20 7c 6e 73 6b 65 74 20 6c 65 76 65 72 69 6e 67 73 74 65 72 6d ┆gives. 8 ønsket leveringsterm┆
0x1500…1520 69 6e 20 6f 67 20 6c 65 76 65 72 61 6e 64 7c 72 2c 20 6e 7d 72 20 69 6e 64 6b 7c 62 73 6f 72 2d ┆in og leverandør, når indkøbsor-┆
0x1520…1540 38 38 20 20 20 20 74 72 61 6e 73 61 6b 74 69 6f 6e 65 72 20 66 6f 72 73 79 6e 65 73 20 6d 65 64 ┆88 transaktioner forsynes med┆
0x1540…1560 20 69 6e 64 6b 7c 62 73 6f 72 64 72 65 6e 75 6d 6d 65 72 2c 20 70 72 69 73 2c 38 35 20 20 20 20 ┆ indkøbsordrenummer, pris,85 ┆
0x1560…1580 44 65 20 61 75 74 6f 6d 61 74 69 73 6b 2c 20 65 6c 6c 65 72 20 6d 61 6e 75 65 6c 74 2c 20 67 65 ┆De automatisk, eller manuelt, ge┆
0x1580…15a0 6e 65 72 65 72 65 64 65 20 69 6e 64 6b 7c 62 73 2d 35 21 20 61 29 20 49 6e 64 74 61 73 74 6e 69 ┆nererede indkøbs-5! a) Indtastni┆
0x15a0…15c0 6e 67 20 61 66 20 69 6e 64 6b 7c 62 73 6f 72 64 72 65 72 2e 21 01 20 01 2e 31 2e 20 42 65 68 61 ┆ng af indkøbsordrer.! .1. Beha┆
0x15c0…15e0 6e 64 6c 69 6e 67 20 61 66 20 69 6e 64 6b 7c 62 73 74 72 61 6e 73 61 6b 74 69 6f 6e 73 72 65 67 ┆ndling af indkøbstransaktionsreg┆
0x15e0…1600 69 73 74 72 65 74 2e 2e 01 20 01 32 6f 70 6c 79 73 6e 69 6e 67 65 72 2c 20 64 65 6c 73 20 75 64 ┆istret.. 2oplysninger, dels ud┆
0x1600…1620 73 6b 72 69 76 65 72 20 64 65 20 7c 6e 73 6b 65 64 65 20 6f 76 65 72 73 69 67 74 65 72 3a 32 37 ┆skriver de ønskede oversigter:27┆
0x1620…1640 72 75 74 69 6e 65 72 2c 20 64 65 72 20 64 65 6c 73 20 73 7c 72 67 65 72 20 66 6f 72 20 6f 70 73 ┆rutiner, der dels sørger for ops┆
0x1640…1660 61 6d 6c 69 6e 67 20 61 66 20 64 65 20 6e 7c 64 76 65 6e 64 69 67 65 37 38 53 79 73 74 65 6d 65 ┆amling af de nødvendige78Systeme┆
0x1660…1680 74 20 69 6e 64 65 68 6f 6c 64 65 72 20 70 72 6f 67 72 61 6d 6d 65 72 20 74 69 6c 20 75 64 66 7c ┆t indeholder programmer til udfø┆
0x1680…16a0 72 65 6c 73 65 20 61 66 20 66 7c 6c 67 65 6e 64 65 38 29 20 62 65 74 65 67 6e 65 6c 73 65 0e 08 ┆relse af følgende8) betegnelse ┆
0x16a0…16c0 20 63 29 20 70 72 69 73 08 0c 20 64 29 20 6b 6f 73 74 70 72 69 73 0c 13 20 65 29 20 6c 61 67 65 ┆ c) pris d) kostpris e) lage┆
0x16c0…16e0 72 62 65 68 6f 6c 64 6e 69 6e 67 13 3a 20 66 29 20 64 69 76 2e 20 73 74 61 74 69 73 74 69 6b 6f ┆rbeholdning : f) div. statistiko┆
0x16e0…1700 70 6c 79 73 6e 69 6e 67 65 72 20 28 62 65 76 7b 67 65 6c 73 65 72 20 69 20 70 65 72 69 6f 64 65 ┆plysninger (bevægelser i periode┆
0x1700…1720 6e 20 6f 73 76 2e 29 3a 18 20 67 29 20 6c 65 76 65 72 61 6e 64 7c 72 62 65 74 65 67 6e 65 6c 73 ┆n osv.): g) leverandørbetegnels┆
0x1720…1740 65 18 1c 20 68 29 20 70 72 69 73 20 69 20 75 64 65 6e 6c 61 6e 64 73 6b 20 76 61 6c 75 74 61 1c ┆e h) pris i udenlandsk valuta ┆
0x1740…1760 01 20 01 1d 37 2e 20 46 6f 72 73 74 7b 72 6b 6e 69 6e 67 73 72 65 67 65 6c 72 65 67 69 73 74 65 ┆ 7. Forstærkningsregelregiste┆
0x1760…1780 72 1d 01 20 01 06 20 61 29 20 6e 72 06 0e 20 62 29 20 62 65 74 65 67 6e 65 6c 73 65 0e 23 20 63 ┆r a) nr b) betegnelse # c┆
0x1780…17a0 29 20 6b 6f 6d 62 69 6e 61 74 69 6f 6e 65 72 20 61 66 20 67 72 7b 6e 73 65 20 6f 67 20 74 79 70 ┆) kombinationer af grænse og typ┆
0x17a0…17c0 65 23 0b 20 64 29 20 66 72 61 64 72 61 67 0b 13 20 65 29 20 6b 6f 6e 73 74 61 6e 74 20 6c 7b 6e ┆e# d) fradrag e) konstant læn┆
0x17c0…17e0 67 64 65 13 28 20 66 29 20 73 74 79 72 69 6e 67 20 61 66 20 6f 6d 20 66 72 61 64 72 61 67 20 65 ┆gde ( f) styring af om fradrag e┆
0x17e0…1800 6c 6c 65 72 20 6b 6f 6e 73 74 61 6e 74 28 01 20 01 3b 20 73 74 79 72 69 6e 67 20 61 66 20 61 6c ┆ller konstant( ; styring af al┆
0x1800…1820 74 65 72 6e 61 74 69 76 65 72 20 76 65 64 20 32 30 20 6d 20 69 6e 64 62 79 67 6e 69 6e 67 73 68 ┆ternativer ved 20 m indbygningsh┆
0x1820…1840 7c 6a 64 65 20 6f 67 20 66 61 72 76 65 3b 01 20 01 17 38 2e 20 42 65 73 6c 61 67 73 72 65 67 65 ┆øjde og farve; 8. Beslagsrege┆
0x1840…1860 6c 72 65 67 69 73 74 65 72 17 01 20 01 06 20 61 29 20 6e 72 06 0e 20 62 29 20 62 65 74 65 67 6e ┆lregister a) nr b) betegn┆
0x1860…1880 65 6c 73 65 0e 40 20 63 29 20 6b 6f 6d 62 69 6e 61 74 69 6f 6e 65 72 20 61 66 20 62 72 65 64 64 ┆else @ c) kombinationer af bredd┆
0x1880…18a0 65 2d 2c 68 7c 6a 64 65 67 72 7b 6e 73 65 72 2c 20 61 6e 74 61 6c 20 6f 67 20 62 65 73 6c 61 67 ┆e-,højdegrænser, antal og beslag┆
0x18a0…18c0 73 6e 75 6d 72 65 40 0b 20 64 29 20 66 72 61 64 72 61 67 0b 01 20 01 26 20 64 65 72 20 73 6b 61 ┆snumre@ d) fradrag & der ska┆
0x18c0…18e0 6c 20 74 61 67 65 73 20 68 65 6e 73 79 6e 20 74 69 6c 20 62 65 73 6c 61 67 73 73 69 64 65 26 01 ┆l tages hensyn til beslagsside& ┆
0x18e0…1900 20 01 01 20 01 02 25 50 02 0e 50 72 6f 67 72 61 6d 6d 6f 64 75 6c 65 72 0e 0e 2d 2d 2d 2d 2d 2d ┆ %P Programmoduler ------┆
0x1900…1920 2d 2d 2d 2d 2d 2d 2d 2d 0e 01 20 01 15 20 31 2e 20 4f 72 64 72 65 72 65 67 69 73 74 72 65 72 69 ┆-------- 1. Ordreregistreri┆
0x1920…1940 6e 67 15 01 20 01 18 20 32 2e 20 4f 72 64 72 65 76 65 64 6c 69 67 65 68 6f 6c 64 65 6c 73 65 18 ┆ng 2. Ordrevedligeholdelse ┆
0x1940…1960 01 20 01 35 20 33 2e 20 52 65 67 69 73 74 65 72 76 65 64 6c 69 67 65 68 6f 6c 64 65 6c 73 65 20 ┆ 5 3. Registervedligeholdelse ┆
0x1960…1980 66 6f 72 20 68 76 65 72 74 20 65 6e 6b 65 6c 74 20 72 65 67 69 73 74 65 72 35 01 20 01 28 20 34 ┆for hvert enkelt register5 ( 4┆
0x1980…19a0 2e 20 56 7b 72 6b 73 74 65 64 73 6f 72 64 72 65 62 65 68 61 6e 64 6c 69 6e 67 20 6f 67 20 75 64 ┆. Værkstedsordrebehandling og ud┆
0x19a0…19c0 73 6b 72 69 66 74 28 01 20 01 2d 20 35 2e 20 4d 61 74 65 72 69 61 6c 65 73 6b 7b 72 65 6c 69 73 ┆skrift( - 5. Materialeskærelis┆
0x19c0…19e0 74 65 62 65 68 61 6e 64 6c 69 6e 67 20 6f 67 20 75 64 73 6b 72 69 66 74 2d 01 20 01 31 20 36 2e ┆tebehandling og udskrift- 1 6.┆
0x19e0…1a00 20 46 6f 72 73 74 7b 72 6b 6e 69 6e 67 73 73 6b 7b 72 65 6c 69 73 74 65 62 65 68 61 6e 64 6c 69 ┆ Forstærkningsskærelistebehandli┆
0x1a00…1a20 6e 67 20 6f 67 20 75 64 73 6b 72 69 66 74 31 01 20 01 2e 20 37 2e 20 47 6c 61 73 62 65 73 74 69 ┆ng og udskrift1 . 7. Glasbesti┆
0x1a20…1a40 6c 6c 69 6e 67 73 6c 69 73 74 65 62 65 68 61 6e 64 6c 69 6e 67 20 6f 67 20 75 64 73 6b 72 69 66 ┆llingslistebehandling og udskrif┆
0x1a40…1a60 74 2e 01 20 01 31 20 38 2e 20 42 65 73 6c 61 67 73 62 65 73 74 69 6c 6c 69 6e 67 73 6c 69 73 74 ┆t. 1 8. Beslagsbestillingslist┆
0x1a60…1a80 65 62 65 68 61 6e 64 6c 69 6e 67 20 6f 67 20 75 64 73 6b 72 69 66 74 31 01 20 01 17 20 39 2e 20 ┆ebehandling og udskrift1 9. ┆
0x1a80…1aa0 53 74 61 74 69 73 74 69 6b 75 64 73 6b 72 69 66 74 65 72 17 01 20 01 17 31 30 2e 20 53 69 6b 6b ┆Statistikudskrifter 10. Sikk┆
0x1aa0…1ac0 65 72 68 65 64 73 6b 6f 70 69 65 72 69 6e 67 17 01 20 01 0f 31 31 2e 20 50 72 6f 67 72 61 6d 76 ┆erhedskopiering 11. Programv┆
0x1ac0…1ae0 61 6c 67 0f 01 20 01 01 20 01 01 20 01 39 44 69 73 73 65 20 70 72 6f 67 72 61 6d 6d 6f 64 75 6c ┆alg 9Disse programmodul┆
0x1ae0…1b00 65 72 20 76 69 6c 20 69 6e 64 62 79 72 64 65 73 20 76 7b 72 65 20 66 75 6c 64 74 20 69 6e 74 65 ┆er vil indbyrdes være fuldt inte┆
0x1b00…1b20 67 72 65 72 65 74 2e 39 01 20 01 02 25 50 02 10 50 72 69 73 20 6f 67 20 6c 65 76 65 72 69 6e 67 ┆greret.9 %P Pris og levering┆
0x1b20…1b40 10 10 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 10 01 20 01 07 31 2e 20 50 72 69 73 07 01 ┆ ---------------- 1. Pris ┆
0x1b40…1b60 20 01 2f 20 61 29 20 6b 72 2e 20 20 36 30 2e 30 30 30 2c 30 30 20 20 20 6e 65 74 74 6f 20 6b 6f ┆ / a) kr. 60.000,00 netto ko┆
0x1b60…1b80 6e 74 61 6e 74 20 76 65 64 20 6c 65 76 65 72 69 6e 67 2f 01 20 01 0b 32 2e 20 4c 65 76 65 72 69 ┆ntant ved levering/ 2. Leveri┆
0x1b80…1ba0 6e 67 0b 01 20 01 3b 20 61 29 20 6c 65 76 65 72 69 6e 67 73 74 69 64 20 63 61 2e 20 33 20 6d 64 ┆ng ; a) leveringstid ca. 3 md┆
0x1ba0…1bc0 6e 2c 20 6e 7c 6a 61 67 74 69 67 20 6c 65 76 65 72 69 6e 67 73 74 69 64 73 70 75 6e 6b 74 20 61 ┆n, nøjagtig leveringstidspunkt a┆
0x1bc0…1be0 66 2d 3b 23 20 20 20 20 68 7b 6e 67 69 67 20 61 66 20 74 69 64 73 70 75 6e 6b 74 20 66 6f 72 20 ┆f-;# hængig af tidspunkt for ┆
0x1be0…1c00 61 63 63 65 70 74 2e 23 3a 20 62 29 20 65 76 65 6e 74 75 65 6c 6c 65 20 69 6e 64 73 69 67 65 6c ┆accept.#: b) eventuelle indsigel┆
0x1c00…1c20 73 65 72 20 76 65 64 72 7c 72 65 6e 64 65 20 66 65 6a 6c 20 6f 67 20 6d 61 6e 67 6c 65 72 20 73 ┆ser vedrørende fejl og mangler s┆
0x1c20…1c40 6b 61 6c 3a 3b 20 20 20 20 66 6f 72 65 6c 69 67 67 65 20 73 6b 72 69 66 74 6c 69 67 74 20 69 6e ┆kal:; foreligge skriftligt in┆
0x1c40…1c60 64 65 6e 20 38 20 64 61 67 65 20 66 72 61 20 6c 65 76 65 72 69 6e 67 20 6f 67 20 74 65 73 74 2d ┆den 8 dage fra levering og test-┆
0x1c60…1c80 3b 0b 20 20 20 20 6b 7c 72 73 65 6c 2e 0b 3a 20 63 29 20 48 2e 53 2e 4d 20 66 6f 72 65 74 61 67 ┆; kørsel. : c) H.S.M foretag┆
0x1c80…1ca0 65 72 20 74 65 73 74 6b 7c 72 73 65 6c 20 6f 67 20 69 67 61 6e 67 73 7b 74 6e 69 6e 67 20 68 6f ┆er testkørsel og igangsætning ho┆
0x1ca0…1cc0 73 20 6b 75 6e 64 65 6e 2e 3a 18 20 64 29 20 6c 65 76 65 72 69 6e 67 65 6e 20 6f 6d 66 61 74 74 ┆s kunden.: d) leveringen omfatt┆
0x1cc0…1ce0 65 72 3a 18 3a 20 20 20 20 41 29 20 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 67 20 62 72 75 ┆er: : A) dokumentation og bru┆
0x1ce0…1d00 67 65 72 76 65 6a 6c 65 64 6e 69 6e 67 20 73 6f 6d 20 74 69 6c 20 44 41 2d 6c 7c 6e 20 38 30 3a ┆gervejledning som til DA-løn 80:┆
0x1d00…1d20 3a 20 20 20 20 42 29 20 6b 7c 72 65 6b 6c 61 72 65 20 70 61 73 63 61 6c 70 72 6f 67 72 61 6d 6d ┆: B) køreklare pascalprogramm┆
0x1d20…1d40 65 72 20 69 6d 70 6c 65 6d 65 6e 74 65 72 65 74 20 70 7d 20 6b 75 6e 64 65 6e 73 3a 0f 20 20 20 ┆er implementeret på kundens: ┆
0x1d40…1d60 20 20 20 20 6d 61 73 6b 69 6e 65 2e 0f 28 20 20 20 20 43 29 20 6b 6f 70 69 20 61 66 20 70 61 73 ┆ maskine. ( C) kopi af pas┆
0x1d60…1d80 63 61 6c 70 72 6f 67 72 61 6d 6d 65 72 20 6f 67 20 66 69 6c 65 72 28 2c 20 20 20 20 44 29 20 6e ┆calprogrammer og filer(, D) n┆
0x1d80…1da0 7c 64 76 65 6e 64 69 67 65 20 73 69 6b 6b 65 72 68 65 64 73 6b 6f 70 69 65 72 69 6e 67 73 70 6c ┆ødvendige sikkerhedskopieringspl┆
0x1da0…1dc0 61 64 65 72 2c 01 20 01 0b 33 2e 20 42 65 74 61 6c 69 6e 67 0b 01 20 01 37 20 61 29 20 62 65 74 ┆ader, 3. Betaling 7 a) bet┆
0x1dc0…1de0 61 6c 69 6e 67 65 6e 20 66 6f 72 65 6c 69 67 67 65 72 20 76 65 64 20 61 6e 64 65 72 6b 65 6e 64 ┆alingen foreligger ved anderkend┆
0x1de0…1e00 65 6c 73 65 6e 20 66 72 61 20 6b 7c 62 65 72 2e 37 3a 20 62 29 20 62 65 74 61 6c 69 6e 67 65 6e ┆elsen fra køber.7: b) betalingen┆
0x1e00…1e20 20 6b 61 6e 20 69 6b 6b 65 20 6d 6f 64 72 65 67 6e 65 73 20 75 64 65 6e 20 66 6f 72 75 64 67 7d ┆ kan ikke modregnes uden forudgå┆
0x1e20…1e40 65 6e 64 65 20 61 66 74 61 6c 65 2e 3a 01 20 01 0e 34 2e 20 42 65 74 69 6e 67 65 6c 73 65 72 0e ┆ende aftale.: 4. Betingelser ┆
0x1e40…1e60 04 20 20 20 20 04 39 20 61 29 20 6b 75 6e 20 48 53 4d 20 66 6f 72 65 74 61 67 65 72 20 72 65 74 ┆ 9 a) kun HSM foretager ret┆
0x1e60…1e80 74 65 6c 73 65 72 20 6f 67 20 74 69 6c 66 7c 6a 65 6c 73 65 72 20 69 20 70 72 6f 67 72 61 6d 2d ┆telser og tilføjelser i program-┆
0x1e80…1ea0 39 0a 20 20 20 20 6d 65 72 6e 65 2e 0a 31 20 62 29 20 72 65 74 74 69 67 68 65 64 65 72 6e 65 20 ┆9 merne. 1 b) rettighederne ┆
0x1ea0…1ec0 74 69 6c 20 70 72 6f 67 72 61 6d 6d 65 6c 6c 65 74 20 74 69 6c 68 7c 72 65 72 20 48 53 4d 2e 31 ┆til programmellet tilhører HSM.1┆
0x1ec0…1ee0 36 20 63 29 20 64 65 72 20 68 7b 66 74 65 73 20 69 6b 6b 65 20 66 6f 72 20 66 7c 6c 67 65 76 69 ┆6 c) der hæftes ikke for følgevi┆
0x1ee0…1f00 72 6b 6e 69 6e 67 65 72 20 61 66 20 70 72 6f 67 72 61 6d 2d 20 6f 67 36 12 20 20 20 20 68 61 72 ┆rkninger af program- og6 har┆
0x1f00…1f20 64 2d 77 61 72 65 66 65 6a 6c 2e 12 27 20 64 29 20 66 65 6a 6c 20 72 65 74 74 65 73 20 75 64 65 ┆d-warefejl. ' d) fejl rettes ude┆
0x1f20…1f40 6e 20 62 65 72 65 67 6e 69 6e 67 20 68 6f 73 20 48 53 4d 2e 27 00 00 20 20 20 20 20 20 20 20 20 ┆n beregning hos HSM.' ┆
0x1f40…1f60 46 41 47 2e 46 52 41 56 5b 52 28 49 29 2b 45 4c 45 56 2e 50 45 52 46 52 41 56 28 51 29 3a 38 29 ┆FAG.FRAVÆR(I)+ELEV.PERFRAV(Q):8)┆
0x1f60…1f80 3b 3b 2c 20 20 20 20 20 20 20 20 49 46 20 46 41 47 2e 54 49 4d 45 52 54 44 2b 45 4c 45 56 2e 50 ┆;;, IF FAG.TIMERTD+ELEV.P┆
0x1f80…1fa0 45 52 54 49 4d 28 51 29 3d 30 20 54 48 45 4e 2c 1b 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆ERTIM(Q)=0 THEN, WRITE┆
0x1fa0…1fc0 4c 4e 28 4c 49 53 54 2c 30 3a 38 29 1b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 3d 20 20 20 20 ┆LN(LIST,0:8) ELSE = ┆
0x1fc0…1fe0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 31 30 30 2e 30 2a 28 46 41 47 2e 46 52 ┆ WRITELN(LIST,100.0*(FAG.FR┆
0x1fe0…2000 41 56 5b 52 28 49 29 2b 45 4c 45 56 2e 50 45 52 46 52 41 56 28 51 29 29 2f 3d 3e 20 20 20 20 20 ┆AVÆR(I)+ELEV.PERFRAV(Q))/=> ┆
0x2000…2020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 46 41 47 2e 54 49 4d ┆ (FAG.TIM┆
0x2020…2040 45 52 54 44 2b 45 4c 45 56 2e 50 45 52 54 49 4d 28 51 29 29 3a 38 3a 31 29 3e 09 20 20 20 20 20 ┆ERTD+ELEV.PERTIM(Q)):8:1)> ┆
0x2040…2060 20 45 4e 44 09 07 20 20 20 20 45 4e 44 07 08 20 20 20 20 45 4c 53 45 08 09 20 20 20 20 42 45 47 ┆ END END ELSE BEG┆
0x2060…2080 49 4e 09 1c 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 2d 36 20 54 48 45 4e 20 45 52 52 4f 52 3b ┆IN IF IER<>-6 THEN ERROR;┆
0x2080…20a0 1c 44 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 46 41 47 2e 4e 52 2d 31 30 30 30 ┆ D WRITELN(LIST,FAG.NR-1000┆
0x20a0…20c0 30 3a 35 2c 27 20 27 3a 35 2c 27 46 69 6e 64 65 73 20 69 6b 6b 65 27 29 3b 57 52 49 54 45 4c 4e ┆0:5,' ':5,'Findes ikke');WRITELN┆
0x20c0…20c9 28 4c 49 53 54 29 44 08 20 ┆(LIST)D ┆
0x20c9…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 ┆