Slijedi listing programa za testiranje sučelja za robotiku:

(pretpostavlja se da je na zadnja dva priključka spojen motor!)

REM                    TEST SUCELJA ZA SAMOGRADNJU (Mak)
a = 888

CLS
OUT a, 0
PRINT : PRINT
PRINT " q ... KRAJ       d ... DESNO (64)       l ... LIJEVO (128)       ENTER ... STOJ"
PRINT : PRINT "         Osim toga mozete utipkati bilo koji broj izmedju -256 i 255 ..."

DO

 LOCATE 10, 39: INPUT q$
   IF q$ = "d" THEN q$ = "64            "
   IF q$ = "l" THEN q$ = "128           "
   IF q$ = "q" THEN EXIT DO
 LOCATE 10, 39: PRINT "                                "

 b = VAL(q$)
 LOCATE 10, 59: PRINT b; "                  "
   IF b > 255 THEN b = 255: LOCATE 10, 59: PRINT "255 (MAX!)        "
   IF b < -256 THEN b = -256: LOCATE 10, 59: PRINT "-256 (MIN!)        "
   IF b = 0 THEN LOCATE 10, 59: PRINT "0 (STOP)              ": PRINT "                                                                    "

 OUT a, b

LOOP

OUT a, 0
LOCATE 10, 59: PRINT "Kraj programa ..."
END