|
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)
Types: TextFile
Notes: Mikados_K
Names: »1EDITFIL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »1EDITFIL.K«
PROGRAM TOLDSORT;
CONST TOPMARG=11; LMARG=9; DK=8;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
FAKPOST= RECORD
FORSEND:INTEGER;
EMBAL,FRAGT:REAL;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;
TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;
KODE8,KODE9,BRUTTOVÆGT:INTEGER;
ORDRELIN: ARRAY(1..15) OF PLUOLINE
END;
FAKFILE=FILE OF FAKPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
TOLDLINE=RECORD
TOLDPNR:REAL;
OPRLAND:INTEGER;
PLUOLIN:PLUOLINE
END;
VAR FVAR : ISF;
SEXPFIL,EXPFIL :FAKFILE;
VZ:VZONE;
VARE:VPOST;
FNAVN:STRING(20);
TOLDORDR:ARRAY (1..60) OF TOLDLINE;
TOLDLIN:TOLDLINE;
IER,I,J,K,L
:INTEGER;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
BEGIN
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='EXPREG:P2:30:I';
REWRITE(EXPFIL,FNAVN);
FNAVN:='SEXPREG:P2:30:I';
REWRITE(SEXPFIL,FNAVN);
GET(EXPFIL);
WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO
BEGIN
J:=1;
REPEAT
FOR I:=1 TO 15 DO
WITH EXPFIL^.ORDRELIN(I) DO
IF VNR(1)>1 THEN
BEGIN
VARE.HELTAL(1):=VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
WITH TOLDORDR(J) DO
BEGIN
TOLDPNR:=VARE.REELTAL(3);
OPRLAND:=VARE.HELTAL(3);
PLUOLIN:=EXPFIL^.ORDRELIN(I)
END;
J:=J+1
END;
IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0
UNTIL I=0;
J:=J-1;
IF J>60 THEN ERROR;
FOR I:=1 TO J DO
BEGIN
K:=I;
FOR L:=I+1 TO J DO
IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR
((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND
(TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;
IF K<>I THEN
BEGIN
TOLDLIN:=TOLDORDR(I);
TOLDORDR(I):=TOLDORDR(K);
TOLDORDR(K):=TOLDLIN
END
END;
FOR I:=1 TO J DO
BEGIN
IF I MOD 15 = 1 THEN
BEGIN
IF I<>1 THEN PUT(SEXPFIL);
SEXPFIL^.HEAD:=EXPFIL^.HEAD;
SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;
SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;
SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;
SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);
SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);
SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);
SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);
IF J-I<15 THEN SEXPFIL^.HEAD(5):=99
ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1
END;
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN
END;
I:=J+1;
WHILE I MOD 15 <> 1 DO
BEGIN
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;
I:=I+1
END;
PUT(SEXPFIL);
GET(EXPFIL)
END;
SEXPFIL^.HEAD(1):=0;
SEXPFIL^.HEAD(2):=0;
PUT(SEXPFIL);
ICLOSE(VZ.H,FVAR);
CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM TOLDSORT;«, l3=0x11}
0x0013…0035 Line {l1=0x20, l2=»CONST TOPMARG=11; LMARG=9; DK=8;«, l3=0x20}
0x0035…0045 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0045…0054 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0054…006a Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x006a…0094 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0094…00dd Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00dd…00fe Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00fe…0139 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0139…015a Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x015a…0182 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0182…01c8 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01c8…020c Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x020c…0214 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0214…0228 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0228…024f Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x024f…0270 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0270…0284 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0284…028c Line {l1=0x06, l2=» END;«, l3=0x06}
0x028c…029d Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x029d…02b6 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x02b6…02d0 Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x02d0…02f7 Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x02f7…0332 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0332…036e Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x036e…03a7 Line {l1=0x37, l2=» TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;«, l3=0x37}
0x03a7…03cf Line {l1=0x26, l2=» KODE8,KODE9,BRUTTOVÆGT:INTEGER;«, l3=0x26}
0x03cf…03fa Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x03fa…0400 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0400…041a Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x041a…042a Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x042a…043e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x043e…0462 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0462…046a Line {l1=0x06, l2=» END;«, l3=0x06}
0x046a…046e Line {l1=0x02, l2=» «, l3=0x02}
0x046e…047f Line {l1=0x0f, l2=»TOLDLINE=RECORD«, l3=0x0f}
0x047f…0495 Line {l1=0x14, l2=» TOLDPNR:REAL;«, l3=0x14}
0x0495…04ae Line {l1=0x17, l2=» OPRLAND:INTEGER;«, l3=0x17}
0x04ae…04c7 Line {l1=0x17, l2=» PLUOLIN:PLUOLINE«, l3=0x17}
0x04c7…04cd Line {l1=0x04, l2=»END;«, l3=0x04}
0x04cd…04ec Line {l1=0x1d, l2=» VAR FVAR : ISF;«, l3=0x1d}
0x04ec…050e Line {l1=0x20, l2=» SEXPFIL,EXPFIL :FAKFILE;«, l3=0x20}
0x050e…0521 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0521…0536 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0536…0551 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0551…057e Line {l1=0x2b, l2=» TOLDORDR:ARRAY (1..60) OF TOLDLINE;«, l3=0x2b}
0x057e…0599 Line {l1=0x19, l2=» TOLDLIN:TOLDLINE;«, l3=0x19}
0x0599…05ae Line {l1=0x13, l2=» IER,I,J,K,L«, l3=0x13}
0x05ae…05d1 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x05d1…05e8 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x05e8…05f1 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x05f1…0605 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0605…0613 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0613…0624 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0624…0635 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0635…0644 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0644…0653 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0653…0660 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0660…0673 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0673…067b Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x067b…06a0 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x06a0…06b7 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x06b7…06d3 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x06d3…06e2 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x06e2…06e9 Line {l1=0x05, l2=» END;«, l3=0x05}
0x06e9…06f0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06f0…070f Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x070f…0727 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x0727…0757 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x0757…075a Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x075d…0779 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x0779…0793 Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x0793…0796 Line {l1=0x01, l2=» «, l3=0x01}
0x0796…07b3 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x07b3…07ce Line {l1=0x19, l2=» REWRITE(SEXPFIL,FNAVN);«, l3=0x19}
0x07ce…07d1 Line {l1=0x01, l2=» «, l3=0x01}
0x07d1…07e1 Line {l1=0x0e, l2=» GET(EXPFIL);«, l3=0x0e}
0x07e1…081a Line {l1=0x37, l2=» WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x081a…0823 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0823…082e Line {l1=0x09, l2=» J:=1;«, l3=0x09}
0x082e…083a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x083a…0853 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x0853…0876 Line {l1=0x21, l2=» WITH EXPFIL^.ORDRELIN(I) DO«, l3=0x21}
0x0876…088e Line {l1=0x16, l2=» IF VNR(1)>1 THEN«, l3=0x16}
0x088e…089b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x089b…08bc Line {l1=0x1f, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x1f}
0x08bc…08df Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x08df…090e Line {l1=0x2d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2d}
0x090e…092b Line {l1=0x1b, l2=» WITH TOLDORDR(J) DO«, l3=0x1b}
0x092b…093a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x093a…095f Line {l1=0x23, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x23}
0x095f…0983 Line {l1=0x22, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x22}
0x0983…09ab Line {l1=0x26, l2=» PLUOLIN:=EXPFIL^.ORDRELIN(I)«, l3=0x26}
0x09ab…09b9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x09b9…09c9 Line {l1=0x0e, l2=» J:=J+1«, l3=0x0e}
0x09c9…09d5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09d5…0a0e Line {l1=0x37, l2=» IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0«, l3=0x37}
0x0a0e…0a1e Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0a1e…0a2b Line {l1=0x0b, l2=» J:=J-1;«, l3=0x0b}
0x0a2b…0a44 Line {l1=0x17, l2=» IF J>60 THEN ERROR;«, l3=0x17}
0x0a44…0a5a Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0a5a…0a65 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a65…0a72 Line {l1=0x0b, l2=» K:=I;«, l3=0x0b}
0x0a72…0a8c Line {l1=0x18, l2=» FOR L:=I+1 TO J DO«, l3=0x18}
0x0a8c…0ac5 Line {l1=0x37, l2=» IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR«, l3=0x37}
0x0ac5…0aff Line {l1=0x38, l2=» ((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND«, l3=0x38}
0x0aff…0b41 Line {l1=0x40, l2=» (TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;«, l3=0x40}
0x0b41…0b55 Line {l1=0x12, l2=» IF K<>I THEN«, l3=0x12}
0x0b55…0b62 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b62…0b81 Line {l1=0x1d, l2=» TOLDLIN:=TOLDORDR(I);«, l3=0x1d}
0x0b81…0ba4 Line {l1=0x21, l2=» TOLDORDR(I):=TOLDORDR(K);«, l3=0x21}
0x0ba4…0bc2 Line {l1=0x1c, l2=» TOLDORDR(K):=TOLDLIN«, l3=0x1c}
0x0bc2…0bcd Line {l1=0x09, l2=» END«, l3=0x09}
0x0bcd…0bd7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0bd7…0bed Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0bed…0bf8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bf8…0c14 Line {l1=0x1a, l2=» IF I MOD 15 = 1 THEN«, l3=0x1a}
0x0c14…0c21 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c21…0c45 Line {l1=0x22, l2=» IF I<>1 THEN PUT(SEXPFIL);«, l3=0x22}
0x0c45…0c6b Line {l1=0x24, l2=» SEXPFIL^.HEAD:=EXPFIL^.HEAD;«, l3=0x24}
0x0c6b…0c97 Line {l1=0x2a, l2=» SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;«, l3=0x2a}
0x0c97…0cbf Line {l1=0x26, l2=» SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;«, l3=0x26}
0x0cbf…0ce7 Line {l1=0x26, l2=» SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;«, l3=0x26}
0x0ce7…0d13 Line {l1=0x2a, l2=» SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);«, l3=0x2a}
0x0d13…0d3f Line {l1=0x2a, l2=» SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);«, l3=0x2a}
0x0d3f…0d6d Line {l1=0x2c, l2=» SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);«, l3=0x2c}
0x0d6d…0d9b Line {l1=0x2c, l2=» SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);«, l3=0x2c}
0x0d9b…0dc8 Line {l1=0x2b, l2=» IF J-I<15 THEN SEXPFIL^.HEAD(5):=99«, l3=0x2b}
0x0dc8…0df7 Line {l1=0x2d, l2=» ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1«, l3=0x2d}
0x0df7…0e03 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0e03…0e43 Line {l1=0x3e, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN«, l3=0x3e}
0x0e43…0e4d Line {l1=0x08, l2=» END;«, l3=0x08}
0x0e4d…0e5a Line {l1=0x0b, l2=» I:=J+1;«, l3=0x0b}
0x0e5a…0e76 Line {l1=0x1a, l2=» WHILE I MOD 15 <> 1 DO«, l3=0x1a}
0x0e76…0e81 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0e81…0eb8 Line {l1=0x35, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;«, l3=0x35}
0x0eb8…0ec4 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x0ec4…0ece Line {l1=0x08, l2=» END;«, l3=0x08}
0x0ece…0ee1 Line {l1=0x11, l2=» PUT(SEXPFIL);«, l3=0x11}
0x0ee1…0ef2 Line {l1=0x0f, l2=» GET(EXPFIL)«, l3=0x0f}
0x0ef2…0efa Line {l1=0x06, l2=» END;«, l3=0x06}
0x0efa…0f12 Line {l1=0x16, l2=» SEXPFIL^.HEAD(1):=0;«, l3=0x16}
0x0f12…0f2a Line {l1=0x16, l2=» SEXPFIL^.HEAD(2):=0;«, l3=0x16}
0x0f2a…0f3b Line {l1=0x0f, l2=» PUT(SEXPFIL);«, l3=0x0f}
0x0f3b…0f51 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x0f51…0f7b Line {l1=0x28, l2=» CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);«, l3=0x28}
0x0f7b…0f81 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0f81…0fa0 00 00 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 ┆ ccccccccccccccccccccccccccccc┆
0x0fa0…0fc0 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┆
[…0x2a0…]
0x63c0…63e0 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 18 ┆ccccccccccccccccccccccccccccccc ┆
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 ┆