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 / abs.bas next >
BASIC Source File  |  1993-11-09  |  154b  |  6 lines
  1. 10 rem ABS.BAS -- Test ABS() function
  2. 20 X = -1.23456789
  3. 30 ABSX = ABS( X )
  4. 40 print "The absolute value of "; X; " is"; ABSX
  5. 50 print "Is that correct?"
  6.