Subj : This is not working
To   : All
From : Phil
Date : Sat Aug 25 2007 08:45 pm

For some reason this is not working when I run this applicaton and I type the
word AGREE and press enter.

!INCLUDE ERRNO.INC
!INCLUDE FILE_IO.INC
!INCLUDE USERDEFS.INC
!INCLUDE SBBSDEFS.INC
!INCLUDE NODEDEFS.INC
CLS
printfile "c:\sbbs\text\validate.txt"
PRINT "\r\n"
PRINT "\r\n"
print "\r\nI agree to abide by the follow terms and conditions (AGREE Or Type
NO ): "
STR INFO
GETSTR INFO 5 K_UPPER
COMPARE_STR "AGREE"
IF_FALSE
goto no
END_CMD
:start
print "\r\nLets start the upgrade now."
print "\r\n"
print "\r\nPress enter to start."
sTR INFO
compare_ars FLAG 1A
if_false
TOGGLE_USER_FLAG 1A
TOGGLE_USER_FLAG 2A
END_CMD
compare_ars FLAG 1C
if_false
TOGGLE_USER_FLAG 1C
TOGGLE_USER_FLAG 2B
end_cmd
compare_ars FLAG 1D
if_false
TOGGLE_USER_FLAG 1D
TOGGLE_USER_FLAG 2D
end_cmd
compare_ars FLAG 1E
if_false
TOGGLE_USER_FLAG 1E
TOGGLE_USER_FLAG 2E
end_cmd
compare_ars FLAG 1F
if_false
TOGGLE_USER_FLAG 1F
TOGGLE_USER_FLAG 2F
end_cmd
SET_USER_LEVEL 20
print "\r\nYour access level and security flags have been updated. You will
need to re-login please so they will

take effect."
GOTO OK
:No
print "\r\nYour security level and flags where not changed."
:ok
PRINT "\r\n"
print "\r\nPress enter to continue."
STR INFO
:END

---
� Synchronet � bbs.cyberchatnet.com - Vienna, VA

You are viewing proxied material from bbs.kd3.us. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.