リスト4。リスト5は、 DATA "ALLEND" の一行だけなので画像省略。