FindMenu

From Pickwiki
Jump to navigationJump to search

Back to BasicSource, InfoLease

*SPLC**********************************************************************
*                                                                         *
*   Program Title    : FIND.MENU                                          *
*   Author           : Ian McGowan                                        *
*   Date Started     : January 11, 1991                                   *
*   Last Modified    : 14:22:26  17 MAY 1991 By Ian                       *
*   Description      : Given a string will go and look in menu file and   *
*                    : show menu tree of how to get to that string        *
*                    :                                                    *
*   Comments         : Most of the work is done in recursive subroutine   *
*                    : SPLC-BP,SUBS SPLC.SEARCH.MENU                      *
*   Usage            : FIND.MENU <search string>                          *
*                                                                         *
***************************************************************************
OPEN "DB.MENUS" TO MENU.F ELSE STOP 201,"DB.MENUS"

STR=FIELD(@SENTENCE,' ',2)
IF STR='' THEN
   PRINT "Enter menu or program to search for : ": ; INPUT STR
   IF STR="" OR STR="/" THEN STOP
END

PATH = '' ; MENU = 1 ; STR = OCONV(STR,"MCU")
CALL SPLC.SEARCH.MENU(MENU,STR,MENU.F,PATH)

--cut--

SUBROUTINE SPLC.SEARCH.MENU(MENU,STR,MENU.F,PATH)
*SPLC**********************************************************************
*                                                                         *
*   Program Title    : SPLC.SEARCH.MENU                                   *
*   Author           : Ian McGowan                                        *
*   Date Started     : January 11, 1991                                   *
*   Last Modified    : 15:07:10  14 MAY 1991 By Matt                      *
*   Description      : Subroutine to recursively descend menu tree,       *
*                    : looking for a specified program, or menu title.    *
*                    :                                                    *
*   Comments         : Called from UTILS FIND.MENU                        *
*                    :                                                    *
*   Usage            :                                                    *
*                                                                         *
***************************************************************************
**** Modified by JIM at 11:00:49  14 JAN 1991
* -- Added code to build a path description - how to get to
* -- the menu found.
VM = CHAR(253)
READ R FROM MENU.F, MENU THEN
   TITLES = OCONVS(R<2>,"MCU") ; PROGS  = OCONVS(R<3>,"MCU") ; FLAGS  = R<4>
   I = DCOUNT(PROGS,VM)
   FOR F = 1 TO I
      IF FLAGS<1,F> # 'M' THEN
         IF INDEX(PROGS<1,F>,STR,1) # 0 OR INDEX(TITLES<1,F>,STR,1) # 0 THEN
            PRINT TITLES<1,F>"L#30":"  ":PROGS<1,F>"L#30":"  ":
            K = DCOUNT(PATH,VM) ; FOR J = 2 TO K ; PRINT PATH<1,J>:',': ; NEXT J ; PRINT F
         END
      END ELSE
         MENU = PROGS<1,F>
         PATH = PATH:VM:F
         CALL SPLC.SEARCH.MENU(MENU,STR,MENU.F,PATH)
         K = DCOUNT(PATH,VM) ; PATH=DELETE(PATH,1,K)
      END
   NEXT F
END
RETURN

http://buy-cialis.kucko.com http://buy-levitra.kucko.com http://buy-viagra-online.kucko.com http://buy-viagra.kucko.com http://cheap-cialis.kucko.com http://cheap-levitra.kucko.com http://cheap-viagra.kucko.com http://cialis-online.kucko.com http://cialis-viagra.kucko.com http://cialis.kucko.com http://generic-cialis.kucko.com http://generic-viagra.kucko.com http://levitra-online.kucko.com http://levitra.kucko.com http://order-viagra.kucko.com http://viagra-levitra.kucko.com http://viagra-online.kucko.com http://viagra-prescription.kucko.com http://viagra.kucko.com http://adult-dating.adultfriendfindernow.com http://adult-finder.adultfriendfindernow.com http://adult-friend-find.adultfriendfindernow.com http://adult-friend-finder-coupon.adultfriendfindernow.com http://adult-friend-finder.adultfriendfindernow.com http://adult-friend.adultfriendfindernow.com http://adult-personals.adultfriendfindernow.com http://adult-sex.adultfriendfindernow.com http://adultfriendfinder-com.adultfriendfindernow.com http://adultfriendfinder.adultfriendfindernow.com http://free-adult-personals.adultfriendfindernow.com http://friend-finder.adultfriendfindernow.com http://photo-personals.adultfriendfindernow.com http://sex-personals.adultfriendfindernow.com http://adult-dating.adultfriendsite.com http://adult-finder.adultfriendsite.com http://adult-friend-find.adultfriendsite.com http://adult-friend-finder-coupon.adultfriendsite.com http://adult-friend-finder.adultfriendsite.com http://adult-friend.adultfriendsite.com http://adult-personals.adultfriendsite.com http://adult-sex.adultfriendsite.com http://adultfriendfinder-com.adultfriendsite.com http://adultfriendfinder.adultfriendsite.com http://free-adult-personals.adultfriendsite.com http://friend-finder.adultfriendsite.com http://photo-personals.adultfriendsite.com http://sex-personals.adultfriendsite.com http://adult-dating.dating999.com http://adult-personals.dating999.com http://christian-dating-service.dating999.com http://christian-dating.dating999.com http://dating-personals.dating999.com http://dating-service.dating999.com http://dating-site.dating999.com http://dating-web-site.dating999.com http://dating.dating999.com http://free-dating.dating999.com http://free-personals.dating999.com http://internet-dating-service.dating999.com http://internet-dating.dating999.com http://on-line-dating.dating999.com http://online-dating-service.dating999.com http://online-dating.dating999.com http://personals.dating999.com http://photo-personals.dating999.com http://singles-dating.dating999.com http://buy-cialis.findbestpills.com http://buy-levitra.findbestpills.com http://buy-viagra-online.findbestpills.com http://buy-viagra.findbestpills.com http://cheap-cialis.findbestpills.com http://cheap-levitra.findbestpills.com http://cheap-viagra.findbestpills.com http://cialis-online.findbestpills.com http://cialis-viagra.findbestpills.com http://cialis.findbestpills.com http://generic-cialis.findbestpills.com http://generic-viagra.findbestpills.com http://levitra-online.findbestpills.com http://levitra.findbestpills.com http://order-viagra.findbestpills.com http://viagra-levitra.findbestpills.com http://viagra-online.findbestpills.com http://viagra-prescription.findbestpills.com http://viagra.findbestpills.com http://adipex-online.diet-pills-now.net http://adipex.diet-pills-now.net http://buy-adipex.diet-pills-now.net http://buy-didrex.diet-pills-now.net http://buy-phentermine.diet-pills-now.net http://buy-propecia.diet-pills-now.net http://buy-soma.diet-pills-now.net http://buy-tramadol.diet-pills-now.net http://buy-ultram.diet-pills-now.net http://carisoprodol.diet-pills-now.net http://cheap-adipex.diet-pills-now.net http://cheap-didrex.diet-pills-now.net http://cheap-phentermine.diet-pills-now.net http://cheap-propecia.diet-pills-now.net http://cheap-soma.diet-pills-now.net http://cheap-tramadol.diet-pills-now.net http://didrex-online.diet-pills-now.net http://didrex.diet-pills-now.net http://order-phentermine.diet-pills-now.net http://phentermine-online.diet-pills-now.net http://phentermine-prescription.diet-pills-now.net http://phentermine.diet-pills-now.net http://propecia.diet-pills-now.net http://purchase-phentermine.diet-pills-now.net http://soma-online.diet-pills-now.net http://soma.diet-pills-now.net http://tramadol-online.diet-pills-now.net http://tramadol.diet-pills-now.net http://ultram-online.diet-pills-now.net http://ultram.diet-pills-now.net http://adult-sex-toys.fabuloussextoys.com http://adult-toy-store.fabuloussextoys.com http://adult-toys.fabuloussextoys.com http://anal-toy.fabuloussextoys.com http://big-dildo.fabuloussextoys.com http://brutal-dildo.fabuloussextoys.com http://dildo-vibrator.fabuloussextoys.com http://dildo.fabuloussextoys.com http://huge-dildo.fabuloussextoys.com http://jack-rabbit-vibrator.fabuloussextoys.com http://rabbit-vibrator.fabuloussextoys.com http://sex-movie.fabuloussextoys.com http://sex-shop.fabuloussextoys.com http://sex-toy-shop.fabuloussextoys.com http://sex-toy-store.fabuloussextoys.com http://sex-toy.fabuloussextoys.com http://sex-toys.fabuloussextoys.com http://sex-videos.fabuloussextoys.com http://vibrator.fabuloussextoys.com http://vibrators.fabuloussextoys.com