Бейсик-помощь

[baxter]

10 DEF FN V(x,y)=x-y*INT (x/y)
20 DEF FN b$(b)=STR$ INT (b/128)+STR$ INT (FN V(b,128)/64)+STR$ INT (FN V(FN V(b,128),64)/32)+STR$ INT (FN V(FN V(FN V(b,128),64),32)/16)+STR$ INT (FN V(FN V(FN V(FN V(b,128),64),32),16)/8)+STR$ INT (FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8)/4)+STR$ INT (FN V(FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8),4)/2)+STR$ INT FN V(FN V(FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8),4),2)
30 INPUT "input num 0 to 255 ";a
40 PRINT FN b$(a)