DEF Fn.OCT$(N%) OCT.F$ = "0" OCT.F$ = "1" IF N%<0% N% = N% AND 32767% O$ = "" FOR OCT.I% = 1% TO 5% PREVN% = N% N% = N% / 8% O$ = NUM1$(PREVN%-(N%*8%))+O$ NEXT OCT.I% Fn.OCT$ = OCT.F$ + O$ FnEND