ตัวอย่างการเขียนโปรแกรมอย่างง่าย |
//********คำสั่งให้หุ่นยนต์เดินเป็นรูปสี่เหลี่ยม********** 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 L=110 :R= -110 GOSUB DRV L=120 :R= 120 GOSUB DRV L=110 :R= -110 GOSUB DRV L=120 :R= 120 GOSUB DRV L=110 :R= -110 GOSUB DRV L=120 :R= 120 GOSUB DRV L=110 :R= -110 GOSUB DRV
PAUSE 1000 STOP DRV : SEROUT SO,BAUD,[ L,R ] WAIT_BUSY : IF BUSY=1 THEN WAIT_BUSY RETURN |