Giant Rats 247
200 C=C-1:LOCATE 1,22:PRINT C;" ";:IF C=
O	THEN 590
210 IF RND>0.97 THEN GOSUB 470
220 LOCATE X+1,Y+1:PRINT" "
230 IF INKEY(1)=0 THEN LOCATE X+2,Y+1:CA LL 360:Z=PEEK(367):IF Z<>237 THEN X=X+1
240 IF INKEY(8)=0 THEN LOCATE X,Y+1:CALL
360:Z=PEEK(367):IF Z<>237 THEN X=X-1 250 IF INKEY(0)=0 THEN LOCATE X+1,Y:CALL
360:Z=PEEK(367):IF Z<>237 THEN Y=Y-1 260 IF INKEY(2)=0 THEN LOCATE X+1,Y+2:CA LL 360:Z=PEEK(367):IF Z<>237 THEN Y=Y+1 270 LOCATE X+1,Y+1:CALL 360:Z=PEEK(367): IF Z=238 THEN GOSUB 420
280 IF (X=B(1) AND Y=A(1)) OR (X=B(2) AN
Y=A(2)) OR (X=B(3) AND Y=A(3)) OR (X=B (4) AND Y=A(4)) THEN GOTO 550
290 LOCATE X+1,Y+1:PRINT MID$(B$,I,1)::G OSUB 330
300 IF ZX=1 THEN ZX=0:GOTO 570
310 NEXT I
320 GOTO 190
330 F1=F:G1=G
340 IF F<Y THEN A$=CHR$(236):F=F+0.5 350 IF F>Y THEN A$=CHR$(235):F=F-0.5 360 IF G<X THEN A$=--.CHR$(234):G=G+0.5 370 IF G>X THEN AS=CHR$(233):G=G-0.5
3so LOCATE G1+1,F1+1:PRINT" ";:LOCATE G+ 1,F+1:PEN 3:PRINT A$;:PEN 1
390 ZX=0:LOCATE X+1,Y+1:CALL 360:Z=PEEK( 367):IF Z>=233 AND Z<=236 THEN ZX=1:RETU RN
400 LOCATE INT(RND*15)*2+2,INT(RND*10)*2 +2:PRINT CHR$(237)
410 RETURN
420 SC=SC+1:LOCATE 30,22:PEN 2:PRINT MID
$(STR$(SC),2);:PEN 1
430 FOR L=1 TO 5:SOUND 1,(L*5*5),3:NEXT 440 C=100
450 Q=INT(RND*10)*2+1:W=INT(RND*15)*2+1: LOCATE W+1,Q+1:PRINT CHR$(238);
460 RETURN
470 LOCATE W+1,0+1:PRINT" ":L=0:M=W:L1=F :M1=G:F=L:G=M:Q=L1:W=M1