home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64 / dez_hex-umrechng (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  59 lines
  1. 0 rem
  2. 1 rem   *****************
  3. 2 rem   *               *
  4. 3 rem   *  dez-hex-bin  *
  5. 4 rem   *               *
  6. 5 rem   *****************
  7. 6 rem
  8. 7 rem     dieter jansky
  9. 8 rem       wuerzburg
  10. 9 rem
  11. 10 poke53280,0:poke53281,0:poke788,52
  12. 20 print"[147][142][158]";:b$="                                      "
  13. 30 printb$"   umrechnung -- dez -- hex -- bin    "b$"[155]"
  14. 40 print"   input dezimal.................1"
  15. 42 print"   input hexadezimal.............2"
  16. 44 print"   input binaer..................3"
  17. 45 print"   ende  ........................4"
  18. 50 getq$:ifq$<"1"orq$>"4"then50
  19. 55 ifq$="4"thenprint"[147]":print"":end
  20. 60 onval(q$)goto70,80,90
  21. 70 print"[147]"b$"  dezimal -- hexadezimal -- binaer    "b$
  22. 72 clr:print:input" ";d1:ifd1>16^4-1then72
  23. 73 ifd1=<0thenrun
  24. 75 printspc(14)"[145]";:gosub400:printspc(11);:gosub300:
  25. 78 goto72
  26. 80 print"[147]"b$"  hexadezimal -- dezimal -- binaer    "b$
  27. 82 clr:print:input" ";h$:l=len(h$):ifl>4then82
  28. 83 ifh$<"0"thenrun
  29. 84 printspc(17)"[145]";:gosub100:gosub300
  30. 88 goto82
  31. 90 print"[147]"b$"   binaer  -- dezimal -- hexadezimal  "b$
  32. 92 clr:print:input" ";b$:ifb$<"0"thenrun
  33. 93 iflen(b$)<>8then92
  34. 94 printspc(14)"[145]";:gosub200:printtab(26);:gosub400
  35. 98 goto92
  36. 100 rem * hex > dez *
  37. 120 d=0:forq=lto1step-1:c$=mid$(h$,q,1)
  38. 130 ifasc(c$)>47andasc(c$)<58thenr=asc(c$)-48:goto180
  39. 140 r=asc(c$)-55
  40. 180 d=d+r*16^(l-q):next:printd,:d1=d:return
  41. 200 rem * bin > dez *
  42. 220 d=0:forq=8to1step-1
  43. 230 d=d+val(mid$(b$,9-q,1))*2^(q-1)
  44. 260 next:printd;:d1=d:return
  45. 270 rem
  46. 300 rem * dez > bin *
  47. 310 d=d1:ifd>255thenreturn
  48. 320 b$="":forq=8to1step-1
  49. 330 ifd<2^(q-1)thenb$=b$+"0":goto350
  50. 340 d=d-2^(q-1):b$=b$+"1"
  51. 350 next:printb$;:return
  52. 360 rem
  53. 400 rem * dez > hex *
  54. 420 d=d1:h$="":forq=4to1step-1
  55. 430 e=int(d/16^(q-1))
  56. 440 ife>9thenh$=h$+chr$(e+55):goto470
  57. 450 h$=h$+chr$(e+48)
  58. 470 d=d-e*16^(q-1):next:printh$;:return
  59.