/*******************
(c) Ivan Wheelwright 
*******************/
   bufferflush
   options results
   signal on syntax
   tr=transmit
   changewhere 'Membership Info' 

/********************************************************************
Text Asking the New User to Join Your Excellent Bulletin Board System
********************************************************************/
  Tr "f1                     a1c6u1Welcome to The Attic BBS!u0n1"
  Tr "c3This BBS system is mostly user supported.  In helping maintain the high"
  Tr "quality of software and features, such as our INTERNET network system,"
  Tr "network mailbox, increasing Downloading and Time limits, increasing phone"
  Tr "lines, i require a membership fee.n1"
  Tr "c2This requires that you sign up to become a member of the system. Membership"
  Tr "is only $25/year, and well worth it.  You will gain 100% more information"
  Tr "through this system then you will reading any magazine or newspaper.  As"
  Tr "well as the ability to send Computer Engineers and Programmers from all over"
  Tr "the world infact, questions directly through the Usenet system.n1"
  Tr "c3Your membership helps to pay for phone calls/rent, as well as upkeep of the"
  Tr "system and new hardware purchases. You can do this for less than $2.08 a month!n1"
  Tr "Please consider your decision.n1Keyg1h3"
  Tr "You may pay with w1VISA, w1MASTERCARD, w1BANKCARD, w1CHEQUE, w1POSTAL M.O, w1CASH, or w1DDw1n1"
Call Y
   
/*********************************************************************
If a New User Decides that he would like to join, This will be printed
*********************************************************************/
OK:
   Tr "f1c3Please leave Ivan some Mail telling him which membership level you will Join."
   Tr "If paying by Credit card, Leave CARDHOLDERS Name, NUMBER and EXPIRY DATE,n1and the CARDTYPE!n2Press a Keyg1"
   ge=getuser
   tr=Tr
   se=sendstring
   ge 23;port=result
   aaa=0

   do until aaa=1

   calleditor 25
   saveeditor "ram:forcedmail"port
   address command "list ram:forcedmail"port" >ram:filecheck"
   st=open(check,"ram:filecheck",'r')
   line=readln(check)
   line=readln(check)
   st=close(check)
   if subword(line,2,1)~="empty" then aaa=1
   if subword(line,2,1)="empty" then tr "b3n1s3c6You c3MUST ENTER c6a c3MESSAGEc6!s0w2n1"
   call carrier
   end

   cleareditor

   loadeditor "ram:forcedmail"port
   setmailsubj "NEW USER JOINING"
   writemail 1
   logentry "new USER FORCED to send MAIL!"

   address command "delete >NIL: ram:forcedmail"port
   address command "delete >NIL: ram:filecheck"

   Tr "s3DONE! Thankyou for your support."
   Tr "s1You will be upgraded when the payment is received/processed.w3s0"
   end
   
exit

/***********************************
The Yes, No and Information Answers.
***********************************/
Y:
  Tr "c7Selecting [c1ic7] will show you the fully detailed Membership Information and Fees."
  Tr "Selecting [c1sc7] will show quick table of what each Membership will buy.n1"
  Tr "c3Only Select c1yc3 if you are absolutely sure you are ready to join now.n1" 
  Query 'c2Do you wish to sign up now? c6(c1yc6/c1nc6/c1ic6/c1sc6)c2'
   a=(result) 
   if upper(result) = '###PANIC' then 
                 do
                 logentry NAME 'dropped carrier deciding whether to join or not'
                 call NO
                 end
         
select
when a = 'i' then call INFO
when a = 'n' then call NO
when a = 'y' then call OK
when a = 's' then call SHORT
otherwise;
end
call y

/********************
If a user selects NO!
********************/ 
NO:
    Tr "f1n1c3s1I'm sorry to hear you're not ready to sign up at this time!"
    Tr "You may type c1s9ME s2c3at anytime in the BBS if you decide to change your mind."
    Tr "Please reconsider your decision..the effort to run this BBS is a full time job.n1"
    Tr "c3s0Press c1RETURN c3To Continue:g1"
    end
/**********************
Short Quick Information
**********************/
SHORT:
    Tr "f1                      z4cf What Access Levels buy you. q1n1"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | c5Access Name           c1NORMAL          c6ELITE        c7DREAM     c3      |"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | caPayment Amount         $25             $50          $100           c3|"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | caTime Per DAY           90min           120min     Unlimited        c3|"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | caCalls per DAY           5              10            10            c3|"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | caLength/Subscription    1 YR            1 YR         1 YR           c3|"
    Tr "  +--------------------------------------------------------------------+"
    Tr "  | caDownload Limit       2Meg/Day        5Meg/Day  10Meg/Day/Flexable  c3|"
    Tr "  +--------------------------------------------------------------------+"
    Tr "        CUSTOMISED ACCOUNTS ALSO AVAILABLE! SELECT I FOR MORE INFO!"
    Tr " THE PAYMENT DETAILS AND ADDRESS IS CONTAINS WITHIN FULLY DETAILED INFORMATION"
Call Y

/*********************************************
If the users wants to see the Information file
*********************************************/
INFO:
   Tr "f1             c2Membership Details can change at the Sysops Descretion.c3n1"
   Tr "Access comes in 3 Levels, plus Customised. Please read them and if you choose"
   Tr "one, All Payment details are shown on the last page.n1"
   Tr "c6Press Returng1f1"
   Tr "c6ACCESS   = c7Normal Paid Membership."
   Tr "c6COST     = c7$25 - And lasts for One year upon recieving the money."
   Tr "c6TIME     = c790 Minutes a day + use of the Time Bank."
   Tr "c6DOWNLOAD = c7You may download 2 meg of files per day, unlimited yearly Download.n1}"
   Tr "c3This is the regular membership for the average user. It is recommended"
   Tr "for the 2400 Users of the System. Although any speed may use this membership."
   Tr "You will have UUCP <Internet> access but not to its full extent.(News not Mail)"
   Tr "Will give you full capabilities to edit your own logon sequence.n1"
   Tr "c7Please add $2 if paying via Credit Card.n1"
   Tr "c6}Press Returng1}f1}"
   Tr "c2}ACCESS   = c7}Elite Membership"
   Tr "c2}COST     = c7}$50 - And lasts for One year upon receiving the money."
   Tr "c2}TIME     = c7}120 Minutes a day + use of the Time Bank"
   Tr "c2}DOWNLOAD = c7}You may download 5 meg of files per day, unlimited yearly Downloadn1}"
   Tr "c3}This is more recommended for the Faster 9600 & 14400 Users."
   Tr "Will give you full capabilities to edit your own logon sequence."
   Tr "Elite Membership also comes with a few extra little bonuses like..."
   Tr "The ability to add new vote topics."
   Tr "You get FULL UUCP <Internet> Access. (News and Worldwide Mail)"
   Tr "You can trace SOME Anonymous messages."
   Tr "A few other small privledges.n1"
   Tr "c7Please add $3 if paying via Credit Card.n1"
   Tr "c6Press Returng1f1"
   Tr "c3}ACCESS   = c7}Dream Membership"
   Tr "c3}COST     = c7}$100 - And lasts for One year upon recieving the money."
   Tr "c3}TIME     = c7}Unlimited"
   Tr "c3}DOWNLOAD = c7}You may download 10 meg of files per day, unlimited yearly Download/Flexablen1}"
   Tr "c3}The point of Dream membership is for those who will be around for a long"
   Tr "time. Even though stats are unlimited, please do not abuse it, when more lines"
   Tr "are connected, it will not be too bad, but while still on 2 lines, please"
   Tr "respect that other users would like to logon aswell."
   Tr "Will give you full capabilities to edit your own logon sequence.n1"
   Tr "c7Please add $5 if paying via Credit Card.n1"
   Tr "c6Press Returng1f1"
   Tr "c3ACCESS   = c7}Custom"
   Tr "c3COST     = c7}To Be Discussed"
   Tr "c3TIME     = c7}To Be Discussed"
   Tr "c3DOWNLOAD = c7}To Be Discussedn1"
   Tr "c3Confused? Well The Attic BBS allows you to customise your own account."
   Tr "If you only want Internet access, or more time and less download, then we can"
   Tr "discuss what you want and how much. If you wish a custom account, then select"
   Tr "y for joining and tell me the details of what you are after.n1"
   Tr "c6Press Returng1}f1}"
   Tr "c3OK, You can send a Cheque or Postal Money Order to:n1"
   Tr "c6Ivan Wheelwright"
   Tr "P.O. Box 489 (Four-Eight-Nine)n1Noarlunga Centre"
   Tr "5168n1South Australian1"
   Tr "You can do a DIRECT DEBT to my account which is a fast way to join."
   Tr "Just walk into a BankSA and credit account number 156/0032403040 under my"
   Tr "name of Ivan Wheelwright/Extra-Bit. Then leave me mail and i will verify it.n1"
   Tr "c2You can send Cash at your own risk,  If you do wish to send it this way,"
   Tr "wrap the money inside other pieces of paper for concelment. I take no"
   Tr "responsibilty.n1"
   Tr "c7If you wish to pay using VISA, MASTERCARD, or BANKCARD. Then when leaving me"
   Tr "a message about Joining, you MUST supply me with the following details.n1c3"
   Tr "Card Type (Master, Bank, Visa)"
   Tr "Name (As wrttien on your Card)"
   Tr "Card Number (As shown on Card)"
   Tr "Expiry Date (As shown on Card)"
   Tr "n1c6NO REFUNDS" 
   Tr "NO ACCOUNT SHARINGn1"
   Tr "c1*** REMEMBER TO LEAVE DETAILS INSIDE THE ENVELOPE. NAME ETC ***"
   Tr "c6Press Returng1hc"
   Call Y

CARRIER:
getcarrier ; carrier = result ; if carrier = 'FALSE' then exit
return

exit