/* Open a requester in AmiPCB to select a pad type from a list   */
/* $VER: SelPadType.AmiPCB 1.00 (© A. Greve, 01-Jan-2002)        */
/* $VER: SelPadType.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 DO
        msg = "Type de pastille ?"
        msga = "Ellipse"
        msgb = "Rectangle"
        msgc = "Hexagone 1"
        msgd = "Hexagone 2"
        msge = "Octogone"
    END
    WHEN fr=2 THEN DO
        msg = "Welcher Pad-Typ ?"
        msga = "Ellipse"
        msgb = "Rechteck"
        msgc = "Sechseck 1"
        msgd = "Sechseck 2"
        msge = "Achteck"
    END
    OTHERWISE DO
        msg = "Which pad type ?"
        msga = "Ellipse"
        msgb = "Rectangle"
        msgc = "Hexagone 1"
        msgd = "Hexagone 2"
        msge = "Octogone"
    END
END

msg1  = "1,0 x 1,0 mm - 0,5 mm ø - "msga;  w.1  = 1000; h.1  = 1000; d.1  =  500; t.1  = 1
msg2  = "1,6 x 1,6 mm - 0,6 mm ø - "msga;  w.2  = 1600; h.2  = 1600; d.2  =  600; t.2  = 1
msg3  = "2,0 x 2,0 mm - 0,6 mm ø - "msga;  w.3  = 2000; h.3  = 2000; d.3  =  600; t.3  = 1
msg4  = "2,5 x 2,5 mm - 0,8 mm ø - "msga;  w.4  = 2500; h.4  = 2500; d.4  =  800; t.4  = 1
msg5  = "4,0 x 4,0 mm - 1,0 mm ø - "msge;  w.5  = 4000; h.5  = 4000; d.5  = 1000; t.5  = 5
msg6  = "1,2 x 0,4 mm - 0,0 mm ø - "msgb;  w.6  = 1200; h.6  =  400; d.6  =    0; t.6  = 2
msg7  = "0,4 x 1,2 mm - 0,0 mm ø - "msgb;  w.7  =  400; h.7  = 1200; d.7  =    0; t.7  = 2
msg8  = "2,5 x 2,5 mm - 0,6 mm ø - "msgb;  w.8  = 2500; h.8  = 2500; d.8  =  600; t.8  = 2
msg9  = "2,4 x 1,4 mm - 0,6 mm ø - "msge;  w.9  = 2400; h.9  = 1400; d.9  =  600; t.9  = 5
msg10 = "1,4 x 2,4 mm - 0,6 mm ø - "msge;  w.10 = 1400; h.10 = 2400; d.10 =  600; t.10 = 5
msg11 = "2,4 x 1,4 mm - 0,6 mm ø - "msgc;  w.11 = 2400; h.11 = 1400; d.11 =  600; t.11 = 3
msg12 = "1,4 x 2,4 mm - 0,6 mm ø - "msgd;  w.12 = 1400; h.12 = 2400; d.12 =  600; t.12 = 4

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

'SETPAD(0,'t.c','w.c','h.c','d.c'):MENU("Place pad")' /* The space in the menu call is a no-break 'a0'x !!! */

EXIT

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

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