home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / cent.listing4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  50 lines
  1. 10 goto 90
  2. 20 rem hex -> dez
  3. 30 sa$=right$("    "+sa$,4)
  4. 40 sa=0:fori=1tolen(sa$):s0=asc(mid$(sa$,i,1)):sa=16*sa+s0-48+(s0>64)*7:next
  5. 50 return
  6. 60 rem adresse -> low,high
  7. 70 sh=int(s4/256):sl=s4-256*sh
  8. 80 return
  9. 90 printchr$(14);"[147]       c-64 [208]arallel [208]rogramm"
  10. 100 print"       ----------------------"
  11. 110 print:
  12. 120 input "[211]tartadresse: ";sa$:sa=val(sa$)
  13. 130 if left$(sa$,1)="$"thengosub30
  14. 140 read en
  15. 150 for i=1 to en
  16. 160 read a,b:if sa+187>=a and sa<=b thenrun
  17. 170 next
  18. 180 print:print"[197]inlesen des [205][195]-[208]rogrammes":print
  19. 190 s1=sa+58:s2=sa+122:s3=sa+37
  20. 200 for i = sa to sa+187
  21. 210 read da
  22. 220 pokei,da
  23. 230 next i
  24. 240 s4=s2 : gosub 70
  25. 250 poke sa+2,sh:pokesa+4,sl
  26. 260 s4=s1 :gosub 70
  27. 270 poke sa+12,sh:pokesa+14,sl
  28. 272 s4=s3 :gosub70
  29. 274 poke sa+28,sl:poke sa+29,sh
  30. 280 print:print"[215]iedereinschalten nach '[211][212][207][208]/[210][197][211][212][207][210][197]'"
  31. 290 print:print"mit      'sys ";sa;"'"
  32. 300 sys sa
  33. 310 end
  34. 320 rem" gesperrte [194]ereiche
  35. 330 [131] 4
  36. 340 [131] 0,827,1023,2039,40960,49151,53248,65535
  37. 350 [143] maschinenprogramm
  38. 360 [131]120,169,192,160,122,141, 33,  3,140, 32,  3,169,192,160, 58,141
  39. 370 [131] 39,  3,140, 38,  3, 88, 32,204,255,160, 20,185, 37,192, 32,210
  40. 380 [131]255,136, 16,247, 96, 13, 86, 73, 84, 75, 65, 32, 84, 82, 79, 80
  41. 390 [131] 45, 76, 69, 76, 76, 65, 82, 65, 80, 13, 72,165,154,201,  4,240
  42. 400 [131]  3, 76,205,241,173, 13,221,165,  2, 41,  1,240, 16,104,201, 64
  43. 410 [131]144, 10,201,192,144,  4, 41,127,208,  2,  9, 32, 72,104,141,  1
  44. 420 [131]221,173,  0,221, 41,251,141,  0,221,234,234,234,  9,  4,141,  0
  45. 430 [131]221,173, 13,221, 41, 16,240,249, 24, 96, 32, 15,243,240,  3, 76
  46. 440 [131]  1,247, 32, 31,243,165,186,201,  4,240,  3, 76, 91,242,165,  2
  47. 450 [131] 41,254,133,  2,165,185, 41,  7,201,  7,208,  6,169,  1,  5,  2
  48. 460 [131]133,  2,169,255,141,  3,221,169,  4, 13,  0,221,141,  0,221,169
  49. 470 [131]  4, 13,  2,221,141,  2,221,169,  4, 76,117,242
  50.