home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d183
/
pcq.lha
/
PCQ
/
Examples
/
ChopTest.p
< prev
next >
Wrap
Text File
|
1989-02-26
|
492b
|
27 lines
Program Chop_Test;
{ This tests ChopCL, which is located in ChopCL.p
Read that file for more details }
type
argvtype = array [1..10] of string;
procedure ChopCL(var a : argvtype; var m : Integer);
forward;
var
argv : argvtype;
argc : Integer;
index : Integer;
begin
argc := 10;
ChopCL(argv, argc);
if argc = 0 then
writeln('There were no arguments.')
else
for index := 1 to argc do
writeln('Argument ', index, ' is : ', argv[index]);
end.