Advertisement
----GAME
!
I
I
II
663
Byte.~
10 CLS:CLEAR:M=3
15 CLS:LOCATE 4,2:PRINT"K .._ + ..A..-L":F'RINT:PRINT
SKI GAME"
16 IF INl(EY$="" THEN 16
20
X=10:Y=l:P=1:CLS
30 J=INT(RND(-1)*20+1):K=INT<RND<-1>•20-~1>:L=INT
<RND
<-1)
•20+1)
33 Y$= I N•(EY$
35 IF
Y$="K" THEN F'=-1
36
IF Y$="L" THEN F'=l
45 LOCATE
(J-1) ,
7: F'RINT "II";: LOCATE
W·-U ,
7: F'R IN
T" ■";:
LOCATE (L-1
>,
7:
PRINT" ■"
46 IF X>19 THEN X=19
47 IF X<2 THEN X=2
48 LOCATE 0,Y:PRINT TAB<X-·U; "+ 0 ; :FO=F'O+l(Z)
50 Xl=X•8-4:Y1=(Y+1)*8+4:IF P=l THEN
X2=X•8+4:Y2
::,:(Y+1)-w8+4
60 IF P=-1 THEN X2=X•B-12:Y2=<Y+1)•8+4
70 IF <<POINT<Xl,Y1>=-l>ORCPOINT(X2,Y2>=~1l)
,
, :--:-,;.._._,.- ·--c:·-
~--::-·L;--·~t_-'J5 ,_, :.~
. · . · " : : · ~ --' . : t, ~ · · ~ ' .
.
<
~+ .·
N :.;,:300 ~~\:j~\;crp-:_;"'°ce --
y - -~"
80: X=X~P:
GOTO
30
-
/
300 CLS:TOCATE - 4, 4: PRINT "POINT:"; PO: M=M-1: GOSUB
j
1000:IF
M>0
THEN CLS:GOTO
20
j
310 CLS: LOCATE 2, 3: INF'UT"PLAY AGAIN (Y) "; A«J,: IF A$c::
I
.
"Y" THEN 10
320 END
1000 FOR I=l TO
300:NEXT
!:RETURN
1010 ENO
LOEBUGJ
Tile game execution routine is contained in lines 30 to 80. Line 45 displays
obstacles. Line 48 displays the skier as a clover leaf symbol.
141
j
I
'
I.
j
-
Advertisement
