       10 // FUNC test program
       20 //
       30 SYS assert, aap(2)=4
       40 SYS assert, aap#(3)=9
       50 SYS assert, aap$(4)="16"
       60 //
       70 PRINT "Ok"
       80 //
       90 FUNC aap(num#)
      100   RETURN num#*2
      110 ENDFUNC aap
      120 //
      130 FUNC aap#(num#)
      140   RETURN num#*3
      150 ENDFUNC aap#
      160 //
      170 FUNC aap$(num#)
      180   RETURN STR$(num#*4)
      190 ENDFUNC aap$
