DEF
    ADR.OBJ
    ADR.M
    I C
    INTEGER
ENDDEF

INTOFF

ADR.OBJ   MGETI
526032    D1STO
ADR.M     MGETI
146 I STO

WHILE I 0 !=
DO
 ADR.OBJ  D1STO
 C        MGETC
 2        INCD1
 ADR.OBJ  D1RCL
 ADR.M    D1STO
 C        MPUTC
 2        INCD1
 ADR.M    D1RCL
 I DEC
ENDWHILE

INTON
EXIT