Do Until 現実 = True　
エンドレスエイト()
Loop

VBですまん。