i
-=--1
I
GAME
- •
--
I
lIJ[J~[IJ
886
Bytes
_,_.,.
_________
,.
________
q_1,111111~1•---•~1•-·-·-·-
H'l
20
30
40
50
CLS:C~EAR:DIM
A<14,7):DIM
BS(14,7>
INPUT
"1-15";P:CLS
.
RX~INT(RNDC~j)*l5):RY=INT(RND(-1)*8)
IF
ACRX,RY><>l:THEN
A(RX,RY)=l:C=C+l
IF
C<F' THEN
30
60
QUAD
<8,0)-(128,56)
70
LOCATE
17,1:INPUT"X",X$:X=VALCX$)
80-LOCATE
17,2:INPUT"Y",Y$:Y=VAL(Y$)
85
IFX$=""
ORY$=""
THEN
75
-90
IF
X<0
OR
X)14
OR
Y<C21
OR
Y>6
THEN
70
100
IF
A<X,Y)~2
THEN70
110
X=X+l
120
XP=(X+1>•8-4:YP=<Y+JJ•B-4
130
IF
ACX-1,Y)=l
THENAT=AT+1:A(X-1,Y>=2:LOCATE
X
, Y:
F'R
I
NT
"$"
:
8$
( X --1 , Y J
:::
"
$"
:
GOTO
240
140
DRAW
(XF',0~:DRAW
-(XP,56)
150
DRAW
(8,YP>:ORAW
-(128,YP>
160.
FOR
I
=0
TO
6
_
,;;'.
::
1
Z.0.:7kf=-.
:A
_(X-,-1.,
Ik>=::J.c:
0
THEN: CO=CO+
L-
-+~~'
;.:cf:'
'"
7
1
eczt'NE,iT'~~r":FOR
'r
;,QI
TO
;"14
.
190
-r
F."A<
I
,Y>
>=
1 ·
THEN_
CO=CO+ 1
200
NEXT I
210
IF
X=0
THEN
LOCATE
0,Y:PRINT
CO:BS(0,Y)~STR$(
CO):GOTO
.240
220
LOCATE
<X-1),Y:PRINT
C0:8$(X-1,Y)=STR$(CO)
230
FOR
I=l
TO
300:NEXT
I
240
CLS
250
T1=T1+1:C0=0:GOSUB
290
260
IF
AT>=~
THEN
280
270
GOTO
60
280
CLS:LOCATE
5,3:F'RINT
"SCORC.::
";Tl:END
290
FOR
I=6
TO
0
STEP
-1:FOR
J=l4TO
0
STEP
-1:LOC
ATE
0,
I
300
PRINT
TAB(JJ;8$(J,l);
310
NEXT
J:NEXT
I
320
RETURN
The
display
of
a $ inc:Jicating
that
a
treasure
is
found
is
done
in line
130.
Lines
160
to
230
search for treasures
and
indicate
the
number
of
treasures
that
can
be
found
on
particular
lines.
If
an FC
error
occurs,
execute
'INIT
(0,0),
1,1'
and
press
the
[~
key.
141
I
I
I
I
To Next Page
Loading...
