10MODE7:VDU23,1,0;0;0;0; 20FORT=2TO3:PRINTTAB(8,T)CHR$141" Cap tain Pugwash II":NEXT 25FORT=4TO5:PRINTTAB(11,T)CHR$141" R emixed!!":NEXT 30T%=11 40V1%=1:V2%=0 50PROCpugwash 60V1%=0:V2%=1 70PROCpugwash 80V1%=1:V2%=1 90PROCpugwash 100FORT%=10TO8STEP-1 110PROCpugwash 120NEXT 130END 140DEF PROCpugwash 150B%=6:K=1+(1/3) 160RESTORE:W%=0:Q%=0:M%=0:U%=FALSE 170ENVELOPE2,1,0,0,0,1,1,1,60,-4,-3,-1 ,90,80:ENVELOPE1,1,0,0,0,1,1,1,40,-4,-1, -1,110,90 180B$="C D EF G A Bc d ef":C$="5555111 1555511555566661154321155":E$="888877778 88877888899997A88357A88":D$="123475.A.86 ...9":READA$,N%:NOW=TIME:R%=B%+4*INSTR(D $,LEFT$(C$,1)) 190REPEATIFM%<=0M%=M%+3:IFLENC$THEN200 ELSE260 200SOUND&10,-12,4,1:SOUND&21,V1%,R%-(S %-R%)*U%,-1:SOUND&22,V1%ANDU%,S%+12,-1:S OUND&20,2,((V1%ANDU%)*4-1)*K,-1:U%=NOTU% :R%=B%+4*INSTR(D$,LEFT$(C$,1)):S%=B%+4*I NSTR(D$,LEFT$(E$,1)):C$=RIGHT$(C$,LENC$+ U%):E$=RIGHT$(E$,LENE$+U%) 210Q%=Q%+1 220IFA$="F"ANDN%=6SOUND&10,2,4,-1 230IFQ%>22ANDQ%<24SOUND&10,2,4,-1 240IFQ%>29ANDQ%<32SOUND&10,2,4,-1 250IFQ%>45ANDQ%<48SOUND&10,2,4,-1 260W%=W%+1 270IFW%>14ANDW%<18SOUND&10,2,4,-1 280IFW%>31ANDW%<35SOUND&10,2,4,-1 290IFW%>108ANDW%<112SOUND&10,2,4,-1 300M%=M%-N%:C%=C%-N%:SOUND&13,V2%,B%+4 *(INSTR(B$,LEFT$(A$,1))-(INSTR(A$,"#")>0 )+12),-1:NOW=NOW+N%*T%:REPEATUNTILTIME>N OW:READ A$,N%:UNTILA$="dne" 310DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,2, c,1, A,2, F,1, C,1, C,1, C,1, C,3, C,1, C,1, C,1, C,2, G,1, E,2, C,1, E,2, G,1, A#,2, G,1, E,2, C,1 320DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,3, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,3, A,2, A#,1 330DATA c,1, c,1, c,1, c,3, c,1, c,1, c,1, c,3, d,2, e,1, f,2, e,1, d,2, c,1, A#,2, A,1, A#,2, c,1, d,2, c,1, A#,2, A, 1, G,2, F,1, E,2, F,1, G,2, F,1, E,2, C, 1, D,2, E,1 340DATA F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,6, dne,0 350ENDPROC