home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / gcr-hex (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  51 lines
  1. 10 rem programm zur konvertierung
  2. 20 rem von fuenf gcr-bytes in die
  3. 30 rem vier entsprechenden
  4. 40 rem hex-aequivalente
  5. 50 rem
  6. 60 rem
  7. 70 rem
  8. 80 rem (w) 1985 by karsten schramm
  9. 90 rem
  10. 100 a$="0123456789abcdef":dimg$(15):e$=""
  11. 110 g$(0)="01010"
  12. 120 g$(1)="01011"
  13. 130 g$(2)="10010"
  14. 140 g$(3)="10011"
  15. 150 g$(4)="01110"
  16. 160 g$(5)="01111"
  17. 170 g$(6)="10110"
  18. 180 g$(7)="10111"
  19. 190 g$(8)="01001"
  20. 200 g$(9)="11001"
  21. 210 g$(10)="11010"
  22. 220 g$(11)="11011"
  23. 230 g$(12)="01101"
  24. 240 g$(13)="11101"
  25. 250 g$(14)="11110"
  26. 260 g$(15)="10101"
  27. 270 print"[147]gcr - hex - konvertierung":print
  28. 280 print:print"geben sie jetzt 5 gcr-bytes ein":print
  29. 290 input"";h$:gc$=""
  30. 300 x$="":forx=1tolen(h$)
  31. 310 ifmid$(h$,x,1)<>" "thenx$=x$+mid$(h$,x,1)
  32. 320 next
  33. 330 h$=x$
  34. 340 forx=1to10
  35. 350 x$=mid$(h$,x,1)
  36. 360 xx=val(x$):ifxx=0andx$<>"0"thenxx=asc(x$)-55
  37. 370 fory=0to3
  38. 380 yy=int(xx/2^(3-y)):xx=xx-yy*2^(3-y)
  39. 390 ifyythengc$=gc$+"1":goto410
  40. 400 gc$=gc$+"0"
  41. 410 nexty,x
  42. 420 hc$="":forx=1to8
  43. 430 x$=mid$(gc$,x*5-4,5)
  44. 440 fory=0to15
  45. 450 ifx$<>g$(y)thennexty
  46. 460 :
  47. 470 hc$=hc$+mid$(a$,y+1,1)
  48. 480 ifint(x/2)=x/2thenhc$=hc$+" "
  49. 490 nextx
  50. 500 print:print:print"hex: ";hc$
  51.