/**********************************************************************/
/*                  This is a demonstration of ArCo,                  */
/*                 In fact Its more of a guided tour                  */
/*                            08 Jun 1994                             */
/*                         © Michael A Sewell                         */
/**********************************************************************/

Options RESULTS

LF = '0A'X	/* line feed */

IF ~SHOW('L','rexxsupport.library') then
   CALL ADDLIB('rexxsupport.library',0,-30)

IF ~SHOW('P', 'ARCO') THEN DO
	Address COMMAND
        'run >NIL: <NIL: ARCO:ARCO'	/* run ARCO */
        'WaitForPort' 'ARCO'		/* WaitForPort needs to be in the path */
        IF RC ~= 0 THEN DO		/* couldn't find ARCO */
		SAY 'Cant start ArCo, No Show = No Go!'
		exit
	end
end

Address 'ARCO'
VERBOSE		/* Make sure they can get the messages */
TELL "Welcome to the ArCo Demo"LF"Actually it's more of a tour"
CALL timedelay( 3 )
TELL "Lets see what we have here?"
CALL timedelay( 2 )
TELL "Lets just reset everything"LF"Except for the verbose option"
CALL timedelay( 2 )
VERSION "FALSE"		/* Switch off these three */
RUN "FALSE"
WRITEICON "FALSE"
RESETLIBLIST		/* Remove all link libraries from the list */
CANCELTRACE		/* Clear all trace options */
CANCELINTERRUPTS	/* Clear all interrupt options */
CANCELARGS		/* Clear all Arg options */
TELL "Thats cleared everything!"
CALL TIMEDELAY( 2 )
TELL "We are now going to close the"LF"Main Panel & iconify,I'll reopen"LF"this window in about 5 secs"
CALL TIMEDELAY( 3 )
ICONIFY
CALL TIMEDELAY( 5 )
OPENGUI
TELL "Welcome Back!"
CALL TIMEDELAY( 1 )
TELL "We will now take a look at some"LF"of the requestors"
CALL TIMEDELAY( 2 )
TELL "While these are open, feel free"LF"to make any selections"
CALL TIMEDELAY( 2 )
TELL "They will be closed after about"LF"15 seconds!"
CALL TIMEDELAY( 2 )
TELL "Lets take a look at the TRACE"LF"options available"
CALL TIMEDELAY( 2 )
LAUNCHMACRO "ARCO:DEMO/tracetest.acrx" 	/* This must be launched as an */
					/* exterior macro so that the */
					/* requestor closes after a period */
					/* of time */
GETTRACE
TELL "Now lets take a look at the"LF"Interrupt options available"
CALL TIMEDELAY( 2 )
LAUNCHMACRO "ARCO:DEMO/interrupttest.acrx"	/* See above */
GETINTERRUPTS
TELL "Now lets take a look at the"LF"Argument options available"LF"We will have to set RUN"
CALL TIMEDELAY( 2 )
RUN
LAUNCHMACRO "ARCO:DEMO/argstest.acrx"	/* see above */
GETARGS
TELL "I think you've seen them all"LF"Except for the EGO trip!"
CALL TIMEDELAY( 2 )
RUN FALSE
LAUNCHMACRO "ARCO:DEMO/EGOtest.acrx"	/* yeah ! */
SHOWABOUT	/* I hate myself for this !!!!! */
TELL "Look at the output options"LF"I'll go through them slowly"
CALL TIMEDELAY( 4 )
SETOUTPUT "LIBRARYOBJECT"
CALL TIMEDELAY( 3 )
SETOUTPUT "LINKOBJECT"
CALL TIMEDELAY( 3 )
SETOUTPUT "SCRIPT"
CALL TIMEDELAY( 3 )
SETOUTPUT	/* resets to default EXECUTABLE */
CALL TIMEDELAY( 3 )
TELL "Now lets compile something,"LF"We will compile our first souce"LF"file into an executable"
CALL TIMEDELAY( 5 )
TELL "Lets set the source file gadget"
CALL TIMEDELAY( 2 )
SETSRCFILE "YOOHOO!"
CALL TIMEDELAY( 2 )
TELL "Only kidding, Sorry about that"
CALL TIMEDELAY( 2 )
SETSRCFILE "ARCO:EXAMPLES/MARQUIS.rexx"
CALL TIMEDELAY( 2 )
TELL "There you go"LF"We'll save the object file to"LF"the RAM: disk, Save disk space"
CALL TIMEDELAY( 4 )
SETOBJFILE "RAM:MARQUIS.o"
CALL TIMEDELAY( 2 )
TELL "Lets save the executable to"LF"RAM: for the same reasons"
CALL TIMEDELAY( 3 )
SETEXECFILE "RAM:MARQUIS"
CALL TIMEDELAY( 2 )
TELL "We want to add a few things such"LF"as icons, and a version string"
CALL TIMEDELAY( 3 )
VERSION
WRITEICON
CALL TIMEDELAY( 2 )
TELL "I'm also going to run it after"LF"compilation,In a CLI environment"
CALL TIMEDELAY( 3 )
RUN
TELL "Clearing any options you may"LF"have set for Interrupts,"LF"trace or Arguments"
RESETTRACE
RESETINTERRUPTS
RESETARGS
SETCLIARGS "An_ArCo_User!"	/* This is picked up by marquis */
TELL "I think it's time to compile!"
CALL TIMEDELAY( 2 )
COMPILE
TELL LF
TELL LF
TELL LF
TELL LF
TELL "ALL DONE!"  /* All those linefeeds clear the window */
CALL TIMEDELAY( 10 )	/* Have to make sure that marquis is done before us */
TELL "Thank you for your patience"LF"This Demonstration is now"LF"over, Goodbye"
CALL TIMEDELAY( 3 ) /* Or else its the big boom! */
REXXONLY
CALL TIMEDELAY( 15 )
REQUEST "I lied!, This shows ArCo in"LF"REXXONLY form, ArCo will"LF"exit on closing this requestor."
CALL TIMEDELAY( 5 )	/* Just to be sure */
QUIT



TIMEDELAY:
PARSE ARG number

CALL time 'R'
DO WHILE time('E') < number
	nop
end
RETURN