home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / dev / modula-v1.0d.lha / Modula / examples / src / args.mod next >
Encoding:
Text File  |  1994-07-30  |  148 b   |  13 lines
  1. MODULE args ;
  2.  
  3. IMPORT M2Lib, StdIO ;
  4.  
  5. VAR
  6.   x : LONGINT ;
  7.  
  8. BEGIN
  9.   FOR x := 0 TO M2Lib.argc-1 DO
  10.     StdIO.puts( M2Lib.argv^[x] )
  11.   END ;
  12. END args.
  13.