10 *|"       [0x15]       [0x15]     [0x15] 
   20 LET on=1
   30 *FX 200,3
   50 MODE 7:VDU23;8202;0;0;0;
   60 REM Land Of Hope And Glory.
   70 REM Originally By Elgar
   80 REM Digitised By.....
   90 REM The Micro Musicians.
  100  
  110 PROCscreen
  120 DEFPROCmusic
  130  TIME=0
  140  A=55
  150 RESTORE 250
  160 ENVELOPE 1,1,0,0,0,1,1,1,127,-1,0,-127,126,80
  170 READ CHANNEL
  180 IF CHANNEL=256 THEN CHAIN"!MENU"
  190 READ PITCH
  200 READ DURATION
  210 IF PITCH=0 THEN ENV=0 ELSE ENV=1
  220  IF TIME>A THEN A=A+55:PROCMOTOR
  230 SOUND CHANNEL,ENV,PITCH,DURATION
  240 GOTO170
  250 DATA 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
  260 DATA 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
  270 DATA 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
  280 DATA 1,129,20,2,69,10,3,0,20,2,97,10,1,129,5,2,105,20,3,89,20,1,125,10,1,117,5,1,109,40,2,77,10,3,61,10,2,89,10,3,0,30,2,101,10,2,61,10
  290 DATA 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
  300 DATA 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
  310 DATA 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
  320 DATA 1,149,20,2,69,10,3,0,20,2,81,10,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,125,10,2,89,10,3,121,10,2,97,10
  330 DATA 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,109,20,2,97,10,3,0,40,2,81,10,1,129,20,2,69,10,2,97,10
  340 DATA 1,129,20,2,117,20,3,101,10,3,89,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
  350 DEFPROCscreen
  360 PRINT''"“  j  j`kj4jj`i  j`kj``  j jj`kj`kj``     “j  j,njjjj j  j jj,   j,nj jj,.j,      “jppj jj ojp:  jpzj    j jjpzj  jpp"
  370 PRINT''"      “j`kj4jj`i  j`kj  j`kj`kj j             “j,njjjj j  j pj  j jj,f*,n             “j jj ojp:  jpzjppjpzj j_pz "
  380 PRINT''"              •   j9jz                                   •j9pz "
  390 PRINT''"š‘     ‘`7`j jj``  jdnjj``j`kj`k              š‘ 5 j,nj,   j jjj  j,fj j              š‘‘5 j jjpp  j jjjppj jjpz"
  400 PRINT''"š‘     ‘jdnj jj``jj``jj`kj4jj``        š‘  š‘  •j jj j*,ljj  jj,njjj*,l              š‘ j jjpz_pzjjppjj jj o_pz "
  410 PROCmusic
  420 PRINT"š‘"
  430  DEFPROCMOTOR
  440  IF on=1 THEN 480 ELSE 450
  450  *M.1
  460  on=1
  470  ENDPROC
  480  *M.0
  490  on=0
  500 ENDPROC