|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »HJEMVARE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »HJEMVARE.K«
PROGRAM HJEMKOMST;
(*$IISFHEAD*)
VPOST=RECORD
A:AR;
VARENR1,LVRNDØR,OPRLAND,PAKENHED,
FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,
DÆKGRASÅ,ANAFTILG:INTEGER;
NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;
PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
LEVPOST=RECORD
A:AR;
NR,
SBESDAT1,SBESDAT2,
LAND1,LAND2:INTEGER;
KOSTPFAK:ARRAY(1..5) OF INTEGER;
ÅKØB,SÅKØB,SALDO:REAL;
NAVN1:PACKED ARRAY (1..40) OF CHAR;
NAVN2,
ADR1,
ADR2:PACKED ARRAY (1..30) OF CHAR;
BETABET,
LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;
POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;
TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;
END;
LEVZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..382) OF INTEGER
END;
VAR FLEV,F:ISF;
LZ:LEVZONE;
LEVER:LEVPOST;
QUQ:^INTEGER;
CH:CHAR;
VZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
R,R1,R2:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
WRITELN('ICLOSE ',IER);
STOP
END;
BEGIN
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,SKRIV);
FILNAVN2:='LEVERRG:P2:0000:I';
REWRITE(FLEV,FILNAVN2);
IOPEN(LZ.H,FLEV,SKRIV);
IF IER<>0 THEN ERROR;
WRITELN(LIST,'HJEMKOMNE VARER');
WRITELN(LIST,'VARENR ','VARENAVN',' ':22,'ANTAL',' ':7,'KOSTPRIS',
' KØBSPRIS');
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
REPEAT
CLEARSCREEN;
WRITELN('VARENR, 0 FOR SLUT');
REPEAT
GOTOXY(20,1);
READLN;READ(I)
UNTIL IORESULT=0;
IF I>0 THEN WITH VARE DO
BEGIN
VARENR1:=I;
GETREC(VZ.H,F,A);
IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
WRITELN(NAVN(1),' ':10,'RIGTIG VARE? (J/N)');
REPEAT
GOTOXY(60,2);
READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N'));
IF CH='J' THEN
BEGIN
WRITELN('ANTAL');
REPEAT
GOTOXY(10,3);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>0);
FYSLAGER:=FYSLAGER+R;
IORDRE:=IORDRE-R;
IF IORDRE<0 THEN IORDRE:=0;
IF RAIORDRE>R THEN
BEGIN
RESAFLAG:=RESAFLAG+R;
RAIORDRE:=RAIORDRE-R
END
ELSE
BEGIN
RESAFLAG:=RESAFLAG+RAIORDRE;
RAIORDRE:=0
END;
WITH LEVER DO
BEGIN
NR:=LVRNDØR;
GETREC(LZ.H,FLEV,A);
IF IER=-6 THEN
WRITELN('LEVERANDØREN ER IKKE OPRETTET')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
WRITELN('INDTAST KØBSPRIS I AFREGNINGSVALUTA');
REPEAT
GOTOXY(40,4);
READLN;READ(R2)
UNTIL (IORESULT=0) AND (R2>0);
R2:=R2*100;
ÅKØB:=ÅKØB+R2;
SALDO:=SALDO+R2;
PUTREC(LZ.H,FLEV,A)
END;
END;
WRITELN('NY KOSTPRIS, 0 FOR NEJ');
REPEAT
GOTOXY(30,5);READLN;READ(R1)
UNTIL (IORESULT=0) AND (R1>=0.0);
IF R1>0.0 THEN KOSTPRIS:=R1*100.0;
PUTREC(VZ.H,F,A);
IF IER<>0 THEN ERROR;
WRITELN(LIST,VARENR1:6,' ',NAVN(1),R:10:-2,R1:10:2,R2/100:10:2);
END
END
END
UNTIL I=0;
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0014 Line {l1=0x12, l2=»PROGRAM HJEMKOMST;«, l3=0x12}
0x0014…0023 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0023…0031 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x0031…003f Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003f…0069 Line {l1=0x28, l2=» VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x0069…009f Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x009f…00c2 Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x00c2…00fc Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x00fc…0146 Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x0146…018e Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x018e…0194 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0194…01a2 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x01a2…01b5 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x01b5…01d8 Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x01d8…01df Line {l1=0x05, l2=» END;«, l3=0x05}
0x01df…01f0 Line {l1=0x0f, l2=» LEVPOST=RECORD«, l3=0x0f}
0x01f0…01ff Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x01ff…020c Line {l1=0x0b, l2=» NR,«, l3=0x0b}
0x020c…0228 Line {l1=0x1a, l2=» SBESDAT1,SBESDAT2,«, l3=0x1a}
0x0228…0246 Line {l1=0x1c, l2=» LAND1,LAND2:INTEGER;«, l3=0x1c}
0x0246…0270 Line {l1=0x28, l2=» KOSTPFAK:ARRAY(1..5) OF INTEGER;«, l3=0x28}
0x0270…0290 Line {l1=0x1e, l2=» ÅKØB,SÅKØB,SALDO:REAL;«, l3=0x1e}
0x0290…02bd Line {l1=0x2b, l2=» NAVN1:PACKED ARRAY (1..40) OF CHAR;«, l3=0x2b}
0x02bd…02cd Line {l1=0x0e, l2=» NAVN2,«, l3=0x0e}
0x02cd…02dc Line {l1=0x0d, l2=» ADR1,«, l3=0x0d}
0x02dc…0308 Line {l1=0x2a, l2=» ADR2:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x0308…031a Line {l1=0x10, l2=» BETABET,«, l3=0x10}
0x031a…0354 Line {l1=0x38, l2=» LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;«, l3=0x38}
0x0354…038c Line {l1=0x36, l2=» POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;«, l3=0x36}
0x038c…03be Line {l1=0x30, l2=» TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;«, l3=0x30}
0x03be…03c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03c4…03d5 Line {l1=0x0f, l2=» LEVZONE=RECORD«, l3=0x0f}
0x03d5…03e9 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x03e9…040d Line {l1=0x22, l2=» T:ARRAY(1..382) OF INTEGER«, l3=0x22}
0x040d…0415 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0415…0429 Line {l1=0x12, l2=»VAR FLEV,F:ISF;«, l3=0x12}
0x0429…043d Line {l1=0x12, l2=» LZ:LEVZONE;«, l3=0x12}
0x043d…0454 Line {l1=0x15, l2=» LEVER:LEVPOST;«, l3=0x15}
0x0454…046a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x046a…047b Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x047b…048c Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x048c…04ab Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x04ab…04c1 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x04c1…04d5 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x04d5…04eb Line {l1=0x14, l2=» R,R1,R2:REAL;«, l3=0x14}
0x04eb…04ee Line {l1=0x01, l2=» «, l3=0x01}
[…0xc…]
0x0512…051b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x051b…052e Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x052e…053b Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x053b…0548 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0548…0558 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0558…0568 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0568…0577 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0577…0585 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0585…0593 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0593…05a1 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x05a1…05b0 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x05b0…05be Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x05be…05c7 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x05c7…05d0 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x05d0…05e1 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x05e1…05f1 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x05f1…0608 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0608…061a Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x061a…0621 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0621…0645 Line {l1=0x22, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x22}
0x0645…0658 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x0658…066e Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x066e…0689 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0689…0691 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x0691…0697 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0697…069e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x069e…06c0 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x06c0…06d8 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x06d8…06e8 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x06e8…071c Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x071c…0734 Line {l1=0x16, l2=» IOPEN(VZ.H,F,SKRIV);«, l3=0x16}
0x0734…0756 Line {l1=0x20, l2=» FILNAVN2:='LEVERRG:P2:0000:I';«, l3=0x20}
0x0756…0771 Line {l1=0x19, l2=» REWRITE(FLEV,FILNAVN2);«, l3=0x19}
0x0771…078c Line {l1=0x19, l2=» IOPEN(LZ.H,FLEV,SKRIV);«, l3=0x19}
0x078c…07a5 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x07a5…07c7 Line {l1=0x20, l2=»WRITELN(LIST,'HJEMKOMNE VARER');«, l3=0x20}
0x07c7…080c Line {l1=0x43, l2=»WRITELN(LIST,'VARENR ','VARENAVN',' ':22,'ANTAL',' ':7,'KOSTPRIS',«, l3=0x43}
0x080c…0829 Line {l1=0x1b, l2=» ' KØBSPRIS');«, l3=0x1b}
0x0829…0852 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x0852…085a Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x085a…086a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x086a…088c Line {l1=0x20, l2=» WRITELN('VARENR, 0 FOR SLUT');«, l3=0x20}
0x088c…0896 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0896…08a9 Line {l1=0x11, l2=» GOTOXY(20,1);«, l3=0x11}
0x08a9…08bd Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x08bd…08d2 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x08d2…08ee Line {l1=0x1a, l2=» IF I>0 THEN WITH VARE DO«, l3=0x1a}
0x08ee…08f7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08f7…0908 Line {l1=0x0f, l2=» VARENR1:=I;«, l3=0x0f}
0x0908…091f Line {l1=0x15, l2=» GETREC(VZ.H,F,A);«, l3=0x15}
0x091f…0950 Line {l1=0x2f, l2=» IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')«, l3=0x2f}
0x0950…095a Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x095a…0965 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0965…0982 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x0982…09b7 Line {l1=0x33, l2=» WRITELN(NAVN(1),' ':10,'RIGTIG VARE? (J/N)');«, l3=0x33}
0x09b7…09c5 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x09c5…09dc Line {l1=0x15, l2=» GOTOXY(60,2);«, l3=0x15}
0x09dc…09f5 Line {l1=0x17, l2=» READLN;READ(CH)«, l3=0x17}
0x09f5…0a2b Line {l1=0x34, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N'));«, l3=0x34}
0x0a2b…0a41 Line {l1=0x14, l2=» IF CH='J' THEN«, l3=0x14}
0x0a41…0a4e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a4e…0a69 Line {l1=0x19, l2=» WRITELN('ANTAL');«, l3=0x19}
0x0a69…0a79 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0a79…0a92 Line {l1=0x17, l2=» GOTOXY(10,3);«, l3=0x17}
0x0a92…0aac Line {l1=0x18, l2=» READLN;READ(R)«, l3=0x18}
0x0aac…0ad3 Line {l1=0x25, l2=» UNTIL (IORESULT=0) AND (R>0);«, l3=0x25}
0x0ad3…0af2 Line {l1=0x1d, l2=» FYSLAGER:=FYSLAGER+R;«, l3=0x1d}
0x0af2…0b0d Line {l1=0x19, l2=» IORDRE:=IORDRE-R;«, l3=0x19}
0x0b0d…0b32 Line {l1=0x23, l2=» IF IORDRE<0 THEN IORDRE:=0;«, l3=0x23}
0x0b32…0b4e Line {l1=0x1a, l2=» IF RAIORDRE>R THEN«, l3=0x1a}
0x0b4e…0b5d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b5d…0b7e Line {l1=0x1f, l2=» RESAFLAG:=RESAFLAG+R;«, l3=0x1f}
0x0b7e…0b9e Line {l1=0x1e, l2=» RAIORDRE:=RAIORDRE-R«, l3=0x1e}
0x0b9e…0bab Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0bab…0bb9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0bb9…0bc8 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0bc8…0bf0 Line {l1=0x26, l2=» RESAFLAG:=RESAFLAG+RAIORDRE;«, l3=0x26}
0x0bf0…0c07 Line {l1=0x15, l2=» RAIORDRE:=0«, l3=0x15}
0x0c07…0c15 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0c15…0c2c Line {l1=0x15, l2=» WITH LEVER DO«, l3=0x15}
0x0c2c…0c3b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c3b…0c53 Line {l1=0x16, l2=» NR:=LVRNDØR;«, l3=0x16}
0x0c53…0c73 Line {l1=0x1e, l2=» GETREC(LZ.H,FLEV,A);«, l3=0x1e}
0x0c73…0c8d Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x0c8d…0cc4 Line {l1=0x35, l2=» WRITELN('LEVERANDØREN ER IKKE OPRETTET')«, l3=0x35}
0x0cc4…0cd4 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0cd4…0ce5 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0ce5…0d08 Line {l1=0x21, l2=» IF IER<>0 THEN ERROR;«, l3=0x21}
0x0d08…0d45 Line {l1=0x3b, l2=» WRITELN('INDTAST KØBSPRIS I AFREGNINGSVALUTA');«, l3=0x3b}
0x0d45…0d59 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x0d59…0d76 Line {l1=0x1b, l2=» GOTOXY(40,4);«, l3=0x1b}
0x0d76…0d95 Line {l1=0x1d, l2=» READLN;READ(R2)«, l3=0x1d}
0x0d95…0dc1 Line {l1=0x2a, l2=» UNTIL (IORESULT=0) AND (R2>0);«, l3=0x2a}
0x0dc1…0dda Line {l1=0x17, l2=» R2:=R2*100;«, l3=0x17}
0x0dda…0df6 Line {l1=0x1a, l2=» ÅKØB:=ÅKØB+R2;«, l3=0x1a}
0x0df6…0e14 Line {l1=0x1c, l2=» SALDO:=SALDO+R2;«, l3=0x1c}
0x0e14…0e35 Line {l1=0x1f, l2=» PUTREC(LZ.H,FLEV,A)«, l3=0x1f}
0x0e35…0e45 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0e45…0e53 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0e53…0e7f Line {l1=0x2a, l2=» WRITELN('NY KOSTPRIS, 0 FOR NEJ');«, l3=0x2a}
0x0e7f…0e8f Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0e8f…0eb7 Line {l1=0x26, l2=» GOTOXY(30,5);READLN;READ(R1)«, l3=0x26}
0x0eb7…0ee2 Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (R1>=0.0);«, l3=0x29}
0x0ee2…0f0e Line {l1=0x2a, l2=» IF R1>0.0 THEN KOSTPRIS:=R1*100.0;«, l3=0x2a}
0x0f0e…0f29 Line {l1=0x19, l2=» PUTREC(VZ.H,F,A);«, l3=0x19}
0x0f29…0f48 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x0f48…0f93 Line {l1=0x49, l2=» WRITELN(LIST,VARENR1:6,' ',NAVN(1),R:10:-2,R1:10:2,R2/100:10:2);«, l3=0x49}
0x0f93…0f9e Line {l1=0x09, l2=» END«, l3=0x09}
0x0f9e…0fa7 Line {l1=0x07, l2=» END«, l3=0x07}
0x0fa7…0fae Line {l1=0x05, l2=» END«, l3=0x05}
0x0fae…0fba Line {l1=0x0a, l2=»UNTIL I=0;«, l3=0x0a}
0x0fba…0fcd Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x0fcd…0fe3 Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x0fe3…0ff3 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0ff3…100e Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x100e…1034 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1034…103a Line {l1=0x04, l2=»END.«, l3=0x04}
0x103a…1040 00 00 2e 04 00 00 ┆ . ┆
0x1040…1060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1b…]