PENX - [UI] |
||||||
… ペン入力のX座標の取得
PENX
ペン入力されているX座標を返します。
返される座標は、944BASICウインドウ左上からの相対位置です。
事前にSYNCを実行しておく必要があります。
REM 944BASIC 'PENX,PENYサンプル'
*LOOP SYNC
HEADER 'ペンタッチ → ペン位置の座標(X:Y)を表示'
GCURSOR OPX-12,OPY-12:PRINT ' '
PX=PENX: PY=PENY
OPX=PX:OPY=PY
GCURSOR PX-12,PY-12: PRINT '★'
PX=STR(PX): PY=STR(PY)
S=STRCAT(PX,':',PY)
LOCATE 10,10:PRINT ' '
LOCATE 10,10:PRINT S
GOTO *LOOP
PENX - [UI] |