DIM bin% 3, bcd% 9 PROCassemble REPEAT INPUT "Enter a number for eax register to recieve: " !bin% CALL bin2bcd PRINT ":eax gave bcd% your number ";!bcd% UNTIL FALSE END DEF PROCassemble LOCAL P%, L% DIM P% 12, L% -1 [OPT 10 .bin2bcd mov eax,[bin%] mov [bcd%],eax ret ] ENDPROC