
6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 208 -
G242 X[-240-3+W_CXPOS] Y[104+W_CYPOS] ;
G02 X[-240-3+W_CXPOS] Y[104+W_CYPOS] I[-240+W_CXPOS] J[104+W_CYPOS] Q4 ;
G240 P15 ; /* set color
G242 X[-96+W_CXPOS] Y[128+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[112+W_CYPOS] ;
G242 X[-240+W_CXPOS] Y[96+W_CYPOS] ;
G01 X[-240+W_CXPOS] Y[80+W_CYPOS] ;
G242 X[-72+W_CXPOS] Y[140+W_CYPOS] ;
G01 X[-88+W_CXPOS] Y[140+W_CYPOS] ;
GOTO 999 /* MD0056
/*
/* PT OUTER DISPLAY CURSOR
/*
N1580 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 12] THEN /* LEAD, NUM
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X23 Y9 ('L') /*
G243 X19 Y11 ('N') /*
/* /*
IF [#9200 EQ 14] THEN /* HEIGHT
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X32 Y6 ('H') /*
/* /*
IF [#9200 EQ 104] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X11 Y10 ('E') /*
/* /*
IF [#9200 EQ 102] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X29 Y8 ('S') /*
/* /*
IF [#9200 EQ 101] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X31 Y3 ('X') /*
/* /*
#8509=0 /* MD0056
GOTO999;
/* INNER
N2000 IF[#22143 EQ 91]GOTO2100; if general thread
IF[#22143 EQ 92]GOTO2200; if metric thread
IF[#22143 EQ 93]GOTO2300; if universe thread
IF[#22143 EQ 94]GOTO2500; if PF thread
IF[#22143 EQ 95]GOTO2400; if PT thread
IF[#22143 EQ #0]GOTO2100; if not selected
GOTO999;