0ONERRORCHAIN"SATS2" 2 VDU5:GCOL0,5:MOVE 300,600:PRINT"PR ESS ESCAPE":MOVE 300,550:PRINT"TO PLAY A GAIN":VDU4 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"44 44 44 4 44 44 44 4 " 60DATA" NO PQ NO PQ NO PQ" 70DATA" IJ KL IJ KL IJ KL" 80DATA" BC DE BC DE BC DE" 100DATA7,3,3,3 110DATA"44 44 44 4 44 44 44 4 " 120DATA" PO NM PO NM PO NM" 130DATA" KJ IH KJ IH KJ IH" 140DATA" DC BA DC BA DC BA" 160DATA7,3,3,3 170DATA"4 4 44" 180DATA" P" 190DATA" IJ K" 200DATA" BC D" 220DATA7,8,3,3 230DATA"44 44 44 4 44 44 44 4 " 240DATA"Q ST PQ ST YX " 250DATA"L L" 260DATA"E L E" 280DATA7,8,3,3 290DATA"44 44 44 4 44 44 44 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"44 44 44 4 44 44 44 4 " 360DATA"TX ]½ P" 370DATA"JK LM M IJ K" 380DATA"CD EF A F BL D" 400DATA7,8,3,3 410DATA"44 44 44 4 44 44 44 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 L" 500DATA"E E" 520DATA7,8,3,3 530DATA"44 44 44 4 44 44 44 4 " 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"44 44 44 4 44 44 44 4 " 660DATA"T Q OQ Q " 670DATA"L" 680DATA"E L Q L E" 700DATA7,8,8,8 710DATA" 4" 720DATA" k k" 730DATA" d d" 740DATA" E E" 760DATA7,0,0,0 770DATA"44 44 44 4 44 44 44 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