10*|" 20LET on=1 30*FX 200,3 50MODE 7:VDU23;8202;0;0;0; 60REM Land Of Hope And Glory. 70REM Originally By Elgar 80REM Digitised By..... 90REM The Micro Musicians. 100 110PROCscreen 120DEFPROCmusic 130 TIME=0 140 A=55 150RESTORE 250 160ENVELOPE 1,1,0,0,0,1,1,1,127,-1,0,- 127,126,80 170READ CHANNEL 180IF CHANNEL=256 THEN CHAIN"!MENU" 190READ PITCH 200READ DURATION 210IF PITCH=0 THEN ENV=0 ELSE ENV=1 220 IF TIME>A THEN A=A+55:PROCMOTOR 230SOUND CHANNEL,ENV,PITCH,DURATION 240GOTO170 250DATA 1,129,20,2,97,10,3,81,10,2,61, 10,3,0,10,1,125,5,2,101,10,3,89,10,1,129 ,5,1,137,10,2,61,10,3,0,10,1,117,20,2,97 ,10,3,81,10,2,61,10,3,0,10,1,109,20,2,97 ,10,3,81,10,2,61,10,3,0,10 260DATA 1,101,20,2,69,10,3,0,40,2,69,5 ,2,77,5,1,97,5,2,81,10,1,101,5,1,109,10, 2,49,10,1,89,40,2,57,10,3,0,40,2,81,10,2 ,77,10,2,61,10 270DATA 1,97,20,2,81,10,3,0,40,2,77,10 ,1,105,5,2,81,20,1,109,10,1,117,5,1,137, 20,2,77,10,3,0,40,2,89,10,1,109,20,2,97, 10,2,77,10 280DATA 1,129,20,2,69,10,3,0,20,2,97,1 0,1,129,5,2,105,20,3,89,20,1,125,10,1,11 7,5,1,109,40,2,77,10,3,61,10,2,89,10,3,0 ,30,2,101,10,2,61,10 290DATA 1,129,20,2,97,10,3,81,10,2,61, 10,3,0,10,1,125,5,2,101,10,3,89,10,1,129 ,5,1,137,10,2,61,10,3,0,10,1,117,20,2,97 ,10,3,81,10,2,61,10,3,0,10,1,109,20,2,97 ,10,3,81,10,2,61,10,3,0,10 300DATA 1,101,20,2,69,10,3,0,40,2,69,5 ,2,77,5,1,97,5,2,81,10,1,101,5,1,109,10, 2,49,10,1,89,40,2,57,10,3,0,40,2,81,10,2 ,77,10,2,61,10 310DATA 1,97,20,2,81,10,3,0,20,2,77,10 ,1,105,5,2,81,20,3,69,20,1,109,10,1,117, 5,1,137,20,2,77,10,3,0,40,2,89,10,1,109, 20,2,77,10,2,89,10 320DATA 1,149,20,2,69,10,3,0,20,2,81,1 0,1,149,5,2,77,20,3,61,20,1,145,10,1,137 ,5,1,145,40,2,81,20,3,0,10,3,129,10,3,12 5,10,2,89,10,3,121,10,2,97,10 330DATA 1,117,20,2,101,10,3,0,40,2,81, 10,1,125,5,2,101,20,1,129,10,1,137,5,1,1 09,20,2,97,10,3,0,40,2,81,10,1,129,20,2, 69,10,2,97,10 340DATA 1,129,20,2,117,20,3,101,10,3,8 9,10,1,149,5,2,101,20,3,61,20,1,145,10,1 ,137,5,1,129,20,2,97,20,3,81,20,1,177,10 ,2,145,10,3,33,10,256 350DEFPROCscreen 360PRINT''"     jj£kj£kj££       nj jj,.j,      jjpzj jpp" 370PRINT''"    j£kj j       j,f*,n     j j`pz " 380PRINT''"    390PRINT''"    £kj£k      ,fj j      jjpz" 400PRINT''"   jj££     j*,l    o`pz " 410PROCmusic 420PRINT"  430 DEFPROCMOTOR 440 IF on=1 THEN 480 ELSE 450 450 *M.1 460 on=1 470 ENDPROC 480 *M.0 490 on=0 500ENDPROC