INPUT 1   'SEARCH
INPUT 2   'PLAY
INPUT 3   'INDEX ON
INPUT 4   'SHOW
INPUT 5   'PAUSE

GOTO SWITCH_MONITOR

SWITCH_MONITOR:
IF PIN1=1 THEN SEARCH
IF PIN2=1 THEN PLAY
IF PIN3=1 THEN INDEX
IF PIN4=1 THEN SHOW
IF PIN5=1 THEN PAUS
GOTO SWITCH_MONITOR

SEARCH:
SEROUT 7,T2400,($4F)
PAUSE 10
SEROUT 7,T2400,($43)
PAUSE 10
SEROUT 7,T2400,($30)
PAUSE 10
SEROUT 7,T2400,($30)
PAUSE 10
SEROUT 7,T2400,($30)
PAUSE 10
SEROUT 7,T2400,($30)
PAUSE 10
SEROUT 7,T2400,($31)
PAUSE 10
SEROUT 7,T2400,($40)
GOTO SWITCH_MONITOR

PLAY:
SEROUT 7,T2400,($3A)
GOTO SWITCH_MONITOR

INDEX:
SEROUT 7,T2400,($50)
GOTO SWITCH_MONITOR

SHOW:
SEROUT 7,T2400,($3A)
PAUSE 60000
HIGH 6
PAUSE 60000
LOW 6
PAUSE 60000
HIGH 6
PAUSE 60000
LOW 6
PAUSE 60000
HIGH 6
PAUSE 60000
LOW 6
PAUSE 43700
SEROUT 7,T2400,($4F)
GOTO SWITCH_MONITOR

PAUS:
SEROUT 7,T2400,($4F)
GOTO SWITCH_MONITOR