10 MODE7:VDU23;8202;0;0;0;
   20 PROCintro
   30 ONERROR PROCend
   40 VDU26:m%=FALSE:VDU23;8202;0;0;0;:DIMM$(3),E(3),N(3):V=110:PROCenvs:PROCriffs
   50 M$="abcdefefcdefghghefcdcd":x$="�����̬������������ߞ���������������������ƞ������������������͞�����������ߞ������������������������������":PROCunsc:KEY=-19:TEMP=3:*FX15
   60 REPEAT:FORX=1TOLEN(M$):D=EVAL("FNpart"+MID$(M$,X,1)):E(0)=EVAL("&"+LEFT$(E$,1)):E(2)=EVAL("&"+MID$(E$,2,1)):E(3)=EVAL("&"+RIGHT$(E$,1)):FORL=1TOLENM$(1):IFX>20 D%=FNfade
   70 IFm%=TRUE PROCm:GOTO90
   80 IFINKEY-86ANDINKEY-38ANDINKEY-83 m%=TRUE:I%=1
   90 FORV=1TO3:P=4*ASC(MID$(M$(V),L,1)):B%=V OR &200:B%=B%OR-&1000*(P=128):P=P+(KEY*4)-139*(V=1):SOUNDB%,E(V),P,TEMP:NEXT:IFMID$(M$(1),L,1)="*" SOUND0,3,6,TEMP:GOTO110    
  100 SOUND-&1000*(MID$(M$(1),L,1)=" "),E(0),3,TEMP
  110 NEXT:NEXT:PROCend
  120 DEFFNbass(B$):Z$=B$+" *"+B$+B$+" * ":=STRING$(2,Z$)
  130 DEFPROCriffs:r1$="qpqnqpqnqpqnqpspqpqnqpqnqpqnqpsp":r2$="edebedebedebedgdedebedebedebedgd":ENDPROC
  140 DEFFNfade:FORJ%=1TO5:X%=(&8BB+(J%*16)):?X%=?X%+(?X%>0):X%=X%+1:?X%=?X%+(?X%>0):NEXT:?&8DC=?&8DC+(?&8DC>0):=1
  150 DEFPROCend:CLS:PROCline:PRINT" CREDITS:":PRINT'"   Original Version by O.M.D.":PRINT'"   Beeb Version by the Noige."''" MUSIC NOT BY A.S.SHAKOOR !!":PROCline
  151 PAGE=&1100:CHAIN"SAT"
  160 ENDPROC
  170 DEFPROCenvs:ENVELOPE1,1,0,0,0,0,0,0,32,-8,0,-2,90,45:ENVELOPE2,1,0,0,0,0,0,0,32,-8,0,-4,126,0:ENVELOPE3,1,0,0,0,0,0,0,126,-5,0,-2,100,0:ENVELOPE4,1,0,0,0,0,0,0,126,-4,0,-2,126,0:ENVELOPE5,6,0,0,0,0,0,0,126,-8,0,-1,100,0
  180 ENVELOPE6,6,0,0,0,0,0,0,126,-6,0,-4,110,0
  190 ENVELOPE7,1,0,0,-1,10,5,20,126,-1,0,-2,110,0:ENVELOPE8,1,0,0,0,0,0,0,32,-8,0,-2,126,63:ENVELOPE9,6,0,0,0,0,0,0,126,-8,0,-1,100,0:ENDPROC
  200 DEFFNpartdemo:E$="three hex envelope numbers":M$(1)="bass line":M$(2)="second line":M$(3)="third line":=0:REM Start FNparts here...
  210 DEFFNparta:E$="211":M$(1)="YYYYYYYYYYYYYYYYVVVVVVVVVVVVVVVV":M$(2)=r1$:M$(3)=r2$:=1
  220 DEFFNpartb:M$(1)="RRRRRRRRRRRRRRRRTTTTTTTTTTTTTTTT":M$(2)=r1$:M$(3)=r2$:=2
  230 DEFFNpartc:E$="211":M$(1)=FNbass("Y")+FNbass("V"):M$(2)="qquvxvuq quvxvu nnqsusqn nuus q ":M$(3)="eeijljie eijlji bbegigeb bii g e":=3
  240 DEFFNpartd:M$(1)=FNbass("R")+FNbass("T"):M$(2)="jjnoqonj jnoqon llpqsqpl lssq p ":M$(3)="^^bcecb^ ^bcecb ``deged` `gg e d":=4
  250 DEFFNparte:E$="243":M$(1)=FNbass("Y")+FNbass("V"):M$(2)="ii ji    eijlji i  bb    bi g e ":M$(3)=r1$:=5
  260 DEFFNpartf:M$(1)=FNbass("R")+FNbass("T"):M$(2)="j ie     eegige g ig            ":M$(3)=r1$:=6
  270 DEFFNpartg:E$="251":M$(1)=FNbass("Y")+FNbass("V"):M$(2)="ii ji    eijlji i  bb    bi g e ":M$(3)=r1$:=1
  280 DEFFNparth:M$(1)=FNbass("R")+FNbass("T"):M$(2)="j ie     eegige g ig            ":M$(3)=r1$:=1
  340 DEFPROCm:I%=I%+1:IFI%>LEN(x2$) m%=FALSE:PRINTTAB(13,18);"(C) Noigesoft"
  350 PRINTTAB(13,18);MID$(x2$,I%,13);:ENDPROC
  360 DEFPROCunsc:x2$="":FORI%=1TOLEN(x$):x2$=CHR$(ASC(MID$(x$,I%,1))+2)+x2$:NEXT:x2$="         "+x2$+"         ":ENDPROC
  370 DEFPROCline:PRINT"�,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
 9000 DEFPROCintro
 9001 PRINT"�SATELLITE HAVAC�BY�A.S.SHAKOOR '91":PROCline
 9010 PRINT"�Z�-�LEFT   �X�-�RIGHT   �RETURN�-�FIRE"  
 9011 PROCline
 9020 PRINT"�THE COMPUTER SYSTEM HAS GONE CRAZY!!"'"�AT N.A.S.A.CONTROL CENTRE AND ALL THE"'"�SATELLITES ABOVE THE EARTH ARE FIRING"'"�AT THE PLANET...GUESS WHAT YOUR JOB "'"�IS ? (EVACUATE EVERYONE FROM THE "'"�PLANET!!.ONLY JOKING)"'
 9030 PRINT"�YOU CONTROL THE UP-TO-DATE IN LASER"'"�TECHNOLOGY WARFARE & YOUR JOB IS TO "'"�MOVE YOUR LASER ONTO THE SATELLITE."'
 9040 PRINT"�EVERYTIME THE SATELLITE FIRES THE "'"�DAMAGE OF THE PLANET IS INCREASED.IF"'"�THIS DAMAGE REACHES�250�GOODBYE EARTH!"
 9050 PRINT'"�BUT DON'T DESPAIR!! EVERYTIME YOU "'"�REACH THE NEXT LEVEL THE DAMAGE IS "'"�DECREASED BY 10.SO HAPPY SHOOTING !!"  
 9060 PROCline:PRINT"�PRESS�ESCAPE�TO LOAD GAME"
 9070 ENDPROC