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