|
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: 37856 (0x93e0)
Notes: Mikados_K
Names: »1EDITFIL«
└─⟦8b7ba91bd⟧ Bits:30003596 MIK/MIKADOS diskette DDE COMAL-80 version 2.2, Pascal kildetekster
└─⟦this⟧ »1EDITFIL«
0x0000…0020 (0,) 10 50 52 4f 47 52 41 4d 20 43 4f 4e 56 45 52 54 3b 10 21 28 2a 4f 55 54 50 55 54 2c 4c 49 53 54 ┆ PROGRAM CONVERT; !(*OUTPUT,LIST┆
0x0020…0040 2c 52 42 43 46 49 4c 45 2c 57 4f 52 4b 46 49 4c 45 2a 29 20 21 05 43 4f 4e 53 54 05 46 20 20 54 ┆,RBCFILE,WORKFILE*) ! CONST F T┆
0x0040…0060 58 54 31 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 27 54 52 41 4e 53 4d 49 54 ┆XT1ERROR = 'TRANSMIT┆
0x0060…0080 54 49 4e 47 20 46 52 4f 4d 20 4e 43 52 20 54 4f 20 53 50 43 2f 31 20 2d 20 4e 4f 54 20 54 52 55 ┆TING FROM NCR TO SPC/1 - NOT TRU┆
0x0080…00a0 45 27 3b 46 3f 20 20 54 58 54 32 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 27 ┆E';F? TXT2ERROR = '┆
0x00a0…00c0 52 42 43 2d 46 49 4c 45 20 49 53 20 4e 4f 54 20 41 20 35 37 32 20 2d 20 53 59 53 54 45 4d 46 49 ┆RBC-FILE IS NOT A 572 - SYSTEMFI┆
0x00c0…00e0 4c 45 27 3b 3f 39 20 20 54 58 54 33 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 ┆LE';?9 TXT3ERROR = ┆
0x00e0…0100 27 54 59 50 45 20 2d 20 53 55 50 50 4f 53 45 44 20 54 4f 20 42 45 20 27 27 31 30 27 27 27 3b 39 ┆'TYPE - SUPPOSED TO BE ''10''';9┆
0x0100…0120 42 20 20 54 58 54 34 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 27 54 48 45 20 ┆B TXT4ERROR = 'THE ┆
0x0120…0140 46 49 52 53 54 20 52 45 43 4f 52 44 20 49 53 20 4e 4f 54 20 41 20 4c 45 47 4f 2d 48 45 41 44 45 ┆FIRST RECORD IS NOT A LEGO-HEADE┆
0x0140…0160 52 27 3b 42 43 20 20 54 58 54 35 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 27 ┆R';BC TXT5ERROR = '┆
0x0160…0180 54 48 45 20 46 49 52 53 54 20 52 45 43 4f 52 44 20 49 53 20 4e 4f 54 20 41 20 53 54 41 52 54 2d ┆THE FIRST RECORD IS NOT A START-┆
0x0180…01a0 48 45 41 44 45 52 27 3b 43 3d 20 20 54 58 54 36 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 ┆HEADER';C= TXT6ERROR ┆
0x01a0…01c0 20 20 3d 20 27 54 57 4f 20 53 54 41 52 54 2f 53 54 4f 50 20 48 45 41 44 45 52 53 20 46 4f 4c 4c ┆ = 'TWO START/STOP HEADERS FOLL┆
0x01c0…01e0 4f 57 49 4e 47 27 3b 3d 3b 20 20 54 58 54 37 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 ┆OWING';=; TXT7ERROR ┆
0x01e0…0200 20 3d 20 27 4e 55 4d 42 45 52 20 4f 46 20 52 45 43 4f 52 44 53 20 44 4f 45 53 4e 27 27 54 20 46 ┆ = 'NUMBER OF RECORDS DOESN''T F┆
0x0200…0220 49 54 27 3b 3b 1f 20 20 54 59 50 45 4b 4f 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 ┆IT';; TYPEKORT = ┆
0x0220…0240 27 31 31 27 3b 1f 1f 20 20 54 49 4d 45 53 54 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d ┆'11'; TIMESTK =┆
0x0240…0260 20 30 2e 30 35 3b 1f 27 20 20 50 52 4f 47 52 41 4d 4e 41 56 4e 20 20 20 20 20 20 20 20 20 20 20 ┆ 0.05; ' PROGRAMNAVN ┆
0x0260…0280 3d 20 27 73 79 73 74 65 6d 20 35 37 32 27 3b 27 20 20 20 45 4f 46 4d 41 52 4b 20 20 20 20 20 20 ┆= 'system 572';' EOFMARK ┆
0x0280…02a0 20 20 20 20 20 20 20 20 20 3d 20 31 39 39 39 39 3b 20 47 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = 19999; G ┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02c0…02e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 50 2a 29 47 04 54 59 50 45 ┆ (*$P*)G TYPE┆
0x02e0…0300 04 2f 20 20 4b 53 54 41 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 28 50 52 49 ┆ / KSTAT = (PRI┆
0x0300…0320 4e 54 45 44 2c 4e 4f 54 50 52 49 4e 54 45 44 29 3b 2f 20 20 20 54 49 44 20 20 20 20 20 20 20 20 ┆NTED,NOTPRINTED);/ TID ┆
0x0320…0340 20 20 20 20 20 20 20 20 20 20 20 3d 20 52 45 43 4f 52 44 20 47 20 20 20 20 20 20 20 20 20 20 20 ┆ = RECORD G ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 4f 20 20 20 20 20 20 20 20 3a 20 50 ┆ DATO : P┆
0x0360…0380 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 31 30 29 20 4f 46 20 43 48 41 52 3b 47 47 20 20 ┆ACKED ARRAY (1..10) OF CHAR;GG ┆
0x0380…03a0 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 4b 4c 4f 4b 4b 45 ┆ KLOKKE┆
0x03a0…03c0 4e 20 20 20 20 20 3a 20 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 38 29 20 20 4f 46 20 ┆N : PACKED ARRAY (1..8) OF ┆
0x03c0…03e0 43 48 41 52 3b 47 1e 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 ┆CHAR;G ┆
0x03e0…0400 20 45 4e 44 3b 1e 37 20 20 50 41 52 41 4d 45 54 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3d ┆ END; 7 PARAMETER =┆
0x0400…0420 20 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 39 29 20 4f 46 20 43 48 41 52 3b 37 2b ┆ PACKED ARRAY (1..39) OF CHAR;7+┆
0x0420…0440 20 20 52 45 43 50 4f 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 52 45 43 4f 52 44 ┆ RECPOST = RECORD┆
0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 2b 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ +2 ┆
0x0460…0480 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 32 ┆ START : INTEGER;2┆
0x0480…04a0 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4c ┆2 SL┆
0x04a0…04c0 55 54 20 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆UT : INTEGER;20 ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 53 54 41 54 55 53 20 20 20 20 3a 20 4b ┆ PSTATUS : K┆
0x04e0…0500 53 54 41 54 3b 30 32 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 ┆STAT;02 ┆
0x0500…0520 20 20 20 20 52 53 54 41 52 54 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 32 32 20 20 20 20 20 ┆ RSTART : INTEGER;22 ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 53 4c 55 54 20 20 20 ┆ RSLUT ┆
0x0540…0560 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 32 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : INTEGER;2 ┆
0x0560…0580 20 20 20 20 20 20 20 20 20 45 4e 44 3b 1e 03 56 41 52 03 24 20 20 50 41 52 4d 20 20 20 20 20 20 ┆ END; VAR $ PARM ┆
0x0580…05a0 20 20 20 20 20 20 20 20 20 20 20 20 3a 5e 50 41 52 41 4d 45 54 45 52 3b 24 1e 20 20 55 52 20 20 ┆ :^PARAMETER;$ UR ┆
0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 5e 54 49 44 3b 1e 2a 20 20 57 4f 52 4b ┆ :^TID; * WORK┆
0x05c0…05e0 46 49 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 46 49 4c 45 20 4f 46 20 52 45 43 50 ┆FIL : FILE OF RECP┆
0x05e0…0600 4f 53 54 3b 2a 1f 20 20 52 42 43 46 49 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 ┆OST;* RBCFIL : ┆
0x0600…0620 54 45 58 54 3b 1f 21 20 20 50 4f 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a ┆TEXT; ! POST :┆
0x0620…0640 20 53 54 52 49 4e 47 3b 21 21 20 20 4c 41 4e 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STRING;!! LAND ┆
0x0640…0660 20 20 3a 20 53 54 52 49 4e 47 3b 21 21 20 20 54 45 53 54 46 5c 4c 47 45 20 20 20 20 20 20 20 20 ┆ : STRING;!! TESTFØLGE ┆
0x0660…0680 20 20 20 20 20 3a 20 53 54 52 49 4e 47 3b 21 24 20 20 49 4e 49 54 20 20 20 20 20 20 20 20 20 20 ┆ : STRING;!$ INIT ┆
0x0680…06a0 20 20 20 20 20 20 20 20 3a 20 53 54 52 49 4e 47 28 34 29 3b 24 24 20 20 53 56 41 52 20 20 20 20 ┆ : STRING(4);$$ SVAR ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 53 54 52 49 4e 47 28 31 29 3b 24 1f 20 20 52 45 ┆ : STRING(1);$ RE┆
0x06c0…06e0 43 54 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 52 45 41 4c 3b 1f 22 20 20 53 ┆CTV : REAL; " S┆
0x06e0…0700 49 44 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 22 ┆IDE : INTEGER;"┆
0x0700…0720 22 20 20 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 49 4e 54 45 47 ┆" I : INTEG┆
0x0720…0740 45 52 3b 22 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ER;"G ┆
0x0740…0760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0760…0780 20 20 20 20 20 20 28 2a 24 50 2a 29 47 23 46 55 4e 43 54 49 4f 4e 20 4b 4f 4e 56 34 28 54 41 4c ┆ (*$P*)G#FUNCTION KONV4(TAL┆
0x0780…07a0 3a 53 54 52 49 4e 47 29 3a 49 4e 54 45 47 45 52 3b 23 20 56 41 52 20 20 20 20 20 20 53 55 4d 46 ┆:STRING):INTEGER;# VAR SUMF┆
0x07a0…07c0 45 4c 54 20 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 3b 20 20 20 20 20 20 20 20 20 20 20 45 58 ┆ELT :INTEGER; EX┆
0x07c0…07e0 50 4f 4e 45 4e 54 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PONENT :INTEGER; ┆
0x07e0…0800 58 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 49 4e 54 45 47 45 52 3b 20 05 42 45 47 49 4e 05 12 ┆X :INTEGER; BEGIN ┆
0x0800…0820 20 20 20 20 20 20 20 53 55 4d 46 45 4c 54 3a 3d 30 3b 12 13 20 20 20 20 20 20 20 45 58 50 4f 4e ┆ SUMFELT:=0; EXPON┆
0x0820…0840 45 4e 54 3a 3d 31 3b 13 1b 20 20 20 20 20 20 20 46 4f 52 20 58 3a 3d 34 20 44 4f 57 4e 54 4f 20 ┆ENT:=1; FOR X:=4 DOWNTO ┆
0x0840…0860 31 20 44 4f 1b 0e 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0e 36 20 20 20 20 20 20 20 20 20 20 ┆1 DO BEGIN 6 ┆
0x0860…0880 20 53 55 4d 46 45 4c 54 3a 3d 53 55 4d 46 45 4c 54 2b 28 4f 52 44 28 54 41 4c 28 58 29 29 2d 34 ┆ SUMFELT:=SUMFELT+(ORD(TAL(X))-4┆
0x0880…08a0 38 29 2a 45 58 50 4f 4e 45 4e 54 3b 36 21 20 20 20 20 20 20 20 20 20 20 20 45 58 50 4f 4e 45 4e ┆8)*EXPONENT;6! EXPONEN┆
0x08a0…08c0 54 3a 3d 45 58 50 4f 4e 45 4e 54 2a 31 30 3b 21 0d 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 18 ┆T:=EXPONENT*10;! END; ┆
0x08c0…08e0 20 20 20 20 20 20 20 20 20 4b 4f 4e 56 34 3a 3d 53 55 4d 46 45 4c 54 3b 18 04 45 4e 44 3b 04 01 ┆ KONV4:=SUMFELT; END; ┆
0x08e0…0900 20 01 1f 46 55 4e 43 54 49 4f 4e 20 4b 38 4e 56 28 54 41 4c 3a 53 54 52 49 4e 47 29 3a 52 45 41 ┆ FUNCTION K8NV(TAL:STRING):REA┆
0x0900…0920 4c 3b 1f 03 56 41 52 03 1f 20 20 53 55 4d 46 45 4c 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L; VAR SUMFELT ┆
0x0920…0940 20 3a 20 52 45 41 4c 3b 1f 1f 20 20 45 58 50 4f 4e 45 4e 54 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : REAL; EXPONENT ┆
0x0940…0960 20 20 3a 20 52 45 41 4c 3b 1f 22 20 20 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : REAL; " X ┆
0x0960…0980 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 22 05 42 45 47 49 4e 05 0d 20 20 53 55 4d 46 45 4c 54 3a ┆ : INTEGER;" BEGIN SUMFELT:┆
0x0980…09a0 3d 30 3b 0d 0e 20 20 45 58 50 4f 4e 45 4e 54 3a 3d 31 3b 0e 16 20 20 46 4f 52 20 58 3a 3d 38 20 ┆=0; EXPONENT:=1; FOR X:=8 ┆
0x09a0…09c0 44 4f 57 4e 54 4f 20 31 20 44 4f 16 09 20 20 20 20 42 45 47 49 4e 09 33 20 20 20 20 20 20 53 55 ┆DOWNTO 1 DO BEGIN 3 SU┆
0x09c0…09e0 4d 46 45 4c 54 3a 3d 53 55 4d 46 45 4c 54 2b 28 28 4f 52 44 28 54 41 4c 28 58 29 29 2d 34 38 29 ┆MFELT:=SUMFELT+((ORD(TAL(X))-48)┆
0x09e0…0a00 2a 45 58 50 4f 4e 45 4e 54 29 3b 33 1c 20 20 20 20 20 20 45 58 50 4f 4e 45 4e 54 3a 3d 45 58 50 ┆*EXPONENT);3 EXPONENT:=EXP┆
0x0a00…0a20 4f 4e 45 4e 54 2a 31 30 3b 1c 08 20 20 20 20 45 4e 44 3b 08 10 20 20 4b 38 4e 56 3a 3d 53 55 4d ┆ONENT*10; END; K8NV:=SUM┆
0x0a20…0a40 46 45 4c 54 3b 10 04 45 4e 44 3b 04 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FELT; END; G ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a60…0a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 50 2a 29 47 1f 50 52 4f 43 45 44 55 52 45 20 ┆ (*$P*)G PROCEDURE ┆
0x0a80…0aa0 49 4f 46 41 55 4c 54 28 53 54 52 3a 20 53 54 52 49 4e 47 29 3b 1f 03 56 41 52 03 22 20 20 49 4f ┆IOFAULT(STR: STRING); VAR " IO┆
0x0aa0…0ac0 56 5b 52 44 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 22 05 ┆VÆRDI : INTEGER;" ┆
0x0ac0…0ae0 42 45 47 49 4e 05 14 20 20 49 4f 56 5b 52 44 49 3a 3d 49 4f 52 45 53 55 4c 54 3b 14 34 20 20 57 ┆BEGIN IOVÆRDI:=IORESULT; 4 W┆
0x0ae0…0b00 52 49 54 45 4c 4e 28 27 45 52 52 4f 52 20 4e 4f 2e 20 20 27 2c 49 4f 56 5b 52 44 49 2c 27 20 20 ┆RITELN('ERROR NO. ',IOVÆRDI,' ┆
0x0b00…0b20 20 49 4e 20 46 49 4c 45 20 20 27 2c 53 54 52 29 3b 34 1d 20 20 57 52 49 54 45 4c 4e 28 27 50 52 ┆ IN FILE ',STR);4 WRITELN('PR┆
0x0b20…0b40 4f 47 52 41 4d 20 41 42 4f 52 54 45 44 27 29 3b 1d 10 20 20 45 58 49 54 28 50 52 4f 47 52 41 4d ┆OGRAM ABORTED'); EXIT(PROGRAM┆
0x0b40…0b60 29 3b 10 04 45 4e 44 3b 04 01 20 01 30 50 52 4f 43 45 44 55 52 45 20 4e 55 4d 41 53 43 28 56 41 ┆); END; 0PROCEDURE NUMASC(VA┆
0x0b60…0b80 52 20 53 54 52 3a 20 53 54 52 49 4e 47 3b 20 4e 58 20 3a 20 49 4e 54 45 47 45 52 29 3b 30 05 42 ┆R STR: STRING; NX : INTEGER);0 B┆
0x0b80…0ba0 45 47 49 4e 05 0e 20 20 53 54 52 3a 3d 27 20 20 20 20 27 3b 0e 20 20 20 53 54 52 28 31 29 3a 3d ┆EGIN STR:=' '; STR(1):=┆
0x0ba0…0bc0 43 48 52 28 28 4e 58 20 44 49 56 20 31 30 30 30 29 2b 34 38 29 3b 20 28 20 20 53 54 52 28 32 29 ┆CHR((NX DIV 1000)+48); ( STR(2)┆
0x0bc0…0be0 3a 3d 43 48 52 28 28 28 4e 58 20 44 49 56 20 31 30 30 29 20 4d 4f 44 20 31 30 29 2b 34 38 29 3b ┆:=CHR(((NX DIV 100) MOD 10)+48);┆
0x0be0…0c00 28 28 20 20 53 54 52 28 33 29 3a 3d 43 48 52 28 28 28 4e 58 20 44 49 56 20 31 30 29 20 4d 4f 44 ┆(( STR(3):=CHR(((NX DIV 10) MOD┆
0x0c00…0c20 20 31 30 30 29 2b 34 38 29 3b 28 1e 20 20 53 54 52 28 34 29 3a 3d 43 48 52 28 28 4e 58 20 4d 4f ┆ 100)+48);( STR(4):=CHR((NX MO┆
0x0c20…0c40 44 20 31 30 29 2b 34 38 29 3b 1e 04 45 4e 44 3b 04 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D 10)+48); END; G ┆
0x0c40…0c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 50 2a 29 47 18 46 55 4e 43 54 ┆ (*$P*)G FUNCT┆
0x0c80…0ca0 49 4f 4e 20 45 52 52 4f 52 31 3a 42 4f 4f 4c 45 41 4e 3b 18 03 56 41 52 03 21 20 20 43 48 45 43 ┆ION ERROR1:BOOLEAN; VAR ! CHEC┆
0x0ca0…0cc0 4b 53 54 52 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 3a 20 53 54 52 49 4e 47 3b 21 05 42 45 47 ┆KSTRING : STRING;! BEG┆
0x0cc0…0ce0 49 4e 05 20 20 20 43 48 45 43 4b 53 54 52 49 4e 47 3a 3d 43 4f 50 59 28 50 4f 53 54 2c 31 36 2c ┆IN CHECKSTRING:=COPY(POST,16,┆
0x0ce0…0d00 33 34 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 33 38 32 30 32 34 ┆34000 MM102382024┆
0x0d00…0d20 33 37 33 30 30 33 30 38 30 33 38 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆37300308038100000000000000000000┆
0x0d20…0d40 20 20 20 20 33 36 35 37 33 37 30 34 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆ 3657370400000000000000000000┆
0x0d40…0d60 30 30 30 30 4d 4d 31 30 31 30 37 33 33 32 36 36 39 33 30 30 30 33 39 33 32 30 30 30 31 38 30 42 ┆0000MM1010733266930003932000180B┆
0x0d60…0d80 45 41 52 2e 50 4c 2e 32 58 32 20 48 55 42 20 57 2e 4f 2f 54 59 52 45 4b 39 20 20 30 30 30 30 37 ┆EAR.PL.2X2 HUB W.O/TYREK9 00007┆
0x0d80…0da0 35 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 30 37 33 33 32 36 36 39 ┆500 MM10207332669┆
0x0da0…0dc0 33 30 30 34 30 33 31 36 31 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 ┆300403161100000000000000000000 ┆
0x0dc0…0de0 20 20 31 34 35 34 31 34 39 32 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆ 145414920000000000000000000000┆
0x0de0…0e00 30 30 4d 4d 31 30 31 33 30 30 34 32 36 32 31 33 30 30 31 35 30 33 31 30 30 30 34 30 30 42 52 49 ┆00MM1013004262130015031000400BRI┆
0x0e00…0e20 43 4b 20 31 58 32 20 42 4c 41 43 4b 20 20 20 20 20 20 20 20 20 4b 39 20 20 30 30 30 31 33 33 30 ┆CK 1X2 BLACK K9 0001330┆
0x0e20…0e40 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 33 30 30 34 32 36 32 31 33 30 ┆0 MM1023004262130┆
0x0e40…0e60 30 33 30 34 30 35 36 31 37 30 37 30 31 33 30 34 33 31 30 30 30 30 30 30 30 30 30 30 20 20 20 20 ┆0304056170701304310000000000 ┆
0x0e60…0e80 36 33 36 31 36 35 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆63616510000000000000000000000000┆
0x0e80…0ea0 4d 4d 31 30 31 33 38 31 35 32 33 30 33 31 30 30 30 32 35 33 31 30 30 30 33 37 32 4d 49 4e 49 20 ┆MM1013815230310002531000372MINI ┆
0x0ea0…0ec0 48 49 50 20 42 4c 55 45 20 20 20 20 20 20 20 20 20 20 20 4b 39 20 20 30 30 30 32 33 35 30 30 20 ┆HIP BLUE K9 00023500 ┆
0x0ec0…0ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 33 38 31 35 32 33 30 33 33 30 30 33 ┆ MM102381523033003┆
0x0ee0…0f00 31 30 30 35 34 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 35 ┆10054100000000000000000000 05┆
0x0f00…0f20 39 37 30 36 32 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d ┆970621000000000000000000000000MM┆
0x0f20…0f40 31 30 31 33 39 35 38 32 33 31 37 31 31 30 30 30 32 33 31 30 30 30 34 33 31 50 4c 41 54 45 20 36 ┆1013958231711000231000431PLATE 6┆
0x0f40…0f60 58 36 20 42 4c 55 45 20 20 20 20 20 20 20 20 20 20 4b 38 20 20 30 30 30 30 33 34 35 30 20 20 20 ┆X6 BLUE K8 00003450 ┆
0x0f60…0f80 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 33 39 35 38 32 33 31 37 33 30 30 34 30 33 ┆ MM10239582317300403┆
0x0f80…0fa0 31 31 37 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 31 31 35 ┆117100000000000000000000 0115┆
0x0fa0…0fc0 30 31 31 36 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 ┆0116000000000000000000000000MM10┆
0x0fc0…0fe0 31 33 39 35 38 32 38 30 36 31 30 30 30 32 33 33 31 30 30 30 34 33 31 50 4c 41 54 45 20 36 58 36 ┆13958280610002331000431PLATE 6X6┆
0x0fe0…1000 20 47 52 45 45 4e 20 20 20 20 20 20 20 20 20 4b 38 20 20 30 30 30 30 33 34 35 30 20 20 20 20 20 ┆ GREEN K8 00003450 ┆
0x1000…1020 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 33 39 35 38 32 38 30 36 33 30 30 34 30 31 32 31 ┆ MM1023958280630040121┆
0x1020…1040 39 32 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 30 39 39 30 31 ┆9200000000000000000000 009901┆
0x1040…1060 32 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 30 ┆21000000000000000000000000MM1010┆
0x1060…1080 37 33 33 32 39 32 32 33 30 30 30 30 38 33 32 30 30 30 30 37 39 57 49 4e 44 4f 57 46 52 41 4d 45 ┆733292230000832000079WINDOWFRAME┆
0x1080…10a0 20 31 58 34 58 35 20 57 2e 47 4c 2e 42 4b 36 20 20 30 30 30 30 32 30 30 30 20 20 20 20 20 20 20 ┆ 1X4X5 W.GL.BK6 00002000 ┆
0x10a0…10c0 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 30 37 33 33 32 39 32 32 33 30 30 34 30 34 31 38 30 31 ┆ MM102073329223004041801┆
0x10c0…10e0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 32 34 31 30 32 34 38 ┆00000000000000000000 02410248┆
0x10e0…1100 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 33 34 38 ┆000000000000000000000000MM101348┆
0x1100…1120 30 32 36 31 34 31 30 30 30 32 30 33 31 30 30 30 34 35 33 50 52 4f 50 45 4c 4c 45 52 20 42 4c 41 ┆0261410002031000453PROPELLER BLA┆
0x1120…1140 43 4b 20 20 20 20 20 20 20 20 20 4b 33 20 20 30 30 30 31 31 30 30 30 20 20 20 20 20 20 20 20 20 ┆CK K3 00011000 ┆
0x1140…1160 20 20 20 20 20 20 20 4d 4d 31 30 32 33 34 38 30 32 36 31 34 33 30 30 34 30 31 31 30 39 32 30 30 ┆ MM10234802614300401109200┆
0x1160…1180 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 30 37 38 30 30 39 37 30 30 ┆000000000000000000 0078009700┆
0x1180…11a0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 30 38 35 32 ┆0000000000000000000000MM10140852┆
0x11a0…11c0 31 31 32 31 30 30 30 30 35 33 31 30 30 30 34 37 33 50 4c 41 54 45 20 31 58 31 20 57 2f 48 4f 4c ┆11210000531000473PLATE 1X1 W/HOL┆
0x11c0…11e0 44 45 52 20 52 45 44 20 20 4b 39 20 20 30 30 30 34 36 30 30 30 20 20 20 20 20 20 20 20 20 20 20 ┆DER RED K9 00046000 ┆
0x11e0…1200 20 20 20 20 20 4d 4d 31 30 32 34 30 38 35 32 31 31 32 33 30 30 34 30 36 31 38 30 31 30 30 30 30 ┆ MM1024085211230040618010000┆
0x1200…1220 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 31 30 30 30 31 30 34 30 30 30 30 ┆0000000000000000 010001040000┆
0x1220…1240 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 33 34 37 32 36 30 ┆00000000000000000000MM1014347260┆
0x1240…1260 38 31 30 30 30 30 37 33 31 30 30 30 32 33 30 57 49 4e 44 4f 57 46 52 41 4d 45 20 31 58 34 58 35 ┆810000731000230WINDOWFRAME 1X4X5┆
0x1260…1280 20 42 4c 41 43 4b 20 4b 36 20 20 30 30 30 30 32 32 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BLACK K6 00002200 ┆
0x1280…12a0 20 20 20 4d 4d 31 30 32 34 33 34 37 32 36 30 38 33 30 30 33 30 35 30 33 33 31 30 30 30 30 30 30 ┆ MM102434726083003050331000000┆
0x12a0…12c0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 31 38 31 30 31 38 37 30 30 30 30 30 30 ┆00000000000000 01810187000000┆
0x12c0…12e0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 34 39 32 32 36 31 33 31 ┆000000000000000000MM101449226131┆
0x12e0…1300 31 30 30 30 31 33 31 30 30 30 36 35 31 48 4f 52 53 45 2c 20 48 45 41 44 20 42 4c 41 43 4b 20 20 ┆1000131000651HORSE, HEAD BLACK ┆
0x1300…1320 20 20 20 20 20 4b 36 20 20 30 30 30 30 36 34 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ K6 00006400 ┆
0x1320…1340 20 4d 4d 31 30 32 34 34 39 32 32 36 31 33 33 30 30 33 31 33 30 33 33 32 30 30 30 30 30 30 30 30 ┆ MM10244922613300313033200000000┆
0x1340…1360 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 35 39 34 30 35 39 34 30 30 30 30 30 30 30 30 ┆000000000000 0594059400000000┆
0x1360…1380 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 32 37 35 32 31 33 31 31 30 30 ┆0000000000000000MM10142752131100┆
0x1380…13a0 30 33 31 33 31 30 30 30 34 34 32 48 49 4e 47 45 50 4c 2e 20 31 58 32 2c 35 2c 20 33 50 49 4e 53 ┆03131000442HINGEPL. 1X2,5, 3PINS┆
0x13a0…13c0 20 52 45 4b 33 20 20 30 30 30 31 31 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d ┆ REK3 00011100 M┆
0x13c0…13e0 4d 31 30 32 34 32 37 35 32 31 33 31 33 30 30 34 30 37 30 35 39 31 30 30 30 30 30 30 30 30 30 30 ┆M1024275213130040705910000000000┆
0x13e0…1400 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 35 35 38 30 35 38 38 30 30 30 30 30 30 30 30 30 30 ┆0000000000 055805880000000000┆
0x1400…1420 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 32 31 38 31 30 34 33 31 31 30 30 30 ┆00000000000000MM1014218104311000┆
0x1420…1440 38 33 31 30 30 30 34 34 34 47 41 52 41 47 45 20 50 41 4e 45 4c 20 43 4c 45 41 52 20 20 20 20 20 ┆831000444GARAGE PANEL CLEAR ┆
0x1440…1460 20 4b 36 20 20 30 30 30 31 33 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 ┆ K6 00013100 MM1┆
0x1460…1480 30 32 34 32 31 38 31 30 34 33 33 30 30 34 30 37 30 30 35 31 30 30 30 30 30 30 30 30 30 30 30 30 ┆02421810433004070051000000000000┆
0x1480…14a0 30 30 30 30 30 30 30 30 20 20 20 20 30 37 35 31 30 37 35 38 30 30 30 30 30 30 30 30 30 30 30 30 ┆00000000 07510758000000000000┆
0x14a0…14c0 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 34 39 32 30 31 31 32 31 30 30 30 35 36 33 ┆000000000000MM101449201121000563┆
0x14c0…14e0 31 30 30 30 36 35 31 48 4f 52 53 45 2c 20 48 45 41 44 20 57 48 49 54 45 20 20 20 20 20 20 20 4b ┆1000651HORSE, HEAD WHITE K┆
0x14e0…1500 36 20 20 30 30 30 30 36 34 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 ┆6 00006400 MM102┆
0x1500…1520 34 34 39 32 30 31 31 32 33 30 30 33 31 33 30 32 37 32 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆44920112300313027200000000000000┆
0x1520…1540 30 30 30 30 30 30 20 20 20 20 30 34 36 30 30 35 31 35 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆000000 0460051500000000000000┆
0x1540…1560 30 30 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 32 31 33 30 31 34 36 31 31 30 30 30 32 33 31 30 ┆0000000000MM10142130146110002310┆
0x1560…1580 30 30 36 35 32 52 4f 4f 46 20 34 58 34 20 57 2f 48 49 4e 47 45 20 57 48 49 54 45 20 20 4b 38 20 ┆00652ROOF 4X4 W/HINGE WHITE K8 ┆
0x1580…15a0 20 30 30 30 30 39 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 34 32 ┆ 00009300 MM10242┆
0x15a0…15c0 31 33 30 31 34 36 33 30 30 34 30 37 30 36 37 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆13014630040706710000000000000000┆
0x15c0…15e0 30 30 30 30 20 20 20 20 30 32 39 36 30 32 39 37 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆0000 029602970000000000000000┆
0x15e0…1600 30 30 30 30 30 30 30 30 4d 4d 31 30 31 34 36 39 37 30 32 30 34 31 30 30 30 31 34 33 31 30 30 30 ┆00000000MM1014697020410001431000┆
0x1600…1620 34 34 37 54 20 50 49 45 43 45 20 47 52 45 59 20 20 20 20 20 20 20 20 20 20 20 20 4b 32 20 20 30 ┆447T PIECE GREY K2 0┆
0x1620…1640 30 30 32 30 30 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 34 36 39 37 ┆0020001 MM1024697┆
0x1640…1660 30 32 30 34 33 30 30 34 30 38 31 37 30 34 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆02043004081704000000000000000000┆
0x1660…1680 30 30 20 20 20 20 30 30 34 30 30 30 35 33 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆00 00400053000000000000000000┆
0x1680…16a0 30 30 30 30 30 30 4d 4d 31 30 31 35 32 39 34 30 30 32 37 33 30 30 30 39 37 34 31 30 30 35 31 32 ┆000000MM101529400273000974100512┆
0x16a0…16c0 35 50 52 45 50 41 43 4b 45 44 20 42 41 47 20 31 20 46 4f 52 20 36 33 37 32 4b 38 20 20 30 30 30 ┆5PREPACKED BAG 1 FOR 6372K8 000┆
0x16c0…16e0 30 30 31 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 35 32 39 34 30 30 ┆00110 MM102529400┆
0x16e0…1700 32 37 33 30 31 31 30 37 30 35 39 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆27301107059100000000000000000000┆
0x1700…1720 20 20 20 20 32 30 35 31 32 31 34 37 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆ 2051214700000000000000000000┆
0x1720…1740 30 30 30 30 4d 4d 31 30 31 35 31 34 32 31 30 31 35 33 30 30 31 33 30 34 31 30 30 35 31 32 35 50 ┆0000MM1015142101530013041005125P┆
0x1740…1760 52 45 50 41 43 4b 45 44 20 42 41 47 20 31 31 20 46 2e 20 37 37 34 30 4b 38 20 20 30 30 30 30 30 ┆REPACKED BAG 11 F. 7740K8 00000┆
0x1760…1780 30 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 35 31 34 32 31 30 31 35 ┆090 MM10251421015┆
0x1780…17a0 33 30 31 31 30 34 30 32 30 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 ┆301104020100000000000000000000 ┆
0x17a0…17c0 20 20 30 32 35 34 30 33 38 33 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆ 025403830000000000000000000000┆
0x17c0…17e0 30 30 4d 4d 31 30 31 35 32 34 37 30 32 32 31 33 30 30 30 31 32 34 31 30 30 35 31 32 35 50 52 45 ┆00MM1015247022130001241005125PRE┆
0x17e0…1800 50 41 43 4b 45 44 20 42 41 47 20 33 20 46 4f 52 20 38 37 31 30 4b 38 20 20 30 30 30 30 31 30 30 ┆PACKED BAG 3 FOR 8710K8 0000100┆
0x1800…1820 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 35 32 34 37 30 32 32 31 33 30 ┆0 MM1025247022130┆
0x1820…1840 31 31 30 36 30 33 36 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 ┆1106036100000000000000000000 ┆
0x1840…1860 30 30 36 37 30 30 37 38 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 ┆00670078000000000000000000000000┆
0x1860…1880 4d 4d 31 30 31 35 34 37 35 30 32 30 36 33 30 30 31 39 30 34 31 30 30 35 31 32 35 50 52 45 50 41 ┆MM1015475020630019041005125PREPA┆
0x1880…18a0 43 4b 45 44 20 42 41 47 20 33 20 46 2f 36 30 37 33 20 20 4b 38 20 20 30 30 30 30 30 31 36 30 20 ┆CKED BAG 3 F/6073 K8 00000160 ┆
0x18a0…18c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4d 31 30 32 35 34 37 35 30 32 30 36 33 30 31 31 ┆ MM102547502063011┆
0x18c0…18e0 30 37 30 37 35 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 20 20 20 20 30 39 ┆07075100000000000000000000 09┆
0x18e0…1900 35 31 31 31 34 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 4d 4d ┆511140000000000000000000000000MM┆
0x1900…1920 31 30 31 35 33 35 39 30 31 32 31 33 30 30 30 35 33 34 31 30 30 35 31 32 36 50 52 45 50 41 43 4b ┆1015359012130005341005126PREPACK┆
[…truncated at 200 lines…]