'    **************** FMS HEADER DISPLAY ENHANCEMENT ****************
'
' MOD Created by Mike Clark - The Alabama Connection RBBS - (205) 794-6045
'
' This mod soups up the FMS header displayed above file listings.
' Color is supported and toggles on/off with the users Graphic selection.
'
' To see the mod in action call my BBS.
'
' To install just delete the FMS Subroutine in RBBSSUB4.BAS from line
' number 58200 to the END SUB statement. Replace it with the code below.
'
'
58200 ' $SUBTITLE: 'FMS - subroutine to search the upload management system'
' $PAGE
'
'  NAME    -- FMS
'
'  INPUTS  -- PARAMETER                      MEANING
'             DirToSearch$          RBBS-PC "DIR" CATEGORY TO LOOK
'                                     FOR
'             SearchString$          STRING TO SEARCH FOR
'             SearchDate$            DATE TO SEARCH FOR
'             ZCategoryName$()
'             ZCategoryCode$()
'             ZCategoryDesc$()
'             CatFound
'             ZNumCategories
'
'  OUTPUTS -- ProcessedInFMS
'             DnldFlag
'
'  PURPOSE -- To search the file management system and display the
'             files being searched for as well as the catetory descriptions
'
      SUB FMS (DirToSearch$,SearchString$,SearchDate$, _
	       ProcessedInFMS,ZCategoryName$(1),ZCategoryCode$(1), _
	       ZCategoryDesc$(1),DnldFlag,CatFound,AbortIndex) STATIC
      DnldFlag = 0
      CALL SearchArray (DirToSearch$,ZCategoryName$(),ZNumCategories,CatFound)
      ProcessedInFMS = ProcessedInFMS OR (CatFound > 0)
      iF ZEmphasizeOn$ <> "" THEN  _                     'Bama Connx 02/24/90
	 Zfg5$ = zESCAPE$ + "[1;34;40m" : _              'Bama Connx 02/24/90
	 zfg6$ = zESCAPE$ + "[1;37;44m" : _              'Bama Connx 02/24/90
	 zfg7$ = zESCAPE$ + "[1;37;44m" : _              'Bama Connx 02/24/90
	 ELSE _                                          'Bama Connx 02/24/90
	 Zfg5$ = "" : zfg6$ = "" : zfg7$ = ""
      IF ProcessedInFMS THEN _
	 ZSubParm = 5 : _
	 GOSUB 58202 : _
	 CALL quicktput("",1) : _                        'Bama Connx 02/24/90
	 CALL quicktput(Zfg5$+"ΙΝ"+zfg6$+" "+DIRTOSEARCH$+" "+Zfg5$+"ΝΝΝ",0) : _'Bama Connx 02/24/90
	 CALL quicktput(zfg6$ +" "+ ZCategoryDesc$(Catfound) +" " + Zfg5$ + "ΝΝΝΝ" + _'Bama Connx 02/24/90
		    zfg3$+" " + zColorReset$+ HDR$,1) : _                          'Bama Connx 02/24/90
	 CALL quicktput(Zfg5$+ "Ί",1)  : _                                          'Bama Connx 02/24/90
	 CALL quicktput("ΘΝ"+zfg7$+"File Name"+Zfg5$+"ΝΝΝΝΝΝ" + zfg7$ + "Size" + _  'Bama Connx 02/24/90
		    Zfg5$+"ΝΝΝΝ",0) : _                                             'Bama Connx 02/24/90
	 CALL quicktput(zfg7$+"Date"+Zfg5$+"ΝΝΝΝ"+zfg7$ + "Description"+ _          'Bama Connx 02/24/90
	      Zfg5$+"ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ"+zfg3$+" "+zColorReset$,1) : _   'Bama Connx 02/24/90
	 Cat$ = ZCategoryCode$(CatFound) : _
	 CALL DispUpDir (Cat$,SearchString$,SearchDate$,DnldFlag,AbortIndex)
      EXIT SUB
58202 ZOutTxt$ = SearchDate$
      IF LEN(ZOutTxt$) > 0 THEN _
	 ZOutTxt$ = MID$(ZOutTxt$,3) + LEFT$(ZOutTxt$,2)
      hdr$ = SearchString$ + _                                 'Bama Connx 02/24/90
	     ZOutTxt$                                          'Bama Connx 02/24/90
      IF hdr$ <> "" then _                                     'Bama Connx 02/24/90
      hdr$ = zfg4$+"Scanning for "+ zfg2$+hdr$                 'Bama Connx 02/24/90
      RETURN
      END SUB