20 B=ABS(A):PRINTTAB(INT(LOG(B-(B=0))*.43429448188)*(B>=1)+INT(-B)*(B<1)+22);A
30 REM
40 REM VOLKER WALTER
50 REM HEGENSBERGER STR. 122
60 REM 7300 ESSLINGEN
70 REM
80 REM RECHTSBUENDIGE ZAHLENAUSGABE