
6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 228 -
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X28 Y3 ('D') /* DEPTH
/* /*
IF [#9200 EQ 12] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X25 Y6 ('DP') /* DEPTH
/* /*
IF [#9200 EQ 17] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X20 Y3 ('EX') /* END X
/* /*
IF [#9200 EQ 15] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X13 Y3 ('SX') /* START X
/* /*
IF [#9200 EQ 13] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X9 Y11 ('PT') /* PITCH
/* /*
IF [#9200 EQ 11] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X16 Y11 ('W') /* WIDTH
/* /*
IF [#9200 EQ 18] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X18 Y11 ('C') /* CHAMFER
/* /*
/* MD0056 END
#8509=0 /* MD0056
GOTO999
/*
/* GROOVE FACE
/*
N3000 W_CXPOS = 0 ; /* offset x pos
W_CYPOS = 0 ; /* offset y pos
CUNT = 0 ; /* counter clear
ASET = 0 ; /* init angle
G240 P7 C4 ; /* set color
/* window title
G243 X1 Y0 ('GROOVE (FACE) ') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure
G242 X[-240+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[200+W_CYPOS] ;