home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 33
/
Commodore_Disc_33_19xx_-_de.d64
/
dcopy64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
55 lines
100 rem disc-copy64=============c64
110 rem (p) commodore welt team
120 rem ===========================
130 rem (c) by alfons mittelmeyer
140 rem
150 rem
160 rem basic v2,0
170 rem c64,(c128 im c64-modus)
180 rem ===========================
190 poke55,0:poke56,14:clr:poke250,0
200 gosub480:readt:readen:readwe
210 sa=1:sd=871
220 reada:ifa=-1then250
230 readb:fori=satoa:pokesd+i,b:next
240 sa=i:goto220
250 poke198,0
260 print:print:input"quelldiskette";a$:printchr$(147)
270 open15,8,15:open8,8,8,"#"
280 poke251,14:a=t-1+we:ifa>enthena=en
290 fori=t to a:gosub370:next
300 close8:close15:poke198,0
310 print:print:input"zieldiskette ";a$:printchr$(19)
320 open15,8,15
330 open8,8,8,"#":poke251,14
340 fori=t to a:gosub410:next
350 t=i:close8:close15:ifa<>enthen250
360 print:print:print"fertig ":end
370 print:printright$(str$(i),2)": ";
380 se=peek(sd+i):fors=0tose
390 print#15,"u1:";8;0;i;s:sys828
400 print"-";:next:return
410 print:printright$(str$(i),2)": ";
420 se=peek(sd+i):fors=0tose
430 print#15,"b-p";8;0:sys848
440 print#15,"u2:";8;0;i;s:print"+";:next:return
450 rem ------------------------
460 rem lese-schreib-routine
470 rem ------------------------
480 printchr$(147):fori=828to870
490 reada:pokei,a:next:return
500 data 162,008,032,198,255,160
510 data 000,032,207,255,145,250
520 data 200,208,248,230,251,076
530 data 204,255,162,008,032,201
540 data 255,160,000,177,250,234
550 data 234,234,032,210,255,200
560 data 208,245,230,251,076,204
570 data 255
580 rem ------------------------
590 rem disketten-datas
600 rem ------------------------
610 data 1,35,6
620 data 17,20,24,18,30,17,35,16,-1
630 rem =p=r=o=g=r=a=m=m=e=n=d=e