
B-63343EN/02 SAMPLE PROGRAM 6.GUIDANCE WINDOW FOR DATA ITEM
- 231 -
/* /*
IF [#9200 EQ 13] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X27 Y7 ('PT') /*
/* /*
IF [#9200 EQ 11] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X27 Y4 ('W') /*
/* /*
IF [#9200 EQ 18] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X27 Y2 ('C') /*
/* /*
/* MD0056 END
#8509=0 /* MD0056
GOTO999
N999 M99;
/*************************************************************
/* Copyright (C) 1998 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/*
/* TRAPEZOIDAL GROOVE (ROUGH)
/*
/* TRAPEZOIDAL GROOVE (ROUGH) ONCE
/* O1114;
O7557 #20498=#0; initial remainder
#20499=#0; ;
M99;
/* TRAPEZOIDAL GROOVE (ROUGH) EVERY TIME
/* O1115;
O7607 IF[#22124 NE #20498]GOTO100; if process area change?
IF[#22124 EQ #0] GOTO 999 /* MD0056
/*
/* MD0056 START
/* 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