Far eseguire SPV e SUB prima dello SPE

L'ordine di esecuzione fisso è: Specifico, Verticale, Standard A volte si rende necessario far eseguire SPE, SPV e SUB con ordine diverso.

GPE=1 disattiva l'azione standard

GPV=1 disattiva l'azione verticale

Gosub NOME_AZIONE FROM SPVXXX per far eseguire una specifica azione del verticale (sostituire opportunamente XXX, per es. con ITM)

Gosub NOME_AZIONE FROM SUBXXX per far eseguire una specifica azione dello standar (sostituire opportunamente XXX, per es. con ITM)

Per far eseguire prima SPV e SUB:

Gosub ACTION FROM SPVITM
GPV = 1               # BLOCCO ESECUZIONE "NORMALE" SPV
IF OK = 0             # SE QUALCOSA ANDATO STORTO ESCO SENZA ESEGUIRE IL MIO CODICE
    Return
Endif
IF !GPE                 # VERIFICO CHE L’SPV NON ABBIA LANCIATO GIA’ IL SUB
    Gosub ACTION FROM SUBITM
    GPE = 1                # BLOCCO ESECUZIONE "NORMALE" SUB
    If OK = 0              # SE QUALCOSA ANDATO STORTO ESCO SENZA ESEGUIRE IL MIO CODICE
        Return
    Endif
Endif

Per richiamare il programma verticale:

If PSPV & !GPV
  Raz GMESSAGE, GZNUM
  Gosub ACTION From =PROGSPV
  GPV=1
Endif

Per richiamare programma standard

If PSUB & !GPE
  Raz GMESSAGE, GZNUM
  Gosub ACTION From =PROGSUB
  GPE=1
Endif