ตัวอย่างโปรแกรม : เดินหน้า

ตัวอย่างการเขียนโปรแกรมอย่างง่าย

//********คำสั่งให้หุ่นยนต์เดินหน้า**********เปิดดูคำแปลได้ โดยคลิ๊กที่รูปค่ะ

SO CON 14

BUSY VAR IN15

BAUD CON 16624

L VAR BYTE

R VAR BYTE

PAUSE 1000

SEROUT SO, BAUD,[128,"M",0,128,"S",40]

GOSUB WAIT_BUSY

MAIN : L=120 :R=120

GOSUB DRV

PAUSE 1000

STOP

DRV : SEROUT SO,BAUD,[ L,R ]

WAIT_BUSY : IF BUSY=1 THEN WAIT_BUSY

RETURN