home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 May / 64er_Magazin_94-05_1994_Markt__Technik_de_Side_A.d64 / gcr-master (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  37 lines
  1. 10 rem gcr-master
  2. 20 rem nikolaus heusler, zwengauerweg 18, 81479 solln (11.93)
  3. 25 dimd$(15):fori=0to15:readd$(i):next
  4. 26 data01010,01011,10010,10011,01110,01111,10110,10111,01001,11001,11010
  5. 27 data11011,01101,11101,11110,10101:a$="0123456789abcdef
  6. 30 [153]:[153]:[153]:[153]" a - wandeln hex -> gcr
  7. 40 print" b - wandeln gcr -> hex
  8. 50 [153]" c - ende
  9. 60 getr$:ifr$="c"thenprint:end
  10. 70 ifr$="a"then100
  11. 80 ifr$="b"then200
  12. 90 goto60
  13. 100 wl=8:print:print"bitte vier hexbytes eingeben!
  14. 110 [153]"(z.b. ed 34 27 58)":[153]:[133]"hex";h$:[141]300
  15. 124 gc$[178]"":[129]x[178]1[164]4:h1$[178][202](x$,x[172]2[171]1,1):h2$[178][202](x$,x[172]2,1)
  16. 128 h1[178][197](h1$):h2[178][197](h2$):[139]h1[178]0[175]h1$[179][177]"0"[167]h1[178][198](h1$)[171]55
  17. 130 [139]h2[178]0[175]h2$[179][177]"0"[167]h2[178][198](h2$)[171]55
  18. 131 [139]h1[177]15[176]h2[177]15[176]h1[179]0[176]h2[179]0[167][153]:[153]"falsche eingabe":[138]
  19. 132 gc$[178]gc$[170]d$(h1)[170]d$(h2):[130]
  20. 134 [129]x[178]1[164]10:b[178]0:b$[178][202](gc$,x[172]4[171]3,4):[129]y[178]0[164]3
  21. 136 [139][202](b$,y[170]1,1)[178]"1"[167]b[178]b[170]2[174](3[171]y)
  22. 138 [130]:e$[178]e$[170][202](a$,b[170]1,1):[139]x[173]2[178][181](x[173]2)[167]e$[178]e$[170]" "
  23. 140 [130]:[153]:[153]"gcr: "e$:[138]
  24. 200 wl[178]10:[153]:[153]"bitte fuenf gcr-bytes eingeben!
  25. 210 print"(z.b. f7 66 e9 5d e9)":print
  26. 220 input"gcr";h$:gosub300:gc$="":h$=x$
  27. 222 forx=1to10:x$=mid$(h$,x,1):xx=val(x$):ifxx=0andx$<>"0"thenxx=asc(x$)-55
  28. 224 fory=0to3:yy=int(xx/2^(3-y)):xx=xx-yy*2^(3-y):ifyythengc$=gc$+"1":goto232
  29. 228 gc$=gc$+"0
  30. 232 [130]y,x:hc$[178]"":[129]x[178]1[164]8:x$[178][202](gc$,x[172]5[171]4,5):[129]y[178]0[164]15
  31. 234 [139]x$[179][177]d$(y)[167][130]y:[153]:[153]"code nicht erlaubt!":[138]
  32. 236 hc$[178]hc$[170][202](a$,y[170]1,1):[139]x[173]2[178][181](x[173]2)[167]hc$[178]hc$[170]" "
  33. 238 [130]x:[153]:[153]"hex: "hc$:[138]
  34. 300 x$[178]"":[129]i[178]1[164][195](h$):[139][202](h$,i,1)[179][177]" "[167]x$[178]x$[170][202](h$,i,1)
  35. 302 [130]:[139][195](x$)[179][177]wl[167][153]:[153]"falsche eingabe":[138]
  36. 304 [142]
  37.