Sayfa 24

PROGRAM ADI :

68130

gazan Bazda

Ba25a

Bıasa

01138 B11408

RECURSTON

REM öle Ae KOİ OKKA OAK REM * * REM &* MAZE SOLYING * REM * RECURSİYE VERSİON * REM * (C) 2.10.1986 THURSDAY * REM * BY AYHAN KALAYLIOGLU * REM * * REM ak olak ak

GOSUB 800

4SPACE >- PRINT RINT FOR TO " #NEXT INT PRINT TO *

"4" FOR Yz2 TO YU-L1:PRINT FOR TO

3PRİNT PRINT TO "4 "33NEXT "Ex"

FOR TO " INT PRİNT :PRİNT PRINT "RUN 1880“ END END KUS 10: YUZ 10:RETURN GOSUB Sad DIM FOR Isi TO 4:READ DATA -1,0,0,1,1,0,0,-1 FOR TO YUY*L:FOR X-00 TO XT :NEKT FOR TO TO IF CDzi9 THEN IF THEN IF THEN IF ACX,YIs254 THEN Y;2)-43 NEXT IF Ss0 OR E-zâ THEN PRİNT D YEYS GOSUB

:PR

"HATAL":EN

<154) <159> <asa> <a245> <a58>

<1s2>

<a26>

<148>

<088> <aa2a> <a51> <246>

<1sa> <1a7> <isa> <168> <113> <aa2a5> <a57>

<129>