home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8903a.d64 / systemwandler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.