6.GUIDANCE WINDOW FOR DATA ITEM SAMPLE PROGRAM B-63343EN/02
- 222 -
ENDIF /*
/* /*
N64 IF [[P3102 AND 4] EQ 4] THEN /*
#8509=7354 /* FRENCH
GOTO 80 /*
ENDIF /*
/* /*
N66 IF [[P3102 AND 16] EQ 16] THEN /*
#8509=7355 /* ITALIA
GOTO 80 /*
ENDIF /*
/*
N68 IF [[P3102 AND 64] EQ 64] THEN /*
#8509=7356 /* SPANISH
GOTO 80 /*
ENDIF /*
/* /*
N70 #8509=7351 /* ENGLISH
N80 IF [#22124 EQ 1]GOTO 1500 /* IF OUTER MD0056
IF [#22124 EQ 2]GOTO 2500 /* IF INNER
IF [#22124 EQ 3]GOTO 3500 /* IF FACE
GOTO999;
N100 #20498=#22124;
G240 P0 C11 ; /* set color
G202X1Y1I38J12P3; clear graphic in window.
IF [#22124 EQ 1]GOTO1000 /* IF OUTER
IF [#22124 EQ 2]GOTO2000 /* IF INNER
IF [#22124 EQ 3]GOTO3000 /* IF FACE
GOTO999
/*
/* GROOVE OUTER
/*
N1000 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 (OUTER) ') ;
G244 P0 ; /* set solid line
G240 P10 ; /* set color
/* work figure
G242 X[-224+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-144+W_CXPOS] Y[136+W_CYPOS] ;
G01 X[-168+W_CXPOS] Y[136+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[144+W_CYPOS] ;
G01 X[-176+W_CXPOS] Y[176+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[176+W_CYPOS] ;
G01 X[-208+W_CXPOS] Y[128+W_CYPOS] ;
G01 X[-216+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-224+W_CXPOS] Y[224+W_CYPOS] ;
G206 P0 X[-220+W_CXPOS] Y[220+W_CYPOS] ;
G242 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-232+W_CXPOS] Y[224+W_CYPOS] ;
G01 X[-232+W_CXPOS] Y[136+W_CYPOS] ;
G01 X[-240+W_CXPOS] Y[136+W_CYPOS] ;
G01 X[-248+W_CXPOS] Y[144+W_CYPOS] ;
G01 X[-248+W_CXPOS] Y[176+W_CYPOS] ;
G01 X[-280+W_CXPOS] Y[176+W_CYPOS] ;
G01 X[-280+W_CXPOS] Y[128+W_CYPOS] ;
G01 X[-288+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[120+W_CYPOS] ;
G01 X[-296+W_CXPOS] Y[224+W_CYPOS] ;
G206 P0 X[-290+W_CXPOS] Y[220+W_CYPOS] ;
G240 P4 ; /* set color