すでに公式のプログラムリストにあったりするが、自分で作ってみようと思う。まずはリバーシ盤(?)の描画から。タッチパネル使いたいので下の画面に描画するようにした。下の画面に描画するときはPNLTYPE"OFF"を忘れないようにする。終了するときはSELECTボタンで終わる
PNLTYPE"OFF" GPAGE 1 @START GCLS 15 MX=30 C=20 W=8*C+C SXY=C+MX GBOX SXY,C,W+MX,W GPAINT SXY+1,C+1,10 FOR I=1 TO 9 L=C*I GLINE C+MX,L,W+MX,L,14 GLINE L+MX,C,L+MX,W,14 NEXT @LOOP GOTO @LOOP
