SCN2650SBC (8) BASIC動作 - 承前

うーん、浮動小数点版がシンタックスエラー (正確には NEXT ERROR）になる原因分かってしまった。この Microworld Basic ってFOR NEXTループから GOTOで脱出できないという仕様になっている。何じゃそれ、なんですけど、まぁ仕方がないので修正。

10 FOR Y=-12 TO 12
20 FOR X=-39 TO 39
30 D=X*0.0458
40 E= Y*0.08333
50 A=D
60 B=E
70 FOR I=0 TO 15
80 T=A*A-B*B+D
90 B=2*A*B+E
100 A=T
105 V=A*A+B*B
110 IF V<=4 THEN GOTO 120
112 IF I>9 THEN I=I+7
114 PRINT CHR$(48+I);
116 I=15
120 NEXT I
121 IF V>4 THEN GOTO 210
130 PRINT " ";
210 NEXT X
220 PRINT
230 NEXT Y

整数版より多少は速いかな。テストは明日にでも。