home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MIDI2 / MIDI.TO.TEXT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-11-25  |  769 b   |  36 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  HIMEM: 8192
  2. 6  REM  STORE STRINGS BELOW HGR
  3. 10  REM  CONVERTS MIDI SEQUENCE AT $2000
  4. 20  REM  TO TEXT FILE THAT CAN BE READ
  5. 30  REM  BY TEXT.TO.MIDI
  6. 90 N0$ = "CCDDEFFGGAAB"
  7. 91 N1$ = " # #  # # # "
  8. 100 B = 8192: HGR : VTAB 24
  9. 110  INPUT "FILENAME OF .D FILE: ";F$: PRINT : PRINT  CHR$(4)"VERIFY"F$".D"
  10. 120  PRINT  CHR$(4)"BLOAD"F$".D,A$2000"
  11. 130  PRINT  CHR$(4)"OPEN"F$".TXT": PRINT  CHR$(4)"WRITE"F$".TXT"
  12. 140  GOSUB 1000
  13. 145  PRINT : PRINT 
  14. 150  PRINT  CHR$(4)"CLOSE"
  15. 999  END 
  16. 1000  PRINT "* ";F$
  17. 1005 G = 0
  18. 1006 NW = 1
  19. 1010  IF ( PEEK(B) <144)  OR ( PEEK(B) >159)  THEN B = B +1: IF  PEEK(B) < >0  OR  PEEK(B +1) < >0  OR  PEEK(B +2) < >0  THEN 1010
  20. 1011  IF  PEEK(B) = 0  AND  PEEK(B +1) = 0  AND  PEEK(B +2) = 0  THEN  RETURN 
  21. 1025 C =  PEEK(B):N =  PEEK(B +1):V =  PEEK(B +2)
  22. 1027  IF G < >(V < >0)  THEN G = (V < >0): IF V >0  THEN L = L +1: GOSUB 2000
  23. 1030 B = B +3
  24. 1050 N0 = N -( INT(N/12)) *12
  25. 1055 OC =  INT(N/12) -2
  26. 1060  IF V = 0  THEN 1080
  27. 1064  IF NW < >1  THEN  PRINT " , ";:NW = 0
  28. 1065  PRINT OC;
  29. 1070  PRINT  MID$ (N0$,N0 +1,1);
  30. 1075  IF  MID$ (N1$,N0 +1,1) = "#"  THEN  PRINT "#";
  31. 1076 NW = 0
  32. 1080  REM 
  33. 1090  GOTO 1010
  34. 1099  RETURN 
  35. 2000  PRINT " / ":NW = 1
  36. 2099  RETURN