home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / kopierprogramm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.