Arduino.ru

Просьба владельцам arduino с бейсиком набрать программу теста скорости "восемь ферзей" и поместить сюда результат

http://www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/articles.cgi?read=700

10 CLEAR:DEFINT A-Z (DEFINT used if possible)
20 R=8 (R>=1)
30 REM DIM A(R) (DIM used if necessary)
40 IF X=R THEN 180 (140 for all solutions)
50 X=X+1
60 A(X)=R
70 S=S+1
80 Y=X
90 Y=Y-1
100 IF Y=0 THEN 40
110 T=A(X)-A(Y)
120 IF T=0 THEN 140
130 IF X-Y<>ABS(T) THEN 90
140 A(X)=A(X)-1
150 IF A(X)<>0 THEN 70 (<>0 omitted if possible)
160 X=X-1
170 IF X<>0 THEN 140 (<>0 omitted if possible)
180 PRINT S

Правильный ответ: 876