/* Logon.REXX Test Code                                          */

signal on ERROR
parse arg LineNumber

DoorName = "RXLogon"

if( ~show( 'l', "mebbsarexx.library" ) )then do
   say "Opening mebbsarexx.library"
	if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
      say "Could not open library"
      exit 10
   end
end

call Message DoorName,LineNumber,"This is a test of ARexx using the new",1
call Message DoorName,LineNumber,"mebbsarexx.library along with MEBBSNet.",1

call Prompt DoorName,LineNumber,"Enter any string, ten characters or less: ",10
call Message DoorName,LineNumber,result,1
call GetVar DoorName,LineNumber,1
call Message DoorName,LineNumber,result,1
call GetVar DoorName,LineNumber,2
call Message DoorName,LineNumber,result,1
call GetVar DoorName,LineNumber,3
call Message DoorName,LineNumber,result,1
call GetVar DoorName,LineNumber,4
call Message DoorName,LineNumber,result,1
call HotKey DoorName,LineNumber,"Press any key..."

/*call ReadFile DoorName,LineNumber,"mebbsnet:bulletins/bul7.txt"*/

call Exit_Door DoorName,LineNumber

exit 0

ERROR:
call Exit_Door DoorName,LineNumber
exit 10