MY PROGRAMS
OZpede
PROGRAM
A centipede type game created by DatCoolMan.
Use Arrow Keys to move and enter to shoot.
For more programs and information visit
http://datcoolman.freeservers.com
BIN_PROG_1
PFILE:BLGRYFQ8.BAS
=
E
=
E
=
'
'
'
('
*%
,L1=10
.SC=0
0L2=20
2 0A$(L1,3)
7CT=L1
<0B$(4)
@ 0S(1,2)
DT=0
FB$(1)="183C7EFFFF7E3C18"
KB$(3)="0000000000000000"
PB$(2)="00000000182442FF"
UB$(4)="0000018001800000"
ZX1=0
dY1=10
eX2=64+((L1-10)*8)
fY2=10
gQ=8
hZ=8
iE$=""
nC=113
xD=60
}P
h(C,D)
3B$(2)
Q1,0
`"Score: ";SC
Q185,0
`"DatCoolMan"
WN=1RL1
E=X1+((N-1)*8)
h(E,Y1)
A$(N,1)=B$(1)
3A$(N,1)
A$(N,2)=E
[N
P=0
J=0
J=J+1
K=K+1
E$=""
E$=
V(CT=0)T870
V(K>7)(T>0)T~770
V((E$="")(J233)(X2<0)T340
6
h(X2,Y2)
@
3A$(P,1)
B
A$(P,2)=X2
C
A$(P,3)=Y2
J +370
TQ=0-Q
^Y2=Y2+8
cV(Y2=D)T1160
hX2=X2+Q
m +b310
rV(X1>233)(X1<0)T400
+169
Z=0-Z
X1=X1+Z
Y1=Y1+8
+169
&J=J+1
+h(C,D)
03B$(3)
:C=C+8
DV(C<230)T600
NC=1
Xh(C,D)
b3B$(2)
l +170
vJ=J+1
{h(C,D)
3B$(3)
C=C-8
V(C>0)T680
C=233
h(C,D)
3B$(2)
+170
T=T+1
J=J+1
K=0
S(T,1)=C-1
S(T,2)=D-8
h(S(T,1),S(T,2))
3B$(4)
WU=1R10
[U
+170
K=0
J=J+1
h(S(1,1),S(1,2))
3B$(3)
S(1,2)=S(1,2)-8
#h(S(1,1),S(1,2))
&3B$(4)
*V(S(1,2)>(Y2+4))T170
4G=0
>G=G+1
CV(G>L1)T856
Fh(S(1,1),S(1,2)-2)
G3B$(3)
H3V((A$(G,2))<>(S(1,1)))(A$(G,1)=B$(3))T830
Jh(S(1,1),(A$(G,3)))
N3B$(3)
RA$(G,1)=B$(3)
SCT=CT-1
T
V=(5)+3
USC=SC+V
VQ1,0
W`"Score: ";SC
XT=0
a +170
fP
pQ1,0
z`"Score: ";SC
Q185,0
`"DatCoolMan"
Q100,1
`"YOU WIN!!!!"
Q100,3
`"OZPede v1.2"
Q75,4
&`"http://datcoolman.freeservers.com"
Q20,6
a"Play Again (Y/N)? ";O$
VO$="Y"O$="y"T1010
Z
:A$
:B$
:S
L1=L1+4
L2=L2-4
$V(L2<1)TE1080
.+ 450
8P
=)
BQ70,3
L `"You have beaten all levels."
V)
`Q75,6
j*50
t&`"http://datcoolman.freeservers.com"
~Z
P
Q1,0
`"Score: ";SC
Q190,0
`"DatCoolMan"
Q80,1
`"Sorry, You Lose!!!"
Q100,3
`"OZPede v1.2"
Q75,4
&`"http://datcoolman.freeservers.com"
Q20,6
a"Play Again (Y/N)? ";O$
VO$="Y"O$="y"T 1310
Z
:A$
(:B$
2:S
<+ 450
u1Z