Passage de paramètres à un programme Panoramic

rem ============================================================================
rem  Exemple d utilisation de PARAM_NUMBER et de PARAM_VALUE$
rem   ou comment passer des paramètres à un exe Panoramic
rem ============================================================================
' Si vous exécutez ce code depuis PANORAMIC_EDITOR, il affichera le résultat
' de print param_value$(0)
' Chez moi, ça donne  "C:\Users\acer\AppData\Local\TEMP\PANORAMIC.exe"
' ET C'EST TOUT
' En effet, on n'a transmis aucun paramètre !
rem ============================================================================
' Voyons comment les choses vont devenir intéressantes.
' Faites un exécutable de ce code, par exemple TestParam.exe et placez-le, disons sur le bureau.
' Maintenant, nous allons lancer notre programme TestParam.exe en lui transmettant 4 paramètres.
' Il est à noter que les différents paramètres doivent être séparés par le caractère espace.
' L'appel se fait comme ceci : TestParam.exe param1 param2 param3 param4
' REMARQUE : comme le séparateur des paramètres est un espace, pour transmettre
' un paramètre contenant lui-même un espace, on doit l'entourer par des guillemets.
' Panoramic n'autorise pas l'appel d'un exe avec passage de paramètres, on utilise
' alors  l'invite de commande soit depuis la console, soit depuis Panoramic_Editor.
' Le code suivant lance le programme avec les 4  paramètres suivant :
' hello salut bye "au revoir !"
' Remarquez que le dernier paramètre est entre guillemets puisqu'il comporte des espaces.
' Code :
' execute_wait "cmd /c c:\users\acer\desktop\test.exe hello salut bye " + chr$(34) + " au revoir !" + chr$(34)

rem ============================================================================
dim i, a$
print param_value$(0)
if param_number > 0
   for i = 1 to param_number
       a$ = param_value$(i)
       print "Paramètre " + str$(i) + " = " + a$
   next i
end_if
rem ============================================================================

execute_wait "cmd /c c:\users\acer\desktop\TestParam.exe hello salut bye " + chr$(34) + " au revoir !" + chr$(34)