Casio FP-200 - Page 143

----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,~··~'. . <
,_;,/c~+ .· 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 -