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