10DL=15:G%=-1 15ONERROR GOTO840 110I%=0:ENVELOPE1,1,0,0,0,4,4,4,40,0,0 ,-3,128,1 120ENVELOPE2,1,0,0,0,2,2,1,120,0,0,-2, 128,1 130ON ERROR GOTO150 140READA$:I%=I%+1:GOTO140 150Q%=(I%-2)/3-1 160ON ERROR OFF:ONERRORGOTO840 170DATA112211221134=54>6789:>;9:< 180DATA00000000001111100000000001 190READR$,RT$ 200REM ** VOICE 1 ** 210DATA"0GGSSNNQQGGSSNNQQ" 220DATA"0@@LLGGJJBBNNIILLCCOOJJOOEEQQL LQQ" 230DATA"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQE EQQ" 240DATA"0CCOOCCOOEEQQEEQQ" 250DATA"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQE EQQ" 260DATA"0FFFFFFFFFFFFFFFF" 270DATA"0EEEEEEEEEEEEEEEE" 280DATA"0DDDDDDDDDDDDDDDD" 290DATA"0CCCCCCCCCCCCCCCC" 300DATA"0BBBBBBBBBBBBBBBB" 310DATA"0EEEEEEEEEEEEEEEE" 320DATA"0GGGGGGGGGGGGGGGG" 330DATA"0JJVVJJVVJJVVJJVV" 340DATA"0GGGGGGGGGGGGGGGG" 350REM ** VOICE 2 ** 360DATA"0VNVNUNUVNVVNUNUN" 370DATA"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG @E@" 380DATA"1NNJEEBEJNNOONLJJLLIEE@EILLNNL JII" 390DATA"1GCGJOJGCIEILJJII" 400DATA"1NNJEEBEJNNOONLJJQLIEE@EILLNNL JII" 410DATA"0VNVNUNUVNVVNUNUN" 420DATA"0VNVNUNUVNVVNUNUN" 430DATA"0VPVPUPUVPVVPUPUP" 440DATA"0VOVOUOUVOVVOUOUO" 450DATA"0BNSUZUSNBNRUZURN" 460DATA"1JEJEIEIJEJJEIEIE" 470DATA"1GJNSNJGGGGGGGGGG" 480DATA"1NNJEEBEJNNJJEEBB" 490DATA"0VNVNUNUVNVVNUNUN" 500REM ** VOICE 3 ** 510DATA"0ZNZNXNXZNZZNXNXN" 520DATA"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG @E@" 530DATA"1NNNJJEBEJJOONLJJLLLIIE@ELLNNL JII" 540DATA"1GGCGJOJGCIEILLJI" 550DATA"1NNNJJEBEJJOONLJJQQLIIE@ELLNNL JII" 560DATA"0ZNZNXNXZNZZNXNXN" 570DATA"0ZNZNXNXZNZZNXNXN" 580DATA"0ZPZPXPXZPZZPXPXP" 590DATA"0ZOZOXOXZOZZOXOXO" 600DATA"0BBBGINIGBBBFINIF" 610DATA"1LELELELLELLELELE" 620DATA"1JNSVSNJJJJJJJJJJ" 630DATA"1NNNJJEBEJJNNEEBB" 640DATA"0ZNZNXNXZNZZNXNXN" 650DIMA$(Q%,2),OCT%(2),Y%(2) 660FORI=0TO2:Y%(I)=&7FFF:NEXT 670FORI%=0TO2:FORJ%=0TOQ% 680READA$(J%,I%):NEXT:NEXT 690TQ=TIME+DL 700FORB%=1TOLEN(R$) 710V%=1-(MID$(RT$,B%,1)="1") 720R%=ASCMID$(R$,B%)-49 730FORI%=0TO2 740OCT%(I%)=48*ASCA$(R%,I%):NEXT 750FORI=2TOLENA$(R%,0) 760REPEATUNTILTIME>=TQ:TQ=TIME+DL 770FORJ=0TO2 780W$=MID$(A$(R%,J),I,1) 790Y%(J)=&7E80+ASCW$-60-80*J 810SOUNDJ+1,V%,OCT%(J)+4*ASCW$,1 811kg=INKEY(1) 812IF kg<>-1 GOTO 840 820NEXT:NEXT:NEXT 830 REM 840*FX13,4 850*EX. !BOOT