|
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: 2880 (0xb40)
Types: TextFile
Notes: Mikados_K
Names: »PAP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »PAP.K«
KUNDE.NR(1):=PLUORD.HEAD(1); KUNDE.NR(2):=PLUORD.HEAD(2); GETREC(KZ.H,FKUN,KUNDE.A); IF IER<>0 THEN ERROR;
0x000…020 Line {l1=0x1e, l2=» KUNDE.NR(1):=PLUORD.HEAD(1);«, l3=0x1e}
0x020…040 Line {l1=0x1e, l2=» KUNDE.NR(2):=PLUORD.HEAD(2);«, l3=0x1e}
0x040…05e Line {l1=0x1c, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1c}
0x05e…077 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x077…080 00 00 20 20 20 20 20 20 27 ┆ '┆
0x080…0a0 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 33 29 3a 3d 27 42 61 6e 65 20 20 20 20 20 20 20 20 20 20 ┆;// SENDTPR(3):='Bane ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 34 29 ┆ ';// SENDTPR(4)┆
0x0c0…0e0 3a 3d 27 46 72 61 67 74 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:='Fragtmand ┆
0x0e0…100 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 35 29 3a 3d 27 53 61 6d 73 6f 6e 20 2f 20 4c 69 6e ┆ ';// SENDTPR(5):='Samson / Lin┆
0x100…120 69 65 67 6f 64 73 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 ┆iegods ';// SENDTPR(┆
0x120…140 36 29 3a 3d 27 53 61 6d 73 6f 6e 20 2f 20 4f 6c 73 6f 6e 20 26 20 57 72 69 67 68 74 20 20 20 20 ┆6):='Samson / Olson & Wright ┆
0x140…160 20 20 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 37 29 3a 3d 27 4c 65 6d 61 6e 20 20 20 20 20 ┆ ';// SENDTPR(7):='Leman ┆
0x160…180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 ┆ ';// SENDTP┆
0x180…1a0 52 28 38 29 3a 3d 27 44 65 72 65 73 20 74 72 61 6e 73 70 6f 72 74 7c 72 20 20 20 20 20 20 20 20 ┆R(8):='Deres transportør ┆
0x1a0…1c0 20 20 20 20 20 27 3b 2f 2f 20 20 53 45 4e 44 54 50 52 28 39 29 3a 3d 27 53 6b 69 62 20 20 20 20 ┆ ';// SENDTPR(9):='Skib ┆
0x1c0…1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 2f 30 20 20 53 45 4e 44 ┆ ';/0 SEND┆
0x1e0…200 54 50 52 28 31 30 29 3a 3d 27 56 65 72 69 74 61 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TPR(10):='Veritas ┆
0x200…220 20 20 20 20 20 20 20 20 27 3b 30 30 20 20 53 45 4e 44 54 50 52 28 31 31 29 3a 3d 27 44 46 44 53 ┆ ';00 SENDTPR(11):='DFDS┆
0x220…240 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 27 3b 30 30 20 20 ┆ ';00 ┆
0x240…260 53 45 4e 44 54 50 52 28 31 32 29 3a 3d 27 46 61 72 6f 65 20 73 68 69 70 20 20 20 20 20 20 20 20 ┆SENDTPR(12):='Faroe ship ┆
0x260…280 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 30 30 20 20 53 45 4e 44 54 50 52 28 31 33 29 3a 3d 27 ┆ ';00 SENDTPR(13):='┆
0x280…2a0 56 6f 67 6e 20 2f 20 62 69 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b ┆Vogn / bil ';┆
0x2a0…2c0 30 30 20 20 53 45 4e 44 54 50 52 28 31 34 29 3a 3d 27 41 66 68 65 6e 74 65 74 20 20 20 20 20 20 ┆00 SENDTPR(14):='Afhentet ┆
0x2c0…2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 30 14 20 20 46 4f 52 20 49 3a 3d 31 35 20 ┆ ';0 FOR I:=15 ┆
0x2e0…300 54 4f 20 31 39 20 44 4f 14 30 20 20 53 45 4e 44 54 50 52 28 49 29 3a 3d 20 27 20 20 20 20 20 20 ┆TO 19 DO 0 SENDTPR(I):= ' ┆
0x300…320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 30 30 20 20 53 45 ┆ ';00 SE┆
0x320…340 4e 44 54 50 52 28 32 30 29 3a 3d 27 42 72 65 76 64 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NDTPR(20):='Brevdue ┆
0x340…360 20 20 20 20 20 20 20 20 20 20 27 3b 30 30 20 20 54 4d 5d 44 45 28 31 29 3a 3d 20 20 20 27 44 61 ┆ ';00 TMÅDE(1):= 'Da┆
0x360…380 6e 73 6b 20 73 6b 69 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 27 3b 30 30 ┆nsk skib 11';00┆
0x380…3a0 20 20 54 4d 5d 44 45 28 32 29 3a 3d 20 20 20 27 55 64 65 6e 6c 61 6e 64 73 6b 20 73 6b 69 62 20 ┆ TMÅDE(2):= 'Udenlandsk skib ┆
0x3a0…3c0 20 20 20 20 20 20 20 20 20 20 20 20 31 35 27 3b 30 30 20 20 54 4d 5d 44 45 28 33 29 3a 3d 20 20 ┆ 15';00 TMÅDE(3):= ┆
0x3c0…3e0 20 27 42 61 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 ┆ 'Bane 20┆
0x3e0…400 27 3b 30 30 20 20 54 4d 5d 44 45 28 34 29 3a 3d 20 20 20 27 50 6f 73 74 20 20 20 20 20 20 20 20 ┆';00 TMÅDE(4):= 'Post ┆
0x400…420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 27 3b 30 30 20 20 54 4d 5d 44 45 28 35 29 ┆ 30';00 TMÅDE(5)┆
0x420…440 3a 3d 20 20 20 27 46 6c 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= 'Fly ┆
0x440…460 20 20 34 30 27 3b 30 30 20 20 54 4d 5d 44 45 28 36 29 3a 3d 20 20 20 27 44 61 6e 73 6b 20 62 69 ┆ 40';00 TMÅDE(6):= 'Dansk bi┆
0x460…480 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 31 27 3b 30 30 20 20 54 4d 5d 44 ┆l 51';00 TMÅD┆
0x480…4a0 45 28 37 29 3a 3d 20 20 20 27 55 64 65 6e 6c 61 6e 64 73 6b 20 62 69 6c 20 20 20 20 20 20 20 20 ┆E(7):= 'Udenlandsk bil ┆
0x4a0…4c0 20 20 20 20 20 20 35 35 27 3b 30 30 20 20 54 4d 5d 44 45 28 38 29 3a 3d 20 20 20 27 41 6e 64 65 ┆ 55';00 TMÅDE(8):= 'Ande┆
0x4c0…4e0 6e 20 74 72 61 6e 73 70 6f 72 74 6d 7d 64 65 20 20 20 20 20 20 20 20 20 39 30 27 3b 30 13 20 20 ┆n transportmåde 90';0 ┆
0x4e0…500 46 4f 52 20 49 3a 3d 39 20 54 4f 20 32 30 20 44 4f 13 30 20 20 20 20 54 4d 5d 44 45 28 49 29 3a ┆FOR I:=9 TO 20 DO 0 TMÅDE(I):┆
0x500…520 3d 20 27 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆= '_____________________________┆
0x520…540 5f 27 3b 30 30 20 20 55 44 50 53 54 45 44 28 31 29 3a 3d 20 27 20 20 20 20 20 20 20 20 20 20 20 ┆_';00 UDPSTED(1):= ' ┆
0x540…560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 31 30 27 3b 30 30 20 20 55 44 50 53 54 45 44 ┆ 010';00 UDPSTED┆
0x560…580 28 32 29 3a 3d 20 27 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 ┆(2):= ' ┆
0x580…5a0 20 20 30 32 30 27 3b 30 30 20 20 55 44 50 53 54 45 44 28 33 29 3a 3d 20 27 4b 7c 62 65 6e 68 61 ┆ 020';00 UDPSTED(3):= 'Københa┆
0x5a0…5c0 76 6e 73 20 68 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 30 34 30 27 3b 30 30 20 20 55 44 50 ┆vns havn 040';00 UDP┆
0x5c0…5e0 53 54 45 44 28 34 29 3a 3d 20 27 4b 7c 62 65 6e 68 61 76 6e 73 20 66 72 69 68 61 76 6e 20 20 20 ┆STED(4):= 'Københavns frihavn ┆
0x5e0…600 20 20 20 20 20 20 30 34 31 27 3b 30 30 20 20 55 44 50 53 54 45 44 28 35 29 3a 3d 20 27 44 72 61 ┆ 041';00 UDPSTED(5):= 'Dra┆
0x600…620 67 7c 72 20 68 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 34 34 27 3b 30 30 20 ┆gør havn 044';00 ┆
0x620…640 20 55 44 50 53 54 45 44 28 36 29 3a 3d 20 27 4b 7c 62 65 6e 68 61 76 6e 73 20 6c 75 66 74 68 61 ┆ UDPSTED(6):= 'Københavns luftha┆
0x640…660 76 6e 20 20 20 20 20 20 20 20 30 35 30 27 3b 30 30 20 20 55 44 50 53 54 45 44 28 37 29 3a 3d 20 ┆vn 050';00 UDPSTED(7):= ┆
0x660…680 27 47 65 64 73 65 72 20 68 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 39 33 27 ┆'Gedser havn 593'┆
0x680…6a0 3b 30 30 20 20 55 44 50 53 54 45 44 28 38 29 3a 3d 20 27 50 61 64 62 6f 72 67 20 20 20 20 20 20 ┆;00 UDPSTED(8):= 'Padborg ┆
0x6a0…6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 35 30 27 3b 30 30 20 20 55 44 50 53 54 45 44 28 39 ┆ 650';00 UDPSTED(9┆
0x6c0…6e0 29 3a 3d 20 27 52 7c 64 62 79 20 68 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆):= 'Rødby havn ┆
0x6e0…700 37 33 30 27 3b 30 14 20 20 46 4f 52 20 49 3a 3d 31 30 20 54 4f 20 32 30 20 44 4f 14 30 20 20 20 ┆730';0 FOR I:=10 TO 20 DO 0 ┆
0x700…720 20 55 44 50 53 54 45 44 28 49 29 3a 3d 27 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ UDPSTED(I):='__________________┆
0x720…740 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 27 30 04 45 4e 44 3b 04 00 00 20 20 20 20 20 20 45 4e 44 3b ┆____________'0 END; END;┆
0x740…760 0e 13 20 20 20 20 20 20 49 46 20 46 44 4b 3e 30 20 54 48 45 4e 13 0b 20 20 20 20 20 20 42 45 47 ┆ IF FDK>0 THEN BEG┆
0x760…780 49 4e 0b 41 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 31 2c 27 20 27 3a 4c 4d 41 52 47 ┆IN A WRITELN(T1,' ':LMARG┆
0x780…7a0 2b 33 34 2c 27 41 72 74 69 6b 65 6c 20 32 35 2d 31 20 6f 70 66 79 6c 64 74 20 66 6f 72 20 70 6f ┆+34,'Artikel 25-1 opfyldt for po┆
0x7a0…7c0 73 3a 27 29 3b 41 14 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 31 29 3b 14 2c 20 20 20 ┆s:');A WRITELN(T1); , ┆
0x7c0…7e0 20 20 20 20 20 57 52 49 54 45 28 54 31 2c 27 20 27 3a 4c 4d 41 52 47 2b 33 34 2c 46 44 4b 2d 4f ┆ WRITE(T1,' ':LMARG+34,FDK-O┆
0x7e0…800 46 46 53 45 54 3a 33 29 3b 2c 13 20 20 20 20 20 20 20 20 46 44 4b 3a 3d 46 44 4b 2b 31 3b 13 17 ┆FFSET:3);, FDK:=FDK+1; ┆
0x800…820 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 46 44 4b 3c 3d 49 20 44 4f 17 25 20 20 20 20 20 20 20 ┆ WHILE FDK<=I DO % ┆
0x820…840 20 49 46 20 4c 49 4e 45 53 28 46 44 4b 29 2e 4f 50 52 49 4c 41 4e 44 3d 38 20 54 48 45 4e 25 0d ┆ IF LINES(FDK).OPRILAND=8 THEN% ┆
0x840…860 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 3b 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 54 ┆ BEGIN ; WRITE(T┆
0x860…880 31 2c 27 2c 27 2c 46 44 4b 2d 4f 46 46 53 45 54 3a 32 2b 28 28 46 44 4b 2d 4f 46 46 53 45 54 29 ┆1,',',FDK-OFFSET:2+((FDK-OFFSET)┆
0x880…8a0 20 44 49 56 20 31 30 29 29 3b 3b 14 20 20 20 20 20 20 20 20 20 20 46 44 4b 3a 3d 46 44 4b 2b 31 ┆ DIV 10));; FDK:=FDK+1┆
0x8a0…8c0 14 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 16 20 20 20 20 20 20 20 20 45 4c 53 45 20 46 44 4b 3a ┆ END ELSE FDK:┆
0x8c0…8e0 3d 49 2b 31 3b 16 13 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 31 29 13 09 20 20 20 20 ┆=I+1; WRITELN(T1) ┆
0x8e0…900 20 20 45 4e 44 09 2a 20 20 20 20 20 20 45 4c 53 45 20 46 4f 52 20 4a 3a 3d 32 31 20 54 4f 20 32 ┆ END * ELSE FOR J:=21 TO 2┆
0x900…920 33 20 44 4f 20 57 52 49 54 45 4c 4e 28 54 31 29 3b 2a 25 20 20 20 20 20 20 46 4f 52 20 4a 3a 3d ┆3 DO WRITELN(T1);*% FOR J:=┆
0x920…940 32 34 20 54 4f 20 33 30 20 44 4f 20 57 52 49 54 45 4c 4e 28 54 31 29 3b 25 35 20 20 20 20 20 20 ┆24 TO 30 DO WRITELN(T1);%5 ┆
0x940…960 57 52 49 54 45 4c 4e 28 54 31 2c 27 20 27 3a 4c 4d 41 52 47 2c 27 4d 72 6b 2e 20 61 64 72 2e 20 ┆WRITELN(T1,' ':LMARG,'Mrk. adr. ┆
0x960…980 27 2c 48 50 4f 53 54 2e 41 4b 4f 4c 4c 49 2c 35 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆',HPOST.AKOLLI,5/ ┆
0x980…9a0 20 20 20 20 20 20 20 20 20 20 20 20 48 50 4f 53 54 2e 42 52 55 54 54 4f 56 5b 47 54 3a 31 38 2c ┆ HPOST.BRUTTOVÆGT:18,┆
0x9a0…9c0 2f 45 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 48 50 4f ┆/E HPO┆
0x9c0…9e0 53 54 2e 46 41 4b 54 4e 52 31 2a 31 30 30 30 30 2e 30 2b 48 50 4f 53 54 2e 46 41 4b 54 4e 52 32 ┆ST.FAKTNR1*10000.0+HPOST.FAKTNR2┆
0x9e0…a00 3a 39 3a 2d 32 29 3b 45 40 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 31 2c 27 20 27 3a 4c 4d ┆:9:-2);E@ WRITELN(T1,' ':LM┆
0xa00…a20 41 52 47 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ARG,'---------------------------┆
0xa20…a40 2d 2d 2d 2d 2d 2d 2d 27 2c 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-------',@@ ┆
0xa40…a60 20 20 20 20 20 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ '-------------------------┆
0xa60…a80 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 40 11 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 31 29 11 04 ┆--------');@ WRITELN(T1) ┆
0xa80…aa0 45 4e 44 3b 04 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 ┆END; ┆
0xaa0…ac0 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 ┆ ┆
[…0x4…]