|
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.