四角を描画する
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