|
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: 2208 (0x8a0)
Types: TextFile
Notes: Mikados_K
Names: »VENDOR.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VENDOR.K«
PROGRAM COMPILE;
VAR QUQ:^INTEGER;
PROG:STRING(10);
P:ARRAY (1..50) OF STRING(17);
I:INTEGER;
PROCEDURE WASTE;
BEGIN
DELAY(6000);
WRITELN('CHECK HO HO HO HO HO CHECK')
END;
BEGIN
PROG:='PASCALE 1';
PROG(9):=CHR(16*2+1);
P(1):='HJEMVARE';
P(2):='BESTVARE';
P(3):='RESTVEDL';
P(4):='BTAVEDL';
P(5):='FAKTURA';
P(6):='SKRIVFAK';
P(7):='VREORGIE';
P(8):='KCREATE';
P(9):='TCREATE';
P(10):='TESTJOU';
P(11):='LEVVEDL';
P(12):='LANDVEDL';
P(13):='OPRETORD';
P(14):='VAREVEDL';
P(15):='KUNDVEDL';
P(16):='TOLDFAKT';
P(18):='PAKLISTE';
P(19):='TOLDSORT';
P(20):='ORDREVED';
P(21):='SYSVEDL';
P(22):='NORMFAKT';
P(23):='INDORDRE';
P(24):='RESTOVER';
P(25):='KREORGIE';
P(17):='SKRIVPAK';
P(26):='OPSTART';
P(27):='SALDOLIS';
P(28):='KUNDREST';
P(29):='MESSEKIK';
P(30):='DISPLIST';
P(31):='LISTKOMP';
P(32):='KNUDELBO';
P(33):='LISTKNUD';
P(34):='ALFAKUND';
P(35):='SORTKUND';
P(36):='SPRINT';
P(37):='DUMPKUND';
P(38):='VARLAB';
P(39):='LCREATE';
P(40):='HOVSA';
P(41):='KREDNOTA';
P(42):='SALDSTAT';
P(43):='KONTUDT';
P(44):='BOGJOU';
P(45):='KASSERAP';
P(46):='RENTEBER';
P(47):='RENTEBEK';
P(48):='POSTERRE';
P(49):='MAFSLUT';
FOR I:=1 TO 49 DO
BEGIN
CHAIN(PROG,CONCAT(P(I),':P2,L,,P1'),QUQ);
IF QUQ^=30326 THEN
BEGIN
I:=I-1;
WASTE
END
ELSE
WRITELN(QUQ^:10,' ',P(I));
END;
END.
0x000…012 Line {l1=0x10, l2=»PROGRAM COMPILE;«, l3=0x10}
0x012…025 Line {l1=0x11, l2=»VAR QUQ:^INTEGER;«, l3=0x11}
0x025…03b Line {l1=0x14, l2=» PROG:STRING(10);«, l3=0x14}
0x03b…05f Line {l1=0x22, l2=» P:ARRAY (1..50) OF STRING(17);«, l3=0x22}
0x05f…06f Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x06f…081 Line {l1=0x10, l2=»PROCEDURE WASTE;«, l3=0x10}
0x081…088 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x088…098 Line {l1=0x0e, l2=» DELAY(6000);«, l3=0x0e}
0x098…0c5 Line {l1=0x2b, l2=» WRITELN('CHECK HO HO HO HO HO CHECK')«, l3=0x2b}
0x0c5…0cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cb…0d2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d2…0e9 Line {l1=0x15, l2=» PROG:='PASCALE 1';«, l3=0x15}
0x0e9…102 Line {l1=0x17, l2=» PROG(9):=CHR(16*2+1);«, l3=0x17}
0x102…117 Line {l1=0x13, l2=» P(1):='HJEMVARE';«, l3=0x13}
0x117…12c Line {l1=0x13, l2=» P(2):='BESTVARE';«, l3=0x13}
0x12c…141 Line {l1=0x13, l2=» P(3):='RESTVEDL';«, l3=0x13}
0x141…155 Line {l1=0x12, l2=» P(4):='BTAVEDL';«, l3=0x12}
0x155…169 Line {l1=0x12, l2=» P(5):='FAKTURA';«, l3=0x12}
0x169…17e Line {l1=0x13, l2=» P(6):='SKRIVFAK';«, l3=0x13}
0x17e…193 Line {l1=0x13, l2=» P(7):='VREORGIE';«, l3=0x13}
0x193…1a7 Line {l1=0x12, l2=» P(8):='KCREATE';«, l3=0x12}
0x1a7…1bb Line {l1=0x12, l2=» P(9):='TCREATE';«, l3=0x12}
0x1bb…1d0 Line {l1=0x13, l2=» P(10):='TESTJOU';«, l3=0x13}
0x1d0…1e5 Line {l1=0x13, l2=» P(11):='LEVVEDL';«, l3=0x13}
0x1e5…1fb Line {l1=0x14, l2=» P(12):='LANDVEDL';«, l3=0x14}
0x1fb…211 Line {l1=0x14, l2=» P(13):='OPRETORD';«, l3=0x14}
0x211…227 Line {l1=0x14, l2=» P(14):='VAREVEDL';«, l3=0x14}
0x227…23d Line {l1=0x14, l2=» P(15):='KUNDVEDL';«, l3=0x14}
0x23d…253 Line {l1=0x14, l2=» P(16):='TOLDFAKT';«, l3=0x14}
0x253…269 Line {l1=0x14, l2=» P(18):='PAKLISTE';«, l3=0x14}
0x269…27f Line {l1=0x14, l2=» P(19):='TOLDSORT';«, l3=0x14}
0x27f…295 Line {l1=0x14, l2=» P(20):='ORDREVED';«, l3=0x14}
0x295…2aa Line {l1=0x13, l2=» P(21):='SYSVEDL';«, l3=0x13}
0x2aa…2c0 Line {l1=0x14, l2=» P(22):='NORMFAKT';«, l3=0x14}
0x2c0…2d6 Line {l1=0x14, l2=» P(23):='INDORDRE';«, l3=0x14}
0x2d6…2ec Line {l1=0x14, l2=» P(24):='RESTOVER';«, l3=0x14}
0x2ec…302 Line {l1=0x14, l2=» P(25):='KREORGIE';«, l3=0x14}
0x302…318 Line {l1=0x14, l2=» P(17):='SKRIVPAK';«, l3=0x14}
0x318…32d Line {l1=0x13, l2=» P(26):='OPSTART';«, l3=0x13}
0x32d…343 Line {l1=0x14, l2=» P(27):='SALDOLIS';«, l3=0x14}
0x343…359 Line {l1=0x14, l2=» P(28):='KUNDREST';«, l3=0x14}
0x359…36f Line {l1=0x14, l2=» P(29):='MESSEKIK';«, l3=0x14}
0x36f…385 Line {l1=0x14, l2=» P(30):='DISPLIST';«, l3=0x14}
0x385…39b Line {l1=0x14, l2=» P(31):='LISTKOMP';«, l3=0x14}
0x39b…3b1 Line {l1=0x14, l2=» P(32):='KNUDELBO';«, l3=0x14}
0x3b1…3c7 Line {l1=0x14, l2=» P(33):='LISTKNUD';«, l3=0x14}
0x3c7…3dd Line {l1=0x14, l2=» P(34):='ALFAKUND';«, l3=0x14}
0x3dd…3f3 Line {l1=0x14, l2=» P(35):='SORTKUND';«, l3=0x14}
0x3f3…407 Line {l1=0x12, l2=» P(36):='SPRINT';«, l3=0x12}
0x407…41d Line {l1=0x14, l2=» P(37):='DUMPKUND';«, l3=0x14}
0x41d…431 Line {l1=0x12, l2=» P(38):='VARLAB';«, l3=0x12}
0x431…446 Line {l1=0x13, l2=» P(39):='LCREATE';«, l3=0x13}
0x446…459 Line {l1=0x11, l2=» P(40):='HOVSA';«, l3=0x11}
0x459…46f Line {l1=0x14, l2=» P(41):='KREDNOTA';«, l3=0x14}
0x46f…485 Line {l1=0x14, l2=» P(42):='SALDSTAT';«, l3=0x14}
0x485…49a Line {l1=0x13, l2=» P(43):='KONTUDT';«, l3=0x13}
0x49a…4ae Line {l1=0x12, l2=» P(44):='BOGJOU';«, l3=0x12}
0x4ae…4c4 Line {l1=0x14, l2=» P(45):='KASSERAP';«, l3=0x14}
0x4c4…4da Line {l1=0x14, l2=» P(46):='RENTEBER';«, l3=0x14}
0x4da…4f0 Line {l1=0x14, l2=» P(47):='RENTEBEK';«, l3=0x14}
0x4f0…506 Line {l1=0x14, l2=» P(48):='POSTERRE';«, l3=0x14}
0x506…51b Line {l1=0x13, l2=» P(49):='MAFSLUT';«, l3=0x13}
0x51b…530 Line {l1=0x13, l2=» FOR I:=1 TO 49 DO«, l3=0x13}
0x530…539 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x539…568 Line {l1=0x2d, l2=» CHAIN(PROG,CONCAT(P(I),':P2,L,,P1'),QUQ);«, l3=0x2d}
0x568…580 Line {l1=0x16, l2=» IF QUQ^=30326 THEN«, l3=0x16}
0x580…58b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x58b…59a Line {l1=0x0d, l2=» I:=I-1;«, l3=0x0d}
0x59a…5a7 Line {l1=0x0b, l2=» WASTE«, l3=0x0b}
0x5a7…5b0 Line {l1=0x07, l2=» END«, l3=0x07}
0x5b0…5ba Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5ba…5da Line {l1=0x1e, l2=» WRITELN(QUQ^:10,' ',P(I));«, l3=0x1e}
0x5da…5e2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5e2…5e8 Line {l1=0x04, l2=»END.«, l3=0x04}
0x5e8…600 00 00 50 52 4f 47 3a 53 54 52 49 4e 47 28 31 30 29 3b 14 22 20 20 20 20 ┆ PROG:STRING(10); " ┆
0x600…620 50 3a 41 52 52 41 59 20 28 31 2e 2e 35 30 29 20 4f 46 20 53 54 52 49 4e 47 28 31 37 29 3b 22 0e ┆P:ARRAY (1..50) OF STRING(17);" ┆
0x620…640 20 20 20 20 49 3a 49 4e 54 45 47 45 52 3b 0e 10 50 52 4f 43 45 44 55 52 45 20 57 41 53 54 45 3b ┆ I:INTEGER; PROCEDURE WASTE;┆
0x640…660 10 05 42 45 47 49 4e 05 0e 20 20 44 45 4c 41 59 28 36 30 30 30 29 3b 0e 2b 20 20 57 52 49 54 45 ┆ BEGIN DELAY(6000); + WRITE┆
0x660…680 4c 4e 28 27 43 48 45 43 4b 20 20 20 48 4f 20 48 4f 20 48 4f 20 48 4f 20 48 4f 20 20 20 43 48 45 ┆LN('CHECK HO HO HO HO HO CHE┆
0x680…6a0 43 4b 27 29 2b 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 15 20 20 50 52 4f 47 3a 3d 27 50 41 53 43 ┆CK')+ END; BEGIN PROG:='PASC┆
0x6a0…6c0 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┆
[…0xe…]
0x880…8a0 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 00 ┆ccccccccccccccccccccccccccccccc ┆