( Copyright PPC Paris 1986 )
( MODULE DE CONTROLE DE L'EXECUTION )
VARIABLE MODE-EXEC       ( 1:T, 2:U, 3:G )
VARIABLE PAS        ( NOMBRE D'EXECUTIONS POUR LES MODE-EXECS T ET U )
0 MODE-EXEC ! 0 PAS !
: G-STOP? 
  FICHIER FINDF
  PAS @ +
  PC @ 
  =                 ( VRAI SI STOP, FX SI CONT.)
;
: T-U-STOP?
  PAS @ 1- DUP PAS !
  DUP 0= SWAP 0< OR ( VRAI SI STOP, FX SI CONT.)
;
: STOP?
  MODE-EXEC @
  CASE
   1 OF T-U-STOP? ENDOF
   2 OF T-U-STOP? ENDOF
   3 OF G-STOP?   ENDOF
   -1 ( VRAI !)
  ENDCASE ;
: CONTROLE-EXECUTION
  STOP?
  IF ABORT" - Debugger -"
      ELSE 
        MODE-EXEC @ 1 = IF .REG CR THEN
        RETOUR 
      THEN
;
' CONTROLE-EXECUTION
' DCST 5+ 2+ @
!