%begin   
   %String(255) s = cliparam
   %string(5) main = "main"
   %integerarray ptrs (1:20)
   %integer argc, p, l, i

   charno(main,5) = 0
   ptrs(1)=addr(main)+1
   l = length(s)
   p = 1
   argc = 1
   %cycle
      %exit %if p > l
      p = p + 1 %andcontinueif charno(s,p) = ' '
      argc = argc + 1
      ptrs (argc) = addr(charno(s,p))
      p = p + 1 %while p <= l %and charno(s,p) # ' '
      charno(s,p)=0; p=p+1 %unless p > l
   %repeat
   write(argc,0);newline
   %for i = 1,1,argc %cycle
      p = ptrs(i)
      %cycle
         l = byteinteger(p)
         %Exitif l = 0
         printsymbol(l)
         p = p + 1
      %repeat
      newline
   %repeat
%End