home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
MusGraph
/
SID-COPIER
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
3KB
|
62 lines
100 PRINT CHR$(147):PRINT " SIDPLAYER FILE COPY UTILITY"
110 PRINT " BY CRAIG CHAMBERLAIN 6/20/86":PRINT
120 SA=780:SP=783:DA=5358:WP=5362:FR=5363:CC=5364:CT=5365:LE=5374
130 DI=4377:SE=4698:RE=4841:WR=5089:LI=5209:PR=5306
200 D$="2":PRINT " INSERT SOURCE DISK":PRINT
210 PRINT " 1 MUSIC FILES ONLY":PRINT " 2 MUSIC AND WORD FILES
215 [153] " 3 MUSIC, WORD, AND PICTURE FILES":[153]
220 [153] " COPY WHICH FILE TYPES (" D$ ") ? ";
222 [146] 198,15:[161] G$:[139] G$[178][199](13) [167] G$[178]D$
224 [139] G$[179]"1" [176] G$[177]"3" [137] 222
226 [153] G$:[151] WP,0:[139] G$[177]"1" [167] [151] WP,1:[139] G$[178]"3" [167] [151] WP,128
230 LA[178][194](49)[170]256[172][194](50)[170]100:[151] DA,LA[171]256[172][181](LA[173]256):[151] DA[170]1,LA[173]256
240 [153]:[158] DI:[139] [194](CC)[178]0 [167] [153] " NO MUSIC FILES ON DISK":[128]
250 [151] FR,([194](51)[170]256[172][194](52)[171][194](DA[170]2)[171]256[172][194](DA[170]3)[171]400)[173]253:[153]
260 [153] " ENTER NAMES OF FILES TO COPY
265 PRINT " THEN ENTER 'BEGIN' TO START":PRINT:POKE CT,0
300 PRINT PEEK(FR) "BLOCKS FREE":PRINT " COPY #";:POKE SA,PEEK(CT)+1:SYS PR
305 I$="":K=FRE(0):INPUT I$:PRINT:IF I$="" THEN SYS LI:PRINT:GOTO 300
310 IF I$="BEGIN" GOTO 400
320 MF=0:F$=I$:R$=RIGHT$(F$,4)
325 IF NOT(R$=".MUS" OR R$=".WDS" OR R$=".PIC") THEN MF=1:F$=F$+".MUS"
330 L=LEN(F$):IF L>16 THEN PRINT " FILENAME TOO LONG":PRINT:GOTO 300
332 FOR K=1 TO L:POKE 571+K,ASC(MID$(F$,K)):NEXT:POKE SA,L:SYS SE
334 ON PEEK(SA)+1 GOTO 350,341,342,343
341 PRINT " FILE NOT ON DISK":PRINT:GOTO 300
342 PRINT "
16672 LREADY SELECTED":PRINT:GOTO 300
343 PRINT " NOT ENOUGH MEMORY":PRINT:GOTO 300
350 IF MF=0 GOTO 300
352 POKE 569+L,87:POKE 570+L,68:POKE SA,L:SYS SE
354 SF=0:ON PEEK(SA) GOTO 370,370,395
360 SF=1
370 POKE 569+L,80:POKE 570+L,73:POKE 571+L,67:POKE SA,L:SYS SE
375 ON PEEK(SA) GOTO 390,390,396
380 SF=SF OR2
390 ON SF+1 GOTO 300,391,392,393
391 PRINT " MUSIC AND WORD FILES SELECTED":PRINT:GOTO 300
392 PRINT " MUSIC AND PICTURE FILES SELECTED":PRINT:GOTO 300
393 PRINT " MUSIC, WORD, PICTURE FILES SELECTED":PRINT:GOTO 300
395 PRINT " NOT ENOUGH MEMORY FOR WORDS FILE":PRINT:GOTO 300
396 PRINT " NOT ENOUGH MEMORY FOR PICT
18758 LE":PRINT:GOTO 300
400 IF PEEK(CT)=0 THEN PRINT " NO FILES SELECTED":PRINT:GOTO 300
410 OPEN 2,8,15,"I0:":INPUT#2,A,B$,C,D:IF A GOTO 710
420 SYS RE:PRINT:IF PEEK(SP)AND1 GOTO 700
500 PRINT " INSERT DESTINATION DISK":PRINT " AND PRESS ANY KEY":POKE 198,0
505 WAIT 198,15:GET G$:PRINT:PRINT#2,"I0:":INPUT#2,A,B$,C,D:IF A GOTO 710
510 FOR K=1 TO PEEK(CT)
520 POKE SA,K:SYS WR:IF (PEEK(SP)AND1)=0 GOTO 550
530 INPUT#2,A,B$,C,D:IF A<>63 THEN PRINT:GOTO 710
532 PRINT:PRINT " ERROR: " B$:PRINT:PRINT " OKAY TO REPLACE? ";
534 WAIT 198,15:GET G$:IF G$="N" THEN PRINT "NO":PRINT:GOTO 550
536 IF G$<>"Y" GOTO 534
540 PRINT "YES":PRINT:F$="":FOR J=1 TO PEEK(LE)-4:F$=F$+CHR$(PEEK(571+J)):NEXT
542 PRINT "
17236 HING " F$:PRINT
544 PRINT#2,"S0:"+F$:INPUT#2,A,B$,C,D:IF A>1 GOTO 710
546 J=FRE(0):GOTO 520
550 NEXT:CLOSE 2:PRINT:PRINT " COPYING COMPLETED":END
700 INPUT#2,A,B$,C,D
710 PRINT " ERROR: " B$:CLOSE 2:END