BEGIN REPEAT BEGIN CLEARSCREEN; GOTOXY(10,10);& WRITELN('OPSPLITNING AF ORDRE');& GOTOXY(10,12);; WRITELN('INDTAST ORDRENR (1000 - 9999, 0:F[RDIG) :');; GOTOXY(50,12); READLN; IF EOLN THEN SETIORESULT(-1) ELSE READ(ORDRENUM);= IF(IORESULT=0)AND((ORDRENUM>999)AND(ORDRENUM<10000)) THEN= MAINTAIN; END;% UNTIL(IORESULT=0) AND (ORDRENUM=0);% GOTOXY(10,14);+ WRITELN('OPSPLITNING AFSLUTTET NORMALT');+ FNAVN:=' '; FNAVN(1):=PARM^(1);4 CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);43 IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)3END.