PONGのサンプルプログラムの行番号なしバージョンです(pong3.txt)。
行番号を取ったので、415バイトに縮まりました。内容的には4ヶ月前に公開したものと変わってません。
液晶画面だと、球がまったく見えません。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
