home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64 / zahlensysteme (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  240b  |  7 lines
  1. 2 b=2:z$="10100000":rem von basis 2
  2. 5 z=0:q=len(z$):fort=1toq:a=asc(mid$(z$,t,1))-48:a=a+7*(a>16):z=z+b^(q-t)*a:next
  3. 8 b2=16:printz :rem nach basis 16
  4. 10 q=int(log(z)/log(b2)):z$=""
  5. 20 fort=0toq:f=int(b2^(q-t)):a=int(z/f):z=z-a*f:z$=z$+chr$(a+48-(a>9)*7):next
  6. 30 printz$
  7.