home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / PROJECT / PIANOKEY.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-05-24  |  1.3 KB  |  45 lines  |  [FC] Applesoft BASIC Program (0x1001)
  1. 0 ME$ = "PIANOKEY.BAS":PP$ = "": REM   YOU CAN CHANGE PP$ TO THE PATH WHERE THIS PROGRAM IS INSTALLED   
  2. 1  IF  PEEK(104) < >16  THEN  POKE 4096,0: POKE 104,16: PRINT  CHR$(4)"RUN "PP$;ME$
  3. 2 GD = 0: REM   PIANO DISPLAY
  4. 3  TEXT : HOME : PRINT "*** REALTIME PIANO DISPLAY ***": PRINT : PRINT "THIS OPTION WORKS BEST FOR SIMPLE MIDI": PRINT "SEQUENCES OR HANDS-ON MUSIC LESSONS.": PRINT : PRINT 
  5. 5  PRINT : INPUT "SEND MIDI IN TO MIDI OUT? :";Y$
  6. 6  PRINT : INPUT "USE MOCKINGBOARD AS TONE GENERATOR? :";TG$
  7. 7  IF  LEFT$(Y$,1) = "Y"  THEN THRU = 1
  8. 9  IF GD < >1  THEN 1000
  9. 10  TEXT : HOME 
  10. 15  PRINT "C  #  D  #  E  F  #  G  #  A  #  B  "
  11. 20  FOR Y = 0 TO 10
  12. 30  FOR X = 0 TO 11
  13. 35  IF Y = 0  THEN  PRINT "===";: GOTO 50
  14. 40  PRINT "--|";
  15. 50  NEXT X
  16. 60  PRINT 
  17. 70  FOR X = 0 TO 11
  18. 80  PRINT "  |";
  19. 90  NEXT X
  20. 95  PRINT " ";8 -Y
  21. 110  NEXT Y
  22. 130  PRINT "====================================";
  23. 133  PRINT "===";
  24. 140  VTAB 1
  25. 145  IF  LEFT$(Y$,1) = "Y"  OR  LEFT$(Y$,1) = "y"  THEN  PRINT  CHR$(4)"BRUN MIDITHRU": GOTO 200
  26. 150  PRINT  CHR$(4)"BRUN REALTIME"
  27. 200  GOTO 9000
  28. 1000  PRINT :
  29. 1010  PRINT  CHR$(4)"BRUN "PP$"PIANO.SCREEN"
  30. 1015  IF  LEFT$(TG$,1) = "Y"  THEN  PRINT  CHR$(4)"BLOAD TONEGEN": GOTO 1030
  31. 1020  PRINT  CHR$(4)"BLOAD "PP$"GRID.DRIVER"
  32. 1030 AD = 11 *256 +11 *16 +14
  33. 1035  IF  LEFT$(TG$,1) = "Y"  THEN AD = AD +3
  34. 1040  IF THRU  THEN  POKE AD,8 *16 +13: POKE AD +1,10 *16 +9: POKE AD +2,12 *16 +0
  35. 1050  REM  ASSUMES PASSPORT IN SLOT 2
  36. 1055  VTAB 23: HTAB 1: IF THRU = 1  THEN  PRINT "MIDI THRU MODE IS ACTIVATED": GOTO 1058
  37. 1057  PRINT "MIDI DISPLAY MODE IS ACTIVATED"
  38. 1058  VTAB 24: HTAB 1: PRINT "PRESS ANY KEY TO TERMINATE PROGRAM";
  39. 1060  CALL 11 *256 +10 *16 +10
  40. 9000  TEXT : PRINT : PRINT : INPUT "RUN AGAIN? :";RY$
  41. 9020  IF  LEFT$(RY$,1) < >"Y"  AND  LEFT$(RY$,1) < >"y"  THEN 9900
  42. 9030  PRINT  CHR$(4)"RUN"PP$"DANCNOTE.BAS"
  43. 9040  TEXT : HOME : END 
  44. 9900  PRINT  CHR$(4)"RUN"PP$"MIDI.MENU"
  45. 9999  TEXT : HOME : END