home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 71 / Tiger_Disk_071_20xx_Tiger-Crew-Disk_de_Side_B.d64 / file-kopierer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  112 lines
  1. 10 poke55,0:poke56,24:clr
  2. 20 pg=24:mx=peek(56)
  3. 30 z$=chr$(0):q$=chr$(34)
  4. 40 poke53280,15:poke53281,1
  5. 50 printchr$(14);chr$(8)
  6. 60 dimf$(mx),f(mx),t(mx)
  7. 70 fori=828to904:reada:pokei,a:next
  8. 80 print"[147][144]              [198][201][204][197] [195][207][208][201][197][210]               ";:dd=8
  9. 90 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  10. 100 print"[208]lease insert the [211][207][213][210][195][197][144]  diskette into"
  11. 110 print"the disk drive #8 and press the [210][197][212][213][210][206][146]- key"
  12. 120 geta$:ifa$<>chr$(13)then120
  13. 130 open15,dd,15,"i0"
  14. 140 input" [198]ilenames to match ? *[157][157][157]";f$
  15. 150 ifright$(f$,1)<>"*"thenf$=f$+"*"
  16. 160 gosub940:ifegoto900
  17. 170 open1,dd,0,"$0:"+f$:gosub940
  18. 180 ifethenprint"[154] impossible to read directory [146]":goto900
  19. 190 print" '[195][144]' [198]ile kopieren   '[210][144]' [198]ile auslassen  ";
  20. 200 print"'[194][144]' [195]opy beginnen   '[193][144]' abbrechen    "
  21. 210 get#1,a$,b$:n=0:ad=pg*256
  22. 220 get#1,a$,b$:ifb$=""goto430
  23. 230 get#1,a$,b$:f$=""
  24. 240 sz=asc(a$+z$)+asc(b$+z$)*256
  25. 250 get#1,a$:if64andstgoto430
  26. 260 ifa$<>q$goto250
  27. 270 get#1,a$:ifa$<>q$thenf$=f$+a$:goto270
  28. 280 get#1,a$:ifa$<>" "goto280
  29. 290 get#1,t$:ift$=" "goto290
  30. 300 get#1,a$:ifa$<>""goto300
  31. 310 ifsz=0or(t$<>"p"andt$<>"s")goto220
  32. 320 printsz;tab(5);t$;" ";q$;f$;q$;tab(26);
  33. 330 ifad+sz*256>53247thenprint"[212][207][207] [204][193][210][199][197][144]":goto220
  34. 340 print"_ c:r:b:a?[146][157][157][157][157][157][157][157][157]";
  35. 350 geta$:ifa$=""goto350
  36. 360 ifa$="r"thenprint"[154]reject file[144]":goto220
  37. 370 ifa$="b"thenprint"[154]begin copy[144]":goto430
  38. 380 ifa$="a"thenprint"[154]abort copy[144]":goto870
  39. 390 ifa$<>"c"goto350
  40. 400 n=n+1:f$(n)=f$+","+t$:print"[154]copy file[144] "
  41. 410 ad=ad+sz*256:ifn<mxgoto220
  42. 420 print" [205]aximum of";mx;"files."
  43. 430 close1:print"";n;"files to read"
  44. 440 ad=pg*256:ifn=0goto900
  45. 450 fori=1ton
  46. 460 print" ";q$;f$(i);q$;tab(20);
  47. 470 sz=int(ad/256)
  48. 480 poke251,ad-sz*256:poke252,sz
  49. 490 open1,dd,2,"0:"+f$(i):gosub940
  50. 500 ife=74thenclose1:n=i-1:goto580
  51. 510 ifethenclose1:f$(i)="":goto570
  52. 520 sys831:gosub940:close1:ife=74thenn=i-1:goto580
  53. 530 ifethenf$(i)="":goto570
  54. 540 ifpeek(252)=208thenf$(i)="":print"[212][207][207] [204][193][210][199][197][146]":goto570
  55. 550 f(i)=ad:ad=peek(251)+peek(252)*256:t(i)=ad
  56. 560 printright$("   "+str$(t(i)-f(i)),5);" bytes of mem"
  57. 570 nexti
  58. 580 ifn=0goto900
  59. 590 print"[208]lease insert the [196][197][211][212][201][206][193][212][201][207][206][144] diskette":print"into disk drive."
  60. 595 close15
  61. 596 input"copy to which drive ";dd$
  62. 597 dd=val(dd$):ifdd<8ordd>15thenprint"[147]":goto590
  63. 600 input"[198][207][210][205][193][212][144] this diskette  n[157][157][157]";a$
  64. 610 print:open15,dd,15
  65. 620 ifa$<>"y"goto660
  66. 630 input" [196]isk name,id";f$,t$
  67. 640 print#15,"n0:"+f$+","+t$
  68. 650 print:gosub940:ifegoto580
  69. 660 fori=1ton
  70. 670 iff$(i)=""goto840
  71. 680 print" ";q$;f$(i);q$;tab(20);
  72. 690 open1,dd,2,f$(i)+",w"
  73. 700 gosub940:ife=0goto770
  74. 710 close1:ife=63then730
  75. 720 rem  close1:ife<>63goto840
  76. 730 print:input" [210][197][208][204][193][195][197][144] existing file [157]? n[157][157][157]";a$
  77. 740 print
  78. 750 ifa$<>"y"goto840
  79. 760 print#15,"s0:"+f$(i):goto680
  80. 770 sz=int(f(i)/256)
  81. 780 poke251,f(i)-sz*256:poke252,sz
  82. 790 sz=int(t(i)/256)
  83. 800 poke253,t(i)-sz*256:poke254,sz
  84. 810 sys828:gosub940:close1:ife=72ore=74goto850
  85. 820 ifegoto840
  86. 830 printright$("   "+str$(t(i)-f(i)),5);" bytes of mem"
  87. 840 nexti
  88. 850 input" [211]ave same programs again? n[157][157][157]";a$
  89. 860 ifa$="y"goto580
  90. 870 close15:close1
  91. 880 input" [205]ore programs to copy? y[157][157][157]";a$
  92. 890 ifa$="y"then close15:close1:goto80
  93. 900 printtab(14)"[197][206][196] [207][198] [195][207][208][217]"
  94. 910 printtab(7)"[208]lease remove the diskette"
  95. 920 printtab(11)"from the disk drive[144]"
  96. 930 printchr$(9);:end
  97. 940 input#15,e,e$,e1,e2
  98. 950 ife=0thenreturn
  99. 960 ee$=mid$(str$(e),2):e1$=mid$(str$(e1),2):e2$=mid$(str$(e2),2)
  100. 970 ife=63thenreturn
  101. 980 print:print"";ee$;",";e$;",";e1$;",";e2$
  102. 990 data 76,96,3,162,1,32,198,255,32
  103. 1000 data 228,255,160,0,145,251,230
  104. 1010 data 251,208,8,230,252,165,252
  105. 1020 data 201,208,240,6,165,144,41,64
  106. 1030 data 240,231,76,204,255,162,1,32
  107. 1040 data 201,255,162,54,134,1,160,0
  108. 1050 data 177,251,32,210,255,230,251
  109. 1060 data 208,2,230,252,165,251,197,253
  110. 1070 data 208,239,165,252,197,254,208
  111. 1080 data 233,162,55,134,1,76,204,255
  112.