home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / kopierprogramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  60 lines
  1. 10 rem ********************************
  2. 12 rem * klima 64: daten kopieren     *
  3. 14 rem ********************************
  4. 16 :
  5. 100 rem *** index lesen ***************
  6. 102 z$=chr$(0):dimqq$(255),a$(255)
  7. 104 poke53280,6:poke53281,6:print"[147] [203][204][201][205][193] 64: [196]aten kopieren "
  8. 106 print"[209]uell";:gosub900
  9. 108 open1,8,15,"i"
  10. 110 open2,8,2,"index,p,r"
  11. 112 input#1,a,a$,a1,a2:ifa=0then120
  12. 114 close2:close1
  13. 116 print"[203]eine [207]rte erfasst."
  14. 118 print:end
  15. 120 input#2,qq:print"[201]ndex lesen:"
  16. 122 fori=1toqq
  17. 124 input#2,qq$(i):print"/";qq$(i):next
  18. 126 close2
  19. 128 :
  20. 200 rem *** daten lesen ***************
  21. 202 open2,8,2,"daten,l,"+chr$(38)
  22. 204 print"[196]aten lesen:"
  23. 206 fori=1toqq:print"/";qq$(i)
  24. 208 print#1,"p"+chr$(i)+z$+z$
  25. 210 a$(i)=""
  26. 212 forj=1to36:get#2,a$
  27. 214 a$(i)=a$(i)+chr$(asc(a$+z$)):next
  28. 216 next
  29. 218 close2
  30. 220 :
  31. 300 rem *** index schreiben ***********
  32. 302 print"[218]iel";:gosub900
  33. 304 open2,8,2,"index,p,w"
  34. 306 input#1,a,a$,a1,a2:ifa=0then316
  35. 308 close2:close1
  36. 310 print"[196]atendiskette enthaelt bereits [196]aten."
  37. 312 print"[208]rogramm erneut starten."
  38. 314 print:end
  39. 316 print"[201]ndex schreiben:"
  40. 320 print#2,qq
  41. 322 fori=1toqq
  42. 324 print"/";qq$(i):print#2,qq$(i):next
  43. 326 close2
  44. 328 :
  45. 400 rem *** daten schreiben ***********
  46. 402 open2,8,2,"daten,l,"+chr$(38)
  47. 404 print"[196]aten schreiben:"
  48. 406 fori=1toqq:print"/";qq$(i)
  49. 408 print#1,"p"+chr$(i)+z$+z$
  50. 410 print#2,a$(i):next
  51. 412 close2:close1
  52. 414 print"[203]opiervorgang beendet."
  53. 416 print:end
  54. 418 :
  55. 900 rem *** "return" ******************
  56. 902 print"diskette einlegen, [[210][197][212][213][210][206]]."
  57. 904 geta$:ifa$<>chr$(13)then904
  58. 906 return
  59. 908 :
  60.