|
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: 12480 (0x30c0)
Types: TextFile
Notes: Mikados_K
Names: »CHANGE.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »CHANGE.K«
PROCEDURE CHGCONTENTS(VAR EL:ELEMENT);
VAR NEWEL:ELEMENT;
SAVENR,I,OPT1,OPT2:INTEGER;
(*$P*)
PROCEDURE CHGCONT2;
PROCEDURE FJERN(VAR AKTFELT:ELEMENT);
BEGIN
IF AKTFELT<>NIL THEN
BEGIN
NEWEL:=AKTFELT^.NEXTELEMENT;
AKTFELT^.NEXTELEMENT:=NIL;
SAVE(SAVENR):=AKTFELT;
AKTFELT:=NEWEL
END ELSE WRITELN('Intet at fjerne')
END;
PROCEDURE INDFØJ(VAR AKTFELT:ELEMENT);
BEGIN
IF AKTFELT<>NIL THEN
BEGIN
NEWEL:=AKTFELT;
SINGLE:=TRUE;
AKTFELT:=VANDRET;
SINGLE:=FALSE;CHANGING:=FALSE;
CASE AKTFELT^.ELEMENTTYPE OF
FELT,INDKOMMANDO,
UDKOMMANDO,BEREGN:AKTFELT^.NEXTELEMENT:=NEWEL;
PICTURE:AKTFELT^.FØRSTFELT:=NEWEL;
GENTAG:AKTFELT^.FIRSTFELT:=NEWEL;
OTHERWISE WRITELN('TYPEFEJL I ELEMENTINDFØJELSE VANDRET')
END ELSE AKTFELT:=VANDRET
END;
BEGIN
WITH EL^ DO
BEGIN (*OPT1=2*)
CLEARSCREEN;
WRITELN('Strukturændring');
IF ELEMENTTYPE IN (.PICTURE,GENTAG.) THEN
BEGIN
GOTOXY(1,5);
WRITELN('1 Vandret');
WRITELN('2 Lodret');
REPEAT
GOTOXY(1,8);
WRITE('Vælg 1-2 ');READLN;READ(OPT1)
UNTIL (IORESULT=0) AND (OPT1 IN (.1,2.))
END;
GOTOXY(1,10);
WRITELN('Mulige ændringer');
GOTOXY(1,11);
WRITELN('1 Fjern første');
WRITELN('2 Fjern kæde');
WRITELN('3 Indføj element');
WRITELN('4 Indføj kæde');
REPEAT
GOTOXY(1,16);
WRITE('Vælg 1-4 ');READLN;READ(OPT2)
UNTIL (IORESULT=0) AND (OPT2 IN (.1..4.));
IF OPT2 IN (.1,2.) THEN
REPEAT
GOTOXY(1,18);
WRITE('Gemmes i nr 1..10, 0 for nej ');READLN;READ(SAVENR)
UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));
CASE ELEMENTTYPE OF
LISTEDESC,
PICTURE,
GENTAG :IF OPT1=2 THEN
CASE OPT2 OF
1:IF NEXTELEMENT<>NIL THEN
BEGIN
NEWEL:=NEXTELEMENT^.NEXTELEMENT;
NEXTELEMENT^.NEXTELEMENT:=NIL;
SAVE(SAVENR):=NEXTELEMENT;
NEXTELEMENT:=NEWEL
END
ELSE WRITELN('Der er intet at slette');
2:BEGIN
SAVE(SAVENR):=NEXTELEMENT;
NEXTELEMENT:=NIL
END;
3:IF NEXTELEMENT<>NIL THEN
BEGIN
NEWEL:=NEXTELEMENT;
SINGLE:=TRUE;
NEXTELEMENT:=LODRET;
SINGLE:=FALSE;
CHANGING:=FALSE;
NEXTELEMENT^.NEXTELEMENT:=NEWEL
END
ELSE NEXTELEMENT:=LODRET;
4:IF NEXTELEMENT=NIL THEN
BEGIN
REPEAT
GOTOXY(1,18);WRITE('Hvilken kæde (1-10, 0 for nej ');
READLN;READ(SAVENR)
UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));
IF SAVENR<>0 THEN
IF SAVE(SAVENR)^.ELEMENTTYPE IN (.PICTURE,GENTAG.) THEN
NEXTELEMENT:=SAVE(SAVENR)
END
ELSE WRITELN('Kæde allerede præsent')
END
ELSE (*OPT1=1*)
CASE OPT2 OF
1:IF ELEMENTTYPE=PICTURE THEN
FJERN(FØRSTFELT)
ELSE
FJERN(FIRSTFELT);
2:IF ELEMENTTYPE=PICTURE THEN
BEGIN
SAVE(SAVENR):=FØRSTFELT;
FØRSTFELT:=NIL
END
ELSE
BEGIN
SAVE(SAVENR):=FIRSTFELT;
FIRSTFELT:=NIL
END;
3:IF ELEMENTTYPE=PICTURE THEN
INDFØJ(FØRSTFELT)
ELSE
INDFØJ(FIRSTFELT);
4:BEGIN
REPEAT
GOTOXY(1,18);WRITE('Hvilken kæde (1..10, 0 for nej ');
READLN;READ(SAVENR)
UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));
IF SAVENR<>0 THEN
BEGIN
IF ELEMENTTYPE=PICTURE THEN
IF FØRSTFELT=NIL THEN
FØRSTFELT:=SAVE(SAVENR)
ELSE WRITELN('Kæde allerede præsent')
ELSE
IF FIRSTFELT=NIL THEN
FIRSTFELT:=SAVE(SAVENR)
ELSE WRITELN('Kæde allerede præsent')
END
END
END;
INDKOMMANDO,UDKOMMANDO,
BEREGN,
FELT :CASE OPT2 OF
1:IF NEXTELEMENT<>NIL THEN
BEGIN
NEWEL:=NEXTELEMENT^.NEXTELEMENT;
NEXTELEMENT^.NEXTELEMENT:=NIL;
SAVE(SAVENR):=NEXTELEMENT;
NEXTELEMENT:=NEWEL
END
ELSE WRITELN('Der er intet at fjerne');
2:BEGIN
SAVE(SAVENR):=NEXTELEMENT;
NEXTELEMENT:=NIL
END;
3:IF NEXTELEMENT<>NIL THEN
BEGIN
NEWEL:=NEXTELEMENT;
SINGLE:=TRUE;
NEXTELEMENT:=VANDRET;
SINGLE:=FALSE;CHANGING:=FALSE;
NEXTELEMENT^.NEXTELEMENT:=NEWEL
END ELSE NEXTELEMENT:=VANDRET;
4:IF NEXTELEMENT=NIL THEN
BEGIN
REPEAT
GOTOXY(1,18);WRITE('Hvilken kæde, (0..10, 0 for nej) ');
READLN;READ(SAVENR)
UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));
IF SAVENR<>0 THEN NEXTELEMENT:=SAVE(SAVENR)
END
ELSE WRITELN('Kæde allerede præsent')
END
END
END
END;
(*$P*)
BEGIN
WITH EL^ DO
BEGIN
CLEARSCREEN;
WRITELN('Ændring af elementtype: ',ELTYPE(ORD(ELEMENTTYPE)));
GOTOXY(1,5);
WRITELN('1 Indholdsændring');
WRITELN('2 Strukturændring');
REPEAT
GOTOXY(1,8);
WRITELN('Vælg 1-2 ');READLN;READ(OPT1)
UNTIL (IORESULT=0) AND (OPT1 IN (.1,2.));
IF OPT1=1 THEN
BEGIN
CHANGING:=TRUE;
CASE ELEMENTTYPE OF
LISTEDESC:BEGIN
REPEAT
GOTOXY(1,10);
WRITE('LINESPP ',LINESPP);
READLN;READ(LINESPP)
UNTIL (IORESULT=0) AND (LINESPP IN (.1..72.));
FOR I:=1 TO 8 DO
REPEAT
GOTOXY(1,10+I);
WRITE('FILES(',I:2,')',FILES(I):3);READLN;
READ(FILES(I))
UNTIL IORESULT=0
END;
INDKOMMANDO,
UDKOMMANDO:BEGIN
NEWEL:=IOKOMM;
ELEMENTTYPE:=NEWEL^.ELEMENTTYPE;
IF ELEMENTTYPE=INDKOMMANDO THEN
BEGIN
GETFILREF:=NEWEL^.GETFILREF;
GETMODE:=NEWEL^.GETMODE;
FØRSTNØGL:=NEWEL^.FØRSTNØGL
END
ELSE
BEGIN
PUTFILREF:=NEWEL^.PUTFILREF;
PUTMODE:=NEWEL^.PUTMODE
END
END;
PICTURE:BEGIN
NEWEL:=BILLEDE;
PICTPOS:=NEWEL^.PICTPOS;
PICTNAVN:=NEWEL^.PICTNAVN
END;
GENTAG:BEGIN
NEWEL:=GENTAGELSE;
LØKKETYPE:=NEWEL^.LØKKETYPE;
BETINGELSE:=NEWEL^.BETINGELSE;
POSINCR:=NEWEL^.POSINCR
END;
BEREGN:BEGIN
NEWEL:=BEREGNING;
UDTRYK:=NEWEL^.UDTRYK;
GEMREF:=NEWEL^.GEMREF;
GEMINDEKS:=NEWEL^.GEMINDEKS;
UDTRYKTYPE:=NEWEL^.UDTRYKTYPE
END;
FELT:BEGIN
NEWEL:=FIELD;
INDPOS:=NEWEL^.INDPOS;
EDITERING:=NEWEL^.EDITERING;
POSTREF:=NEWEL^.POSTREF;
INDEKS:=NEWEL^.INDEKS;
LÆNGDE:=NEWEL^.LÆNGDE;
FORAN0:=NEWEL^.FORAN0;
FELTTYPE:=NEWEL^.FELTTYPE;
IF FELTTYPE=REEL THEN DEC:=NEWEL^.DEC;
IF NEWEL^.NEXTELEMENT<>NIL THEN NEXTELEMENT:=NEWEL^.NEXTELEMENT
END
END; (*CASE ELEMENTTYPE*)
CHANGING:=FALSE
END (*OPT1=1*)
ELSE
CHGCONT2
END
END;
(*$P*)
PROCEDURE CHANGE(VAR EL:ELEMENT;CURRPICT:STRING);
VAR OPT1,OPT2:INTEGER;
CVANDRET,CLODRET:ELEMENT;
PROCEDURE SETOKSET;
VAR I:INTEGER;
BEGIN
CVANDRET:=NIL;
CLODRET:=NIL;
FOR I:=1 TO 5 DO OKSET(I):=0;I:=1;
WITH EL^ DO
CASE ELEMENTTYPE OF
LISTEDESC:IF NEXTELEMENT<>NIL THEN
BEGIN
OKSET(1):=2;
I:=2;
CLODRET:=NEXTELEMENT
END;
PICTURE:BEGIN
CURRPICT:=PICTNAVN;
IF FØRSTFELT<>NIL THEN
BEGIN
OKSET(1):=1;I:=2;CVANDRET:=FØRSTFELT
END;
IF NEXTELEMENT<>NIL THEN
BEGIN
OKSET(I):=2;I:=I+1;CLODRET:=NEXTELEMENT
END
END;
GENTAG: BEGIN
IF FIRSTFELT<>NIL THEN
BEGIN
OKSET(1):=1;I:=2;CVANDRET:=FIRSTFELT
END;
IF NEXTELEMENT<>NIL THEN
BEGIN
OKSET(I):=2;I:=I+1;CLODRET:=NEXTELEMENT
END
END;
FELT,INDKOMMANDO,
UDKOMMANDO,
BEREGN: IF NEXTELEMENT<>NIL THEN
IF NEXTELEMENT^.ELEMENTTYPE IN
(.PICTURE..UDKOMMANDO,GENTAG,BEREGN.) THEN
BEGIN
OKSET(1):=1;
I:=2;
CVANDRET:=NEXTELEMENT
END
END;
OKSET(I):=3;
OKSET(I+1):=4;
OKSET(I+2):=5
END;
(*$P*)
BEGIN
WITH EL^ DO
REPEAT
CLEARSCREEN;
SETOKSET;
WRITELN('Ændring af elementtype :',ELTYPE(ORD(ELEMENTTYPE)),
' i PICTURE ',CURRPICT);
GOTOXY(1,5);
OPT2:=6;
FOR OPT1:=1 TO 5 DO
IF OKSET(OPT1)>0 THEN
WRITELN(OPT1:3,' ',CHGTYPE(OKSET(OPT1)))
ELSE
BEGIN
OPT2:=OPT1;
OPT1:=6
END;
REPEAT
GOTOXY(1,11);
WRITE('Indtast valg ');READLN;READ(OPT1)
UNTIL (IORESULT=0) AND (OPT1>0) AND (OPT1<OPT2);
OPT1:=OKSET(OPT1);
CASE OPT1 OF
1:CHANGE(CVANDRET,CURRPICT);
2:CHANGE(CLODRET,CURRPICT);
4:BEGIN
REPEAT
GOTOXY(1,13);
WRITE('1: udfra dette element, 2: generelt ');
READLN;READ(OPT2)
UNTIL (IORESULT=0) AND (OPT2 IN (.1,2.));
PRNIVEAU:=0;
IF OPT2=1 THEN
PRINTEL(EL)
ELSE OPLYS
END;
5:CHGCONTENTS(EL)
END
UNTIL OPT1=3
END;
(*$P*)
0x0000…0028 Line {l1=0x26, l2=»PROCEDURE CHGCONTENTS(VAR EL:ELEMENT);«, l3=0x26}
0x0028…003c Line {l1=0x12, l2=»VAR NEWEL:ELEMENT;«, l3=0x12}
0x003c…005d Line {l1=0x1f, l2=» SAVENR,I,OPT1,OPT2:INTEGER;«, l3=0x1f}
0x005d…0065 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0065…007a Line {l1=0x13, l2=»PROCEDURE CHGCONT2;«, l3=0x13}
0x007a…00a1 Line {l1=0x25, l2=»PROCEDURE FJERN(VAR AKTFELT:ELEMENT);«, l3=0x25}
0x00a1…00a8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00a8…00c0 Line {l1=0x16, l2=» IF AKTFELT<>NIL THEN«, l3=0x16}
0x00c0…00c9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x00c9…00eb Line {l1=0x20, l2=» NEWEL:=AKTFELT^.NEXTELEMENT;«, l3=0x20}
0x00eb…010b Line {l1=0x1e, l2=» AKTFELT^.NEXTELEMENT:=NIL;«, l3=0x1e}
0x010b…0128 Line {l1=0x1b, l2=» SAVE(SAVENR):=AKTFELT; «, l3=0x1b}
0x0128…013c Line {l1=0x12, l2=» AKTFELT:=NEWEL«, l3=0x12}
0x013c…0163 Line {l1=0x25, l2=» END ELSE WRITELN('Intet at fjerne')«, l3=0x25}
0x0163…0169 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0169…0191 Line {l1=0x26, l2=»PROCEDURE INDFØJ(VAR AKTFELT:ELEMENT);«, l3=0x26}
0x0191…0198 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0198…01b0 Line {l1=0x16, l2=» IF AKTFELT<>NIL THEN«, l3=0x16}
0x01b0…01b9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x01b9…01ce Line {l1=0x13, l2=» NEWEL:=AKTFELT;«, l3=0x13}
0x01ce…01e1 Line {l1=0x11, l2=» SINGLE:=TRUE;«, l3=0x11}
0x01e1…01f8 Line {l1=0x15, l2=» AKTFELT:=VANDRET;«, l3=0x15}
0x01f8…021c Line {l1=0x22, l2=» SINGLE:=FALSE;CHANGING:=FALSE;«, l3=0x22}
0x021c…023e Line {l1=0x20, l2=» CASE AKTFELT^.ELEMENTTYPE OF«, l3=0x20}
0x023e…0255 Line {l1=0x15, l2=» FELT,INDKOMMANDO,«, l3=0x15}
0x0255…0289 Line {l1=0x32, l2=» UDKOMMANDO,BEREGN:AKTFELT^.NEXTELEMENT:=NEWEL;«, l3=0x32}
0x0289…02b1 Line {l1=0x26, l2=» PICTURE:AKTFELT^.FØRSTFELT:=NEWEL;«, l3=0x26}
0x02b1…02d8 Line {l1=0x25, l2=» GENTAG:AKTFELT^.FIRSTFELT:=NEWEL;«, l3=0x25}
0x02d8…0317 Line {l1=0x3d, l2=» OTHERWISE WRITELN('TYPEFEJL I ELEMENTINDFØJELSE VANDRET')«, l3=0x3d}
0x0317…0334 Line {l1=0x1b, l2=» END ELSE AKTFELT:=VANDRET«, l3=0x1b}
0x0334…033a Line {l1=0x04, l2=»END;«, l3=0x04}
0x033a…0341 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0341…0350 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x0350…0366 Line {l1=0x14, l2=» BEGIN (*OPT1=2*)«, l3=0x14}
0x0366…037a Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x037a…039d Line {l1=0x21, l2=» WRITELN('Strukturændring');«, l3=0x21}
0x039d…03ce Line {l1=0x2f, l2=» IF ELEMENTTYPE IN (.PICTURE,GENTAG.) THEN«, l3=0x2f}
0x03ce…03db Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03db…03f1 Line {l1=0x14, l2=» GOTOXY(1,5);«, l3=0x14}
0x03f1…0410 Line {l1=0x1d, l2=» WRITELN('1 Vandret');«, l3=0x1d}
0x0410…042e Line {l1=0x1c, l2=» WRITELN('2 Lodret');«, l3=0x1c}
0x042e…043e Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x043e…0456 Line {l1=0x16, l2=» GOTOXY(1,8);«, l3=0x16}
0x0456…0486 Line {l1=0x2e, l2=» WRITE('Vælg 1-2 ');READLN;READ(OPT1)«, l3=0x2e}
0x0486…04b8 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (OPT1 IN (.1,2.))«, l3=0x30}
0x04b8…04c4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x04c4…04d9 Line {l1=0x13, l2=» GOTOXY(1,10);«, l3=0x13}
0x04d9…04fd Line {l1=0x22, l2=» WRITELN('Mulige ændringer');«, l3=0x22}
0x04fd…0512 Line {l1=0x13, l2=» GOTOXY(1,11);«, l3=0x13}
0x0512…0534 Line {l1=0x20, l2=» WRITELN('1 Fjern første');«, l3=0x20}
0x0534…0554 Line {l1=0x1e, l2=» WRITELN('2 Fjern kæde');«, l3=0x1e}
0x0554…0578 Line {l1=0x22, l2=» WRITELN('3 Indføj element');«, l3=0x22}
0x0578…0599 Line {l1=0x1f, l2=» WRITELN('4 Indføj kæde');«, l3=0x1f}
0x0599…05a7 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x05a7…05be Line {l1=0x15, l2=» GOTOXY(1,16);«, l3=0x15}
0x05be…05ec Line {l1=0x2c, l2=» WRITE('Vælg 1-4 ');READLN;READ(OPT2)«, l3=0x2c}
0x05ec…061e Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (OPT2 IN (.1..4.));«, l3=0x30}
0x061e…063d Line {l1=0x1d, l2=» IF OPT2 IN (.1,2.) THEN«, l3=0x1d}
0x063d…064b Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x064b…0662 Line {l1=0x15, l2=» GOTOXY(1,18);«, l3=0x15}
0x0662…06a6 Line {l1=0x42, l2=» WRITE('Gemmes i nr 1..10, 0 for nej ');READLN;READ(SAVENR)«, l3=0x42}
0x06a6…06db Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));«, l3=0x33}
0x06db…06f6 Line {l1=0x19, l2=» CASE ELEMENTTYPE OF«, l3=0x19}
0x06f6…0708 Line {l1=0x10, l2=» LISTEDESC,«, l3=0x10}
0x0708…0718 Line {l1=0x0e, l2=» PICTURE,«, l3=0x0e}
0x0718…0736 Line {l1=0x1c, l2=» GENTAG :IF OPT1=2 THEN«, l3=0x1c}
0x0736…0752 Line {l1=0x1a, l2=» CASE OPT2 OF«, l3=0x1a}
0x0752…077c Line {l1=0x28, l2=» 1:IF NEXTELEMENT<>NIL THEN«, l3=0x28}
0x077c…0793 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x0793…07c7 Line {l1=0x32, l2=» NEWEL:=NEXTELEMENT^.NEXTELEMENT;«, l3=0x32}
0x07c7…07f9 Line {l1=0x30, l2=» NEXTELEMENT^.NEXTELEMENT:=NIL;«, l3=0x30}
0x07f9…0827 Line {l1=0x2c, l2=» SAVE(SAVENR):=NEXTELEMENT;«, l3=0x2c}
0x0827…084d Line {l1=0x24, l2=» NEXTELEMENT:=NEWEL«, l3=0x24}
0x084d…0862 Line {l1=0x13, l2=» END«, l3=0x13}
0x0862…089b Line {l1=0x37, l2=» ELSE WRITELN('Der er intet at slette');«, l3=0x37}
0x089b…08b2 Line {l1=0x15, l2=» 2:BEGIN«, l3=0x15}
0x08b2…08e0 Line {l1=0x2c, l2=» SAVE(SAVENR):=NEXTELEMENT;«, l3=0x2c}
0x08e0…0904 Line {l1=0x22, l2=» NEXTELEMENT:=NIL«, l3=0x22}
0x0904…091a Line {l1=0x14, l2=» END;«, l3=0x14}
0x091a…0944 Line {l1=0x28, l2=» 3:IF NEXTELEMENT<>NIL THEN«, l3=0x28}
0x0944…095b Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x095b…0982 Line {l1=0x25, l2=» NEWEL:=NEXTELEMENT;«, l3=0x25}
0x0982…09a3 Line {l1=0x1f, l2=» SINGLE:=TRUE;«, l3=0x1f}
0x09a3…09cb Line {l1=0x26, l2=» NEXTELEMENT:=LODRET;«, l3=0x26}
0x09cb…09ed Line {l1=0x20, l2=» SINGLE:=FALSE;«, l3=0x20}
0x09ed…0a11 Line {l1=0x22, l2=» CHANGING:=FALSE;«, l3=0x22}
0x0a11…0a44 Line {l1=0x31, l2=» NEXTELEMENT^.NEXTELEMENT:=NEWEL«, l3=0x31}
0x0a44…0a59 Line {l1=0x13, l2=» END«, l3=0x13}
0x0a59…0a84 Line {l1=0x29, l2=» ELSE NEXTELEMENT:=LODRET;«, l3=0x29}
0x0a84…0aad Line {l1=0x27, l2=» 4:IF NEXTELEMENT=NIL THEN«, l3=0x27}
0x0aad…0ac4 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x0ac4…0ade Line {l1=0x18, l2=» REPEAT«, l3=0x18}
0x0ade…0b29 Line {l1=0x49, l2=» GOTOXY(1,18);WRITE('Hvilken kæde (1-10, 0 for nej ');«, l3=0x49}
0x0b29…0b52 Line {l1=0x27, l2=» READLN;READ(SAVENR)«, l3=0x27}
0x0b52…0b93 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));«, l3=0x3f}
0x0b93…0bb8 Line {l1=0x23, l2=» IF SAVENR<>0 THEN«, l3=0x23}
0x0bb8…0c03 Line {l1=0x49, l2=» IF SAVE(SAVENR)^.ELEMENTTYPE IN (.PICTURE,GENTAG.) THEN«, l3=0x49}
0x0c03…0c32 Line {l1=0x2d, l2=» NEXTELEMENT:=SAVE(SAVENR)«, l3=0x2d}
0x0c32…0c47 Line {l1=0x13, l2=» END«, l3=0x13}
0x0c47…0c7e Line {l1=0x35, l2=» ELSE WRITELN('Kæde allerede præsent')«, l3=0x35}
0x0c7e…0c91 Line {l1=0x11, l2=» END«, l3=0x11}
0x0c91…0cb0 Line {l1=0x1d, l2=» ELSE (*OPT1=1*)«, l3=0x1d}
0x0cb0…0ccc Line {l1=0x1a, l2=» CASE OPT2 OF«, l3=0x1a}
0x0ccc…0cf9 Line {l1=0x2b, l2=» 1:IF ELEMENTTYPE=PICTURE THEN«, l3=0x2b}
0x0cf9…0d1d Line {l1=0x22, l2=» FJERN(FØRSTFELT)«, l3=0x22}
0x0d1d…0d34 Line {l1=0x15, l2=» ELSE «, l3=0x15}
0x0d34…0d59 Line {l1=0x23, l2=» FJERN(FIRSTFELT);«, l3=0x23}
0x0d59…0d86 Line {l1=0x2b, l2=» 2:IF ELEMENTTYPE=PICTURE THEN«, l3=0x2b}
0x0d86…0d9d Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x0d9d…0dc9 Line {l1=0x2a, l2=» SAVE(SAVENR):=FØRSTFELT;«, l3=0x2a}
0x0dc9…0deb Line {l1=0x20, l2=» FØRSTFELT:=NIL«, l3=0x20}
0x0deb…0e00 Line {l1=0x13, l2=» END«, l3=0x13}
0x0e00…0e16 Line {l1=0x14, l2=» ELSE«, l3=0x14}
0x0e16…0e2d Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x0e2d…0e59 Line {l1=0x2a, l2=» SAVE(SAVENR):=FIRSTFELT;«, l3=0x2a}
0x0e59…0e7b Line {l1=0x20, l2=» FIRSTFELT:=NIL«, l3=0x20}
0x0e7b…0e91 Line {l1=0x14, l2=» END;«, l3=0x14}
0x0e91…0ebe Line {l1=0x2b, l2=» 3:IF ELEMENTTYPE=PICTURE THEN«, l3=0x2b}
0x0ebe…0ee6 Line {l1=0x26, l2=» INDFØJ(FØRSTFELT) «, l3=0x26}
0x0ee6…0efd Line {l1=0x15, l2=» ELSE «, l3=0x15}
0x0efd…0f23 Line {l1=0x24, l2=» INDFØJ(FIRSTFELT);«, l3=0x24}
0x0f23…0f3a Line {l1=0x15, l2=» 4:BEGIN«, l3=0x15}
0x0f3a…0f54 Line {l1=0x18, l2=» REPEAT«, l3=0x18}
0x0f54…0fa0 Line {l1=0x4a, l2=» GOTOXY(1,18);WRITE('Hvilken kæde (1..10, 0 for nej ');«, l3=0x4a}
0x0fa0…0fc9 Line {l1=0x27, l2=» READLN;READ(SAVENR)«, l3=0x27}
0x0fc9…100a Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));«, l3=0x3f}
0x100a…102f Line {l1=0x23, l2=» IF SAVENR<>0 THEN«, l3=0x23}
0x102f…1048 Line {l1=0x17, l2=» BEGIN«, l3=0x17}
0x1048…1079 Line {l1=0x2f, l2=» IF ELEMENTTYPE=PICTURE THEN«, l3=0x2f}
0x1079…10a4 Line {l1=0x29, l2=» IF FØRSTFELT=NIL THEN«, l3=0x29}
0x10a4…10d3 Line {l1=0x2d, l2=» FØRSTFELT:=SAVE(SAVENR)«, l3=0x2d}
0x10d3…110e Line {l1=0x39, l2=» ELSE WRITELN('Kæde allerede præsent')«, l3=0x39}
0x110e…1128 Line {l1=0x18, l2=» ELSE«, l3=0x18}
0x1128…1153 Line {l1=0x29, l2=» IF FIRSTFELT=NIL THEN«, l3=0x29}
0x1153…1182 Line {l1=0x2d, l2=» FIRSTFELT:=SAVE(SAVENR)«, l3=0x2d}
0x1182…11bd Line {l1=0x39, l2=» ELSE WRITELN('Kæde allerede præsent')«, l3=0x39}
0x11bd…11d4 Line {l1=0x15, l2=» END«, l3=0x15}
0x11d4…11e9 Line {l1=0x13, l2=» END«, l3=0x13}
0x11e9…11fd Line {l1=0x12, l2=» END;«, l3=0x12}
0x11fd…121c Line {l1=0x1d, l2=» INDKOMMANDO,UDKOMMANDO,«, l3=0x1d}
0x121c…122b Line {l1=0x0d, l2=» BEREGN,«, l3=0x0d}
0x122b…1247 Line {l1=0x1a, l2=» FELT :CASE OPT2 OF«, l3=0x1a}
0x1247…1271 Line {l1=0x28, l2=» 1:IF NEXTELEMENT<>NIL THEN«, l3=0x28}
0x1271…1288 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x1288…12bc Line {l1=0x32, l2=» NEWEL:=NEXTELEMENT^.NEXTELEMENT;«, l3=0x32}
0x12bc…12ee Line {l1=0x30, l2=» NEXTELEMENT^.NEXTELEMENT:=NIL;«, l3=0x30}
0x12ee…131c Line {l1=0x2c, l2=» SAVE(SAVENR):=NEXTELEMENT;«, l3=0x2c}
0x131c…1342 Line {l1=0x24, l2=» NEXTELEMENT:=NEWEL«, l3=0x24}
0x1342…1357 Line {l1=0x13, l2=» END«, l3=0x13}
0x1357…1390 Line {l1=0x37, l2=» ELSE WRITELN('Der er intet at fjerne');«, l3=0x37}
0x1390…13a7 Line {l1=0x15, l2=» 2:BEGIN«, l3=0x15}
0x13a7…13d5 Line {l1=0x2c, l2=» SAVE(SAVENR):=NEXTELEMENT;«, l3=0x2c}
0x13d5…13f9 Line {l1=0x22, l2=» NEXTELEMENT:=NIL«, l3=0x22}
0x13f9…140f Line {l1=0x14, l2=» END;«, l3=0x14}
0x140f…1439 Line {l1=0x28, l2=» 3:IF NEXTELEMENT<>NIL THEN«, l3=0x28}
0x1439…1450 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x1450…1477 Line {l1=0x25, l2=» NEWEL:=NEXTELEMENT;«, l3=0x25}
0x1477…1498 Line {l1=0x1f, l2=» SINGLE:=TRUE;«, l3=0x1f}
0x1498…14c1 Line {l1=0x27, l2=» NEXTELEMENT:=VANDRET;«, l3=0x27}
0x14c1…14f3 Line {l1=0x30, l2=» SINGLE:=FALSE;CHANGING:=FALSE;«, l3=0x30}
0x14f3…1526 Line {l1=0x31, l2=» NEXTELEMENT^.NEXTELEMENT:=NEWEL«, l3=0x31}
0x1526…1556 Line {l1=0x2e, l2=» END ELSE NEXTELEMENT:=VANDRET;«, l3=0x2e}
0x1556…157f Line {l1=0x27, l2=» 4:IF NEXTELEMENT=NIL THEN«, l3=0x27}
0x157f…1596 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x1596…15b0 Line {l1=0x18, l2=» REPEAT«, l3=0x18}
0x15b0…15fe Line {l1=0x4c, l2=» GOTOXY(1,18);WRITE('Hvilken kæde, (0..10, 0 for nej) ');«, l3=0x4c}
0x15fe…1627 Line {l1=0x27, l2=» READLN;READ(SAVENR)«, l3=0x27}
0x1627…1668 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (SAVENR IN (.0..10.));«, l3=0x3f}
0x1668…16a7 Line {l1=0x3d, l2=» IF SAVENR<>0 THEN NEXTELEMENT:=SAVE(SAVENR)«, l3=0x3d}
0x16a7…16bc Line {l1=0x13, l2=» END«, l3=0x13}
0x16bc…16f3 Line {l1=0x35, l2=» ELSE WRITELN('Kæde allerede præsent')«, l3=0x35}
0x16f3…1706 Line {l1=0x11, l2=» END«, l3=0x11}
0x1706…1711 Line {l1=0x09, l2=» END«, l3=0x09}
0x1711…171a Line {l1=0x07, l2=» END«, l3=0x07}
0x171a…1720 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1720…1728 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1728…172f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x172f…173e Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x173e…1747 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1747…1759 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1759…179c Line {l1=0x41, l2=» WRITELN('Ændring af elementtype: ',ELTYPE(ORD(ELEMENTTYPE)));«, l3=0x41}
0x179c…17ae Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x17ae…17d1 Line {l1=0x21, l2=» WRITELN('1 Indholdsændring');«, l3=0x21}
0x17d1…17f4 Line {l1=0x21, l2=» WRITELN('2 Strukturændring');«, l3=0x21}
0x17f4…1800 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1800…1814 Line {l1=0x12, l2=» GOTOXY(1,8);«, l3=0x12}
0x1814…1842 Line {l1=0x2c, l2=» WRITELN('Vælg 1-2 ');READLN;READ(OPT1)«, l3=0x2c}
0x1842…1871 Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (OPT1 IN (.1,2.));«, l3=0x2d}
0x1871…1885 Line {l1=0x12, l2=» IF OPT1=1 THEN«, l3=0x12}
0x1885…1890 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1890…18a7 Line {l1=0x15, l2=» CHANGING:=TRUE;«, l3=0x15}
0x18a7…18c2 Line {l1=0x19, l2=» CASE ELEMENTTYPE OF«, l3=0x19}
0x18c2…18d9 Line {l1=0x15, l2=» LISTEDESC:BEGIN«, l3=0x15}
0x18d9…18f3 Line {l1=0x18, l2=» REPEAT«, l3=0x18}
0x18f3…1916 Line {l1=0x21, l2=» GOTOXY(1,10);«, l3=0x21}
0x1916…1946 Line {l1=0x2e, l2=» WRITE('LINESPP ',LINESPP);«, l3=0x2e}
0x1946…1970 Line {l1=0x28, l2=» READLN;READ(LINESPP)«, l3=0x28}
0x1970…19b2 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND (LINESPP IN (.1..72.));«, l3=0x40}
0x19b2…19d6 Line {l1=0x22, l2=» FOR I:=1 TO 8 DO«, l3=0x22}
0x19d6…19f0 Line {l1=0x18, l2=» REPEAT«, l3=0x18}
0x19f0…1a15 Line {l1=0x23, l2=» GOTOXY(1,10+I);«, l3=0x23}
0x1a15…1a55 Line {l1=0x3e, l2=» WRITE('FILES(',I:2,')',FILES(I):3);READLN;«, l3=0x3e}
0x1a55…1a79 Line {l1=0x22, l2=» READ(FILES(I))«, l3=0x22}
0x1a79…1a9d Line {l1=0x22, l2=» UNTIL IORESULT=0«, l3=0x22}
0x1a9d…1ab3 Line {l1=0x14, l2=» END;«, l3=0x14}
0x1ab3…1ac7 Line {l1=0x12, l2=» INDKOMMANDO,«, l3=0x12}
0x1ac7…1adf Line {l1=0x16, l2=» UDKOMMANDO:BEGIN«, l3=0x16}
0x1adf…1b02 Line {l1=0x21, l2=» NEWEL:=IOKOMM;«, l3=0x21}
0x1b02…1b37 Line {l1=0x33, l2=» ELEMENTTYPE:=NEWEL^.ELEMENTTYPE;«, l3=0x33}
0x1b37…1b6b Line {l1=0x32, l2=» IF ELEMENTTYPE=INDKOMMANDO THEN«, l3=0x32}
0x1b6b…1b85 Line {l1=0x18, l2=» BEGIN«, l3=0x18}
0x1b85…1bb8 Line {l1=0x31, l2=» GETFILREF:=NEWEL^.GETFILREF;«, l3=0x31}
0x1bb8…1be7 Line {l1=0x2d, l2=» GETMODE:=NEWEL^.GETMODE;«, l3=0x2d}
0x1be7…1c19 Line {l1=0x30, l2=» FØRSTNØGL:=NEWEL^.FØRSTNØGL«, l3=0x30}
0x1c19…1c31 Line {l1=0x16, l2=» END«, l3=0x16}
0x1c31…1c4a Line {l1=0x17, l2=» ELSE«, l3=0x17}
0x1c4a…1c64 Line {l1=0x18, l2=» BEGIN«, l3=0x18}
0x1c64…1c97 Line {l1=0x31, l2=» PUTFILREF:=NEWEL^.PUTFILREF;«, l3=0x31}
0x1c97…1cc5 Line {l1=0x2c, l2=» PUTMODE:=NEWEL^.PUTMODE«, l3=0x2c}
0x1cc5…1cdd Line {l1=0x16, l2=» END«, l3=0x16}
0x1cdd…1cf4 Line {l1=0x15, l2=» END;«, l3=0x15}
0x1cf4…1d09 Line {l1=0x13, l2=» PICTURE:BEGIN«, l3=0x13}
0x1d09…1d2a Line {l1=0x1f, l2=» NEWEL:=BILLEDE;«, l3=0x1f}
0x1d2a…1d54 Line {l1=0x28, l2=» PICTPOS:=NEWEL^.PICTPOS;«, l3=0x28}
0x1d54…1d7f Line {l1=0x29, l2=» PICTNAVN:=NEWEL^.PICTNAVN«, l3=0x29}
0x1d7f…1d93 Line {l1=0x12, l2=» END;«, l3=0x12}
0x1d93…1da7 Line {l1=0x12, l2=» GENTAG:BEGIN«, l3=0x12}
0x1da7…1dca Line {l1=0x21, l2=» NEWEL:=GENTAGELSE;«, l3=0x21}
0x1dca…1df7 Line {l1=0x2b, l2=» LØKKETYPE:=NEWEL^.LØKKETYPE;«, l3=0x2b}
0x1df7…1e26 Line {l1=0x2d, l2=» BETINGELSE:=NEWEL^.BETINGELSE;«, l3=0x2d}
0x1e26…1e4e Line {l1=0x26, l2=» POSINCR:=NEWEL^.POSINCR«, l3=0x26}
0x1e4e…1e61 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1e61…1e75 Line {l1=0x12, l2=» BEREGN:BEGIN«, l3=0x12}
0x1e75…1e97 Line {l1=0x20, l2=» NEWEL:=BEREGNING;«, l3=0x20}
0x1e97…1ebe Line {l1=0x25, l2=» UDTRYK:=NEWEL^.UDTRYK;«, l3=0x25}
0x1ebe…1ee5 Line {l1=0x25, l2=» GEMREF:=NEWEL^.GEMREF;«, l3=0x25}
0x1ee5…1f12 Line {l1=0x2b, l2=» GEMINDEKS:=NEWEL^.GEMINDEKS;«, l3=0x2b}
0x1f12…1f40 Line {l1=0x2c, l2=» UDTRYKTYPE:=NEWEL^.UDTRYKTYPE«, l3=0x2c}
0x1f40…1f53 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1f53…1f65 Line {l1=0x10, l2=» FELT:BEGIN«, l3=0x10}
0x1f65…1f81 Line {l1=0x1a, l2=» NEWEL:=FIELD;«, l3=0x1a}
0x1f81…1fa6 Line {l1=0x23, l2=» INDPOS:=NEWEL^.INDPOS;«, l3=0x23}
0x1fa6…1fd1 Line {l1=0x29, l2=» EDITERING:=NEWEL^.EDITERING;«, l3=0x29}
0x1fd1…1ff8 Line {l1=0x25, l2=» POSTREF:=NEWEL^.POSTREF;«, l3=0x25}
0x1ff8…201d Line {l1=0x23, l2=» INDEKS:=NEWEL^.INDEKS;«, l3=0x23}
0x201d…2042 Line {l1=0x23, l2=» LÆNGDE:=NEWEL^.LÆNGDE;«, l3=0x23}
0x2042…2067 Line {l1=0x23, l2=» FORAN0:=NEWEL^.FORAN0;«, l3=0x23}
0x2067…2090 Line {l1=0x27, l2=» FELTTYPE:=NEWEL^.FELTTYPE;«, l3=0x27}
0x2090…20c5 Line {l1=0x33, l2=» IF FELTTYPE=REEL THEN DEC:=NEWEL^.DEC;«, l3=0x33}
0x20c5…2113 Line {l1=0x4c, l2=» IF NEWEL^.NEXTELEMENT<>NIL THEN NEXTELEMENT:=NEWEL^.NEXTELEMENT«, l3=0x4c}
0x2113…2123 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x2123…2144 Line {l1=0x1f, l2=» END; (*CASE ELEMENTTYPE*)«, l3=0x1f}
0x2144…215b Line {l1=0x15, l2=» CHANGING:=FALSE«, l3=0x15}
0x215b…216f Line {l1=0x12, l2=» END (*OPT1=1*)«, l3=0x12}
0x216f…2179 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2179…2190 Line {l1=0x15, l2=» CHGCONT2 «, l3=0x15}
0x2190…2197 Line {l1=0x05, l2=» END«, l3=0x05}
0x2197…219d Line {l1=0x04, l2=»END;«, l3=0x04}
0x219d…21a5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x21a5…21d8 Line {l1=0x31, l2=»PROCEDURE CHANGE(VAR EL:ELEMENT;CURRPICT:STRING);«, l3=0x31}
0x21d8…21f0 Line {l1=0x16, l2=»VAR OPT1,OPT2:INTEGER;«, l3=0x16}
0x21f0…220f Line {l1=0x1d, l2=» CVANDRET,CLODRET:ELEMENT;«, l3=0x1d}
0x220f…2212 Line {l1=0x01, l2=» «, l3=0x01}
0x2212…2227 Line {l1=0x13, l2=»PROCEDURE SETOKSET;«, l3=0x13}
0x2227…2237 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x2237…223e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x223e…2250 Line {l1=0x10, l2=» CVANDRET:=NIL;«, l3=0x10}
0x2250…2261 Line {l1=0x0f, l2=» CLODRET:=NIL;«, l3=0x0f}
0x2261…2287 Line {l1=0x24, l2=» FOR I:=1 TO 5 DO OKSET(I):=0;I:=1;«, l3=0x24}
0x2287…2296 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x2296…22ad Line {l1=0x15, l2=» CASE ELEMENTTYPE OF«, l3=0x15}
0x22ad…22d3 Line {l1=0x24, l2=» LISTEDESC:IF NEXTELEMENT<>NIL THEN«, l3=0x24}
0x22d3…22e6 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x22e6…2302 Line {l1=0x1a, l2=» OKSET(1):=2;«, l3=0x1a}
0x2302…2317 Line {l1=0x13, l2=» I:=2;«, l3=0x13}
0x2317…233b Line {l1=0x22, l2=» CLODRET:=NEXTELEMENT«, l3=0x22}
0x233b…234d Line {l1=0x10, l2=» END;«, l3=0x10}
0x234d…235e Line {l1=0x0f, l2=» PICTURE:BEGIN«, l3=0x0f}
0x235e…237f Line {l1=0x1f, l2=» CURRPICT:=PICTNAVN;«, l3=0x1f}
0x237f…23a5 Line {l1=0x24, l2=» IF FØRSTFELT<>NIL THEN «, l3=0x24}
0x23a5…23b8 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x23b8…23ec Line {l1=0x32, l2=» OKSET(1):=1;I:=2;CVANDRET:=FØRSTFELT«, l3=0x32}
0x23ec…23fe Line {l1=0x10, l2=» END;«, l3=0x10}
0x23fe…2424 Line {l1=0x24, l2=» IF NEXTELEMENT<>NIL THEN«, l3=0x24}
0x2424…2437 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2437…246e Line {l1=0x35, l2=» OKSET(I):=2;I:=I+1;CLODRET:=NEXTELEMENT«, l3=0x35}
0x246e…2480 Line {l1=0x10, l2=» END «, l3=0x10}
0x2480…2490 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2490…24a1 Line {l1=0x0f, l2=» GENTAG: BEGIN«, l3=0x0f}
0x24a1…24c7 Line {l1=0x24, l2=» IF FIRSTFELT<>NIL THEN «, l3=0x24}
0x24c7…24da Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x24da…250e Line {l1=0x32, l2=» OKSET(1):=1;I:=2;CVANDRET:=FIRSTFELT«, l3=0x32}
0x250e…2520 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2520…2546 Line {l1=0x24, l2=» IF NEXTELEMENT<>NIL THEN«, l3=0x24}
0x2546…2559 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2559…2590 Line {l1=0x35, l2=» OKSET(I):=2;I:=I+1;CLODRET:=NEXTELEMENT«, l3=0x35}
0x2590…25a2 Line {l1=0x10, l2=» END «, l3=0x10}
0x25a2…25b2 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x25b2…25c7 Line {l1=0x13, l2=» FELT,INDKOMMANDO,«, l3=0x13}
0x25c7…25dd Line {l1=0x14, l2=» UDKOMMANDO, «, l3=0x14}
0x25dd…2601 Line {l1=0x22, l2=» BEREGN: IF NEXTELEMENT<>NIL THEN«, l3=0x22}
0x2601…262b Line {l1=0x28, l2=» IF NEXTELEMENT^.ELEMENTTYPE IN«, l3=0x28}
0x262b…2664 Line {l1=0x37, l2=» (.PICTURE..UDKOMMANDO,GENTAG,BEREGN.) THEN«, l3=0x37}
0x2664…2675 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2675…268f Line {l1=0x18, l2=» OKSET(1):=1;«, l3=0x18}
0x268f…26a2 Line {l1=0x11, l2=» I:=2;«, l3=0x11}
0x26a2…26c5 Line {l1=0x21, l2=» CVANDRET:=NEXTELEMENT«, l3=0x21}
0x26c5…26d4 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x26d4…26dc Line {l1=0x06, l2=» END;«, l3=0x06}
0x26dc…26ec Line {l1=0x0e, l2=» OKSET(I):=3;«, l3=0x0e}
0x26ec…26fe Line {l1=0x10, l2=» OKSET(I+1):=4;«, l3=0x10}
0x26fe…270f Line {l1=0x0f, l2=» OKSET(I+2):=5«, l3=0x0f}
0x270f…2715 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2715…271d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x271d…2724 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2724…2733 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x2733…273d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x273d…274f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x274f…275e Line {l1=0x0d, l2=» SETOKSET;«, l3=0x0d}
0x275e…27ad Line {l1=0x4d, l2=» WRITELN('Ændring af elementtype :',ELTYPE(ORD(ELEMENTTYPE)), «, l3=0x4d}
0x27ad…27d3 Line {l1=0x24, l2=» ' i PICTURE ',CURRPICT);«, l3=0x24}
0x27d3…27e5 Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x27e5…27f3 Line {l1=0x0c, l2=» OPT2:=6;«, l3=0x0c}
0x27f3…280c Line {l1=0x17, l2=» FOR OPT1:=1 TO 5 DO«, l3=0x17}
0x280c…2827 Line {l1=0x19, l2=» IF OKSET(OPT1)>0 THEN«, l3=0x19}
0x2827…2857 Line {l1=0x2e, l2=» WRITELN(OPT1:3,' ',CHGTYPE(OKSET(OPT1)))«, l3=0x2e}
0x2857…2861 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2861…286c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x286c…287f Line {l1=0x11, l2=» OPT2:=OPT1;«, l3=0x11}
0x287f…288e Line {l1=0x0d, l2=» OPT1:=6«, l3=0x0d}
0x288e…2898 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2898…28a4 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x28a4…28b9 Line {l1=0x13, l2=» GOTOXY(1,11);«, l3=0x13}
0x28b9…28e9 Line {l1=0x2e, l2=» WRITE('Indtast valg ');READLN;READ(OPT1)«, l3=0x2e}
0x28e9…291f Line {l1=0x34, l2=» UNTIL (IORESULT=0) AND (OPT1>0) AND (OPT1<OPT2);«, l3=0x34}
0x291f…2937 Line {l1=0x16, l2=» OPT1:=OKSET(OPT1);«, l3=0x16}
0x2937…2949 Line {l1=0x10, l2=» CASE OPT1 OF«, l3=0x10}
0x2949…296b Line {l1=0x20, l2=» 1:CHANGE(CVANDRET,CURRPICT);«, l3=0x20}
0x296b…298c Line {l1=0x1f, l2=» 2:CHANGE(CLODRET,CURRPICT);«, l3=0x1f}
0x298c…2999 Line {l1=0x0b, l2=» 4:BEGIN«, l3=0x0b}
0x2999…29a9 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x29a9…29c2 Line {l1=0x17, l2=» GOTOXY(1,13);«, l3=0x17}
0x29c2…29fc Line {l1=0x38, l2=» WRITE('1: udfra dette element, 2: generelt ');«, l3=0x38}
0x29fc…2a19 Line {l1=0x1b, l2=» READLN;READ(OPT2)«, l3=0x1b}
0x2a19…2a4c Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (OPT2 IN (.1,2.));«, l3=0x31}
0x2a4c…2a62 Line {l1=0x14, l2=» PRNIVEAU:=0;«, l3=0x14}
0x2a62…2a7a Line {l1=0x16, l2=» IF OPT2=1 THEN«, l3=0x16}
0x2a7a…2a91 Line {l1=0x15, l2=» PRINTEL(EL)«, l3=0x15}
0x2a91…2aa5 Line {l1=0x12, l2=» ELSE OPLYS«, l3=0x12}
0x2aa5…2ab1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ab1…2ac8 Line {l1=0x15, l2=» 5:CHGCONTENTS(EL)«, l3=0x15}
0x2ac8…2ad1 Line {l1=0x07, l2=» END«, l3=0x07}
0x2ad1…2ae1 Line {l1=0x0e, l2=» UNTIL OPT1=3«, l3=0x0e}
0x2ae1…2ae7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ae7…2aef Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2aef…2b00 00 00 52 45 50 45 41 54 08 10 20 20 20 20 43 4c 45 ┆ REPEAT CLE┆
0x2b00…2b20 41 52 53 43 52 45 45 4e 3b 10 0d 20 20 20 20 53 45 54 4f 4b 53 45 54 3b 0d 4d 20 20 20 20 57 52 ┆ARSCREEN; SETOKSET; M WR┆
0x2b20…2b40 49 54 45 4c 4e 28 27 5b 6e 64 72 69 6e 67 20 61 66 20 65 6c 65 6d 65 6e 74 74 79 70 65 20 3a 27 ┆ITELN('Ændring af elementtype :'┆
0x2b40…2b60 2c 45 4c 54 59 50 45 28 4f 52 44 28 45 4c 45 4d 45 4e 54 54 59 50 45 29 29 2c 20 20 20 20 20 20 ┆,ELTYPE(ORD(ELEMENTTYPE)), ┆
0x2b60…2b80 20 20 20 20 20 20 20 4d 24 20 20 20 20 20 20 20 20 20 20 20 20 27 20 69 20 50 49 43 54 55 52 45 ┆ M$ ' i PICTURE┆
0x2b80…2ba0 20 27 2c 43 55 52 52 50 49 43 54 29 3b 24 10 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 35 29 3b 10 ┆ ',CURRPICT);$ GOTOXY(1,5); ┆
0x2ba0…2bc0 0c 20 20 20 20 4f 50 54 32 3a 3d 36 3b 0c 17 20 20 20 20 46 4f 52 20 4f 50 54 31 3a 3d 31 20 54 ┆ OPT2:=6; FOR OPT1:=1 T┆
0x2bc0…2be0 4f 20 35 20 44 4f 17 19 20 20 20 20 49 46 20 4f 4b 53 45 54 28 4f 50 54 31 29 3e 30 20 54 48 45 ┆O 5 DO IF OKSET(OPT1)>0 THE┆
0x2be0…2c00 4e 19 2e 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4f 50 54 31 3a 33 2c 27 20 27 2c 43 48 47 54 ┆N . WRITELN(OPT1:3,' ',CHGT┆
0x2c00…2c20 59 50 45 28 4f 4b 53 45 54 28 4f 50 54 31 29 29 29 2e 08 20 20 20 20 45 4c 53 45 08 09 20 20 20 ┆YPE(OKSET(OPT1))). ELSE ┆
0x2c20…2c40 20 42 45 47 49 4e 09 11 20 20 20 20 20 20 4f 50 54 32 3a 3d 4f 50 54 31 3b 11 0d 20 20 20 20 20 ┆ BEGIN OPT2:=OPT1; ┆
0x2c40…2c60 20 4f 50 54 31 3a 3d 36 0d 08 20 20 20 20 45 4e 44 3b 08 0a 20 20 20 20 52 45 50 45 41 54 0a 13 ┆ OPT1:=6 END; REPEAT ┆
0x2c60…2c80 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 31 29 3b 13 2e 20 20 20 20 20 20 57 52 49 54 45 ┆ GOTOXY(1,11); . WRITE┆
0x2c80…2ca0 28 27 49 6e 64 74 61 73 74 20 76 61 6c 67 20 27 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 50 ┆('Indtast valg ');READLN;READ(OP┆
0x2ca0…2cc0 54 31 29 2e 34 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 ┆T1).4 UNTIL (IORESULT=0) AND ┆
0x2cc0…2ce0 28 4f 50 54 31 3e 30 29 20 41 4e 44 20 28 4f 50 54 31 3c 4f 50 54 32 29 3b 34 16 20 20 20 20 4f ┆(OPT1>0) AND (OPT1<OPT2);4 O┆
0x2ce0…2d00 50 54 31 3a 3d 4f 4b 53 45 54 28 4f 50 54 31 29 3b 16 10 20 20 20 20 43 41 53 45 20 4f 50 54 31 ┆PT1:=OKSET(OPT1); CASE OPT1┆
0x2d00…2d20 20 4f 46 10 20 20 20 20 20 31 3a 43 48 41 4e 47 45 28 43 56 41 4e 44 52 45 54 2c 43 55 52 52 50 ┆ OF 1:CHANGE(CVANDRET,CURRP┆
0x2d20…2d40 49 43 54 29 3b 20 1f 20 20 20 20 32 3a 43 48 41 4e 47 45 28 43 4c 4f 44 52 45 54 2c 43 55 52 52 ┆ICT); 2:CHANGE(CLODRET,CURR┆
0x2d40…2d60 50 49 43 54 29 3b 1f 0b 20 20 20 20 34 3a 42 45 47 49 4e 0b 0e 20 20 20 20 20 20 20 20 52 45 50 ┆PICT); 4:BEGIN REP┆
0x2d60…2d80 45 41 54 0e 17 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 33 29 3b 17 38 20 20 ┆EAT GOTOXY(1,13); 8 ┆
0x2d80…2da0 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 31 3a 20 75 64 66 72 61 20 64 65 74 74 65 20 65 6c ┆ WRITE('1: udfra dette el┆
0x2da0…2dc0 65 6d 65 6e 74 2c 20 32 3a 20 67 65 6e 65 72 65 6c 74 20 27 29 3b 38 1b 20 20 20 20 20 20 20 20 ┆ement, 2: generelt ');8 ┆
0x2dc0…2de0 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 50 54 32 29 1b 31 20 20 20 20 20 20 20 20 55 4e 54 ┆ READLN;READ(OPT2) 1 UNT┆
0x2de0…2e00 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 4f 50 54 32 20 49 4e 20 28 2e 31 ┆IL (IORESULT=0) AND (OPT2 IN (.1┆
0x2e00…2e20 2c 32 2e 29 29 3b 31 14 20 20 20 20 20 20 20 20 50 52 4e 49 56 45 41 55 3a 3d 30 3b 14 16 20 20 ┆,2.));1 PRNIVEAU:=0; ┆
0x2e20…2e40 20 20 20 20 20 20 49 46 20 4f 50 54 32 3d 31 20 54 48 45 4e 16 15 20 20 20 20 20 20 20 20 20 20 ┆ IF OPT2=1 THEN ┆
0x2e40…2e60 50 52 49 4e 54 45 4c 28 45 4c 29 15 12 20 20 20 20 20 20 20 20 45 4c 53 45 20 4f 50 4c 59 53 12 ┆PRINTEL(EL) ELSE OPLYS ┆
0x2e60…2e80 0a 20 20 20 20 20 20 45 4e 44 3b 0a 15 20 20 20 20 35 3a 43 48 47 43 4f 4e 54 45 4e 54 53 28 45 ┆ END; 5:CHGCONTENTS(E┆
0x2e80…2ea0 4c 29 15 07 20 20 20 20 45 4e 44 07 0e 20 20 55 4e 54 49 4c 20 4f 50 54 31 3d 33 0e 04 45 4e 44 ┆L) END UNTIL OPT1=3 END┆
0x2ea0…2ec0 3b 04 06 28 2a 24 50 2a 29 06 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆; (*$P*) cccccccccccccccccccc┆
0x2ec0…2ee0 24 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 ┆$ccccccccccccccccccccccccccccccc┆
0x2ee0…2f00 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┆
[…0x6…]
0x2fc0…2fe0 7c 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 ┆øccccccccccccccccccccccccccccccc┆
0x2fe0…3000 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┆
[…0x6…]