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 >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
61 lines
10 rem *********************************
20 rem ** ausgabe eines sektors **
30 rem ** als hex- und ascii-dump **
40 rem ** auf bildschirm oder drucker **
50 rem *********************************
60 :
70 :
80 :
90 :
100 print"[147]--- sektor-dump ---"
110 print"ausgabe auf b[146]ildschirm
120 [133]" oder dwaitrucker ";au$
130 [139]au$[178]"b"[167]au[178]3:[137]160
140 [139]au$[178]"d"[167]au[178]4:[137]160
150 [137]110
160 [153]"track,sektor ";
170 [133]tr,se
180 [153]"bitte diskette einlegen und taste..."
190 [161]g$:[139]g$[178]""[167]190
200 [159]15,8,15
210 [159]2,8,2,"#"
220 [152]15,"u1";2;0;tr;se
230 [132]15,a,b$,c,d
240 [139]a[177]0[167][153]"achtung!!":[153]b$
250 [139]a[177]0[167][137]160
260 [139]au[178]3[167][153]"load"
270 [159]3,au
280 [129]l[178]0[164]31
290 da[178]l[172]8:[141]600
300 [152]3,he$": ";
310 [129]m[178]0[164]7
320 [161]#2,da$
330 da(m)[178][198](da$[170][199](0))
340 [130]
350 [129]n[178]0[164]7
360 da[178]da(n):[141]600
370 [152]3,he$;
380 [130]
390 [152]3," ";
400 [129]n[178]0[164]7
410 [139]da(n)[177]31[175]da[179]96[167][152]3,[199](da(n));:[137]430
420 [152]3,".";
430 [130]
440 [152]3
450 [139]l[179][177]15[167]500
460 [139]au[178]4[167]500
470 [153]"taste..."
480 [161]g$:[139]g$[178]""[167]480
490 [153]"load"
500 [130]l
510 [160]15:[160]2:[160]3
520 [128]
600 d1[178][181](da[173]16)
610 d2[178]da[171](d1[172]16)
620 [139]d1[177][178]0[175]d1[179][178]9[167]d1$[178][196](d1)
630 [139]d2[177][178]0[175]d2[179][178]9[167]d2$[178][196](d2)
640 [139]d1[177]9[167]d1$[178][199](55[170]d1)
650 [139]d2[177]9[167]d2$[178][199](55[170]d2)
660 he$[178][201](d1$,1)[170][201](d2$,1)[170]" "
670 [142]