GSE 672 - Page 63

Option Installation
Chapter 2
2-36
Parts Counting Parameter Setup
179%s1%e P179.01 Count on
180%s0%e P180.00 ASmpl off
181%s0%e P181.00 AEnhn off
182%s10%e P182.10 SmpSz 10
183%s98.0000%e P183.XX %%Accy 98.00
184%s0%e P184.00 AcDsp off
186%s0%e P186.00 PreSm None!
187%s0%e P187.00 AftSm None!
Name ID #1
681%s1%e P681.-- Specify VAR#1
682%sPART#%e P682.-- NAME, PART#
686%s0%e P686.-- Float Type.
Setup Database Structure
806%s2%e P806.02 iduse: dbase
699%s1%e%e Enable database #1
700%s%PARTS%e dbase #1 name
701%s80.1%e Column 1, PART#
702%s34.1%e APW scl#1
Macro "1" Setup
9990%s1%e P9990.XX Macro #1
9991%sEnterID#%e P9991. Name Macro#1
9993%s1%e P9993 Add/macro menu
P19999.1%s%c%e P19999.1 macro table
%%\%e 0001 if no entry
%%N%e 0002 if not
%%[%e 0003 save entry
80.1%%i%e 0004 VAR#1 (str. type)
%%]%e 0006 get entry
%%e%e 0007 enter
%%E%e 0008 end if
1,1%y%e recall row
4%%_%e 0018 if dbase error
%%N%e 0020 if not
DATA FOUND%%P%e 0021 pause
30%%s%e 0032 select
%%B%e 0035 break
%%E%e 0036 end if
NOT FOUND%%S%e 0037 sound beeper
%%P%e 0048 pause
%%p%e 0049 sample
1%%T%e 0050 tag position
Add Smple%%G%e 0052 get operator entry
%%p%e 0063 sample
1C%%^%e 0064 call macro1
1%%g%e 0065 if sample error
1%%J%e 0067 jump to tag
%%E%e 0069 end if
2%%T%e 0070 tag position
2C%^%e 0072 call macro2
%%a%e 0073 if accurate
3,1%y make row in db#1
-OK!-%%P%e 0083 pause
%%B%e 0089 break
%%E%e 0090 end if
%%Y%e 0091 if yes
%%N%e 0092 if not
ABORTSMPLE%%S%e 0093 sound beeper
%%P%e 0104 pause
%%B%e 0105 break
%%E%e 0106 end if
%%e%e 0107 enter
2%%J%e 0108 jump to tag
Macro "2" Setup ("call" subroutine)