[Coco] Basic09 Parameters.

[coco at jechar.ca]

CODE as you requested Wayne.
=====================
PROCEDURE test
(* test *)
DIM ifilh:STRING
DIM oifilh:STRING
DIM inline:STRING[106]
(* Prameters *)
PARAM a,b:STRING

IF a="-?" THEN
   PRINT "Syntax:"
   PRINT "test InFileName"
   PRINT "or"
   PRINT "test InFileName OutFileName"
   PRINT
   END
ELSE
   OPEN #ifilh,a:READ
ENDIF

IF b="" THEN
    PRINT "outfile"
    CREATE #ofilh,"outfile":READ
ELSE
    PRINT b
    CREATE #ofilh,b:READ
ENDIF


CLOSE #ofilh
CLOSE #ifilh

END
=====================

On 2018-10-18 19:51, Wayne Campbell wrote:
> I really need to see your code to see what is going on. Provide the RUN
> statement if the params are being passed from another procedure, along 
> with
> the DIM statements for those parameters and the assignment statements
> assigning value to them, and the PARAM statements in the receiving
> procedure, and the statements trying to test or use them.
> 
> I'll see what I can tell you.
> 
> Wayne
>