       10 // PROC test program
       20 //
       30 aap'olifant:=0
       40 tijger'olifant:=0
       50 aap
       60 SYS assert, aap'olifant=tijger'olifant AND aap'olifant=1
       70 PRINT "Ok"
       80 //
       90 PROC aap
      100   olifant
      110   tijger
      120   //
      130   PROC olifant
      140     aap'olifant:+1
      150   ENDPROC olifant
      160   //
      170 ENDPROC aap
      180 //
      190 PROC tijger
      200   olifant
      210   //      
      220   PROC olifant
      230     tijger'olifant:+1
      240   ENDPROC olifant
      250   //
      260 ENDPROC tijger
      270 //
      280 PROC olifant
      290   SYS assert, FALSE  // This one should never be called.
      300 ENDPROC olifant
