home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / easy-dump (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  61 lines
  1. 10 rem *********************************
  2. 20 rem **    ausgabe eines sektors    **
  3. 30 rem **   als hex- und ascii-dump   **
  4. 40 rem ** auf bildschirm oder drucker **
  5. 50 rem *********************************
  6. 60 :
  7. 70 :
  8. 80 :
  9. 90 :
  10. 100 print"[147]--- sektor-dump ---"
  11. 110 print"ausgabe auf b[146]ildschirm
  12. 120 [133]"       oder dwaitrucker    ";au$
  13. 130 [139]au$[178]"b"[167]au[178]3:[137]160
  14. 140 [139]au$[178]"d"[167]au[178]4:[137]160
  15. 150 [137]110
  16. 160 [153]"track,sektor ";
  17. 170 [133]tr,se
  18. 180 [153]"bitte diskette einlegen und taste..."
  19. 190 [161]g$:[139]g$[178]""[167]190
  20. 200 [159]15,8,15
  21. 210 [159]2,8,2,"#"
  22. 220 [152]15,"u1";2;0;tr;se
  23. 230 [132]15,a,b$,c,d
  24. 240 [139]a[177]0[167][153]"achtung!!":[153]b$
  25. 250 [139]a[177]0[167][137]160
  26. 260 [139]au[178]3[167][153]"load"
  27. 270 [159]3,au
  28. 280 [129]l[178]0[164]31
  29. 290 da[178]l[172]8:[141]600
  30. 300 [152]3,he$": ";
  31. 310 [129]m[178]0[164]7
  32. 320 [161]#2,da$
  33. 330 da(m)[178][198](da$[170][199](0))
  34. 340 [130]
  35. 350 [129]n[178]0[164]7
  36. 360 da[178]da(n):[141]600
  37. 370 [152]3,he$;
  38. 380 [130]
  39. 390 [152]3,"  ";
  40. 400 [129]n[178]0[164]7
  41. 410 [139]da(n)[177]31[175]da[179]96[167][152]3,[199](da(n));:[137]430
  42. 420 [152]3,".";
  43. 430 [130]
  44. 440 [152]3
  45. 450 [139]l[179][177]15[167]500
  46. 460 [139]au[178]4[167]500
  47. 470 [153]"taste..."
  48. 480 [161]g$:[139]g$[178]""[167]480
  49. 490 [153]"load"
  50. 500 [130]l
  51. 510 [160]15:[160]2:[160]3
  52. 520 [128]
  53. 600 d1[178][181](da[173]16)
  54. 610 d2[178]da[171](d1[172]16)
  55. 620 [139]d1[177][178]0[175]d1[179][178]9[167]d1$[178][196](d1)
  56. 630 [139]d2[177][178]0[175]d2[179][178]9[167]d2$[178][196](d2)
  57. 640 [139]d1[177]9[167]d1$[178][199](55[170]d1)
  58. 650 [139]d2[177]9[167]d2$[178][199](55[170]d2)
  59. 660 he$[178][201](d1$,1)[170][201](d2$,1)[170]" "
  60. 670 [142]
  61.