Here's a little program that will turn on a users deleted flag.    I saw a
small need for this, ie. someone doesn't care to join your system, etc..
Just creative sdl programming can implement it nicely.   If you find it useful,
just drop me a thank you note.

Mark Wolfe
Free Enterprise TBBS!
Fido: 1:115/942


Sample SDL:

MENU: 0000

ENTRY:
A1=.-------
KEY=^@  TYPE=32   OPT DATA=LOGON /NL/NP

ENTRY:
;A2(1) set for first time caller.

A2=X------- key=^@ Type=5
opt data=newu

Entry:
key=^@ Type=200
opt data=c:\tbbs\bullmax\bulletin /Q &&

ENTRY:
KEY=^@  TYPE=35   OPT DATA=MAIN

ENDMENU:

menu: newu
@IDENT(Register)

entry:
A2=.------- key=^@ type=12
opt data=1

; Sample text
entry:
%X03%Hello %FIRST%,

It seems this is your first call to the system.   This
bbs is about blah blah blah, supports blah blah blah, etc etc..
Would you like to continue to logon


;@ITEM= (KEY,TEXT,TYPE,PRIV,AUTHFLAGS,OPTDATA)
;newbie.qal toggles A2(1), and could also be your registration qal.

Entry:
@item(Y,"Yes, I would like to continue",32,0,,newbie)

Entry:
@item(N,"No, I would like to terminate this call",5,0,,exit)

endmenu:

Menu: exit

entry:
key=^@ type=200 optdata=uldel /q

entry:
key=^@ type=10

endmenu:
