■

　
落ち着け… 素数を数えるんだ…
　

Set 確認対象 1
Do While (KeyState(2) <> 1)
　For i = 2 To (確認対象 - 1)
　　If 確認対象 Mod i = 0 Then
　　　Set 素数ではない
　　　Break
　　EndIf
　Next
　If Not 素数ではない Then
　　Talk システム
　　$(確認対象)
　　Suspend
　EndIf
　Incr 確認対象
　UnSet 素数ではない
Loop