2 PROCLUMBER 3 CHAIN"!Menu" 5 DEFPROCLUMBER 10 ENVELOPE1,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$="DAEBAEBAA":FORN%=1TO3:SOUNDN%,0,0,1:NEXT:FORP=1TOLEN(P$):RESTOREASC(MID$(P$,P,1))*10-610 20 FORN=1TO3:READD$(N):NEXT:FORN=1TOLEN(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 30 NEXT,, 35 ENDPROC 40 DATA"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" 50 DATA"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" 60 DATA"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" 70 DATA"O QS QO NL L L LN N L N NO O O J","","" 80 DATA"O O S OL L Q ON J S Q O J O O S O L Q O N J S QO ","",""