home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MMCONV / CONVERT1 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1993-06-02  |  305 b   |  15 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  REM  CONVERT MUSICMAKER MODULE TO SEQUENCE
  2. 10 BAS = 4 *4096 +2 *256 +7 *16
  3. 20 P = BAS
  4. 50  PRINT "0,144,0,0,"
  5. 60  PRINT "128,0,";
  6. 100 N =  PEEK(P): IF N = 255  THEN 200
  7. 110  IF N >0  THEN N = N +36: REM  IF NOT REST, GET MIDI NOTE #
  8. 120 D1 =  PEEK(P +1):D2 =  PEEK(P +2)
  9. 130  PRINT N",64,";
  10. 140  PRINT D1","N",0,"
  11. 150  PRINT D2",";
  12. 180 P = P +3
  13. 190  GOTO 100
  14. 200  REM  END OF SONG
  15. 210  PRINT "255,47,0"