
B-63343EN/02 SAMPLE PROGRAM 6.GUIDANCE WINDOW FOR DATA ITEM
- 193 -
/* /*
/* /*
#8509=0 /* MD0056
GOTO999
N999 M99;
/*************************************************************
/* Copyright (C) 1998 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/* BAR FINISH (ONCE)
O7554 #20498=#0; initial remainder
#20499=#0;
M99;
/* BAR FINISH (EVERY TIME)
O7604 IF[#22124 NE #20498]GOTO100; if process area change?
/* /*
IF [#22124 EQ #0]GOTO 999 /* MD0056
/* SELECT LANGUAGE
N60 IF [[P3102 AND 1] EQ 1] THEN /*
#8509=7352 /* JAPANESE
GOTO 80 /*
ENDIF /*
/* /*
N62 IF [[P3102 AND 2] EQ 2] THEN /*
#8509=7353 /* GERMAN
GOTO 80 /*
ENDIF /*
/* /*
N64 IF [[P3102 AND 4] EQ 4] THEN /*
#8509=7354 /* FRENCH
GOTO 80 /*
ENDIF /*
/* /*
N66 IF [[P3102 AND 16] EQ 16] THEN /*
#8509=7355 /* ITALIA
GOTO 80 /*
ENDIF /*
/*
N68 IF [[P3102 AND 64] EQ 64] THEN /*
#8509=7356 /* SPANISH
GOTO 80 /*
ENDIF /*
/* /*
N70 #8509=7351 /* ENGLISH
N80 IF [#22124 EQ 1]GOTO 1500 /* IF OUTER
IF [#22124 EQ 3]GOTO 1500 /* IF INNER
IF [#22124 EQ 5]GOTO 1500 /* IF FACE
IF [#22124 EQ 7]GOTO 1500 /* IF OUTER REVERSE
IF [#22124 EQ 9]GOTO 1500 /* IF INNER REVERSE
IF [#22124 EQ 11]GOTO 1500 /* IF FACE REVERSE
GOTO999;
N100 #20498=#22124;
G240 P0 C11 ; /* set color
G202X1Y1I38J12P3; clear graphic in window.
IF [#22124 EQ 1]GOTO 1000 /* IF OUTER
IF [#22124 EQ 3]GOTO 1000 /* IF INNER
IF [#22124 EQ 5]GOTO 1000 /* IF FACE
IF [#22124 EQ 7]GOTO 1000 /* IF OUTER REVERSE
IF [#22124 EQ 9]GOTO 1000 /* IF INNER REVERSE
IF [#22124 EQ 11]GOTO 1000 /* IF FACE REVERSE
GOTO999
/*
/* BAR FINISH
/*
N1000 W_CXPOS = 0 ; /* offset x pos
W_CYPOS = 0 ; /* offset y pos
G244 P0 ; /* set solid line