home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1997-09_1997_CSW_Side_B.d64 / sweet dreams.msw (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  35 lines
  1. 100 print chr$(147):print " sidplayer song, words,
  2. 105 [153] " and stereo  dissolver
  3. 110 print " by chamberlainNoglesby 8/87":print:sp=783:dn=8
  4. 130 wr=3290:wu=wr+70:a=wu+77
  5. 135 l=peek(a):for k=1 to l:f$=f$+chr$(peek(a+k)):next:a=a+k
  6. 140 ml=peek(a)+256*peek(a+1):ma=a+2:a=ma+ml:wl=peek(a)+256*peek(a+1):wa=a+2
  7. 150 pa=wa+wl:a=wa+1
  8. 155 p=peek(a):if p<>34 then t$=t$+chr$(p):a=a+1:goto 155
  9. 300 print " this program writes to disk":print " the music, word, and stereo 
  10. 305 [153] " files for the following song:":[153]
  11. 310 [153] " " t$:[153]
  12. 320 [153] " insert a disk to receive the
  13. 325 print " music, word, and stereo  files,":print " and press any key":print
  14. 330 poke 198,0:wait 198,15:get g$
  15. 400 open 2,dn,15:input#2,a,b$,c,d:if a goto 710
  16. 410 print " writing " f$ ".mus"
  17. 420 open 1,dn,2,f$+".mus,w,p":input#2,a,b$,c,d:if a goto 710
  18. 430 sys wr,ma,ma+ml:if peek(sp)and1 goto 700
  19. 440 close 1:input#2,a,b$,c,d:if a goto 710
  20. 510 print " writing " f$ ".wds"
  21. 520 open 1,dn,2,f$+".wds,w,p":input#2,a,b$,c,d:if a goto 710
  22. 530 sys wr,wa,wa+wl:if peek(sp)and1 goto 700
  23. 540 close 1:input#2,a,b$,c,d:if a goto 710
  24. 560 print " writing " f$ ".str"
  25. 570 open 1,dn,2,f$+".str,w,p":input#2,a,b$,c,d:if a goto 710
  26. 580 sys wu,pa:if peek(sp)and1 goto 700
  27. 590 close 1:input#2,a,b$,c,d:if a goto 710
  28. 600 print:print " scratch " f$ ".msw? ";
  29. 610 wait 198,15:get g$:if g$="n" then print "no":goto 690
  30. 620 if g$<>"y" goto 610
  31. 630 print "yes":print#2,"s0:"+f$+".msw":input#2,a,b$,c,d:if a>1 goto 710
  32. 690 close 2:end
  33. 700 input#2,a,b$,c,d
  34. 710 print:print " error: " b$:close 1:close 2:end
  35.