Common Text label[]={"do", "re", "mi", "fa", "so", "la", "ti", "do"}
Common Int f[]={264, 294, 328, 352, 392, 438, 494, 528}
tabxy (36, 5); framed text (" OCARINA\n  - by -\nBob Bishop", 5, 0, 7)
frame (50, 216, 588, 276, 3)
solid color (11); solid rectangle (50, 216, 588, 276)
Do k = 1, 8
   tabxy (4+8*k, 16); draw button (k, label[k-1], k-1, 0)
Loop k
frame (300, 380, 338, 402, 7)
tabxy (39, 25); draw button (13, "Quit", 12, 1)
move mouse (320, 240)
Do
   read quitkey (27)
   id=iabs(read buttons())
   If (id=13) quit
   If (id>0) sound (f[id-1])
   Else nosound
Loop