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