248 Giant Rats
480 LOCATE W+1,Q+1:PRINT CHR$(238); 490 T=1
500 RETURN
510 REM
520 FOR I=1 TO 4:A(I)=INT(RND*10)*2+1:13( I)=INT(RND*15)*2+1:NEXT
530 FOR 1=7 TO 0 STEP -1:FOR L=1 TO 4:LO CATE B(L)+1,A(L)+1:PEN 3:PRINT CHR$(143) :PEN 1:SOUND 1,(5*L*2),3:NEXT L,I
540 RETURN
550 FOR L=1 TO 3:LOCATE X+1,Y+1:PRINT CH R$(231);:SOUND I,(L*10),3:NEXT L
560 GOTO 600
570 FOR L=1 TO 3:LOCATE X+1,Y+1:PRINT CH R$(236);:SOUND 1,(L*10*L),3:NEXT L
5e0 GOTO 600
590 FOR L=1 TO 15:FOR I=1 TO 3:SOUND 10 L*10+I*20),3:LOCATE W+1,0+1:PRINT CHR$(2 38):NEXT I,L
600 LOCATE X+1,Y+1:PRINT" ";:LOCATE 6+1, F+I:PRINT" ";:LOCATE W+1,0+1:PRINT" "; 610 LI=LI-1:IF LI>0 THEN SOUND 1,(100*2) ,3:60TO 150
620 CLS:FOR F=1 TO 21:SOUND 1,(F*5+30),3 :NEXT
630 PEN 2: PRINT:PRINT"You scored";SC;" POINTS":PEN 1
640 IF SC>HS THEN HS=SC:PRINT:PRINT:PEN 3:PRINT"WELL DONE! A NEW HIGH SCORE!":P EN 1:FOR XX=5 TO 8:FOR SS=10 TO 30:SOUND
I,(XX*3+SS*3),3:NEXT SS,XX
650 PRINT:PRINT"The high-score is";HS 660 PRINT:PRINT"PRESS ANY KEY TO PLAY AG AIN"
670 IF INKEY$<>"" THEN 670
680 IF INKEY$="" THEN 6eo ELSE CLS:GOTO 80
690 REM
700 PEN 3:PRINT CHR$(24);"	I
ANT	RATS	";CHR$(24);:PE
N 1