home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / hex-gcr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  51 lines
  1. 10 rem programm zur konvertierung
  2. 20 rem von vier hexbytes in die
  3. 30 rem fuenf entsprechenden
  4. 40 rem gcr-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]hex - gcr - konvertierung":print
  28. 280 print:print"geben sie jetzt 4 hexbytes ein":print
  29. 290 print"z.b. ed 34 27 58":input"";h$:gc$=""
  30. 300 gosub470:forx=1to4
  31. 310 h1$=mid$(h$,x*2-1,1):h2$=mid$(h$,x*2,1)
  32. 320 h1=val(h1$):h2=val(h2$)
  33. 330 ifh1=0andh1$<>"0"thenh1=asc(h1$)-55
  34. 340 ifh2=0andh2$<>"0"thenh2=asc(h2$)-55
  35. 350 gc$=gc$+g$(h1)+g$(h2)
  36. 360 nextx
  37. 370 forx=1to10
  38. 380 b=0:b$=mid$(gc$,x*4-3,4)
  39. 390 fory=0to3
  40. 400 ifmid$(b$,y+1,1)="1"thenb=b+2^(3-y)
  41. 410 nexty
  42. 420 e$=e$+mid$(a$,b+1,1)
  43. 430 ifx/2=int(x/2)thene$=e$+" "
  44. 440 nextx
  45. 450 print:print:print"gcr: ";e$
  46. 460 end
  47. 470 x$="":forx=1tolen(h$)
  48. 480 ifmid$(h$,x,1)<>" "thenx$=x$+mid$(h$,x,1)
  49. 490 next
  50. 500 h$=x$:return
  51.