var x[256], y[4,4,4,4], i, j, k, l
for i = 0 to 255: x[i] = i: next ' x を連番で埋める
copy y, x
for i = 0 to 3: for j = 0 to 3: for k = 0 to 3: for l = 0 to 3
? y[i, j, k, l],
next: next: next: next
とかやると、高次低次の位置関係が分かるでしょう。
たとえばタッチペンで触ったところに点を打つプログラムはこんな感じです。
acls: xscreen 2: display 1 ' 画面を初期化します。
while 1 ' 以下の命令を繰り返します。
vsync
touch out t, x, y ' タッチされたか調べます。
if t then gpset x, y ' タッチされたなら、そこに点を打ちます。
wend
これに消しゴム、色選択、アンドゥ、セーブ、ロードなどを追加していくとだんだんとお絵かきソフトになるわけです。