2PROCLUMBER
3CHAIN"!Menu"
5DEFPROCLUMBER
10ENVELOPE1,5,1,-1,0,1,1,0,126,-15,0,
-1,126,0:ENVELOPE3,1,0,0,0,0,0,0,92,4,-1
,-1,92,118:DIME 3,D$(3):E!1=&30301:P$="D
AEBAEBAA":FORN%=1TO3:SOUNDN%,0,0,1:NEXT:
FORP=1TOLEN(P$):RESTOREASC(MID$(P$,P,1))
*10-610
20FORN=1TO3:READD$(N):NEXT:FORN=1TOLE
N(D$(1))+(P=LEN(P$)):FORA=3TO1STEP-1:N$=
MID$(D$(A),N,1):IFN$<>" "ANDN$<>""SOUNDA
,E?A,(ASC(N$)-65)*4,2ELSESOUND4096+A,0,0
,2
30NEXT,,
35ENDPROC
40DATA"O QS QO NL L L LN N
L N NO O O J","G JJ JG EO L O
CE E E E EG T S","J NO NJ JT
T T HJ J H J JJ J J"
50DATA"O O S OL L Q ON J
S Q O J O O S O L Q O
N J S Q O ","G G J
H H H E E J J G G
G J G H H G E E J J G"
60DATA"J J O Q Q L J J
O N J L J H J J O J Q L L O
J N O N J L J H"
70DATA"O QS QO NL L L LN N
L N NO O O J","",""
80DATA"O O S OL L Q ON J
S Q O J O O S O L Q O
N J S QO ","",""