10  REM KEYBOARD MUSIC MAKER
   20  REM by CARL WHEAT
   30  MODE 5:VDU 23;8202;0;0;0;
   40  DIM P%(17),K%(22):E%=1
   50  ENVELOPE 1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:REM BELL
   60  ENVELOPE 2,1,1,-1,0,1,1,200,126,-2,-1,-20,126,60:REM PIANO
   70  ENVELOPE 3,1,0,0,0,0,0,0,50,0,0,-50,126,126:REM ORGAN
   80  ENVELOPE 4,1,1,-1,0,1,1,0,40,0,0,-40,120,120:REM WOODWIND
   90  ENVELOPE 5,1,1,-1,1,1,2,1,30,0,0,-30,126,126:REM ELECTRONIC
  100  FOR N=1 TO 17:READ P%(N):NEXT
  110  FOR N=1 TO 22:READ K%(N):NEXT
  120  PROCkeyboard:PROCtitles
  130  :
  140  REPEAT:FOR N=1 TO 22
  150  IF INKEY(-K%(N))=-1 PROCsound
  160  NEXT N:UNTIL 0
  170  :
  180  DEFPROCsound
  190  IF N>17 THEN PROCinst:ENDPROC
  200  SOUND &1011,0,0,0
  210  SOUND 1,E%,P%(N),5
  220  ENDPROC
  230  :
  240  DEFPROCinst:E%=N-17
  250  IF E%=1 THEN PRINT"  BELL    "
  260  IF E%=2 THEN PRINT"  PIANO   "
  270  IF E%=3 THEN PRINT"  ORGAN   "
  280  IF E%=4 THEN PRINT" WOODWIND "
  290  IF E%=5 THEN PRINT"ELECTRONIC"
  300  ENDPROC
  310  :
  320  DEFPROCkeyboard:VDU5
  330  PLOT4,20,10:PLOT1,1200,0
  340  PLOT1,0,250:PLOT1,-1200,0
  350  FOR N=0 TO 9:READ K$
  360  PLOT1,0,-250
  370  MOVE 50+120*N,60:PRINT K$
  380  MOVE 140+120*N,260:NEXT
  390  MOVE 100,260
  400  FOR N=1 TO 9:READ B%
  410  IF B%=0 THEN PLOT0,120,0:NEXT
  420  PLOT0,0,-125:PLOT81,80,125
  430  PLOT81,0,-125:PLOT0,40,125:NEXT
  440  GCOL0,0
  450  FOR N=0 TO 8:READ K$
  460  IF K$=" " THEN NEXT
  470  MOVE 110+120*N,200:PRINT K$:NEXT
  480  ENDPROC
  490  :
  500  DEFPROCtitles:VDU4
  510  VDU 28,1,12,17,2:COLOUR 129:CLS 
  520  PRINT'" f0 - BELL"
  530  PRINT'" f1 - PIANO"
  540  PRINT'" f2 - ORGAN"
  550  PRINT'" f3 - WOODWIND"
  560  PRINT'" f4 - ELECTRONIC"
  570  VDU 28,1,17,19,16:COLOUR 128
  580  PRINT"INSTRUMENT PLAYING" 
  590  VDU 28,5,20,15,19:PRINT"  BELL"
  600  ENDPROC
  610  :
  620  DATA 52,56,60,64,68,72,76,80,84,88,92,96,100,104,108,112,116
  630  DATA 98,82,67,51,83,100,84,101,85,86,70,102,103,87,104,88,105
  640  DATA 33,114,115,116,21
  650  DATA "Z","X","C","V","B","N","M",",",".","/"
  660  DATA 1,1,0,1,1,1,0,1,1
  670  DATA "S","D"," ","G","H","J"," ","L",";"