ビジーループ - abwiki @ ウィキ (ActiveBasic非公式wiki)

昔のプログラミングで定番とされていた技法。

10 X=10:Y=10
30 I$=""
40 *MAIN
50 I$=INKEY$
60 IF I$<>"" THEN I=ASC(I$)-&H1C
70 ON I GOSUB　*RIGHT, ＊LEFT, *UP, *DOWN
80 LOCATE 0,0:PRINT X,Y,
90 GOTO *MAIN
100 *RIGHT:X=X+1:RETURN
110 *LEFT :X=X-1:RETURN
120 *UP   :Y=Y-1:RETURN
130 *DOWN :Y=Y+1:RETURN