home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / args20.e < prev    next >
Text File  |  1977-12-31  |  432b  |  21 lines
  1. OPT OSVERSION=37
  2.  
  3. PROC main()
  4.   DEF templ, rdargs, args=NIL:PTR TO LONG, i
  5.   IF wbmessage=NIL
  6.     WriteF('Started from Shell/CLI\n')
  7.     templ:='FILE/M'
  8.     rdargs:=ReadArgs(templ,{args},NIL)
  9.     IF rdargs
  10.       IF args
  11.         i:=0
  12.         WHILE args[i]  /* Loop through arguments */
  13.           WriteF('   Argument \d: "\s"\n', i, args[i])
  14.           i++
  15.         ENDWHILE
  16.       ENDIF
  17.       FreeArgs(rdargs)
  18.     ENDIF
  19.   ENDIF
  20. ENDPROC
  21.