/* Open a requester in AmiPCB to select a track width from a list */
/* $VER: SelTrackWid.AmiPCB 1.00 (© A. Greve, 01-Jan-2002)        */
/* $VER: SelTrackWid.AmiPCB 1.01 (© A. Greve, 16-Jan-2002)        */
/*       Adaption to AmiPCB 1.05 (measuring exactness 1/1000 mm)  */

OPTIONS RESULTS     /* Turn on the returning of values */

SIGNAL ON error     /* For error handling */
SIGNAL ON syntax

lf = '0a'x

fr = 'ARexx/InitVars.AmiPCB'()

SELECT
    WHEN fr=1 THEN msg = "Largeur piste ?"
    WHEN fr=2 THEN msg = "Welche Leiterbahnbreite ?"
    OTHERWISE	   msg = "Which track width ?"
END

msg1 =  "0,25 mm  -  0,0098 in."; g.1 =   250
msg2 =  "0,30 mm  -  0,0118 in."; g.2 =   300
msg3 =  "0,40 mm  -  0,0157 in."; g.3 =   400
msg4 =  "0,50 mm  -  0,0197 in."; g.4 =   500
msg5 =  "0,60 mm  -  0,0236 in."; g.5 =   600
msg6 =  "0,80 mm  -  0,0315 in."; g.6 =   800
msg7 =  "1,00 mm  -  0,0394 in."; g.7 =  1000
msg8 =  "1,50 mm  -  0,0591 in."; g.8 =  1500
msg9 =  "2,00 mm  -  0,0787 in."; g.9 =  2000
msg10 = "2,50 mm  -  0,0984 in."; g.10 = 2500
msg11 = "3,00 mm  -  0,1181 in."; g.11 = 3000
msg12 = "5,00 mm  -  0,1969 in."; g.12 = 5000

'REQLIST("'msg'","'msg1'","'msg2'","'msg3'","'msg4'","'msg5'","'msg6'","'msg7'","'msg8'","'msg9'","'msg10'","'msg11'","'msg12'")'
c = RESULT
IF c < 1 THEN EXIT    /* Cancelled */

'SETWIDTH(0,'g.c')'

EXIT

/* Error handling  */
syntax:
erreur=RC
CALL 'ARexx/_Syntax.rexx'(fr,'SelTrackWid.AmiPCB',SIGL,erreur)
EXIT

error:
CALL 'ARexx/_Error.rexx'(fr,'SelTrackWid.AmiPCB',SIGL)
EXIT