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