LABEL STARTUP

ANSI( "me" )

HEADBLOCK( " ix/Tensions Demonstration ", " Just trying to impress you ;-)" )

ANSI( "md" ) 
SAY()
SAY( "Please choose an option or quit!" )
SAY()
ANSI( "me" )


SELECT 
	LAB0, "Info on ix/Tensions"
	SAY()
	LAB1, "Command Mode Testing" 
	SAY()
	LAB2, "Command "ps""
	SAY()
	LAB3, "Command "date""
	SAY()
	QUIT, "Quit (Means: End this little demo!)"
	SAY()

	ANSI( "us" )
ENDSELECT( "What do you want? " ) 







LABEL LAB0
	ANSI( "me" );
	HEADLINE( " Info on ix/Tensions " )
	SAY()
	FILE( "$MBOXHOME/etc/xtensions/README.xtensions" )
	SAY()
	ANSI( "mr" )
	SAY-( " Press a key, please! " )
	WAITKEY		
GOTO STARTUP



LABEL JOB1
	HEADLINE( "Help on command ..." )
	SAY()
	SAY( "There are only a few commands: HELP, END, BEEP, TTY" )
	SAY()	
GOTO JOBLOOP
	
LABEL JOB3
	SAY()
	SAY()
	SYSTEM( "tty" )
GOTO JOBLOOP

LABEL JOB4
	BEEP
GOTO JOBLOOP


LABEL LAB1
	ANSI( "me" )
	LABEL JOBLOOP
		COMMAND
			JOB1,    "?"
			JOB1,    "HELP"
			STARTUP, "END"
			JOB3,    "TTY"
			JOB4,    "BEEP"
		ENDCOMMAND( "Command" )
	GOTO JOBLOOP
GOTO STARTUP

LABEL LAB2
	ANSI( "me" )
	HEADLINE( " ix/Tensions Demo (ps command) " );
	SYSTEM( "ps" )
	ANSI( "md" )
	SAY()
	SAY-( "You'll have to wait for at least 2 seconds now ... sleep well ..." )
	SLEEP( 2 )
GOTO STARTUP

LABEL LAB3
	ANSI( "me" )
	SAY()
	SAY( "Let's do a little timecheck, $USERNAME!" )
	SAY( "My clock says it's about $TIME, $DATE")
	SAY-( "System means it's around ") 
	SYSTEM( "date" )
	ANSI( "md" )
	SAY()
	SAY-( "Alright? Press the "any" key now ;-)" )	
	WAITKEY
	ANSI( "me" )
GOTO STARTUP


LABEL NO
GOTO STARTUP




LABEL QUIT

ANSI( "me" )
SAY()
YESNO( "Are you sure? ", YES, NO )

LABEL YES
