home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Menus / Main < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.3 KB  |  50 lines
  1. {
  2. | Main Menu script for NewsFlash
  3. | Alex Howarth (14 September 1996)
  4.  
  5. REPORT "Main Menu"
  6. REPEAT
  7.   STD CLS
  8.   | Display our ANSI menu (we could create it in script but i prefer ANSI)
  9.   SEND "ANSI.Menus.Main",2
  10.   
  11.   | Put some info on the menu screen
  12.   LOCATE 59,5
  13.   BFG 7}[{BFG 1}Main Menu{BFG 7}]{STD
  14.   LOCATE 3,DLINES-2 | height of users terminal - 2
  15.   BFG 3}Main Menu, ({BFG 7}RETURN{BFG 3}) to redraw, choose : {STD
  16.   
  17.   | To add another option to the menu add a letter in the ""'s
  18.   GETr option,"FMDSPLIG#" | # will be the sysop's private menu
  19.   
  20.   | Then do something with what has been recieved
  21.   
  22.   | we can have single of multi-line IF statements
  23.   
  24.   IF option="F" THEN
  25.     GOTO "Menus.FileBase"
  26.   ENDIF
  27.   
  28.   IF option="M" THEN GOTO "Menus.MailBase"
  29.   
  30.   IF option="D" GOTO "Menus.Doors"
  31.   IF option="S" RUN "Scripts.MailSysop"
  32.   IF option="P" RUN "Scripts.PageSysop"
  33.   IF option="L" RUN "Scripts.Lines.Script"
  34.   IF option="I" GOTO "Menus.Info"
  35.   IF option="G" THEN
  36.     | could have a menu
  37.     NL
  38.     BFG 7}Are you sure you wish to logoff? [y/{BFG 1}N{BFG 7}] : {
  39.     GETd option,"NY"
  40.     IF option="Y" THEN
  41.       END
  42.     ENDIF
  43.   ENDIF
  44.   IF SYSOP THEN
  45.     IF option="#" GOTO "Menus.Sysop"
  46.   ENDIF
  47.   
  48.   | None of the above? - must be a 'RETURN' (GETr) so we just REPEAT
  49. UNTIL FALSE
  50. }