Casio FP-200 - Page 146

rFIGHTING ARMOR------------------------
150
3517.l R=INT<RND(-1)-¥.·9>:IF R==3 AND W::::0 THEN GU\;1,n 4~•,
0
360 IF W=l THEN Cf~CT+l
370 IF CT>=6 THEN LOCATE XXX,YYY:F'RINT" ":LOCATE
XX, YY: PRINT" ■ u: XXX=X;X: YYY=YY: W::::;0
380 IF CT>=6 AND XX=TX AND YY=TY THEN LOCATE XX,Y
Y: PR I_NTtl ii.·'': FOR I= 1 TO 30121: NEXT I: CLS: LCJC{HF 2, ~~;: PF l
NT"YOU DESTROYED! ":FOR I=l TO 300:NEXT I:AT=r-H-1•1: IF
AT<=2 THEN 20 ELSE 78121
390 LOCATE XX,YY:PRINT" "
400 PP=POINT (XX*8+4,YY*8+4)
4117.l IF W=0 AND PP=0 THEN LOCATE XX,YY:F'RJNT"+"
420 IF CT>=6 THEN CT=0
430 IF TIME$)"00: 01: .30" THEN 780
440 GOTO 130
450 W= l: X X=TX: YY=TY: LOCATE XX X, YYY: Fh: I NT" II": f~[Tur;-
N
460 IF TXl=TX THEN GOSUB 510
470 IF TYl=TY TH£N GOSUB 51121
480 R~T,U~f\lf::''i,c:-:.'".::":c ·ic/,;;;;:-:~;, . .-.'.;i,C"·'';.,'ft<· .,,::\_;,-;;,,.,.>t •. -J•· . ,
490'."iclF: <~TXJ=TX'-AND :TYi.=TY) OR< XXX=TX AND YYY==TY> THC
N AT=AT+j-:LOCATE TX,T'/ri=•RINT"-l(·ll:FOR I==l TO ~_:cnczJ:NEXT
I: CLS: LOCATE 2, 3: PR I NT" YOU DESTROYED~ ": FCJR 1 '"'" 1 TO
300:NEXT 1:IF AT<=2 THEN GOTO 20 ELSE 780
500 RETURN
510 REM
520 SXS=SX:SYS=SY:TX2S=TX2:TY2S=TY2
530 QUAD (104,8)-(144,48) :LOCATE TX'.?,TY:Z:f'•f~lNT"it"
:LOCATE SX,SY:F'RINT"+"
540 E$=INKEY$
550 IF SX=TX2 AND SY::::TY2 THEN EW>Dl::"·tl :LClCATC TXl,
TYl:F'RINT"*":FOR I=l TO 300:NEXT I:CLS:UJC(HC 2,3:F
RINT"ENEMY DESTROYED! ":FOR I=l TO ~~00:NEXT I:COlU ::
0
560 IF E$==" i" THEN SY=SY-· 1: GOTO 7::•~~
570 IF E$="m" THEN SY:::::SY+l:GOTO 7~:'.0
580 IF E$,:::" j" THEN SX=SX··· 1: GOTO 720
59!.1 IF ·E$=="1" THEN SX=SX+l:GOTO 720
600 Q=INTCRND(-1)•3>: IF Q=0 THEN 71~
610 R=INT(RND(-1)*4)
620 IF R=0 THEN TX2=TX2-1
630 IF R=l THEN TX2=TX2+1
640 IF R=2 THEN TY2=TY2-l
650 IF R=3 THEN TY2~TY2+1
660 IF TX2<13 THEN TX2=13
l
i
I.
I