home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1999-03_1999_CSW_Side_A.d64
/
nova.File copier
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
61 lines
10 poke45,peek(174):poke46,peek(175):clr
20 sp$=" "
30 dx=peek(186):dv$="0:":open15,dx,15:dimf$(80),t$(80):open9,0
70 print"[147][206]ovaterm 9.5 file copier":ml=4030
80 print"[211]ource: device 8 drive 0"
90 print"[196]est : device 9 drive 0":p9=2
100 ifpeek(1023)thenprint"([210][193][205] expander is device"peek(1023)"[157])"
110 print""tab(15);:input#9,i$:a=val(i$):ifa<8ora>16thena=8
120 gosub520:iferthen110
130 dv=a
140 poke211,24:input#9,i$:a=val(i$):ifa>19then140
150 dv$=mid$(str$(a),2)+":":print
160 poke211,15:input#9,i$:a=val(i$):ifa<8ora>16thena=9
170 gosub520:iferthen160
180 dw=a
190 poke211,24:input#9,i$:a=val(i$):ifa>19then190
200 dw$=mid$(str$(a),2)+":":print
210 close15:open15,dv,15:open14,dw,15:ifpeek(1023)thenprint""
220 print"[208]attern match: [160][157]";:input#9,i$:ifi$="[160]"theni$="*"
230 print:print"[211]elect files for copying":print"[217][146]es [206][146]o [211][146]tart [209][146]uit"
240 open1,dv,0,"$"+dv$+i$:input#15,e,e$:ife>19then420
250 get#1,a$,a$:sysml+3:print:printz$:fl=0
260 sysml+3:ifright$(z$,1)="."orright$(z$,4)="free"thenprintz$:goto360
270 ifmid$(z$,25,1)="r"then260
280 printz$" copy?";
290 geta$:ifa$="n"thenpoke211,0:printsp$;:poke211,0:goto260
300 ifa$="s"thenpoke211,0:printsp$:goto360
310 ifa$="q"thenpoke211,0:printsp$:goto430
320 ifa$<>"y"then290
330 j=0:fori=7to23:ifmid$(z$,i,1)=chr$(34)thenj=i:i=23
340 next:f$=mid$(z$,7,j-7):iff$=","orf$=""thenpoke211,0:goto260
350 fl=fl+1:f$(fl)=f$:t$(fl)=mid$(z$,25,1):print"[157][157][157][157][157] ":iffl<80then260
360 print:close1:iffl=0then430
361 print"[193][146]sk, [210][146]eplace, or [211][146]kip":print"existing files? [146][157]";
362 geta$:ex=-(a$="a")-2*(a$="r")-3*(a$="s"):ifex=0then362
363 printchr$(asc(a$)+128):print
370 fori=1tofl:i$=f$(i):print"[195]opying "i$","t$(i);
380 open2,dv,2,dv$+i$:input#15,e,e$:ife>19then410
390 open3,dw,3,dw$+i$+","+t$(i)+",w":input#14,e,e$:ife<>63then399
391 ifex=3then410
392 ifex=2ore=0thenclose3:print#14,"s"dw$i$:goto390
393 printtab(28)"replace?";:poke211,28
394 geta$:ifa$<>"y"anda$<>"n"then394
395 ifa$="n"thene$="not copied":goto410
396 print" ";:poke211,28:e=0:goto392
399 ife>19then410
400 sysml
410 close2:close3:printtab(28)e$:next:goto430
420 print:printe$
430 close1:close14:close15:print"[195]opy more files? [146][157]";
440 geta$:ifa$<>"y"anda$<>"n"then440
450 ifa$="y"thenprint"yes":goto70
460 print"no"
470 ifpeek(6)<255thenend
480 close15:open15,dx,15:open2,dx,0,"prog menu":input#15,e:close2:ife>19then500
490 load"prog menu",dx
500 open2,dx,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
510 load"novaterm ?.?*",dx,1
520 er=0:close16:open16,a,15:close16:if128andstthener=1
530 return