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