       10 // EXTERNAL test program
       20 //
       30 a$:="aap2a.sq"
       40 aap2:=0
       50 aap2(1)
       60 a$:="ha ha ha"
       70 aap2(2)
       80 a$:="aap2b.sq"
       90 aap2(3)
      100 SYS assert, aap2=6
      110 //
      120 PRINT "Ok"
      130 //
      140 PROC aap2 STATIC EXTERNAL a$
