/*********************************************************************
   * Ce fichier vous donne un exemple de structure possible
     pour un fichier de macros appelé par AmiPCB, par le menu
     Macros.

   * This is a skeleton for ARexx scripts written by Yourself.
     It gives you an example for the recommended structure
     for a script file called by AmiPCB.

   * Dies ist ein Grundgerüst für Ihre selbstgeschriebenen ARexx
     Skripte. Es gibt Ihnen ein Beispiel dafür, wie die Struktur
     eines von AmiPCB aufgerufenen Skripts aussehen muss.
*********************************************************************/

options results     /* indispensable pour récupérer le résultat des macros */
                    /* Turn on the returning of values */
                    /* Einschalten von Rückgabewerten */

signal on error     /* pour l'interception des erreurs */
signal on syntax    /* for error handling */
                    /* zur Fehlerbehandlung */

/*********************************************************************
   Les lignes suivantes peuvent servir à localiser le script
   The following lines are for localization of your scripts
   Die folgenden Zeilen dienen der Lokalisation Ihrer Skripte
   fr=0 -> English
   fr=1 -> Français (French)
   fr=2 -> Deutsch (German)

   Exemple / Example / Beispiel
        select
            when fr=1 then 'MESSAGE("Positionnement composant impossible")'
            when fr=2 then 'MESSAGE("Platzierung der Komponente unmöglich")'
            otherwise	   'MESSAGE("Placement of the component impossible")'
        end
*********************************************************************/

fr = 'ARexx/InitVars.AmiPCB'()

/*********************************************************************
   Votre programme devra être placé ici
   Insert Your program code here
   Fügen Sie hier Ihren Programmcode ein
*********************************************************************/

exit

/*********************************************************************
   Traitement des erreurs, interruption du programme
   Error handling, program interruption
   Fehlerbehandlung, Programm-Unterbrechung
*********************************************************************/
syntax:
erreur=RC
Call 'ARexx/_Syntax.rexx'(fr,'The_Name_Of_Your_Script.AmiPCB',SIGL,erreur)
exit

error:
Call 'ARexx/_Error.rexx'(fr,'The_Name_Of_Your_Script.AmiPCB',SIGL)
exit