home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / TEST / DANCNOTE.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-02  |  2.2 KB  |  56 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  REM  ::: DANCING NOTES :::   FOR APPLE ][ SERIES COMPUTERCOPYRIGHT 1996, ERIC RANGELL
  2. 2  PRINT  CHR$(4)"BLOAD DANCNOTE.OBJ"
  3. 5  PRINT  CHR$(21): TEXT : HOME : PRINT "*** DANCING NOTES ***":
  4. 6  PRINT "(C) 1996, ERIC RANGELL"
  5. 7  PRINT : PRINT : PRINT "1) TEXT NOTE DISPLAY": PRINT : PRINT "2) GRAPHIC NOTE DISPLAY": PRINT : PRINT "3) PIANO KEYBOARD DISPLAY": PRINT : PRINT "4) NOTE GRID DISPLAY": PRINT : PRINT "5) EXIT": PRINT : PRINT : INPUT "SELECT OPTION:";MO$
  6. 8  IF  VAL(MO$) <1  OR  VAL(MO$) >5  THEN  PRINT : PRINT "TRY AGAIN": PRINT : GOTO 7
  7. 9  IF  VAL(MO$) = 3  THEN  TEXT : PRINT  CHR$(4)"RUN PIANOKEY.BAS": END 
  8. 10  IF  VAL(MO$) = 4  THEN  TEXT : PRINT  CHR$(4)"RUN MIDIGRID.BAS": END 
  9. 12  IF  VAL(MO$) < >1  THEN 25
  10. 15  PRINT : PRINT : PRINT "SELECT (U)PPER CASE SHARPS": PRINT "    OR (L)OWER CASE FLATS  <--DEFAULT": PRINT : PRINT "2ND CHAR:": PRINT "   ";"0=DRUMS OFF, 1=VERTICAL, 2=DRUM NOTES": PRINT 
  11. 16  INPUT ":";UC$
  12. 17  IF  LEFT$(UC$,1) = "U"  OR  LEFT$(UC$,1) = "u"  THEN 19
  13. 18  POKE 24580,1:MU$ = "TEXT DISPLAY - LOWER CASE FLATS": GOTO 20
  14. 19  POKE 24580,0:MU$ = "TEXT DISPLAY - UPPER CASE SHARPS"
  15. 20  POKE 24579,0: REM  TEXT MODE
  16. 21  POKE 24581,1: REM  DRUM DISPLAY AS *
  17. 22  IF  MID$ (UC$,2,1) = "0"  THEN  POKE 24581,0: REM    DRUM PART OFF
  18. 23  IF  MID$ (UC$,2,1) = "2"  THEN  POKE 24581,255: REM   DISPLAY NOTES FOR DRUM PART  
  19. 24  IF  MID$ (UC$,2,1) = "1"  THEN DH = 1: CALL 24576 +16: POKE 24579,2
  20. 25  IF  VAL(MO$) = 2  THEN  POKE 24579,1: HGR : VTAB 24: GOSUB 200:MU$ = "NOTE/VELOCITY/PITCH BEND DISPLAY": GOTO 60
  21. 27  IF  VAL(MO$) = 5  THEN 140
  22. 29  IF DH = 1  THEN 120
  23. 30  PRINT  CHR$(4)"PR#3"
  24. 40  FOR I = 1 TO 16: PRINT  SPC( 79 - INT(I/10));I;: NEXT 
  25. 50  FOR I = 1 TO 80: PRINT "-";: NEXT 
  26. 60  PRINT : PRINT : PRINT "DANCING NOTES IS NOW ACTIVE": PRINT "MODE: ";MU$: PRINT "PRESS ANY KEY TO STOP"
  27. 120  CALL 24576
  28. 121  IF DH = 1  THEN  CALL 24576 +16 +3:DH = 0
  29. 125  INPUT "RUN AGAIN? (Y/N):";Y$: IF Y$ = "Y"  THEN 5
  30. 140  TEXT : HOME : PRINT "HOPE YOU HAD FUN!"
  31. 145  PRINT  CHR$(4)"RUN MIDI.MENU"
  32. 150  END 
  33. 200  HCOLOR= 3
  34. 210  FOR X = 0 TO 224  STEP 14
  35. 220  HPLOT X,0 TO X,129
  36. 230  NEXT 
  37. 240  HPLOT 0,0 TO 224,0
  38. 250  HPLOT 0,129 TO 224,129
  39. 300  HPLOT 7,131 TO 7,135
  40. 310  HPLOT 20,131 TO 23,131 TO 23,133 TO 20,133 TO 20,135 TO 23,135
  41. 320  HPLOT 34,131 TO 36,131 TO 36,133 TO 34,133 TO 36,133 TO 36,135 TO 34,135
  42. 330  HPLOT 48,131 TO 48,133 TO 51,133 TO 51,131 TO 51,135
  43. 340  HPLOT 64,131 TO 62,131 TO 62,133 TO 64,133 TO 64,135 TO 62,135
  44. 350  HPLOT 78,131 TO 76,131 TO 76,135 TO 78,135 TO 78,133 TO 76,133
  45. 360  HPLOT 90,131 TO 92,131 TO 92,135
  46. 370  HPLOT 104,131 TO 106,131 TO 106,135 TO 104,135 TO 104,133 TO 106,133 TO 104,133 TO 104,131
  47. 380  HPLOT 118,135 TO 120,135 TO 120,131 TO 118,131 TO 118,133 TO 120,133
  48. 390  FOR X = 130 TO 130 +6 *14  STEP 14: HPLOT X,131 TO X,135: NEXT X
  49. 400  HPLOT 132,131 TO 134,131 TO 134,135 TO 132,135 TO 132,131
  50. 410  HPLOT 147,131 TO 147,135
  51. 420  HPLOT 160,131 TO 162,131 TO 162,133 TO 160,133 TO 160,135 TO 162,135
  52. 430  HPLOT 174,131 TO 176,131 TO 176,133 TO 174,133 TO 176,133 TO 176,135 TO 174,135
  53. 440  HPLOT 188,131 TO 188,133 TO 190,133 TO 190,131 TO 190,135
  54. 450  HPLOT 204,131 TO 202,131 TO 202,133 TO 204,133 TO 204,135 TO 202,135
  55. 460  HPLOT 218,131 TO 216,131 TO 216,135 TO 218,135 TO 218,133 TO 216,133
  56. 900  RETURN