home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / ben.sal (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-22  |  3.0 KB  |  27 lines
  1. 100 PRINT CHR$(147):PRINT " SIDPLAYER SINGALONG SONG DISSOLVER"
  2. 110 PRINT " BY CRAIG CHAMBERLAIN 5/10/86":PRINT:SP=783
  3. 130 WR=3051:A=WR+67:L=PEEK(A):FOR K=1 TO L:F$=F$+CHR$(PEEK(A+K)):NEXT:A=A+K
  4. 140 ML=PEEK(A)+256*PEEK(A+1):MA=A+2:A=MA+ML:WL=PEEK(A)+256*PEEK(A+1):WA=A+2
  5. 150 A=WA+1
  6. 155 P=PEEK(A):IF P<>34 THEN T$=T$+CHR$(P):A=A+1:GOTO 155
  7. 300 PRINT " THIS PROGRAM WRITES TO DISK":PRINT " THE MUSIC AND WORD FILES FOR
  8. 305 [153] " THE FOLLOWING SINGALONG SONG:":[153]
  9. 310 [153] " " T$:[153]
  10. 320 [153] " INSERT A DISK TO RECEIVE":[153] " THE MUSIC AND WORD FILES,
  11. 325 PRINT " AND PRESS ANY KEY":PRINT
  12. 330 POKE 198,0:WAIT 198,15:GET G$
  13. 500 OPEN 2,8,15,"I0:":INPUT#2,A,B$,C,D:IF A GOTO 710
  14. 510 PRINT " WRITING " F$ ".MUS":PRINT:PRINT#2,"S0:"+F$+".MUS"
  15. 515 INPUT#2,A,B$,C,D:IF A>2 GOTO 710
  16. 520 OPEN 1,8,2,F$+".MUS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  17. 530 SYS WR,MA,MA+ML:IF PEEK(SP)AND1 GOTO 700
  18. 540 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  19. 550 PRINT " WRITING " F$ ".WDS":PRINT:PRINT#2,"S0:"+F$+".WDS"
  20. 555 INPUT#2,A,B$,C,D:IF A>2 GOTO 710
  21. 560 OPEN 1,8,2,F$+".WDS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  22. 570 SYS WR,WA,WA+WL:IF PEEK(SP)AND1 GOTO 700
  23. 580 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  24. 590 CLOSE 2:END
  25. 700 INPUT#2,A,B$,C,D
  26. 710 PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  27.