' {$STAMP BS2sx}'
{$PBASIC 2।5}'
{$PORT COM2}
a VAR Word
c VAR Wordd
VAR WordPAUSE २०००
a = ०
b = ०
c = ०
d = ०
GOSUB forward : PAUSE 1177
GOSUB S_LEFT : PAUSE 199
DO
a = a + 1
GOSUB T_RIGHT : PAUSE 20
GOSUB FORWARD : PAUSE 15
LOOP UNTIL ( a = 75 )
DO
b = b + 1
GOSUB T_left : PAUSE 20
GOSUB FORWARD : PAUSE 15
LOOP UNTIL ( b = 75 )
DO
c = c + 1
GOSUB T_RIGHT : PAUSE 20
GOSUB FORWARD : PAUSE 12
LOOP UNTIL ( c = 85 )
GOSUB forward : PAUSE ११७७
DO
d = d + 1
GOSUB T_RIGHT : PAUSE 15
GOSUB forward : PAUSE 5
LOOP UNTIL ( d = 80 )
GOSUB forward : PAUSE 2350
GOSUB S_RIGHT : PAUSE 350
GOSUB motor_off : PAUSE ५०००
forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
backward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : रिटर्न
S_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : रिटर्न
S_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : रिटर्न
T_Right: LOW 13 : LOW 12 : HIGH 15 : LOW 14 : रिटर्न
T_LEFT: HIGH 13 : LOW 12 : LOW 15 : LOW 14 : रिटर्न
Motor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : रिटर्न

สั่งให้หุ่นยนต์: ตรงไปแล้วเดินเป็นครึ่งวงกลมไปทางซ้าย , ขวา , ซ้าย แล้วเดินตรงไป50เซนติเมตร
แล้วหมุนตัวกลับมา เดินตรงไปอีก100เซนติเมตร
แล้วหมุนตัวกลับมา
เป็นอันเสร็จสิ้น

1

' {$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main:GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 350GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 300 GOSUB motor_off :PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN

3

' {$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main:GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 350GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 300 GOSUB motor_off :PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN

2

{$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main: GOSUB S_Right : PAUSE 90GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 310GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 290GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 100GOSUB motor_off : PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN