home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9405a.d64 / gcr-master (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.