This could be rewritten for aspectnet
with alot of work.

; Foreign Legion Membership Script 7.12
;  Copyright Neil J Marshall 16th October 1991 - 21st February 1996
;   TransAtlanticBBS {Harpoon Scenario Warehouse}  Orpington, Kent, UK
;   FidoNet 2:440/211   Internet 100321.2746@compuserve.com    +44-1689-812646
;   http://ourworld.compuserve.com/homepages/Neil...
;
; To install this script, put the Foreign.V file in the VBBS\V directory.
; Edit the Parameters section below, then compile the Foreign.V using VCOM.
;
; Put the Foreign.Ad, Foreign.Inf and Foreign.App files in the main
; VBBS directory.
;
; Then add a call to the Foreign script either from a function block or from
; the Start script
; Check if caller has already been through the script
let x = !57
let y = "Z"
if !8 >= 1 goto notseen
goto end
notseen:
; Check if Caller is a visiting SysOp by Security Level
let x = !54
let y = "150"
if !8 >= 1 goto sysop
goto exit
; Clear Screen - Always a good Start
cls
; Display the Foreign Legion banner advertisement
EF aspnet.Ad
; This routine checks if the Caller would like to read the information pack
let a = "Would you like to read the information pack about our new Network,"
;
;
; This asks the Yes/No question
GETYN b ,  a
;
; And if the Caller is not interested, leaves the script
IF a = "Y" goto doapp
setflags w,let !57 = "W"
goto end
doapp:
;
; This routine checks if the Caller has ANSI turned on. If they do not, it
; takes them to a routine that says ANSI is required for the application.
; Since we are trying to run a full-colo(u)r Network, I think all applicants
; need to be ANSI-friendly :-)
IF $VIDEOMODE = "0" THEN
  GO NoANSI
ENDIF
;
; Clear the screen again
TR $Clear
;
; Reset the line count as we are starting from a clear screen
NEWPAGE
;
; Show the Information Pack that lives in the main VBBS directory
; in a file called Foreign.Inf
EF Foreign.Inf
;
; Always leave a blank line before questions :-)
TR ""
;
; Build the prompt for the next Yes/No question
$Prompt = $Red & "So, would you like to become a "
$Prompt = $Prompt & $FrenchFlag & "Legionnaire"
$Prompt = $Prompt & $FrenchFlag & "? "
;
; Ask if the Caller wants to become a Legionnaire
GETYN $YesNo $Prompt
;
; And if the Caller is not interested, leaves the script
IF $YesNo = "N" THEN
  SETFLAGS $UserFlagToUse ON
  GO TheEnd
ENDIF
;
; Reset the line count again
NEWPAGE
;
; Make sure the Full Screen Editor is enabled so the application can be
; viewed and edited correctly
SETFLAGS F ON
;
; Get ready to edit an EMAIL
SETEMAIL
;
; Empty the EMAIL buffer
BUFFER CLEAR
;
; This routine loads the contents of the application, Foreign.App, into
; the EMAIL buffer
$Apply = 1
$ApplyLine = ""
OPEN "FOREIGN.APP" INPUT
DO WHILE $Apply
  READ $ApplyLine
  IF $ApplyLine = "!EOF!" THEN
    $Apply = 0
  ELSE
    BUFFER APPEND $ApplyLine
  ENDIF
LOOP
CLOSE
;
; Now the application is in the buffer, let the called edit it :-)
BUFFER EDIT
;
; Once the Buffer has been edited, set the User Flag so they won't see
; the application again
SETFLAGS $UserFlagToUse ON
;
; Check if the editing was Saved or Aborted by looking at the length of
; the Edit Buffer
$EditBuffer = "B" & $Port & ".TMP"
CHECKFILE $EditBufferSize $EditBuffer
;
; If the Edit Buffer is less than 3 length, then the User Aborted so exit
TESTVAL $EditBufferSize < 3 TheEnd
;
; Once the Caller has finished editing it, set the Subject of the EMAIL
$ApplicationSubject = "Foreign Legion Membership Application"
;
; And send it to the relevant Colonel(s) :-)
SAVE 1 440 $ApplicationSubject 0 "" 64
SAVE 1 1512300 $ApplicationSubject 0 "" 64
;
; With a CC to the SysOp of the BBS and the Membership Co-Ordinator
$ApplicationSubject = "Copy of " & $ApplicationSubject
SAVE 1 $NODE $ApplicationSubject 0 "" 1
SAVE 1 2103 $ApplicationSubject 0 "" 64

SETFLAGS $UserFlagToUse ON

GO TheEnd

# NoANSI
;
; This routine handles ASCII callers who can't read the information pack
; or edit the application in the Full Screen Editor
TR ""
;
; Send a nice message suggesting the Caller turns ANSI on
TS $Magenta "The " $FrenchFlag $Magenta "Foreign Legion"
TR $FrenchFlag $Magenta " information pack needs you to be using"
TR $Magenta "a Terminal Program capable of reading ANSI graphics and colour. Please set"
TR $Magenta "your Video Mode to ANSI in your Account Settings and your Terminal Program."
TR ""
;
; And return to the BBS
TR $Red "Press any key to return to the BBS..."
PAUSE

# TheEnd