home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts1.zip / ADVTUT / TER.SC < prev    next >
Text File  |  1993-04-01  |  183b  |  23 lines

  1.  
  2. main(in)
  3. {
  4.     var a;
  5.  
  6.     a = "help";
  7.     print f(in);
  8.     print "\n";
  9.     print f();
  10.     print "\n";
  11.     print a;
  12.     print "\n";
  13. }
  14.  
  15. f(arg)
  16. {
  17.     var i;
  18.  
  19.     i = arg;
  20.     print i;
  21.     return "1.3" + "3.0" * "2.2";
  22. }
  23.