effecr
0*c
0*x
0*k
0*d
0*e
entalèat(1,4)*a
lbl 2
reapt 1=2
e+1*e
effecr
0*c
entalèat(1,4)*a
output(4,8,"0"
0*d
if a=1
output(4,7,"<
if a=2
output(3,8,"^
if a=3
output(4,9,">
if a=4
output(5,8,"v
reapt c=1
d+1*d
codetouche*k
if k=24 et a=1
1*c
if k=25 et a=2
1*c
if k=26 et a=3
1*c
if k=34 et a=4
1*c
end
if e=20
goto f1
end
lbl f1
effecr
ent(100/d²10)*a (²=veut dir fois)
disp "score max" ,§rflx(1) 1 (§=veut dire le Lde liste)
disp "score:",a
if a>§rflx(1)
then
a*§rflx(1)
disp "best score"
end
