home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / easy-dump (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.