10MODE7:VDU23;8202;0;0;0;
20PROCintro
30ONERROR PROCend
40VDU26:m%=FALSE:VDU23;8202;0;0;0;:DI
MM$(3),E(3),N(3):V=110:PROCenvs:PROCriff
s
50M$="abcdefefcdefghghefcdcd":x$=",ce
gmL,,,,rg pmd bciq# pctcmfu rg cigj smw
cnmF ,qg rg cpcf mq ddsrq BKM ckmq pmd b
ciq# clmckmq jgrls bcfqglgdls q#u qgfR":
PROCunsc:KEY=-19:TEMP=3:*FX15
60REPEAT:FORX=1TOLEN(M$):D=EVAL("FNpa
rt"+MID$(M$,X,1)):E(0)=EVAL("&"+LEFT$(E$
,1)):E(2)=EVAL("&"+MID$(E$,2,1)):E(3)=EV
AL("&"+RIGHT$(E$,1)):FORL=1TOLENM$(1):IF
X>20 D%=FNfade
70IFm%=TRUE PROCm:GOTO90
80IFINKEY-86ANDINKEY-38ANDINKEY-83 m%
=TRUE:I%=1
90FORV=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:NEX
T:IFMID$(M$(1),L,1)="*" SOUND0,3,6,TEMP:
GOTO110
100SOUND-&1000*(MID$(M$(1),L,1)=" "),E
(0),3,TEMP
110NEXT:NEXT:PROCend
120DEFFNbass(B$):Z$=B$+" *"+B$+B$+" *
":=STRING$(2,Z$)
130DEFPROCriffs:r1$="qpqnqpqnqpqnqpspq
pqnqpqnqpqnqpsp":r2$="edebedebedebedgded
ebedebedebedgd":ENDPROC
140DEFFNfade:FORJ%=1TO5:X%=(&8BB+(J%*1
6)):?X%=?X%+(?X%>0):X%=X%+1:?X%=?X%+(?X%
>0):NEXT:?&8DC=?&8DC+(?&8DC>0):=1
150DEFPROCend:CLS:PROCline:PRINT" CRED
ITS:":PRINT'" Original Version by O.M.
D.":PRINT'" Beeb Version by the Noige.
"''" MUSIC NOT BY A.S.SHAKOOR !!":PROCli
ne
151PAGE=&1100:CHAIN"SAT"
160ENDPROC
170DEFPROCenvs: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
180ENVELOPE6,6,0,0,0,0,0,0,126,-6,0,-4
,110,0
190ENVELOPE7,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
200DEFFNpartdemo:E$="three hex envelop
e numbers":M$(1)="bass line":M$(2)="seco
nd line":M$(3)="third line":=0:REM Start
FNparts here...
210DEFFNparta:E$="211":M$(1)="YYYYYYYY
YYYYYYYYVVVVVVVVVVVVVVVV":M$(2)=r1$:M$(3
)=r2$:=1
220DEFFNpartb:M$(1)="RRRRRRRRRRRRRRRRT
TTTTTTTTTTTTTTT":M$(2)=r1$:M$(3)=r2$:=2
230DEFFNpartc:E$="211":M$(1)=FNbass("Y
")+FNbass("V"):M$(2)="qquvxvuq quvxvu nn
qsusqn nuus q ":M$(3)="eeijljie eijlji b
begigeb bii g e":=3
240DEFFNpartd:M$(1)=FNbass("R")+FNbass
("T"):M$(2)="jjnoqonj jnoqon llpqsqpl ls
sq p ":M$(3)="^^bcecb^ ^bcecb ££deged£ £
gg e d":=4
250DEFFNparte:E$="243":M$(1)=FNbass("Y
")+FNbass("V"):M$(2)="ii ji eijlji i
bb bi g e ":M$(3)=r1$:=5
260DEFFNpartf:M$(1)=FNbass("R")+FNbass
("T"):M$(2)="j ie eegige g ig
":M$(3)=r1$:=6
270DEFFNpartg:E$="251":M$(1)=FNbass("Y
")+FNbass("V"):M$(2)="ii ji eijlji i
bb bi g e ":M$(3)=r1$:=1
280DEFFNparth:M$(1)=FNbass("R")+FNbass
("T"):M$(2)="j ie eegige g ig
":M$(3)=r1$:=1
340DEFPROCm:I%=I%+1:IFI%>LEN(x2$) m%=F
ALSE:PRINTTAB(13,18);"(C) Noigesoft"
350PRINTTAB(13,18);MID$(x2$,I%,13);:EN
DPROC
360DEFPROCunsc:x2$="":FORI%=1TOLEN(x$)
:x2$=CHR$(ASC(MID$(x$,I%,1))+2)+x2$:NEXT
:x2$=" "+x2$+" ":ENDPROC
370DEFPROCline:PRINT"
,,,,,,,,,,,,,,,,,,,,":ENDPROC
9000DEFPROCintro
9001PRINT" SATELLITE HAVAC BY A.S.SHAKO
OR '91":PROCline
9010PRINT" Z - LEFT X - RIGHT RET
URN - FIRE"
9011PROCline
9020PRINT" THE COMPUTER SYSTEM HAS GONE
CRAZY!!"'" AT N.A.S.A.CONTROL CENTRE AN
D ALL THE"'" SATELLITES ABOVE THE EARTH
ARE FIRING"'" AT THE PLANET...GUESS WHAT
YOUR JOB "'" IS ? (EVACUATE EVERYONE FR
OM THE "'" PLANET!!.ONLY JOKING)"'
9030PRINT" YOU CONTROL THE UP-TO-DATE I
N LASER"'" TECHNOLOGY WARFARE & YOUR JOB
IS TO "'" MOVE YOUR LASER ONTO THE SATE
LLITE."'
9040PRINT" EVERYTIME THE SATELLITE FIRE
S THE "'" DAMAGE OF THE PLANET IS INCREA
SED.IF"'" THIS DAMAGE REACHES 250 GOODBY
E EARTH!"
9050PRINT'" BUT DON'T DESPAIR!! EVERYTI
ME YOU "'" REACH THE NEXT LEVEL THE DAMA
GE IS "'" DECREASED BY 10.SO HAPPY SHOOT
ING !!"
9060PROCline:PRINT" PRESS ESCAPE TO LOA
D GAME"
9070ENDPROC