SPSET 0,0:SPSET 1,1 SPCOL 0:SPCOL 1　 WHILE 1 (適当に管理番号0のSP座標を動かす) H=SPHITSP(0) IF H==1 THEN SPCLR 1:END WEND