GP=0:GPAGE GP,!GP WHILE 1 （色々な処理） GP=!GP:GPAGE GP,!GP WEND のようなかんじ！