B-63343EN/02 SAMPLE PROGRAM 6.GUIDANCE WINDOW FOR DATA ITEM
- 195 -
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X31 Y6 ('N') /*
/* /*
#8509=0 /* MD0056
/* GOTO999
N999 M99;
/*************************************************************
/* Copyright (C) 1998 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/* THREAD (ONCE)
/* O1110;
O7555 #20498=#0; initial remainder
#20499=#0;
M99;
/*
/* THREAD (EVERY TIME)
/* O1111;
O7605 IF[#22124 NE #20498]GOTO100; if process area change?
IF[#22143 NE #20499]GOTO100; if thread type change?
/*
/* MD0056 START
IF[#22124 EQ #0] GOTO 999 /*
/* IF[#22143 EQ #0] GOTO 999 /*
/* /*
/* 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 && #22143 EQ 91] GOTO 1180 /* OUTER GENERAL
IF[#22124 EQ 1 && #22143 EQ 92] GOTO 1280 /* OUTER METRIC
IF[#22124 EQ 1 && #22143 EQ 93] GOTO 1380 /* OUTER UNIFY
IF[#22124 EQ 1 && #22143 EQ 95] GOTO 1480 /* OUTER PF
IF[#22124 EQ 1 && #22143 EQ 94] GOTO 1580 /* OUTER PT
IF[#22124 EQ 1 && #22143 EQ #0] GOTO 1180 /* NOT SELECTED
/* /*
IF[#22124 EQ 2 && #22143 EQ 91] GOTO 2180 /* INNER GENERAL
IF[#22124 EQ 2 && #22143 EQ 92] GOTO 2280 /* INNER METRIC
IF[#22124 EQ 2 && #22143 EQ 93] GOTO 2380 /* INNER UNIFY
IF[#22124 EQ 2 && #22143 EQ 95] GOTO 2480 /* INNER PF
IF[#22124 EQ 2 && #22143 EQ 94] GOTO 2580 /* INNER PT
IF[#22124 EQ 2 && #22143 EQ #0] GOTO 2180 /* NOT SELECTED
/* MD0056 END