※REALbasicのExport Source...で書き出したsource textを元にしていますので
アイコンが不適当なのは御容赦下さい。