home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / systemwandler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  380b  |  14 lines
  1. 10 input"[147]zahl";zl$
  2. 20 input"systemzahl 1";a
  3. 30 input"systemzahl 2";b
  4. 40 fori=1tolen(zl$)
  5. 50 w=asc(mid$(zl$,i,1)):ifw>64thenw=w-55:w=w*a^(len(zl$)-i):goto70
  6. 60 w=val(mid$(zl$,i,1))*a^(len(zl$)-i)
  7. 70 d=d+w:next
  8. 80 w=d-(int(d/b)*b):j$=str$(w):ifw>9thenj$=chr$(w+55)
  9. 90 f$=j$+f$:d=int(d/b):ifd>0goto80
  10. 100 fori=1tolen(f$)
  11. 110 ifmid$(f$,i,1)=" "thenf$=left$(f$,i-1)+mid$(f$,i+1,len(f$)-i)
  12. 120 next:print"ergebnis:";f$
  13. 130 input"nochmal (j/n)";jn$:ifjn$="j"thenrun
  14.