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