home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Menus / FileBase < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.3 KB  |  52 lines
  1. {
  2. | FileBase menu for NewsFlash
  3. | Alex Howarth (15 September 1996)
  4.  
  5. REPORT "FileBase Menu"
  6.  
  7. | We could make a check to see if the user has a certain user
  8. | level to access the filebase (maybe a userlevel of 25) which
  9. | they only get after completing a questionaire: eg,.
  10. | IF USERLEVEL<25 THEN
  11. |   STD NL
  12. |   }You do not have access to the filebase
  13. |   Please complete the questionaire{
  14. |   GOSUB anykey
  15. |   GOTO "Menus.Main"
  16. | ENDIF
  17.  
  18. REPEAT
  19.   STD CLS
  20.   SEND "ANSI.Menus.File",2
  21.   
  22.   | Put some info on the menu screen
  23.   LOCATE 59,5
  24.   BFG 7}[{BFG 1}File Menu{BFG 7}]{STD
  25.   
  26.   LOCATE 3,DLINES-2
  27.   BFG 7}FileMenu/current area ({BFG 3
  28.   OPENFILEBASE
  29.   READFAREA FILEAREA
  30.   PRINT FILEAREANAME
  31.   CLOSEFILEBASE
  32.   BFG 7}) [{here%=XPOS} ]{BFG 3
  33.   TAB here% | puts us inside the []'s
  34.   BFG 7
  35.   
  36.   GETr option,"CLSBDUZ$MQ"
  37.   
  38.   IF option="C" RUN "Scripts.AreaChange"
  39.   IF option="L" RUN "Scripts.LongFList"
  40.   IF option="S" RUN "Scripts.ShortFList"
  41.   IF option="B" RUN "Scripts.BaseChange"
  42.   IF option="D" RUN "Scripts.Download"
  43.   IF option="U" RUN "Scripts.Upload"
  44.   IF option="Z" RUN "Scripts.ZipNewFile"
  45.   IF option="$" RUN "Scripts.FileSearch"
  46.   IF option="M" GOTO "Menus.Main"
  47.   IF option="Q" RUN "Scripts.QueueEdit"
  48.   
  49.   | non of the above? must be 'RETURN' - REDRAW ,. lets REPEAT
  50. UNTIL FALSE
  51. }
  52.