/* My 3 millionth attempt at a REXX Program */
/* Load RexxUtil.DLL */
CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
CALL SysLoadFuncs


PARSE ARG infile path ansi /* Get the varaibles etc */
error=20
IF LINES(infile) THEN DO /* If infile has lines in it, then continue, if not exit*/
error=0
i=0
DO WHILE LINES(infile) /* Do the following untill there are no lines left in the infile */
i=i+1
data.i = LINEIN(infile) /* Assign each line in infile a varaiable */
END
display = RANDOM(1,127) /* Generate a random number betwwen 1 and 127)*/
CALL CHAROUT ansi,'[40m' /* Out put an ansi character to the file we want to creat */
CALL CHAROUT ansi,'[37m' /* Same as above */
CALL LINEOUT ansi,'Strange Things are Brewing:' /* Out put this line to the same file*/
CALL LINEOUT ansi,''	
CALL LINEOUT ansi,data.display 
CALL LINEOUT ansi,''	
CALL LINEOUT ansi,'Say They Say...- Compiled by Jack Tan - Copyright 1996 Paul Monaghan - paulm@ulix.net'
CALL LINEOUT ansi /* Close the file that we are writing to */
COPY ansi path /* Copy the file that we created to */ 
END
ELSE SAY 'Please enter the data file, path for output, and name of output file on the     command line - Please try again.'
EXIT ERROR
