home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SCORES / MIDIGRID (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-05-30  |  875 b   |  36 lines  |  [FC] Applesoft BASIC Program (0x1001)
  1. 0 ME$ = "MIDIGRID":PP$ = "/HARD/SEQ/"
  2. 1  IF  PEEK(104) < >16  THEN  POKE 4096,0: POKE 104,16: PRINT  CHR$(4)"RUN "PP$;ME$
  3. 2 GD = 0: REM  DON'T USE GRID
  4. 5  INPUT "SEND MIDI IN TO MIDI OUT?";Y$
  5. 7  IF  LEFT$(Y$,1) = "Y"  THEN THRU = 1
  6. 9  IF GD < >1  THEN 1000
  7. 10  TEXT : HOME 
  8. 15  PRINT "C  #  D  #  E  F  #  G  #  A  #  B  "
  9. 20  FOR Y = 0 TO 10
  10. 30  FOR X = 0 TO 11
  11. 35  IF Y = 0  THEN  PRINT "===";: GOTO 50
  12. 40  PRINT "--|";
  13. 50  NEXT X
  14. 60  PRINT 
  15. 70  FOR X = 0 TO 11
  16. 80  PRINT "  |";
  17. 90  NEXT X
  18. 95  PRINT " ";8 -Y
  19. 110  NEXT Y
  20. 130  PRINT "====================================";
  21. 133  PRINT "===";
  22. 140  VTAB 1
  23. 145  IF  LEFT$(Y$,1) = "Y"  OR  LEFT$(Y$,1) = "y"  THEN  PRINT  CHR$(4)"BRUN MIDITHRU": GOTO 200
  24. 150  PRINT  CHR$(4)"BRUN REALTIME"
  25. 200  TEXT : HOME : END 
  26. 1000  PRINT :
  27. 1010  PRINT  CHR$(4)"BRUN "PP$"PIANO.SCREEN"
  28. 1020  PRINT  CHR$(4)"BLOAD "PP$"GRID.DRIVER"
  29. 1030 AD = 11 *256 +11 *16 +14
  30. 1040  IF THRU  THEN  POKE AD,8 *16 +13: POKE AD +1,10 *16 +9: POKE AD +2,12 *16 +0
  31. 1050  REM  ASSUMES PASSPORT IN SLOT 2
  32. 1055  VTAB 23: HTAB 1: IF THRU = 1  THEN  PRINT "MIDI THRU MODE IS ACTIVATED": GOTO 1058
  33. 1057  PRINT "MIDI DISPLAY MODE IS ACTIVATED"
  34. 1058  VTAB 24: HTAB 1: PRINT "PRESS ANY KEY TO TERMINATE PROGRAM";
  35. 1060  CALL 11 *256 +10 *16 +10
  36. 1070  TEXT : HOME : END