Ja, natürlich:
define sdio port[1]
define sclio port[3]
define strobe port[4]
define DATALINE port[1]
define CLOCKLINE port[2]
define LIGHT_L ad[7]
define LIGHT_R ad[6]
define SYS_VOLTS ad[3]
define CHRG_CURRENT ad[2]
define SYS_CURRENT ad[1]
define MIC ad[4]
define TOUCH ad[5]

define SPEED_L da[1]
define SPEED_R da[2]
define REV_L port[6]
define REV_R port[5]

define LBYTE byte[1]
define HBYTE byte[2]
define SUBCMD byte[3]

define EXTPORT byte[4]
define LED1_F bit[29]
define LED2_F bit[30]
define LED3_F bit[31]
define LED4_F bit[32]
define SYSTEM_STATUS byte[5]
define ACSL_F bit[33]
define ACSR_F bit[34]
define IR_F bit[35]

define TIM byte[6]
define PGM byte[7]

define PLM_SLOW &H01C4
define SYSTEM &H01C9
define COMNAV &H0154

define REVR &H0101
define REVL &H0106
define FWDR &H010B
define FWDL &H0110
define ROTR &H0115
define ROTL &H0119
define REV &H011D
define FWD &H0121
define COMNAV_STATUS &H0125
define ACS_LO &H01E1
define ACS_HI &H01E9
define ACS_MAX &H01F1
define SEND_TLM &H014A
define SEND_SPEEDR &H0134
define SEND_SPEEDL &H013A
define SEND_SYSSTAT &H0144






gosub SUBSYS_PWR_ON
beep 368,10,0ause 50

gosub NO_ACS_INT:beep 368,10,0:SYS ACS_HI

REV_L=on:REV_R=on:SYS PLM_SLOW

SPEED_L=100:SPEED_R=100
pause 100
SPEED_L=0:SPEED_R=0
if TOUCH then goto SEL1

#SEL1
SPEED_L=100:SPEED_R=100
pause 100
end


#LED1ON
LED1_F=on:goto EXTPORT_WRITE
#LED1OFF
LED1_F=off :goto EXTPORT_WRITE
#LED2ON
LED2_F=on:goto EXTPORT_WRITE
#LED2OFF
LED2_F=off:goto EXTPORT_WRITE
#LED3ON
LED3_F=on:goto EXTPORT_WRITE
#LED3OFF
LED3_F=off:goto EXTPORT_WRITE
#LED4ON
LED4_F=on:goto EXTPORT_WRITE
#LED4OFF
LED4_F=off:goto EXTPORT_WRITE
#LEDSOFF
EXTPORT=EXTPORT and &H0F:goto EXTPORT_WRITE
#EXTPORT_WRITE
SYS SYSTEMulse STROBE:RETURN

'IIIIII SYSTEMROUTINEN COMM/NAV SYSTEM IIIII

#GET_IRDATA
SUBCMD=1:sys COMNAV:return
#SEND_IRDATA
SUBCMD=0:sys COMNAV:return
#RC5
SUBCMD=4:sys COMNAV:LBYTE= HBYTE and &HFC
HBYTE=00:SUBCMD=2:sys COMNAV:return
#RC5_INT
SUBCMD=4:sys COMNAV:LBYTE= (HBYTE and &HFE)or 2
HBYTE=00:SUBCMD=2:sys COMNAV:return
#REC80
SUBCMD=4:sys COMNAV:LBYTE= (HBYTE or &H01)and&HFD
HBYTE=00:SUBCMD=2:sys COMNAV:return
#REC80_INT
SUBCMD=4:sys COMNAV:LBYTE= (HBYTE or &H03)
HBYTE=00:SUBCMD=2:sys COMNAV:return

'IIIIII SYSTEMROUTINEN SYSTEM IIIIIIIIIIII
#NO_ACS_INT
SUBCMD=4:sys COMNAV:LBYTE= HBYTE and &HFB
HBYTE=00:SUBCMD=2:sys COMNAV:return
#ACS_INT_200
SUBCMD=4:sys COMNAV:LBYTE= HBYTE or &H04
HBYTE=50:SUBCMD=2:sys COMNAV:return
#SUBSYS_PWR_ON
sdio=on:sclio=on:strobe=off:EXTPORT=(EXTPORT and &HFE)or 8
sys SYSTEM:return
#SUBSYS_PWR_OFF
EXTPORT=(EXTPORT and &HF7)or 1:sys SYSTEM
deact sdio:deact sclio:return
#CLR_DISTANCE
SUBCMD=3:sys COMNAV:return
#L_DISTANCE
SUBCMD=6:sys COMNAV:return
#R_DISTANCE
SUBCMD=7:sys COMNAV:return