       10 // EXTERNAL test program
       20 //
       30 olifant:=0; tijger:=0
       40 //
       50 FOR f:=1 TO 10 DO olifant
       60 //
       70 SYS assert, olifant=tijger AND olifant=10
       80 //
       90 PRINT "Ok"
      100 //
      110 PROC olifant EXTERNAL "aap3.sq"
      120 //
      130 PROC tijger
      140   tijger:+1
      150 ENDPROC tijger
