10 MODE7:DL=15:G%=-1 11 VDU23;8202;0;0;0; 40 A$="COLD TEA" 50 VDU132,157,141,129:PRINTTAB(9)CHR$157CHR$131" "A$" "CHR$132CHR$157 60 VDU132,157,141,129:PRINTTAB(9)CHR$157CHR$131" "A$" "CHR$132CHR$157 70 PRINTTAB(10,3)CHR$141"Devised by R.Cope."'TAB(10)CHR$141"Devised by R.Cope." 80 PRINTTAB(7)CHR$133"From the original work:" 90 PRINTTAB(4,7)CHR$130"'Cold Tea' by Andrew Robinson." 100 PRINT''CHR$131" b # b # # b # b # # b # b # # b "CHR$131"ABBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABB"CHR$30 105 PRINTTAB(0,12);CHR$&84'CHR$&86;CHR$&9D'CHR$&82'CHR$&86;CHR$&9D'CHR$&81 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 161 RESTORE 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 695 ONERRORPRINTTAB(0,22);:REPORT:GOTO900 696 SOUND &F0C0,0,3,0 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:PRINTTAB(Y%(J),16-J*2);CHR$156; 780 W$=MID$(A$(R%,J),I,1) 790 Y%(J)=ASCW$-60:PRINTTAB(Y%(J),16-J*2);CHR$157;CHR$156; 810 SOUNDJ+1,V%,OCT%(J)+4*ASCW$,1 820 NEXT:NEXT:NEXT 830 FORR=1TO500:NEXT 900 CHAIN":0.!MENU"