(O)PRT1= SEND PART NUMBER TO ROBOT
WRITES TO ANYBUS OUTPUTS [11] THROUGH [14]
USES COMMON VARIABLE 219 - 222 FOR INDIVIDUAL CHARACTERS

OPRT1
IF[VORD[0016] EQ 1]NRTS
IF[VORD[1400] EQ 0] NRTS
 ( RECORD PART NUMBER FROM V1 )

(FIRST DIGIT)
V218=FIX[V1/100] 
M331
(SECOND DIGIT)
V219=FIX[[V1/10]-[V218*10]] 
M331
(THIRD DIGIT)
V220=FIX[[V1/1]-[V218*100]-[V219*10]] 
M331


(SET SECOND NUMBER TO "4" THRU "7")
N101
( SET TO 4 )
IF[V219 NE 4]N500
VDOUT[11]=0   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP1
N500
( SET TO 5 )
IF[V219 NE 5]N600
VDOUT[11]=1   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP1
N600
( SET TO 6 )
IF[V219 NE 6]N700
VDOUT[11]=0   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP1
N700
( SET TO 7 )
VDOUT[11]=1   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )

NSKP1
M182
M331
G4 F.5
V221=[VDIN[11]*1]+[VDIN[12]*2]+[VDIN[13]*4]+[VDIN[14]*8]
IF[V221 NE V219] NALM1
NRUN1

(SET THIRD NUMBER TO "0" THRU "9")
( CLEAR FIRST SET OF NUMBERS )
VDOUT[11]=0   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=0   ( EIGHT )

N1001
( SET TO 0 )
IF[V220 NE 0]N1000
VDOUT[11]=0   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N1000
( SET TO 1 )
IF[V220 NE 1]N2000
VDOUT[11]=1   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N2000
( SET TO 2 )
IF[V220 NE 2]N3000
VDOUT[11]=0   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N3000
( SET TO 3 )
IF[V220 NE 3]N4000
VDOUT[11]=1   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N4000
( SET TO 4 )
IF[V220 NE 4]N5000
VDOUT[11]=0   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N5000
( SET TO 5 )
IF[V220 NE 5]N6000
VDOUT[11]=1   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N6000
( SET TO 6 )
IF[V220 NE 6]N7000
VDOUT[11]=0   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N7000
( SET TO 7 )
IF[V220 NE 7]N8000
VDOUT[11]=1   ( ONE )
VDOUT[12]=1   ( TWO )
VDOUT[13]=1   ( FOUR )
VDOUT[14]=0   ( EIGHT )
GOTO NSKP2
N8000
( SET TO 8 )
IF[V220 NE 8]N9000
VDOUT[11]=0   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=1   ( EIGHT )
GOTO NSKP2
N9000
( SET TO 9 )
IF[V220 NE 9]N9009
VDOUT[11]=1   ( ONE )
VDOUT[12]=0   ( TWO )
VDOUT[13]=0   ( FOUR )
VDOUT[14]=1   ( EIGHT )
GOTO NSKP2
N9009

NSKP2

M183

M331
G4 F.5
V222=[VDIN[11]*1]+[VDIN[12]*2]+[VDIN[13]*4]+[VDIN[14]*8]

IF[V222 NE V220] NALM1

GOTO NRTS
NALM1 VUACM[1]='ROBOT PART NUM'
      VDOUT[992]=456
NRTS
RTS