|
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: 62688 (0xf4e0)
Notes: Mikados_I
Names: »OPLINREG.I«
└─⟦65d77fd29⟧ Bits:30009010 INDUPERM P2
└─⟦this⟧ »OPLINREG.I«
0x0000…0020 0c 00 78 00 b8 0b 0a 00 fa 00 19 00 03 00 33 00 48 00 3c 00 e1 00 09 00 04 00 01 00 01 00 0b 00 ┆ x 3 H < ┆
0x0020…0040 01 00 01 00 05 00 08 00 1c 00 97 01 01 00 00 00 05 00 01 00 01 00 06 00 02 00 01 00 08 00 01 00 ┆ ┆
0x0040…0060 01 00 d2 16 9e 00 dc 01 82 cc 05 b9 ee d5 82 9f dc 00 86 cc 05 d5 82 a1 da df a2 80 84 df a2 80 ┆ ┆
0x0060…0080 84 df a3 1e dc 01 d2 0f 41 00 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 42 00 00 00 06 50 ┆ A P B P┆
0x0080…00a0 00 00 00 00 00 80 fc 03 1e 00 d2 0f 43 00 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 44 00 ┆ C P D ┆
0x00a0…00c0 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 45 00 00 00 00 00 00 00 00 00 00 00 b8 0b 0a 00 ┆ P E ┆
0x00c0…00e0 00 00 01 00 00 00 20 1b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 54 41 4c ┆ UNTIL TAL┆
0x00e0…0100 3d 30 3b 1b 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4c 45 4e 47 54 48 ┆=0; F WHILE LENGTH┆
0x0100…0120 28 4c 49 4e 45 29 3c 46 5e 2e 46 4f 52 41 4e 30 20 44 4f 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 ┆(LINE)<F^.FORAN0 DO LINE:=CONCAT┆
0x0120…0140 28 27 30 27 2c 4c 49 4e 45 29 3b 46 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 ┆('0',LINE);FA IF P┆
0x0140…0160 4f 53 54 2e 41 28 46 5e 2e 49 4e 44 45 4b 53 29 3c 30 20 54 48 45 4e 20 4c 49 4e 45 3a 3d 43 4f ┆OST.A(F^.INDEKS)<0 THEN LINE:=CO┆
0x0160…0180 4e 43 41 54 28 27 2d 27 2c 4c 49 4e 45 29 41 11 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆NCAT('-',LINE)A END┆
0x0180…01a0 3b 11 12 20 20 20 20 20 44 4f 42 42 54 41 4c 3a 42 45 47 49 4e 12 18 20 20 20 20 20 20 20 20 20 ┆; DOBBTAL:BEGIN ┆
0x01a0…01c0 20 20 20 20 20 20 4c 49 4e 45 3a 3d 27 27 3b 18 4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LINE:=''; J ┆
0x01c0…01e0 52 45 53 55 4c 54 3a 3d 41 42 53 28 50 4f 53 54 03 00 01 00 e8 03 0a 00 00 00 01 00 0e 00 0b 00 ┆RESULT:=ABS(POST ┆
0x01e0…0200 b8 0b 0a 00 00 00 01 00 19 00 01 00 88 13 0a 00 00 00 01 00 24 00 06 00 58 1b 0a 00 00 00 01 00 ┆ $ X ┆
0x0200…0220 2f 00 11 00 02 1c 0a 00 dc 0f 2c 00 3a 00 3f 00 73 1c 0a 00 8c 20 2c 00 45 00 a6 00 98 1c 0a 00 ┆/ , : ? s , E ┆
0x0220…0240 e4 02 32 00 50 00 8e 00 28 23 0a 00 00 00 01 00 5b 00 00 00 00 00 00 00 00 00 00 00 66 00 00 00 ┆ 2 P (# Æ f ┆
0x0240…0260 00 00 00 00 00 00 00 00 71 00 00 00 0a 00 00 00 87 70 a5 11 7c 00 00 00 82 ec a7 29 01 95 82 be ┆ q p ø ) ┆
0x0260…0280 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 44 00 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f ┆ P D P ┆
0x0280…02a0 45 00 00 00 00 00 00 00 00 00 00 00 b8 0b 0a 00 00 00 01 00 00 00 20 1b 20 20 20 20 20 20 20 20 ┆E ┆
0x02a0…02c0 20 20 20 20 20 20 20 55 4e 54 49 4c 20 54 41 4c 3d 30 3b 1b 46 20 20 20 20 20 20 20 20 20 20 20 ┆ UNTIL TAL=0; F ┆
0x02c0…02e0 20 20 20 20 57 48 49 4c 45 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3c 46 5e 2e 46 4f 52 41 4e 30 ┆ WHILE LENGTH(LINE)<F^.FORAN0┆
0x02e0…0300 20 44 4f 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 27 30 27 2c 4c 49 4e 45 29 3b 46 41 20 20 20 ┆ DO LINE:=CONCAT('0',LINE);FA ┆
0x0300…0320 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 4f 53 54 2e 41 28 46 5e 2e 49 4e 44 45 4b 53 29 ┆ IF POST.A(F^.INDEKS)┆
0x0320…0340 3c 30 20 54 48 45 4e 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 27 2d 27 2c 4c 49 4e 45 29 41 11 ┆<0 THEN LINE:=CONCAT('-',LINE)A ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 11 12 20 20 20 20 20 44 4f 42 42 54 41 4c 3a ┆ END; DOBBTAL:┆
0x0360…0380 42 45 47 49 4e 12 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 45 3a 3d 27 27 3b 18 ┆BEGIN LINE:=''; ┆
0x0380…03a0 4a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 41 42 53 28 50 4f 53 54 ┆J RESULT:=ABS(POST┆
0x03a0…03c0 04 00 01 00 e8 03 0a 00 00 00 01 00 05 00 00 00 87 71 00 ab 10 d5 87 71 06 00 00 00 87 72 eb 01 ┆ q q r ┆
0x03c0…03e0 01 95 82 be 07 00 00 00 d5 87 73 00 ab 1f d5 87 08 00 00 00 c5 a1 17 d5 87 75 d5 87 09 00 00 00 ┆ s u ┆
0x03e0…0400 82 ab 1f d5 87 77 a7 29 0a 00 00 00 b9 f4 d5 87 79 d5 87 7a 0b 00 00 00 0b d5 87 7b 9e 27 d5 87 ┆ w ) y z æ ' ┆
0x0400…0420 0c 00 00 00 87 7d a5 22 20 b7 10 a1 0d 00 00 00 a5 22 a6 04 53 54 4f 50 20 20 48 4f 57 4c 3a 3d ┆ å " " STOP HOWL:=┆
0x0420…0440 46 41 4c 53 45 3b 16 1c 20 20 20 20 20 20 20 20 20 20 41 4c 41 52 4d 3a 3d 4e 4f 54 28 41 4c 41 ┆FALSE; ALARM:=NOT(ALA┆
0x0440…0460 52 4d 29 3b 1c 1e 20 20 20 20 20 20 20 20 20 20 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3a 3d ┆RM); CLOCK^.DATE(9):=┆
0x0460…0480 27 30 27 3b 1e 17 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4c 41 52 4d 20 54 48 45 4e 17 0f 20 ┆'0'; IF ALARM THEN ┆
0x0480…04a0 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 43 ┆ BEGIN CLOC┆
0x04a0…04c0 4b 5e 2e 44 41 54 45 28 39 29 3a 3d 27 31 27 3b 20 19 20 20 20 20 20 20 20 20 20 20 20 20 47 4f ┆K^.DATE(9):='1'; GO┆
0x04c0…04e0 54 4f 58 59 28 37 32 2c 31 29 3b 19 38 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d ┆TOXY(72,1); 8 FOR I:=┆
0x04e0…0500 31 20 54 4f 20 38 20 44 4f 20 42 45 47 49 4e 20 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3a 3d ┆1 TO 8 DO BEGIN CLOCK^.DATE(I):=┆
0x0500…0520 4e 45 58 54 3b 38 3f 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 ┆NEXT;8? ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 41 4c 41 52 4d 54 49 4d 45 28 49 29 3a 3d 43 4c 4f 43 4b 5e 2e 44 ┆ ALARMTIME(I):=CLOCK^.D┆
0x0540…0560 41 54 45 28 49 29 3f 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ATE(I)?! ┆
0x0560…0580 20 20 20 20 20 45 4e 44 3b 21 29 20 20 20 20 20 00 00 00 00 00 00 00 00 e8 03 0a 00 00 00 01 00 ┆ END;!) ┆
0x0580…05a0 00 00 20 20 20 49 46 20 53 54 4f 50 57 41 54 43 48 20 54 48 45 4e 1b 29 20 20 20 20 20 20 20 20 ┆ IF STOPWATCH THEN ) ┆
0x05a0…05c0 20 20 20 20 20 57 52 49 54 45 28 4d 49 4e 3a 34 2c 53 45 43 3a 33 2c 53 45 43 31 30 30 3a 33 29 ┆ WRITE(MIN:4,SEC:3,SEC100:3)┆
0x05c0…05e0 3b 29 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 27 41 27 3a 42 45 47 49 4e 0d 16 ┆;) END; 'A':BEGIN ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 48 4f 57 4c 3a 3d 46 41 4c 53 45 3b 16 1c 20 20 20 20 20 20 20 20 ┆ HOWL:=FALSE; ┆
0x0600…0620 20 20 41 4c 41 52 4d 3a 3d 4e 4f 54 28 41 4c 41 52 4d 29 3b 1c 1e 20 20 20 20 20 20 20 20 20 20 ┆ ALARM:=NOT(ALARM); ┆
0x0620…0640 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3a 3d 27 30 27 3b 1e 17 20 20 20 20 20 20 20 20 20 20 ┆CLOCK^.DATE(9):='0'; ┆
0x0640…0660 49 46 20 41 4c 41 52 4d 20 54 48 45 4e 17 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 20 ┆IF ALARM THEN BEGIN ┆
0x0660…0680 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3a 3d 27 31 27 3b ┆ CLOCK^.DATE(9):='1';┆
0x0680…06a0 20 19 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 32 2c 31 29 3b 19 38 20 20 20 ┆ GOTOXY(72,1); 8 ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 42 45 47 49 4e 20 ┆ FOR I:=1 TO 8 DO BEGIN ┆
0x06c0…06e0 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3a 3d 4e 45 58 54 3b 38 3f 20 20 20 20 20 20 20 20 20 ┆CLOCK^.DATE(I):=NEXT;8? ┆
0x06e0…0700 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 41 4c 41 52 4d 54 ┆ ALARMT┆
0x0700…0720 49 4d 45 28 49 29 3a 3d 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3f 21 20 20 20 20 20 20 20 20 ┆IME(I):=CLOCK^.DATE(I)?! ┆
0x0720…0740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 21 29 20 20 20 20 20 ┆ END;!) ┆
0x0740…0760 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 32 2c 31 29 3b 57 52 49 54 45 28 41 4c 41 52 4d 54 ┆ GOTOXY(72,1);WRITE(ALARMT┆
0x0760…0780 49 4d 45 29 29 0e 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0e 0c 20 20 20 20 20 20 20 20 45 4e ┆IME)) END; EN┆
0x0780…07a0 44 3b 0c 08 20 20 20 20 45 4e 44 3b 08 06 20 20 45 4e 44 3b 06 0d 20 20 55 4e 54 49 4c 20 53 56 ┆D; END; END; UNTIL SV┆
0x07a0…07c0 3e 2d 31 0d 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 12 50 52 4f 43 45 44 55 52 45 20 52 45 47 ┆>-1 END; (*$P*) PROCEDURE REG┆
0x07c0…07e0 56 45 44 4c 3b 12 13 43 4f 4e 53 54 20 4d 41 58 46 45 4c 54 45 52 3d 33 30 3b 13 12 20 20 20 20 ┆VEDL; CONST MAXFELTER=30; ┆
0x07e0…0800 20 20 4d 41 58 4e 5c 47 4c 45 52 3d 39 3b 12 13 20 20 20 20 20 20 4d 41 58 5a 4f 4e 45 3d 31 30 ┆ MAXNØGLER=9; MAXZONE=10┆
0x0800…0820 30 30 3b 13 12 20 20 20 20 20 20 4d 41 58 50 4f 53 54 3d 32 35 30 3b 12 0d 28 2a 24 49 49 53 46 ┆00; MAXPOST=250; (*$IISF┆
0x0820…0840 48 45 41 44 2a 29 0d 0f 5a 5a 4f 4e 45 20 20 20 3d 52 45 43 4f 52 44 0f 12 20 20 20 20 20 20 20 ┆HEAD*) ZZONE =RECORD ┆
0x0840…0860 20 48 3a 49 53 46 48 45 41 44 3b 12 26 20 20 20 20 20 20 20 20 54 3a 41 52 52 41 59 28 31 2e 2e ┆ H:ISFHEAD; & T:ARRAY(1..┆
0x0860…0880 4d 41 58 5a 4f 4e 45 29 20 4f 46 20 49 4e 54 45 47 45 52 26 04 45 4e 44 3b 04 17 4e 46 45 4c 54 ┆MAXZONE) OF INTEGER& END; NFELT┆
0x0880…08a0 3d 5e 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3b 17 0f 53 4b 5b 52 4d 50 4f 53 3d 52 45 43 ┆=^FELTBESKRIVELSE; SKÆRMPOS=REC┆
0x08a0…08c0 4f 52 44 0f 0e 20 20 20 58 2c 59 3a 49 4e 54 45 47 45 52 0e 04 45 4e 44 3b 04 22 46 54 59 50 45 ┆ORD X,Y:INTEGER END; "FTYPE┆
0x08c0…08e0 3d 28 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c 2c 52 45 45 4c 2c 54 45 4b 53 54 29 3b 22 2f 56 ┆=(HELTAL,DOBBTAL,REEL,TEKST);"/V┆
0x08e0…0900 48 4f 56 45 44 20 20 20 4b 42 01 14 00 37 00 17 2f 00 15 37 00 17 00 00 00 31 00 00 00 00 00 00 ┆HOVED KB 7 / 7 1 ┆
0x0900…0920 54 59 50 45 3d 28 48 49 4e 54 45 52 56 41 4c 2c 44 49 4e 54 45 52 56 41 4c 2c 52 49 4e 54 45 52 ┆TYPE=(HINTERVAL,DINTERVAL,RINTER┆
0x0920…0940 56 41 4c 2c 44 41 54 4f 2c 43 50 52 29 3b 2f 25 42 45 53 4b 52 49 56 45 4c 53 45 53 54 59 50 45 ┆VAL,DATO,CPR);/%BESKRIVELSESTYPE┆
0x0940…0960 3d 28 46 45 4c 54 44 45 53 43 2c 56 41 4c 49 44 45 53 43 29 3b 25 16 46 45 4c 54 42 45 53 4b 52 ┆=(FELTDESC,VALIDESC);% FELTBESKR┆
0x0960…0980 49 56 45 4c 53 45 3d 52 45 43 4f 52 44 16 12 20 20 20 4e 5b 53 54 45 56 41 4c 3a 4e 46 45 4c 54 ┆IVELSE=RECORD NÆSTEVAL:NFELT┆
0x0980…09a0 3b 12 24 20 20 20 43 41 53 45 20 44 45 53 43 54 59 50 45 3a 42 45 53 4b 52 49 56 45 4c 53 45 53 ┆; $ CASE DESCTYPE:BESKRIVELSES┆
0x09a0…09c0 54 59 50 45 20 4f 46 24 0c 20 20 20 46 45 4c 54 44 45 53 43 3a 0c 19 20 20 28 49 4e 44 50 4f 53 ┆TYPE OF$ FELTDESC: (INDPOS┆
0x09c0…09e0 2c 55 44 50 4f 53 3a 53 4b 5b 52 4d 50 4f 53 3b 19 22 20 20 20 4b 49 4b 4b 45 4e 49 56 45 41 55 ┆,UDPOS:SKÆRMPOS; " KIKKENIVEAU┆
0x09e0…0a00 2c 5b 4e 44 52 45 4e 49 56 45 41 55 3a 4e 49 56 45 41 55 3b 22 15 20 20 20 45 44 49 54 45 52 49 ┆,ÆNDRENIVEAU:NIVEAU;" EDITERI┆
0x0a00…0a20 4e 47 3a 49 4e 54 45 47 45 52 3b 15 1f 20 20 20 4c 45 44 45 54 45 4b 53 54 2c 46 5c 4c 47 45 54 ┆NG:INTEGER; LEDETEKST,FØLGET┆
0x0a20…0a40 45 4b 53 54 3a 53 54 52 49 4e 47 3b 1f 12 20 20 20 49 4e 44 45 4b 53 3a 49 4e 54 45 47 45 52 3b ┆EKST:STRING; INDEKS:INTEGER;┆
0x0a40…0a60 12 12 20 20 20 4c 5b 4e 47 44 45 3a 49 4e 54 45 47 45 52 3b 12 12 20 20 20 46 4f 52 41 4e 30 3a ┆ LÆNGDE:INTEGER; FORAN0:┆
0x0a60…0a80 49 4e 54 45 47 45 52 3b 12 19 20 20 20 43 41 53 45 20 46 45 4c 54 54 59 50 45 3a 46 54 59 50 45 ┆INTEGER; CASE FELTTYPE:FTYPE┆
0x0a80…0aa0 20 4f 46 19 16 20 20 20 52 45 45 4c 3a 28 44 45 43 3a 49 4e 54 45 47 45 52 29 3b 16 1c 20 20 20 ┆ OF REEL:(DEC:INTEGER); ┆
0x0aa0…0ac0 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c 2c 54 45 4b 53 54 3a 28 29 29 3b 1c 0c 20 20 20 56 41 ┆HELTAL,DOBBTAL,TEKST:()); VA┆
0x0ac0…0ae0 4c 49 44 45 53 43 3a 0c 1f 20 20 28 43 41 53 45 20 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 3a ┆LIDESC: (CASE VALIDITETSTYPE:┆
0x0ae0…0b00 56 54 59 50 45 20 4f 46 1f 22 20 20 20 20 20 20 48 49 4e 54 45 52 56 41 4c 3a 28 4d 49 4e 2c 4d ┆VTYPE OF " HINTERVAL:(MIN,M┆
0x0b00…0b20 41 58 3a 49 4e 54 45 47 45 52 29 3b 22 2e 20 20 20 20 20 20 44 49 4e 54 45 52 56 41 4c 3a 28 4d ┆AX:INTEGER);". DINTERVAL:(M┆
0x0b20…0b40 49 4e 31 2c 4d 49 4e 32 2c 4d 41 58 31 2c 4d 41 58 32 3a 49 4e 54 45 47 45 52 29 3b 2e 21 20 20 ┆IN1,MIN2,MAX1,MAX2:INTEGER);.! ┆
0x0b40…0b60 20 20 20 20 52 49 4e 54 45 52 56 41 4c 3a 28 52 4d 49 4e 2c 52 4d 41 58 3a 52 45 41 4c 29 3b 21 ┆ RINTERVAL:(RMIN,RMAX:REAL);!┆
0x0b60…0b80 12 20 20 20 20 20 20 44 41 54 4f 2c 43 50 52 3a 28 29 29 12 04 45 4e 44 3b 04 20 46 45 4c 54 46 ┆ DATO,CPR:()) END; FELTF┆
0x0b80…0ba0 49 4c 3d 46 49 4c 45 20 4f 46 20 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3b 20 25 41 52 41 ┆IL=FILE OF FELTBESKRIVELSE; %ARA┆
0x0ba0…0bc0 52 3d 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 2d 31 31 2e 2e 2d 31 30 29 20 4f 46 20 43 48 41 ┆R=PACKED ARRAY (-11..-10) OF CHA┆
0x0bc0…0be0 52 3b 25 19 52 41 52 3d 41 52 52 41 59 20 28 30 2e 2e 30 29 20 4f 46 20 52 45 41 4c 3b 19 0c 50 ┆R;% RAR=ARRAY (0..0) OF REAL; P┆
0x0be0…0c00 50 4f 53 54 3d 52 45 43 4f 52 44 0c 0e 20 20 20 20 20 20 41 41 3a 41 52 41 52 3b 0e 0b 20 20 20 ┆POST=RECORD AA:ARAR; ┆
0x0c00…0c20 20 20 20 41 3a 41 52 3b 0b 0e 20 20 20 20 20 20 41 41 41 3a 52 41 52 3b 0e 2d 20 20 20 20 20 20 ┆ A:AR; AAA:RAR; - ┆
0x0c20…0c40 43 4f 4e 54 45 4e 54 53 3a 20 41 52 52 41 59 20 28 31 2e 2e 4d 41 58 50 4f 53 54 29 20 4f 46 20 ┆CONTENTS: ARRAY (1..MAXPOST) OF ┆
0x0c40…0c60 49 4e 54 45 47 45 52 2d 04 45 4e 44 3b 04 0f 56 41 52 20 46 45 4c 54 3a 4e 46 45 4c 54 3b 0f 13 ┆INTEGER- END; VAR FELT:NFELT; ┆
0x0c60…0c80 20 20 20 20 48 55 53 4b 4e 49 56 3a 4e 49 56 45 41 55 3b 13 2a 20 20 20 20 50 49 43 54 55 52 45 ┆ HUSKNIV:NIVEAU; * PICTURE┆
0x0c80…0ca0 3a 41 52 52 41 59 20 28 31 2e 2e 4d 41 58 46 45 4c 54 45 52 29 20 4f 46 20 4e 46 45 4c 54 3b 2a ┆:ARRAY (1..MAXFELTER) OF NFELT;*┆
0x0ca0…0cc0 29 20 20 20 20 4e 5c 47 4c 45 52 3a 41 52 52 41 59 20 28 31 2e 2e 4d 41 58 4e 5c 47 4c 45 52 29 ┆) NØGLER:ARRAY (1..MAXNØGLER)┆
0x0cc0…0ce0 20 4f 46 20 4e 46 45 4c 54 3b 29 33 20 20 20 20 4f 50 54 49 4f 4e 2c 49 45 52 2c 49 2c 4a 2c 41 ┆ OF NFELT;)3 OPTION,IER,I,J,A┆
0x0ce0…0d00 4e 54 41 4c 46 45 4c 54 45 52 2c 41 4e 54 41 4c 4e 5c 47 4c 45 52 3a 49 4e 54 45 47 45 52 3b 33 ┆NTALFELTER,ANTALNØGLER:INTEGER;3┆
0x0d00…0d20 11 20 20 20 20 43 48 3a 53 54 52 49 4e 47 28 31 29 3b 11 10 20 20 20 20 4c 49 4e 45 3a 53 54 52 ┆ CH:STRING(1); LINE:STR┆
0x0d20…0d40 49 4e 47 3b 10 11 20 20 20 20 46 46 49 4c 3a 46 45 4c 54 46 49 4c 3b 11 11 20 20 20 20 52 45 47 ┆ING; FFIL:FELTFIL; REG┆
0x0d40…0d60 49 53 54 45 52 3a 49 53 46 3b 11 0f 20 20 20 20 5a 4f 4e 45 3a 5a 5a 4f 4e 45 3b 0f 0f 20 20 20 ┆ISTER:ISF; ZONE:ZZONE; ┆
0x0d60…0d80 20 50 4f 53 54 3a 50 50 4f 53 54 3b 0f 11 20 20 20 20 51 55 51 3a 5e 49 4e 54 45 47 45 52 3b 11 ┆ POST:PPOST; QUQ:^INTEGER; ┆
0x0d80…0da0 07 28 2a 24 4c 2d 2a 29 07 11 28 2a 24 52 2d 2c 49 45 58 43 4f 4d 43 4f 50 2a 29 11 0b 28 2a 24 ┆ (*$L-*) (*$R-,IEXCOMCOP*) (*$┆
0x0da0…0dc0 49 49 4f 50 45 4e 2a 29 0b 0b 28 2a 24 49 53 5b 54 5c 47 2a 29 0b 0e 28 2a 24 49 52 45 41 44 50 ┆IIOPEN*) (*$ISÆTØG*) (*$IREADP┆
0x0dc0…0de0 52 4f 43 2a 29 0e 0e 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0d 28 2a 24 49 46 4f 52 53 4b ┆ROC*) (*$IFINDPOST*) (*$IFORSK┆
0x0de0…0e00 59 44 2a 29 0d 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0c 28 2a 24 49 50 55 54 47 45 54 2a 29 ┆YD*) (*$IICLOSE*) (*$IPUTGET*)┆
0x0e00…0e20 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 0d 28 2a 24 49 4e 45 58 54 52 45 43 2a 29 0d 0c 28 ┆ (*$IINSERT*) (*$INEXTREC*) (┆
0x0e20…0e40 2a 24 49 44 45 4c 45 54 45 2a 29 0c 0e 28 2a 24 49 49 4e 49 54 49 41 54 45 2a 29 0e 0c 28 2a 24 ┆*$IDELETE*) (*$IINITIATE*) (*$┆
0x0e40…0e60 49 52 45 50 4f 52 54 2a 29 0c 07 28 2a 24 4c 2b 2a 29 07 06 28 2a 24 50 2a 29 06 21 50 52 4f 43 ┆IREPORT*) (*$L+*) (*$P*) !PROC┆
0x0e60…0e80 45 44 55 52 45 20 45 52 52 4f 52 28 56 41 52 20 46 49 4c 3a 46 49 4c 4e 41 56 4e 29 3b 21 05 42 ┆EDURE ERROR(VAR FIL:FILNAVN);! B┆
0x0e80…0ea0 45 47 49 4e 05 3d 20 20 57 52 49 54 45 4c 4e 28 27 46 45 4a 4c 20 49 20 52 45 47 49 53 54 45 52 ┆EGIN = WRITELN('FEJL I REGISTER┆
0x0ea0…0ec0 20 27 2c 46 49 4c 2c 27 20 46 45 4a 4c 4b 4f 44 45 20 27 2c 49 45 52 2c 27 20 52 45 54 55 52 4e ┆ ',FIL,' FEJLKODE ',IER,' RETURN┆
0x0ec0…0ee0 27 29 3b 3d 3c 20 20 43 48 3a 3d 27 20 27 3b 45 44 49 54 28 43 48 29 3b 49 46 20 43 48 3d 27 52 ┆');=< CH:=' ';EDIT(CH);IF CH='R┆
0x0ee0…0f00 27 20 54 48 45 4e 20 52 45 50 4f 52 54 28 5a 4f 4e 45 2e 48 2c 52 45 47 49 53 54 45 52 2c 31 29 ┆' THEN REPORT(ZONE.H,REGISTER,1)┆
0x0f00…0f20 3b 3c 1a 20 20 49 43 4c 4f 53 45 28 5a 4f 4e 45 2e 48 2c 52 45 47 49 53 54 45 52 29 3b 1a 0f 20 ┆;< ICLOSE(ZONE.H,REGISTER); ┆
0x0f20…0f40 20 45 58 49 54 28 52 45 47 56 45 44 4c 29 0f 04 45 4e 44 3b 04 21 50 52 4f 43 45 44 55 52 45 20 ┆ EXIT(REGVEDL) END; !PROCEDURE ┆
0x0f40…0f60 4f 46 45 4a 4c 28 56 41 52 20 46 49 4c 3a 46 49 4c 4e 41 56 4e 29 3b 21 0e 56 41 52 20 49 3a 49 ┆OFEJL(VAR FIL:FILNAVN);! VAR I:I┆
0x0f60…0f80 4e 54 45 47 45 52 3b 0e 05 42 45 47 49 4e 05 0f 20 20 47 4f 54 4f 58 59 28 31 2c 32 30 29 3b 0f ┆NTEGER; BEGIN GOTOXY(1,20); ┆
0x0f80…0fa0 4d 20 20 57 52 49 54 45 4c 4e 28 27 52 45 47 49 53 54 45 52 46 45 4a 4c 20 27 2c 49 45 52 2c 27 ┆M WRITELN('REGISTERFEJL ',IER,'┆
0x0fa0…0fc0 20 49 20 27 2c 46 49 4c 2c 27 20 2e 20 53 49 54 55 41 54 49 4f 4e 45 4e 20 45 52 20 46 4f 52 53 ┆ I ',FIL,' . SITUATIONEN ER FORS┆
0x0fc0…0fe0 5c 47 54 20 52 45 44 44 45 54 2e 27 29 3b 4d 2e 20 20 57 52 49 54 45 4c 4e 28 27 54 41 53 54 20 ┆ØGT REDDET.');M. WRITELN('TAST ┆
0x0fe0…1000 30 2c 20 48 56 49 53 20 44 45 52 20 53 4b 41 4c 20 46 4f 52 54 53 5b 54 54 45 53 27 29 3b 2e 37 ┆0, HVIS DER SKAL FORTSÆTTES');.7┆
0x1000…1020 20 20 52 45 50 45 41 54 20 47 4f 54 4f 58 59 28 34 30 2c 32 31 29 3b 52 45 41 44 4c 4e 3b 52 45 ┆ REPEAT GOTOXY(40,21);READLN;RE┆
0x1020…1040 41 44 28 49 29 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 37 1a 20 20 49 46 20 49 3c ┆AD(I) UNTIL IORESULT=0;7 IF I<┆
0x1040…1060 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 28 46 49 4c 29 3b 1a 0d 20 20 43 4c 45 41 52 53 43 52 45 ┆>0 THEN ERROR(FIL); CLEARSCRE┆
0x1060…1080 45 4e 0d 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 12 50 52 4f 43 45 44 55 52 45 20 4c 5b 53 44 ┆EN END; (*$P*) PROCEDURE LÆSD┆
0x1080…10a0 45 53 43 3b 12 05 42 45 47 49 4e 05 19 20 20 52 45 57 52 49 54 45 28 46 46 49 4c 2c 44 45 53 43 ┆ESC; BEGIN REWRITE(FFIL,DESC┆
0x10a0…10c0 4e 41 56 4e 29 3b 19 01 20 01 0c 20 20 47 45 54 28 46 46 49 4c 29 3b 0c 07 20 20 49 3a 3d 30 3b ┆NAVN); GET(FFIL); I:=0;┆
0x10c0…10e0 07 11 20 20 41 4e 54 41 4c 4e 5c 47 4c 45 52 3a 3d 30 3b 11 1b 20 20 57 48 49 4c 45 20 46 46 49 ┆ ANTALNØGLER:=0; WHILE FFI┆
0x10e0…1100 4c 5e 2e 49 4e 44 50 4f 53 2e 58 3e 30 20 44 4f 1b 07 20 20 42 45 47 49 4e 07 0b 20 20 20 20 49 ┆L^.INDPOS.X>0 DO BEGIN I┆
0x1100…1120 3a 3d 49 2b 31 3b 0b 1a 20 20 20 20 43 41 53 45 20 46 46 49 4c 5e 2e 46 45 4c 54 54 59 50 45 20 ┆:=I+1; CASE FFIL^.FELTTYPE ┆
0x1120…1140 4f 46 1a 27 20 20 20 20 52 45 45 4c 3a 4e 45 57 28 50 49 43 54 55 52 45 28 49 29 2c 46 45 4c 54 ┆OF ' REEL:NEW(PICTURE(I),FELT┆
0x1140…1160 44 45 53 43 2c 52 45 45 4c 29 3b 27 38 20 20 20 20 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c 2c ┆DESC,REEL);'8 HELTAL,DOBBTAL,┆
0x1160…1180 54 45 4b 53 54 3a 4e 45 57 28 50 49 43 54 55 52 45 28 49 29 2c 46 45 4c 54 44 45 53 43 2c 48 45 ┆TEKST:NEW(PICTURE(I),FELTDESC,HE┆
0x1180…11a0 4c 54 41 4c 29 38 08 20 20 20 20 45 4e 44 3b 08 15 20 20 20 20 46 45 4c 54 3a 3d 50 49 43 54 55 ┆LTAL)8 END; FELT:=PICTU┆
0x11a0…11c0 52 45 28 49 29 3b 15 17 20 20 20 20 57 49 54 48 20 50 49 43 54 55 52 45 28 49 29 5e 20 44 4f 17 ┆RE(I); WITH PICTURE(I)^ DO ┆
0x11c0…11e0 09 20 20 20 20 42 45 47 49 4e 09 19 20 20 20 20 20 20 44 45 53 43 54 59 50 45 3a 3d 46 45 4c 54 ┆ BEGIN DESCTYPE:=FELT┆
0x11e0…1200 44 45 53 43 3b 19 1f 20 20 20 20 20 20 49 4e 44 50 4f 53 2e 58 3a 3d 46 46 49 4c 5e 2e 49 4e 44 ┆DESC; INDPOS.X:=FFIL^.IND┆
0x1200…1220 50 4f 53 2e 58 3b 1f 1f 20 20 20 20 20 20 49 4e 44 50 4f 53 2e 59 3a 3d 46 46 49 4c 5e 2e 49 4e ┆POS.X; INDPOS.Y:=FFIL^.IN┆
0x1220…1240 44 50 4f 53 2e 59 3b 1f 1d 20 20 20 20 20 20 55 44 50 4f 53 2e 58 3a 3d 46 46 49 4c 5e 2e 55 44 ┆DPOS.Y; UDPOS.X:=FFIL^.UD┆
0x1240…1260 50 4f 53 2e 58 3b 1d 1d 20 20 20 20 20 20 55 44 50 4f 53 2e 59 3a 3d 46 46 49 4c 5e 2e 55 44 50 ┆POS.X; UDPOS.Y:=FFIL^.UDP┆
0x1260…1280 4f 53 2e 59 3b 1d 25 20 20 20 20 20 20 4b 49 4b 4b 45 4e 49 56 45 41 55 3a 3d 46 46 49 4c 5e 2e ┆OS.Y; % KIKKENIVEAU:=FFIL^.┆
0x1280…12a0 4b 49 4b 4b 45 4e 49 56 45 41 55 3b 25 25 20 20 20 20 20 20 5b 4e 44 52 45 4e 49 56 45 41 55 3a ┆KIKKENIVEAU;%% ÆNDRENIVEAU:┆
0x12a0…12c0 3d 46 46 49 4c 5e 2e 5b 4e 44 52 45 4e 49 56 45 41 55 3b 25 21 20 20 20 20 20 20 49 46 20 5b 4e ┆=FFIL^.ÆNDRENIVEAU;%! IF ÆN┆
0x12c0…12e0 44 52 45 4e 49 56 45 41 55 3d 55 4d 55 4c 49 55 53 20 54 48 45 4e 21 0b 20 20 20 20 20 20 42 45 ┆DRENIVEAU=UMULIUS THEN! BE┆
0x12e0…1300 47 49 4e 0b 23 20 20 20 20 20 20 20 20 41 4e 54 41 4c 4e 5c 47 4c 45 52 3a 3d 41 4e 54 41 4c 4e ┆GIN # ANTALNØGLER:=ANTALN┆
0x1300…1320 5c 47 4c 45 52 2b 31 3b 23 27 20 20 20 20 20 20 20 20 4e 5c 47 4c 45 52 28 41 4e 54 41 4c 4e 5c ┆ØGLER+1;#' NØGLER(ANTALNØ┆
0x1320…1340 47 4c 45 52 29 3a 3d 50 49 43 54 55 52 45 28 49 29 27 0a 20 20 20 20 20 20 45 4e 44 3b 0a 21 20 ┆GLER):=PICTURE(I)' END; ! ┆
0x1340…1360 20 20 20 20 20 4c 45 44 45 54 45 4b 53 54 3a 3d 46 46 49 4c 5e 2e 4c 45 44 45 54 45 4b 53 54 3b ┆ LEDETEKST:=FFIL^.LEDETEKST;┆
0x1360…1380 21 23 20 20 20 20 20 20 46 5c 4c 47 45 54 45 4b 53 54 3a 3d 46 46 49 4c 5e 2e 46 5c 4c 47 45 54 ┆!# FØLGETEKST:=FFIL^.FØLGET┆
0x1380…13a0 45 4b 53 54 3b 23 21 20 20 20 20 20 20 45 44 49 54 45 52 49 4e 47 3a 3d 46 46 49 4c 5e 2e 45 44 ┆EKST;#! EDITERING:=FFIL^.ED┆
0x13a0…13c0 49 54 45 52 49 4e 47 3b 21 1f 20 20 20 20 20 20 46 45 4c 54 54 59 50 45 3a 3d 46 46 49 4c 5e 2e ┆ITERING;! FELTTYPE:=FFIL^.┆
0x13c0…13e0 46 45 4c 54 54 59 50 45 3b 1f 1b 20 20 20 20 20 20 49 4e 44 45 4b 53 3a 3d 46 46 49 4c 5e 2e 49 ┆FELTTYPE; INDEKS:=FFIL^.I┆
0x13e0…1400 4e 44 45 4b 53 3b 1b 1b 20 20 20 20 20 20 4c 5b 4e 47 44 45 3a 3d 46 46 49 4c 5e 2e 4c 5b 4e 47 ┆NDEKS; LÆNGDE:=FFIL^.LÆNG┆
0x1400…1420 44 45 3b 1b 1b 20 20 20 20 20 20 46 4f 52 41 4e 30 3a 3d 46 46 49 4c 5e 2e 46 4f 52 41 4e 30 3b ┆DE; FORAN0:=FFIL^.FORAN0;┆
0x1420…1440 1b 2b 20 20 20 20 20 20 49 46 20 46 45 4c 54 54 59 50 45 3d 52 45 45 4c 20 54 48 45 4e 20 44 45 ┆ + IF FELTTYPE=REEL THEN DE┆
0x1440…1460 43 3a 3d 46 46 49 4c 5e 2e 44 45 43 3b 2b 22 20 20 20 20 20 20 57 48 49 4c 45 20 46 46 49 4c 5e ┆C:=FFIL^.DEC;+" WHILE FFIL^┆
0x1460…1480 2e 4e 5b 53 54 45 56 41 4c 3c 3e 4e 49 4c 20 44 4f 22 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 12 ┆.NÆSTEVAL<>NIL DO" BEGIN ┆
0x1480…14a0 20 20 20 20 20 20 20 20 47 45 54 28 46 46 49 4c 29 3b 12 15 20 20 20 20 20 20 20 20 57 49 54 48 ┆ GET(FFIL); WITH┆
0x14a0…14c0 20 46 45 4c 54 5e 20 44 4f 15 24 20 20 20 20 20 20 20 20 43 41 53 45 20 46 46 49 4c 5e 2e 56 41 ┆ FELT^ DO $ CASE FFIL^.VA┆
0x14c0…14e0 4c 49 44 49 54 45 54 53 54 59 50 45 20 4f 46 24 19 20 20 20 20 20 20 20 20 20 20 48 49 4e 54 45 ┆LIDITETSTYPE OF$ HINTE┆
0x14e0…1500 52 56 41 4c 3a 42 45 47 49 4e 19 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RVAL:BEGIN 7 ┆
0x1500…1520 20 20 4e 45 57 28 4e 5b 53 54 45 56 41 4c 2c 56 41 4c 49 44 45 53 43 2c 48 49 4e 54 45 52 56 41 ┆ NEW(NÆSTEVAL,VALIDESC,HINTERVA┆
0x1520…1540 4c 29 3b 37 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 5b 53 54 45 ┆L);7/ NÆSTE┆
0x1540…1560 56 41 4c 5e 2e 4d 49 4e 3a 3d 46 46 49 4c 5e 2e 4d 49 4e 3b 2f 2e 20 20 20 20 20 20 20 20 20 20 ┆VAL^.MIN:=FFIL^.MIN;/. ┆
0x1560…1580 20 20 20 20 20 20 20 20 20 20 20 20 4e 5b 53 54 45 56 41 4c 5e 2e 4d 41 58 3a 3d 46 46 49 4c 5e ┆ NÆSTEVAL^.MAX:=FFIL^┆
0x1580…15a0 2e 4d 41 58 2e 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 18 19 ┆.MAX. END; ┆
0x15a0…15c0 20 20 20 20 20 20 20 20 20 20 44 49 4e 54 45 52 56 41 4c 3a 42 45 47 49 4e 19 37 20 20 20 20 20 ┆ DINTERVAL:BEGIN 7 ┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 4e 5b 53 54 45 56 41 4c 2c 56 41 ┆ NEW(NÆSTEVAL,VA┆
0x15e0…1600 4c 49 44 45 53 43 2c 44 49 4e 54 45 52 56 41 4c 29 3b 37 4c 20 20 20 20 20 20 20 20 20 20 20 20 ┆LIDESC,DINTERVAL);7L ┆
0x1600…1620 20 20 20 20 20 20 20 20 20 20 4e 5b 53 54 45 56 41 4c 5e 2e 4d 49 4e 31 3a 3d 46 46 49 4c 5e 2e ┆ NÆSTEVAL^.MIN1:=FFIL^.┆
0x1620…1640 4d 49 4e 31 3b 4e 5b 53 54 45 56 41 4c 5e 2e 4d 49 4e 32 3a 3d 46 46 49 4c 5e 2e 4d 49 4e 32 3b ┆MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;┆
0x1640…1660 4c 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 5b 53 54 45 56 41 4c ┆LK NÆSTEVAL┆
0x1660…1680 5e 2e 4d 41 58 31 3a 3d 46 46 49 4c 5e 2e 4d 41 58 31 3b 4e 5b 53 54 45 56 41 4c 5e 2e 4d 41 58 ┆^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX┆
0x1680…16a0 32 3a 3d 46 46 49 4c 5e 2e 4d 41 58 32 4b 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2:=FFIL^.MAX2K ┆
0x16a0…16c0 20 20 20 45 4e 44 3b 18 19 20 20 20 20 20 20 20 20 20 20 52 49 4e 54 45 52 56 41 4c 3a 42 45 47 ┆ END; RINTERVAL:BEG┆
0x16c0…16e0 49 4e 19 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 4e 5b ┆IN 7 NEW(NÆ┆
0x16e0…1700 53 54 45 56 41 4c 2c 56 41 4c 49 44 45 53 43 2c 52 49 4e 54 45 52 56 41 4c 29 3b 37 31 20 20 20 ┆STEVAL,VALIDESC,RINTERVAL);71 ┆
0x1700…1720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 5b 53 54 45 56 41 4c 5e 2e 52 4d 49 ┆ NÆSTEVAL^.RMI┆
0x1720…1740 4e 3a 3d 46 46 49 4c 5e 2e 52 4d 49 4e 3b 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N:=FFIL^.RMIN;10 ┆
0x1740…1760 20 20 20 20 20 20 4e 5b 53 54 45 56 41 4c 5e 2e 52 4d 41 58 3a 3d 46 46 49 4c 5e 2e 52 4d 41 58 ┆ NÆSTEVAL^.RMAX:=FFIL^.RMAX┆
0x1760…1780 30 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 18 2e 20 20 20 20 ┆0 END; . ┆
0x1780…17a0 20 20 20 20 20 20 44 41 54 4f 2c 43 50 52 3a 4e 0f 00 0b 00 b8 0b 0a 00 00 00 01 00 10 00 00 00 ┆ DATO,CPR:N ┆
0x17a0…17c0 87 71 00 ab 10 d5 87 71 11 00 00 00 87 72 eb 01 01 95 82 be 12 00 00 00 d5 87 73 00 ab 1f d5 87 ┆ q q r s ┆
0x17c0…17e0 13 00 00 00 c5 a1 17 d5 87 75 d5 87 14 00 00 00 82 ab 1f d5 87 77 a7 29 15 00 00 00 b9 f4 d5 87 ┆ u w ) ┆
0x17e0…1800 79 d5 87 7a 16 00 00 00 0b d5 87 7b 9e 27 d5 87 17 00 00 00 87 7d a5 22 20 b7 10 a1 18 00 00 00 ┆y z æ ' å " ┆
0x1800…1820 a5 22 a6 04 53 54 4f 50 d2 0f 42 00 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 43 00 00 00 ┆ " STOP B P C ┆
0x1820…1840 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f 44 00 00 00 06 50 00 00 00 00 00 80 fc 03 1e 00 d2 0f ┆ P D P ┆
0x1840…1860 45 00 00 00 00 00 00 00 00 00 00 00 b8 0b 0a 00 00 00 01 00 00 00 20 1b 20 20 20 20 20 20 20 20 ┆E ┆
0x1860…1880 20 20 20 20 20 20 20 55 4e 54 49 4c 20 54 41 4c 3d 30 3b 1b 46 20 20 20 20 20 20 20 20 20 20 20 ┆ UNTIL TAL=0; F ┆
0x1880…18a0 20 20 20 20 57 48 49 4c 45 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3c 46 5e 2e 46 4f 52 41 4e 30 ┆ WHILE LENGTH(LINE)<F^.FORAN0┆
0x18a0…18c0 20 44 4f 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 27 30 27 2c 4c 49 4e 45 29 3b 46 41 20 20 20 ┆ DO LINE:=CONCAT('0',LINE);FA ┆
0x18c0…18e0 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 4f 53 54 2e 41 28 46 5e 2e 49 4e 44 45 4b 53 29 ┆ IF POST.A(F^.INDEKS)┆
0x18e0…1900 3c 30 20 54 48 45 4e 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 27 2d 27 2c 4c 49 4e 45 29 41 11 ┆<0 THEN LINE:=CONCAT('-',LINE)A ┆
0x1900…1920 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 11 12 20 20 20 20 20 44 4f 42 42 54 41 4c 3a ┆ END; DOBBTAL:┆
[…truncated at 200 lines…]