5 GOSUB 560
10 PRINT CHR$(26)CHR$(27)CHR$(46)CHR$(48)CHR$(27)CHR$(97)
20 OPTION BASE 1:DIM SC$(20,30)
30 FOR X=1 TO 20:FOR Y=1 TO 30:SC$(X,Y)=CHR$(141):NEXT Y:NEXT X
40 FOR X=1 TO 100
50 Z(1)=INT(RND*20+1):Z(2)=INT(RND*30+1):SC$(Z(1),Z(2))=CHR$(150)
60 NEXT X
70 FOR X=1 TO 20
80 Z(1)=INT(RND*19+1):Z(2)=INT(RND*30+1)
90 IF SC$(Z(1),Z(2))=CHR$(140) THEN 80 ELSE SC$(Z(1),Z(2))=CHR$(140)
100 NEXT X
110 IF TM>0 THEN 130
120 Y(1)=20:Y(2)=15:B$="8":TM=1000
130 PRINT CHR$(30)SPC(22);:FOR X=1 TO 30:PRINT CHR$(135);:NEXT X:PRINT
140 FOR X=1 TO 20:PRINT SPC(22);:FOR Y=1 TO 30:PRINT SC$(X,Y);:NEXT Y
150 PRINT:NEXT X
160 PRINT CHR$(27)"="CHR$(32+Y(1))CHR$(53+Y(2))CHR$(138)
170 A$=INKEY$
180 TIM=TIM+1:IF TIM=TM THEN PRINT CHR$(26):PRINT SCR+PTS:A$=CHR$(27)
190 IF A$=CHR$(11) AND Y(1)>1 THEN B$="8":GOTO 280 ELSE IF A$=CHR$(11) THEN 170
200 IF A$=CHR$(8) AND Y(2)>1 THEN B$="4":GOTO 350 ELSE IF A$=CHR$(8) THEN 170
210 IF A$=CHR$(10) AND Y(1)<20 THEN B$="2":GOTO 390 ELSE IF A$=CHR$(10) THEN 170
220 IF A$=CHR$(12) AND Y(2)<30 THEN B$="6":GOTO 430 ELSE IF A$=CHR$(12) THEN 170
230 IF A$=CHR$(27) THEN PRINT CHR$(27)CHR$(46)CHR$(50)CHR$(27)CHR$(65):GOTO 510
240 IF B$="8" THEN A$=CHR$(11) ELSE IF B$="4" THEN A$=CHR$(8)
250 IF B$="2" THEN A$=CHR$(10) ELSE IF B$="6" THEN A$=CHR$(12)
260 GOTO 190
270 GOTO 170
280 IF SC$(Y(1)-1,Y(2))=CHR$(150) THEN 270
290 GOSUB 320
300 IF SC$(Y(1)-1,Y(2))=CHR$(140) THEN Y(1)=Y(1)-1:GOTO 470
310 GOTO 340
320 PRINT CHR$(27)"="CHR$(32+Y(1))CHR$(53+Y(2))SC$(Y(1),Y(2))
330 RETURN
340 Y(1)=Y(1)-1:GOTO 160
350 IF SC$(Y(1),Y(2)-1)=CHR$(150) THEN 270
360 GOSUB 320
370 IF SC$(Y(1),Y(2)-1)=CHR$(140) THEN Y(2)=Y(2)-1:GOTO 470
380 Y(2)=Y(2)-1:GOTO 160
390 IF SC$(Y(1)+1,Y(2))=CHR$(150) THEN 270
400 GOSUB 320
410 IF SC$(Y(1)+1,Y(2))=CHR$(140) THEN Y(1)=Y(1)+1:GOTO 470
420 Y(1)=Y(1)+1:GOTO 160
430 IF SC$(Y(1),Y(2)+1)=CHR$(150) THEN 270
440 GOSUB 320
450 IF SC$(Y(1),Y(2)+1)=CHR$(140) THEN Y(2)=Y(2)+1:GOTO 470
460 Y(2)=Y(2)+1:GOTO 160
470 PTS=PTS+10:IF PTS=200 THEN SCR=SCR+PTS*(TM-TIM):GOTO 500
480 SC$(Y(1),Y(2))=CHR$(141)
490 PRINT CHR$(27)"="CHR$(32+Y(1))CHR$(53+Y(2))CHR$(139):GOTO 160
500 PTS=0:TM=TM-50:TIM=0:GOTO 30
510 PRINT CHR$(26)
520 PRINT"YOU HAD"SCR+PTS"POINTS!!"
530 PRINT"DO YOU WANT TO PLAY AGAIN? (Y/N) ";:A$=INPUT$(1)
540 IF A$="Y" THEN RUN ELSE IF A$="N" THEN RUN"HELPER"
550 PRINT CHR$(7)CHR$(30):PRINT:GOTO 530
560 FOR X=1 TO 48:PRINT:NEXT:PRINT CHR$(27)CHR$(97)
570 PRINT"CC    CC  CC    CC  CC    CC  CCCCCCCC    CCC     CCCCCCCC  CCCCCCCC  CC    CC"
580 PRINT"CC    CC  CC    CC  CCC   CC     CC      C   C    CC    CC  CC        CC   CC"
590 PRINT"CC    CC  CC    CC  CC C  CC     CC      C CC     CC    CC  CC        CC CC"
600 PRINT"CCCCCCCC  CC    CC  CC  C CC     CC      CC       CCCCCCCC  CCCCCC    CCCC"
610 PRINT"CC    CC  CC    CC  CC   CCC     CC      C C  C   CC        CC        CC CC"
620 PRINT"CC    CC  CC    CC  CC    CC     CC      C  CC    CC        CC        CC   CC"
630 PRINT"CC    CC   CCCCCC   CC    CC     CC       CCCC    CC        CCCCCCCC  CC    CC"
635 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
640 PRINT CHR$(27)CHR$(65)SPC(20)CHR$(147)" 1985  HUNT&PEK by John Pursey"
650 FOR X=1 TO 2000:NEXT:FOR X=1 TO 24:PRINT:NEXT:RETURN
NT CHR$(27)CHR$(65)SPC(20)CHR$(147)" 1985  HUNT&PEK by 