例

newfile; call GetKeyState; $prev = $$return; Loop: call GetKeyState; if( $prev != $$return ) { insert $$return; insertreturn; $prev = $$return; } goto Loop; GetKeyState: $$a = ""; ##i = 1; while( ##i <= 0x91 ) { if( iskeydown( ##i ) ) { $$a = $$a + str( ##i ) + " "; } ##i = ##i + 1; } return $$a;