18 lines
530 B
Plaintext
18 lines
530 B
Plaintext
/* Use readargs() to get parameters instead of using the string 'arg'.
|
|
This is more convenient if more than one arg is needed. Uses kick 2.0 */
|
|
|
|
OPT OSVERSION=37
|
|
|
|
PROC main()
|
|
DEF myargs:PTR TO LONG,rdargs
|
|
myargs:=[0,0,0]
|
|
IF rdargs:=ReadArgs('UNIT/N,DISK/A,NEW/S',myargs,NIL)
|
|
WriteF('UNIT=\d\n',Long(myargs[0])) /* integer */
|
|
WriteF('DISK=\s\n',myargs[1]) /* string */
|
|
WriteF('NEW=\d\n',myargs[2]) /* boolean */
|
|
FreeArgs(rdargs)
|
|
ELSE
|
|
WriteF('Bad Args!\n')
|
|
ENDIF
|
|
ENDPROC
|