
B-63343EN/02 SAMPLE PROGRAM 6.GUIDANCE WINDOW FOR DATA ITEM
- 203 -
G242 X[-240+W_CXPOS] Y[112+W_CYPOS] ;
G01 X[-240+W_CXPOS] Y[96+W_CYPOS] ;
G242 X[-72+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-88+W_CXPOS] Y[120+W_CYPOS] ;
GOTO 999 /* MD0056
/*
/* UNIFY OUTER DISPLAY CURSOR
/*
N1380 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 Y8 ('E') /* END
/* /*
IF [#9200 EQ 102] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X29 Y8 ('S') /* START
/* /*
IF [#9200 EQ 105] THEN /*
G240 P[CSRFRT] C[CSRBAK] L1 /* SET COLOR
ELSE /*
G240 P0 C11 /* SET COLOR
ENDIF /*
G243 X31 Y4 ('D') /* DIAMETER
/* /*
#8509=0 /* MD0056
GOTO999;
/*
/* PT OUTER
/*
N1400 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 ('PIPE-F (OUTER) ') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure