home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / fncallfn.bas < prev    next >
BASIC Source File  |  1993-11-09  |  344b  |  10 lines
  1. 10 rem FNCALLFN.BAS -- Test User-defined function called
  2. 20 rem                 from user-defined function
  3. 30 def fnabs(x) = abs(x)
  4. 40 def fncmp(y) = 1.45678+fnabs(y)
  5. 50 print "Test user-defined function calling user-defined function"
  6. 60 print "The result should be: ";2.45678
  7. 70 q = -1.000
  8. 80 print "The result is:      : "; fncmp( q )
  9. 90 end
  10.