home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Init
Encoding:
Text File  |  1996-09-16  |  1.3 KB  |  58 lines
  1. {
  2. | NewsFlash Init file
  3. | Alex Howarth (14 September 1996)
  4. | This is where everything starts
  5.  
  6. | We can use libraries of procedures (SUB's)
  7. | must include them first tho. 
  8. INCLUDE "Libraries.Misc"
  9. | Call these using: GOSUB <subname>
  10.  
  11. | A big assumption that the user has ANSI capabilities
  12. | but it allows us to test by displaying colours
  13. | probably not 'legal' but I like it.
  14. TERMINAL=1
  15.  
  16. | Display a welcome screen
  17. RUN "Logon.DemoIntro" | normally just an ASCII screen
  18.  
  19. | We have a user online - send the logon prompt
  20. RUN "Logon.Logon"
  21.  
  22. | Send misc ANSI screens you may wish the user to see on logon
  23. SEND "ANSI.As-Is",2
  24. NL
  25. GOSUB anykey | From our Misc library
  26.  
  27. | Run any doors you may wish as part of the logon
  28. | Doors:
  29. |   * OLD METHOD
  30. |       RUNAPPA "<path of door>"
  31. |   * NEW METHOD
  32. |       Use !DoorMgr to maintain your doors
  33. |       DOOR "<DoorName>"
  34. | The new method is far nicer
  35. DOOR "Today"
  36. ANYKEY | Today door doesnt provide it !
  37.  
  38. | A few safety measures
  39. RUN "Scripts.Ensure"
  40.  
  41. | MailBox (check for mail etc..)
  42. RUN "Scripts.MailBox"
  43.  
  44. | Put the user in the main menu
  45. RUN "Menus.Main"
  46.  
  47. | When they leave the mainmenu via the END command 
  48. | they will return here
  49.  
  50. | Show the cookie door
  51. PRINT "Before you go, think about this..." NL
  52. DOOR "Cookie"
  53.  
  54. | Log them off
  55. LOGOFF
  56.  
  57. | The end
  58. }