home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MMCONV / CONVERT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1993-06-02  |  650 b   |  28 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  HOME 
  2. 2  PRINT "MUSICMAKER CONVERSION"
  3. 5  REM  CONVERT MUSICMAKER MODULE TO SEQUENCE
  4. 10 BAS = 4 *4096 +2 *256 +7 *16
  5. 20 P = BAS
  6. 30 S = 8192: REM  SEQUENCE ADDRESS
  7. 50  POKE S,0: POKE S +1,144: POKE S +2,0: POKE S +3,0
  8. 60  POKE S +4,128: POKE S +5,0:S = S +6
  9. 100 N =  PEEK(P): IF N = 255  THEN 200
  10. 110  IF N >0  THEN N = N +40: REM            IF NOT REST, GET MIDI NOTE#
  11. 120 D1 =  PEEK(P +1):D2 =  PEEK(P +2)
  12. 130  POKE S,N: POKE S +1,64:S = S +2
  13. 140  POKE S,128 + INT(D1/128)
  14. 142  POKE S +1,D1 - INT(D1/128) *128
  15. 144  POKE S +2,N
  16. 146  POKE S +3,0
  17. 148 S = S +4
  18. 150  POKE S,128 + INT(D2/128)
  19. 152  POKE S +1,D2 - INT(D2/128) *128
  20. 155 S = S +2
  21. 180 P = P +3
  22. 182  VTAB 10: PRINT "S=";S;"   P=";P
  23. 185  IF S > = P  THEN  PRINT "*** SEQUENCE GREW TOO BIG ***": STOP 
  24. 190  GOTO 100
  25. 200  REM  END OF SONG
  26. 210  POKE S,255: POKE S +1,47: POKE S +2,0
  27. 220 S = S +2
  28. 250  PRINT "BSAVE                ,A$2000,E"S