home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / CUBE.UTL < prev    next >
Encoding:
Text File  |  1997-07-08  |  74 b   |  5 lines
  1.  PROCEDURE CUBE( A#) 
  2.     B#= A#* A#* A#
  3.     return (B#)
  4.     ENDPROC 
  5.