Voici un exemple de menu de demarrage, montrant une version tres simple de cette technique :
E> Do Screen Open 0,640,200,4,Hires Repeat Input "Veuillez entrer le nom d un programme a lancer : ";P$ Exit If P$="",2 Trap Prun P$ If Errtrap : Print "Programme introuvable !" : End If Until Errtrap=0 Wait 50 Loop
Si vous n etes pas sur de l affichage avant d appeler un autre programme via PRUN, fermez simplement tous les ecrans ouverts. Cela libere egalement le maximum de memoire. De meme, si vous n etes pas sur de l affichage apres un appel PRUN, vous devez aussi fermer tous les ecrans, puis rappeler l initialisation ecran de votre programme principal.
PRG UNDER
fonction : indique si un programme est "sous" le programme actuel
statut=Prg Under
Cette fonction permet de connaitre l accessibilite d un programme AMOS Professional qui est place "sous" le programme en cours. Trois valeurs possibles peuvent etre retournees :
Zero indique que le programme actuel fonctionne normalement sous le controle de l Editeur. Les commandes Editeur a distance et BGRAB ne peuvent pas etre utilisees.
Une valeur de 1 signifie que le programme actuel est le seul programme actif, mais qu il n est pas celui sous le controle de l Editeur. Cela se produit lorsqu un programme accessoire est lance ou lorsqu on utilise l option "programme vers menu". Dans ce cas, les commandes Editeur a distance et BGRAB sont autorisees.
Une valeur de -1 signifie que le programme a ete lance par un autre programme via PRUN. Dans ce cas, les banques memoire peuvent etre recuperees, mais les commandes Editeur a distance ne peuvent pas etre utilisees.