6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 244 -
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X10 Y3 ('S') /* START
/* /*
IF [#9200 GE 103 && #9200 LE 106] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X15 Y3 ('1') /* P1
/* /*
IF [#9200 GE 107 && #9200 LE 110] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X17 Y6 ('2') /* P2
/* /*
IF [#9200 GE 111 && #9200 LE 114] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X24 Y6 ('3') /* P3
/* /*
IF [#9200 GE 115 && #9200 LE 118] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X26 Y3 ('4') /* P4
/* /*
IF [#9200 EQ 119 || #9200 EQ 120] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X31 Y3 ('E') /* END
/* /*
IF [#9200 EQ 13] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X5 Y9 ('PT') /* PITCH
/* /*
#8509=0 /* MD0056
GOTO999;
/*
/* TRAPEZOIDAL 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 TR (FACE) ') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure
G242 X[-184+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-88+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-88+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-136+W_CXPOS] Y[168+W_CYPOS] ;