home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / WPLMAKER (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  5.4 KB  |  46 lines
  1. 100 PRINT CHR$(147):PRINT " SIDPLAYER SONG LIBRARY MAKER"
  2. 110 PRINT " BY CRAIG CHAMBERLAIN 2/1/87":PRINT:SP=783:DR=8:DW=8
  3. 130 RE=3798:WR=RE+45:WU=WR+70:WC=WU+77
  4. 140 B1=WC+206:B2=B1+1059:B3=B2+968:B4=B3+1243:MA=PEEK(49)+256*PEEK(50)+500
  5. 300 PRINT " THIS PROGRAM WRITES TO DISK THE
  6. 305 [153] " LIBRARY FILE FOR ONE SIDPLAYER SONG":[153]
  7. 310 F$[178]"":[133] " NAME OF SONG";F$:[139] F$[178]"" [176] [195](F$)[177]12 [137] 310
  8. 320 [153]:[153] " READING " F$ ".MUS"
  9. 325 [159] 2,DR,15:[132]2,A,B$,C,D:[139] A [137] 710
  10. 330 [159] 1,DR,2,F$[170]".MUS,R,P":[132]2,A,B$,C,D:[139] A [137] 710
  11. 340 [158] RE,MA:[139] [194](SP)[175]1 [137] 700
  12. 350 WA[178][194](251)[170]256[172][194](252):ML[178]WA[171]MA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
  13. 400 [159] 1,DR,2,F$[170]".WDS,R,P":[132]2,A,B$,C,D
  14. 410 [139] A[178]62 [167] [160] 1:WL[178]0:PA[178]WA:[137] 450
  15. 420 [153] " READING " F$ ".WDS":[139] A [137] 710
  16. 430 [158] RE,WA:[139] [194](SP)[175]1 [137] 700
  17. 440 PA[178][194](251)[170]256[172][194](252):WL[178]PA[171]WA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
  18. 450 [159] 1,DR,2,F$[170]".PIC,R,P":[132]2,A,B$,C,D
  19. 460 [139] A[178]62 [167] [160] 1:PL[178]0:EA[178]PA:[137] 500
  20. 470 [153] " READING " F$ ".PIC":[139] A [137] 710
  21. 480 [158] RE,PA:[139] [194](SP)[175]1 [137] 700
  22. 490 EA[178][194](251)[170]256[172][194](252):PL[178]EA[171]PA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
  23. 500 [160] 2:[153]:[139] WL[178]0 [175] PL[178]0 [167] [153] " ERROR: NO WORDS OR PICTURE":[128]
  24. 502 [139] PL[178]0 [167] X$[178]".SAL":BA[178]B1:BE[178]B2:[137] 510
  25. 504 [139] WL[178]0 [167] X$[178]".PIL":BA[178]B2:BE[178]B3:[137] 510
  26. 506 X$[178]".WPL":BA[178]B3:BE[178]B4
  27. 510 [153] " INSERT A DISK TO RECEIVE THE
  28. 515 PRINT " LIBRARY FILE AND PRESS ANY KEY":PRINT:POKE 198,0:WAIT 198,15:GET G$
  29. 520 PRINT " WRITING " F$ X$
  30. 525 OPEN 2,DW,15,"S0:"+F$+X$:INPUT#2,A,B$,C,D:IF A>1 GOTO 710
  31. 530 OPEN 1,DW,2,F$+X$+",W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  32. 535 SYS WR,BA,BE:IF PEEK(SP)AND1 GOTO 700
  33. 540 SYS WR,WR,WU:IF PEEK(SP)AND1 GOTO 700
  34. 545 IF PL THEN SYS WR,WU,WC:IF PEEK(SP)AND1 GOTO 700
  35. 550 PRINT#1,CHR$(LEN(F$)) F$;
  36. 560 PRINT#1,CHR$(ML-256*INT(ML/256)) CHR$(ML/256);
  37. 565 SYS WR,MA,WA:IF PEEK(SP)AND1 GOTO 700
  38. 570 IF WL=0 GOTO 580
  39. 572 PRINT#1,CHR$(WL-256*INT(WL/256)) CHR$(WL/256);
  40. 574 SYS WR,WA,PA:IF PEEK(SP)AND1 GOTO 700
  41. 580 IF PL THEN SYS WC,PA,EA:IF PEEK(SP)AND1 GOTO 700
  42. 590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  43. 595 CLOSE 2:END
  44. 700 INPUT#2,A,B$,C,D
  45. 710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  46.