home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / einz.rechtsbuend (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  186b  |  8 lines
  1. 20 B=ABS(A):PRINTTAB(INT(LOG(B-(B=0))*.43429448188)*(B>=1)+INT(-B)*(B<1)+22);A
  2. 30 REM
  3. 40 REM VOLKER WALTER
  4. 50 REM HEGENSBERGER STR. 122
  5. 60 REM 7300 ESSLINGEN
  6. 70 REM
  7. 80 REM RECHTSBUENDIGE ZAHLENAUSGABE
  8.