四角を描画する
10 CLS
20 DRAW 1,1,1,20
30 DRAW 1,20,20,20
40 DRAW 20,20,20,1
50 DRAW 20,1,1,1
60 DRAW 5,5,5,25
70 DRAW 5,25,25,25
80 DRAW 25,25,25,5
90 DRAW 25,5,5,5
100 LC 0,15
サーボモータを制御する
10 X = 125
20 CLS
30 K=INKEY()
40 IF K=28 THEN X=X-10
50 IF K=29 THEN X=X+10
60 PWM2, X
70 WAIT30
80 GOTO30
プログラム番号0の先頭にARUNを書くと自動起動します(1.4.0以降)。
1 @ARUN