home *** CD-ROM | disk | FTP | other *** search
/ Windows CE - The Ultimate Companion / ROMMAN_CE.iso / Files / Programming / Basice / LIB / CUBE.UTL < prev    next >
Text File  |  1997-03-14  |  74b  |  5 lines
  1.  PROCEDURE CUBE( A#) 
  2.     B#= A#* A#* A#
  3.     return (B#)
  4.     ENDPROC 
  5.