Giant Rats
The object of Giant Rats is to direct a man through a maze to reach the girl, whilst being pursued by a killer rat. You have a displayed time limit in which to move before the girl mutates — and if you are unlucky she will unpredictably change places with the rat!! If the rat should reach the girl first, she will disappear altogether. Randomly placed mines are an additional hazard.
10 REM GIANT RATS
20 REM @ PAUL STANLEY.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER # 1,0:PEN #1,0:CLS #1
40 GOSUB 880
50 DIM A(4),B(4)
60 GOSUB 690
70 HS=0
BO GOSUB 780
90 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
100 SC=0
110 LI=5
120 PEN 2:FOR =0 TO 30:LOCATE F+1,1:PRI NT CHR$(237);:LOCATE F+1,21:PRINT CHR$(2 37);:NEXT:FOR F=1 TO 19:LOCATE 1,F+1:PRI NT CHR$(237);:LOCATE 31,F+1:PRINT CHR$(2 37);:NEXT:PEN 1
130 GOSUB 510
140 FOR I=1 TO 30:LOCATE INT(RND*22)+8, INT(RND*14)+6:PRINT CHR$(237);:NEXT I
150 SC=SC-1:Y=1:X=1:F=19:G=29:A$=CHR$(23
3)
160 LOCATE 6,22:PRINT CHR$(24WHI—SC:"; CHR$(24);HS;:PEN 2:LOCATE 17,22:PRINT"LI :";LI;:PEN 3:LOCATE 24,22:PRINT CHR$(24) ;"SCORE:0";CHR$(24);:PEN 1
170 B$=CHR$(231)+CHR$(232):C=1
180 GOSUB 420
190 FOR I=1 TO 2