DEF
 taille taille.res ischaine n INTEGER
 adr.lec adr.res adr.ecr POINTER
 c marque CHAR
ENDDEF

adr.lec MGETI
adr.lec D1STO
ischaine MGETI
IF ischaine 10796 != THEN 514 ERROR ENDIF
10 INCD1
UNRLE.asm INCLUDE
9 INCD1
taille.res MGETI
5 INCD1
adr.lec D1RCL
adr.res taille.res RESSTR
adr.res 10 ADD adr.ecr STO
taille.res SR taille.res STO

INTOFF
0 marque STO
WHILE taille.res 0 >
DO
 adr.lec c GETC
 IF c marque == THEN
   adr.lec n GETC
   adr.lec c GETC
   taille.res n SUB taille.res STO
   WHILE n 0 >
   DO
     adr.ecr c PUTC
     n DEC
   ENDWHILE
 ELSE
   adr.ecr c PUTC
   taille.res DEC
 ENDIF
ENDWHILE
INTON
DROP
adr.ecr adr.res STRCALC
adr.res PUSHOBJ