继续发贴，希望能中 amazon voucher 啊
之前的帖子：
海淘 小霸王学习机 SB2000 哈哈
http://bbs.powerapple.com/forum.php?mod=viewthread&tid=2410746
让小霸王 SB2000 学习机用上U盘！DIY
http://bbs.powerapple.com/forum.php?mod=viewthread&tid=2411856&extra=
试玩 小霸王 SB2000 的 浮点 BASIC (F-BASIC)
http://bbs.powerapple.com/forum.php?mod=viewthread&tid=2434739&extra=
又一次海淘 小霸王 D39 电视游戏机，支持 32 位游戏
https://bbs.chinese1.comhttp://bbs.chinese1.net/t/topic/2417405
--------------------------------------------分隔线----------------------------------------------------
这次是用8位小霸王SB2000下的FBASIC来计算圆周率。。。计算80位需要5 小时。。真的很慢。
代码贴一下：
1 REM *********************************
5 REM *JUST FOR FUN *
6 REM F-BASIC PROGRAM BY HELLOACM.COM
7 REM *TESTED ON SB2000-FBASIC *
8 REM *REALLY SLOW! *
9 REM *********************************
10 N=40
20 DIM X(N)
30 DIM Z(N)
31 FOR I=1 TO N
32 X(I)=0
33 Z(I)=0
34 NEXT I
40 X(2)=2
50 Z(2)=2
60 A=1
70 B=3
80 D=0
90 J=N
95 IF J=0 THEN GOTO 140
100 C=Z(J)A+D
110 Z(J)=C MOD 10
120 D=INT(C/10)
130 J=J-1
135 GOTO 95
140 D=0
145 J=1
150 IF J>N GOTO 200
160 C=Z(J)+D10
170 Z(J)=INT(C/B)
180 D=C MOD B
190 J=J+1:GOTO 150
200 R=0
210 J=N
215 IF J=0 THEN GOTO 280
220 C=X(J)+Z(J)
230 X(J)=C MOD 10
240 X(J-1)=X(J-1)+INT(C/10)
250 R=R+Z(J)
260 J=J-1
270 GOTO 215
280 IF R=0 THEN GOTO 300
290 A=A+1
292 B=B+2
295 GOTO 80
300 T=1:S$=""
301 IF T MOD 20=0 PRINT S;:S$=""
302 S$=S$+STR$(X(T))
315 T=T+1
320 IF T>N GOTO 330
310 GOTO 301
330 REM END
原贴同步： 我的博客
