10 lines
187 B
Text
10 lines
187 B
Text
DATA:
|
|
argument_count IS NUMBER
|
|
|
|
PROCEDURE:
|
|
GET LENGTH OF argv IN argument_count
|
|
IF argument_count IS EQUAL TO 0 THEN
|
|
DISPLAY "No arguments!" CRLF
|
|
ELSE
|
|
DISPLAY argv:0 CRLF
|
|
END IF
|