懐かしいな。俺もMZ-80-K2Eで円周率を無限に求めるプログラムを開発して、 小学校時代の友達を驚かせたことがある。
10 PRINT “3. 1 4 1 5 9 2 6 5”; 20 A=INT(RND(1)*10) 30 PRINT A; 40 GOTO 20