10 CLV:CLS 20 FOR Y=0 TO 22 30 FOR X=0 TO 30 40 ?CHR$(1); 50 NEXT:? 60 NEXT 70 X=29:Y=1 80 LC X,Y:?CHR$(0) 90 R=0:FOR D=0 TO 3 91 GSB 500 92 NEXT 95 IF R=0 IF P=1 GOTO 300 ELSE X=[P]%100:Y=[P]/100:P=P-1:GOTO 90 97 IF R>1 P=P+1:[P]=X+Y*100 100 D=RND(4):R=0 110 GSB 500 120 IF R=0 GOTO 100 130 LC X+A,Y+B:?CHR$(0) 140 LC X+A*2,Y+B*2:?CHR$(0) 150 X=U:Y=V 160 'IF !INKEY() CONT 170 GOTO 90 300 X=1:Y=1:LC 29,21:?"G":CLT 310 U=X-BTN(28)+BTN(29) 320 V=Y-BTN(30)+BTN(31) 330 LC 0,23:?TICK()/60; 340 C=SCR(U,V) 350 IF C=1 GOTO 310 360 LC X,Y:?CHR$(0) 370 X=U:Y=V 380 LC X,Y:?CHR$(249) 390 WAIT 6 400 IF C!=71 GOTO 310 410 LC 0,0:CLK 420 END 500 A=0:B=0 510 IF D=0 A=-1 520 IF D=1 A=1 530 IF D=2 B=-1 540 IF D=3 B=1 550 U=X+A*2:V=Y+B*2 560 IF U<0 OR U>30 RTN 570 IF V<0 OR V>22 RTN 580 IF SCR(U,V)=0 RTN 590 R=R+1 600 RTN