Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 870.48 € |
250 DIM A(40,23)
440 XB=5:YB=23
450 XI=XB:YI=YB
600 IF A(XB+1,YB)=1 THEN XI=XI-1:IND=1
610 IF A(XB-1,YB)=1 THEN XI=XI+1:IND=1
620 IF A(XB,YB+1)=1 THEN YI=YI-1:IND=1
630 IF A(XB,YB-1)=1 THEN YI=YI+1:IND=1
640 COL=0:GOSUB 900
650 IF IND=1 THEN XB=XI:YB=YI
660 IF IND=0 THEN XB=XB+1:YB=YB-1
670 COL=2:GOSUB 900
690 IF YB=23 THEN IF XB=XR THEN 720
700 IF XB>23 THEN 760
960 PRINT STRING$(2,CHR$(10))
250 DIM A(40,24)
440 XB=5:YB=22
450 XI=1:YI=-1
600 IF A(XB+1,YB)=1 THEN XI=-1:IND=1
610 IF A(XB-1,YB)=1 THEN XI=1:IND=1
620 IF A(XB,YB+1)=1 THEN YI=-1:IND=1
630 IF A(XB,YB-1)=1 THEN YI=1:IND=1
640 COL=0:GOSUB 980
650 XB=XB+XI
660 YB=YB+YI
670 COL=2:GOSUB 980
690 IF YB+YI=23 THEN IF (XB+XI=XR OR XB+XI=XR+1) THEN 720
700 IF YB+YI>23 THEN 760
960 PRINT STRING$(2,CHR$(143))