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.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:='PASCccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc