home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep1 / External Functions / Samples / test.icn < prev    next >
Encoding:
Text File  |  1990-11-24  |  337 b   |  9 lines  |  [TEXT/PICN]
  1. procedure main()
  2.   write(callout("TEST","Cset Test",66,72) | "Fail")
  3.   write(type(callout("TEST","External Test",64)) | "Fail")
  4.   write(callout("TEST","Integer Test",4,5) | "Fail")
  5.   write(callout("TEST","LargeInt Test") | "Fail")
  6.   write(callout("TEST","Real Test",4.4,5.5) | "Fail")
  7.   write(callout("TEST","String Test") | "Fail")
  8. end
  9.