
B–62093E–1/02
A. MACRO PROGRAM EXAMPLE
APPENDIX
175
00010 O9503 ; Key input control
00020 #8502 = 1 ; Numerical data input
00030 #102 = #8501 ; Key input variable read
00040 #103 = #8503 ; Numerical data read
00050 #140 = 1 ; Advance the cursor.
00060 IF [#102 EQ 3] GOTO 10 ; 3:For cursor#, advance the cursor pointer.
00070 IF [#102 NE 4] GOTO 20 ; 4:For cursor", reaturn the cursor pointer.
00080 #140 = 2 ; Cursor moves backward
00090 N10 M98 P9502 ; Cursor diaplsy sub
00100 N20 M99 ;
00110 ;
00120 ;
00130 ;
00140 ;
00150 ;
00010 O9504 ; One–line display of variable data (X axis direction)
00020 G243 F#140 Z#141 ; Display format setting
00030 #139 = 0 ; Counter
00040 WHILE [#139 LT #145] DO 1 ; #145 in No. of displays.
00050 IF [#[#144 + #139] EQ #146] GOTO 90 ;
00060 X[#142 + #147 * #139] Y#143 D#[#144 + #139] ;
00070 #139 = #139 + 1 ; #144 Head of variable No.
00080 END 1 ; #146
00090 N90 M99 ;
00100 ;
00110 ; #147 Deviation in X direction
00120 ;
00130 ;
00140 ;
00010 O9505 ; One–row display of variable data (Y direction)
00020 G243 F#140 Z#141 ; Display format setting
00030 #139 = 0 ;Counter
00040 WHILE [#139 LT #145] DO 1 ;
00050 IF [#[#144 +#139] EQ #146] GOTO 90 ;
00060 X#142 Y[#143 + #147 * #139] D#[#144 + #139] ;
00070 #139 = #139 +1 ;
00080 END 1 ;
00090 N90 M99 ;
00100 ;
00110 ; ’
END code ! If the display data is the same as
END code, the cursor RETURNS with no display.
Difference from O09504
is that #147 is the
deviation in Y direction