
6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 196 -
/* /*
GOTO999;
N100 #20498=#22124;
#20499=#22143;
G240 P0 C11 ; /* set color
G202X1Y1I38J12P3; clear graphic in window.
IF[#22124 EQ 1 ]GOTO1000; if outer processing
IF[#22124 EQ 2 ]GOTO2000; if inner processing
GOTO999;
/* OUTER
N1000 IF[#22143 EQ 91]GOTO1100; if general thread
IF[#22143 EQ 92]GOTO1200; if metric thread
IF[#22143 EQ 93]GOTO1300; if universe thread
IF[#22143 EQ 94]GOTO1500; if PF thread
IF[#22143 EQ 95]GOTO1400; if PT thread
IF[#22143 EQ #0]GOTO1100; if not selected
GOTO999;
/*
/* GENERAL OUTER
/*
N1100 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 ('GENERAL (OUTER)') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure
G242 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-112+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-128+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-160+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-192+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G206 P0 X[-290+W_CXPOS] Y[200+W_CYPOS] ;
G240 P4 ; /* set color
G242 X[-96+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-96+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-112+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-128+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-160+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-192+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[152+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[168+W_CYPOS] ;
G01 X[-256+W_CXPOS] Y[56+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[56+W_CYPOS] ;
G240 P15 ; /* set color
/* z coord axis
G242 X[-304+W_CXPOS] Y[216+W_CYPOS] ;
G01 X[-24+W_CXPOS] Y[216+W_CYPOS] ;
G01 X[-28+W_CXPOS] Y[220+W_CYPOS] ;