1VDU 28,2,27,16,11:CLS:ONERRORCHAIN" SATS" 2 COLOUR5:PRINT"PRESS ESCAPE"'"TO PL AY AGAIN" 3KEY=5:W=9:V=126:C1=0:PROCENVELOPES: DIMMUS$(3),E(3),N(3),W(70):T$="<00102343 53678982343536789:":FORJ=1TOLEN(T$):Q%=A SC(MID$(T$,J,1))-&30:REL%=Q%*60+40 10RESTOREREL%:PROCP(Q%):NEXT:END 12DEFPROCP(Q%):FORX=0TO3:READE(X):NEX T:FORX=0TO3:READMUS$(X):NEXT:FORL=1TOLEN MUS$(1):C=C+1:DEL=W-12*(D%<6ORD%>8) 18T=DEL+TIME:FORV=1TO3:P=4*ASC(MID$(M US$(V),L,1)) 21B%=VOR&200:B%=B%OR-&1000*(P=128) 23P=P+(KEY*4)-91*(V=1ANDE(V)=0) 24SOUNDB%,E(V),P,1:C1=C1+2:IFC1=6C1=0 :IFMUS$(0)=""SOUND&0010,5,4,1 26NEXT:IFMUS$(0)=""SOUND-&1000*(MID$( MUS$(1),L,1)=" "),E(0),3,1 ELSE P=ASC(MI D$(MUS$(0),L,1))-&30:SOUND-&1000*(P=-16) ,E(0),P,1 29NEXT:ENDPROC 40DATA7,3,3,3 50DATA"4 4 44 4 44 4 44 4 4" 60DATA" NO PQ " 70DATA" IJ KL " 80DATA" BC DE " 100DATA7,3,3,3 110DATA"4 4 44 4 44 4 44 4 4" 120DATA" PO NM " 130DATA" KJ IH " 140DATA" DC BA " 160DATA7,3,3,3 170DATA"4 4 44" 180DATA" P" 190DATA" IJ K" 200DATA" BC D" 220DATA7,8,3,3 230DATA"4 4 44 4 44 4 44 " 240DATA"Q ST PQ ST YX " 250DATA"L L " 260DATA"E L E " 280DATA7,8,3,3 290DATA" 4 44 4 44 4 44 4 44 4 4" 300DATA"QT XW VT Q OQ P" 310DATA"KJ IH H IJ K" 320DATA"DC BA A BC D" 340DATA7,8,3,3 350DATA" 4 44 4 44 4 44 4 44 4 4" 360DATA"TX ]½ P" 370DATA"JK LM M IJ K" 380DATA"CD EF A F BL D" 400DATA7,8,3,3 410DATA" 4 44 4 44 4 44 4 44 4 4" 420DATA"QT XW VT Q O Q " 430DATA"KJ IH H IJ K" 440DATA"DC BA G A BC D" 460DATA7,8,6,6 470DATA"4 4" 480DATA" ] [X VT QWV WV WV WV " 490DATA"L " 500DATA"E " 520DATA7,8,3,3 530DATA"4 4 44 4 44 4 44 " 540DATA"TQ OQ Q " 550DATA"L L " 560DATA"E L E " 580DATA7,8,3,3 590DATA" 4 44 4 44 4 44 4 44 4 4" 600DATA" TQ OQ Q " 610DATA"KJ IH H IJ K" 620DATA"DC BA H A BC D" 640DATA7,8,3,8 650DATA"4 4 44 4 44 4 45" 660DATA"T Q OQ Q " 670DATA"L " 680DATA"E L Q L E" 700DATA7,8,8,8 710DATA" 4" 720DATA" k" 730DATA" d" 740DATA" E" 760DATA7,0,0,0 770DATA"4 4 44 4 44 4 4" 780DATA" " 790DATA" " 800DATA" " 5000DEFPROCENVELOPES:ENVELOPE3,3,0,0,0, 0,0,0,70,25,-1,-1,95,100:ENVELOPE6,1,0,0 ,0,0,0,0,126,-12,-6,-2,120,100:ENVELOPE7 ,3,0,0,0,0,0,0,110,-20,-10,-4,70,0:ENVEL OPE8,3,0,0,0,0,0,0,126,-45,0,-3,126,115: ENDPROC