
6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 194 -
G240 P14 ; /* set color
G242 X[-144+W_CXPOS] Y[168+W_CYPOS] ; /* work face
G01 X[-16+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-144+W_CXPOS] Y[176+W_CYPOS] ;
G01 X[-136+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-136+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-120+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-120+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-104+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-104+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-88+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-88+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-72+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-72+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-56+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-56+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-40+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-40+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-24+W_CXPOS] Y[168+W_CYPOS] ;
G242 X[-24+W_CXPOS] Y[184+W_CYPOS] ;
G01 X[-16+W_CXPOS] Y[176+W_CYPOS] ;
G240 P15 ; /* set color
G242 X[-96+W_CXPOS] Y[168+W_CYPOS] ; /* tool angle scale
G03 X[-66+W_CXPOS] Y[160+W_CYPOS] I[-80+W_CXPOS] J[168+W_CYPOS] Q1 ;
G242 X[-96+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-100+W_CXPOS] Y[164+W_CYPOS] ;
G242 X[-96+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-92+W_CXPOS] Y[164+W_CYPOS] ;
G242 X[-73+W_CXPOS] Y[157+W_CYPOS] ;
G01 X[-81+W_CXPOS] Y[148+W_CYPOS] ;
G242 X[-82+W_CXPOS] Y[155+W_CYPOS] ;
G01 X[-71+W_CXPOS] Y[150+W_CYPOS] ;
G242 X[-64+W_CXPOS] Y[163+W_CYPOS] ;
G01 X[-69+W_CXPOS] Y[161+W_CYPOS] ;
G242 X[-64+W_CXPOS] Y[163+W_CYPOS] ;
G01 X[-63+W_CXPOS] Y[158+W_CYPOS] ;
G240 P1 ; /* set color
G242 X[-32+W_CXPOS] Y[72+W_CYPOS] ; /* tool
G01 X[-32+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-80+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-72+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-64+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-64+W_CXPOS] Y[72+W_CYPOS] ;
G242 X[-56+W_CXPOS] Y[160+W_CYPOS] ; /* tool
G01 X[-56+W_CXPOS] Y[136+W_CYPOS] ;
G01 X[-74+W_CXPOS] Y[136+W_CYPOS] ;
GOTO 999 /* MD0056
/*
/* BAR FINISH DISPLAY CURSOR
N1500 IF [#9200 EQ 5 || #9200 EQ 6] THEN /* CUT START POINT
G240 P[CSRFRT] C[CSRBAK] L0 /* SET COLOR
G243 X1 Y12 P1001 /*
ELSE /*
G240 P0 C11 L0 /* SET COLOR
G243 X1 Y12 P1002 /*
ENDIF /*
/* /*
IF [#9200 EQ 16] THEN /* CUTTING ANGLE
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X28 Y6 ('C') /*
/* /*
IF [#9200 EQ 17] THEN /* NOSE ANGLE
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*