home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9012a.d64 / hexadezim.zahlen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  659b  |  30 lines
  1. 10 PRINT"[147]":REM UMRECHNUNG DEZIMALZAHL IN HEXZAHL
  2. 20 PRINT"UMRECHNUNG DEZIMALZAHL IN HEXZAHL"
  3. 30 PRINT"*********************************"
  4. 40 PRINT:INPUT" DEZIMALZAHL";D
  5. 50 S=INT(D/16)
  6. 60 R=D-S*16
  7. 70 IFR<=9THENH$=CHR$(R+48)+H$
  8. 80 IFR>9THENH$=CHR$(R+55)+H$
  9. 90 IFS>15THEND=S:GOTO50
  10. 100 IFS=0THEN130
  11. 110 IFS<=9THENH$=CHR$(S+48)+H$
  12. 120 IFS>9THENH$=CHR$(S+55)+H$
  13. 130 PRINT:PRINT" HEXZAHL="H$
  14. 140 PRINT:H$="":GOTO40
  15. 160 :
  16. 170 :
  17. 200 PRINT"[147]":REM UMRECHNUNG HEXZAHL IN DEZIMALZAHL
  18. 210 PRINT"UMRECHNUNG HEXZAHL IN DEZIMALZAHL"
  19. 220 PRINT"*********************************"
  20. 230 PRINT:INPUT" HEXZAHL";H$
  21. 240 L=LEN(H$)
  22. 250 FORI=LTO1STEP-1
  23. 260 S=ASC(MID$(H$,I,1))
  24. 270 IFS<60THEND=D+(S-48)*16^E
  25. 280 IFS>60THEND=D+(S-55)*16^E
  26. 290 E=E+1
  27. 300 NEXTI
  28. 310 PRINT:PRINT" DEZIMALZAHL="D
  29. 320 D=0:E=0:GOTO230
  30.