' Nothing fancy here, I'll get fancy again when I remeber how to do all this
' This just lets your users leave you a last minute message as they log off
' and do NOT use it from the local node, I found out the hard way VA doesn't
' like that. had to go back and add myself a LOGOFFYN command to the main.fb
' Replace all instances of G 001 1 logoffyn with G 001 2 logout
' change the wording to suit your style and the Names of course
' more to come when I learn to write a little better stuff 
' This little piece of art compliments of Nightshade, sysop of The Alternative.
  CLEAR
    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel0
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel0:
  ? A0
  NEWPAGE
  ?
  LOC 22, 2
  GETYN B0, "  Confirmation:  Do you wish to depart?"

  IF B0 <> "N" GOTO templabel2
    END "main"
  templabel2:

  ?
    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel3
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel3:
  ? A0
  NEWPAGE
  LOC 22, 2
  GETNY B0, "  Would you like to leave a parting message?"
  IF B0 <> "N" GOTO templabel4
    LOGOFF
  templabel4:

  ?
    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel5
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel5:
  ? A0
  ?
  ? "    Splendid!  One moment please...";
  ?;
  DELAY 2
  ?
    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel6
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel6:
  ? A0
  ? " Please enter your note [6-line maximum]...
  ?
  RW C0, " : "
  RW D0, " : "
  RW E0, " : "
  RW F0, " : "
  RW G0, " : "
  RW H0, " : "
  BUFFER CLEAR
  SETEMAIL
  LET I0 = "LogOff Note"
  BUFFER APPEND, C0
  BUFFER APPEND, D0
  BUFFER APPEND, E0
  BUFFER APPEND, F0
  BUFFER APPEND, G0
  BUFFER APPEND, H0
  SAVE ""1, 1517005, 1, I0, 0
  BUFFER CLEAR
  ?
  ?
  ? " Sending your note to Nightshade, one moment please...";
  DELAY 3
    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel7
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel7:
  ? A0
  ?
  ?
  GETYN B0, " Confirmation:  Do you wish to depart now?"
  IF B0 <> "Y" GOTO templabel8
    LOGOFF
  templabel8:

  IF B0 <> "N" GOTO templabel9
    END "main"
  templabel9:

    LET x0 = 12
    LET A0 = !12
    IFVAL !53 = 0 GOTO templabel10
    LET x0 = 27
    LET A0 = !0 % "[2J"
    templabel10:
  ? A0