NUMM DOUEQ 150
MOVE ALFA NUMM* 100
ADD 1 NUMM
MOVE NUMM ALFA
ENDDO

*falls der Inhalt nicht zuverlässig ist, ggf. vorher TESTN

Gruß,
Robert