PONGのサンプルプログラム

PONGのサンプルプログラムの行番号なしバージョンです(pong3.txt)。
行番号を取ったので、415バイトに縮まりました。内容的には4ヶ月前に公開したものと変わってません。
http://nicotak.com/nicobasic/edu2/pong3.gif
液晶画面だと、球がまったく見えません。LEDの使用をおすすめします。

X=9:Y=8:H=7:I=7:W=1:V=1
WHILE 1
IF SW AND 2 THEN IF H<13 THEN H=H+1
IF SW AND 1 THEN IF H>0 THEN H=H-1
IF SW AND 16 THEN IF I<13 THEN I=I+1
IF SW AND 32 THEN IF I>0 THEN I=I-1
X=X+W:Y=Y+V
IF X<0 THEN W=-W
IF X>31 THEN W=-W
IF Y<0 THEN V=-V
IF Y>15 THEN V=-V
IF X=2 THEN
IF H<=Y THEN IF H+3>Y THEN W=-W
ENDIF
IF X=28 THEN
IF I<=Y THEN IF I+3>Y THEN W=-W
ENDIF
CLS:LINE 2,H,2,H+2,1:LINE 28,I,28,I+2,1
PSET X,Y,1
WEND