home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / litebr42.zip / LBDEMO.PRG < prev    next >
Text File  |  1987-06-15  |  3KB  |  114 lines
  1. public clipper
  2. SET BELL OFF
  3. SET SCOR OFF
  4. SET TALK OFF
  5. if .not. clipper
  6.    LOAD litebar
  7. endi
  8. CLEA
  9. funk_return=CHR(4)
  10. esca=CHR(27)
  11. cr_option=.f.
  12. verb_option=.f.
  13. remb_option=.f.
  14. funk_option=.f.
  15. time_option=.f.
  16. help_option=.f.
  17. @1,0 SAY "Force returns to select an option (Y/N)?" GET cr_option PICT "Y"
  18. @2,0 SAY "Return whole string selected (Y/N)?" GET verb_option PICT "Y"
  19. @3,0 SAY '"Remember" last selected option (Y/N)?' GET remb_option PICT "Y"
  20. @4,0 SAY 'Display time (Y/N)?' GET time_option PICT "Y"
  21. @5,0 SAY 'Trap function keys (Y/N)' GET funk_option PICT "Y"
  22. @6,0 SAY 'Display Help Prompts (Y/N)' GET help_option PICT "Y"
  23. READ
  24. IF verb_option
  25.    verb_char="V"
  26. ELSE
  27.    verb_char=''
  28. ENDI
  29. IF cr_option
  30.    cr_char="E"
  31. ELSE
  32.    cr_char=''
  33. ENDI
  34. IF funk_option
  35.    funk_char="K"
  36. ELSE
  37.    funk_char=''
  38. ENDI
  39.  
  40. low_high="112,111,"
  41. IF time_option
  42.    time_str="T0,6,"                && display time at 0,6
  43. ELSE
  44.    time_str=''
  45. ENDI
  46. mchoice1="22,0, T)his is a demo \T"
  47. mchoice2="22,31, O)f litebar version \O"
  48. mchoice3="22,70, 4).0 \4"
  49. IF help_option
  50.    mhelp1="\24,30, Help for menu option 1\"
  51.    mhelp2="\24,30, Help for menu option 2\"
  52.    mhelp3="\24,30, Help for menu option 3\"
  53.    help_str="H31"
  54.    mchoice1=mchoice1+mhelp1
  55.    mchoice2=mchoice2+mhelp2
  56.    mchoice3=mchoice3+mhelp3
  57. ELSE
  58.     help_str=''
  59. ENDI
  60. mchoice=' '+cr_char+verb_char+funk_char+help_str+time_str+"/"+low_high+mchoice1+mchoice2+mchoice3
  61. IF verb_option
  62.    padding=SPAC(LEN(mchoice))
  63. ELSE
  64.    padding=''
  65. ENDI
  66.  
  67. DO WHIL .T.
  68.       CLEAR
  69.       IF time_option
  70.             @0,0 SAY 'Time:'
  71.       ENDI
  72.       @22,1 CLEA
  73.       CALL litebar WITH "0"
  74.       CALL litebar WITH mchoice
  75.       in_front=''
  76.       DO CASE
  77.       CASE mchoice=esca
  78.            in_front="escape + "
  79.            mchoice=RIGH(mchoice,LEN(mchoice)-1)
  80.       CASE mchoice=funk_return
  81.             in_front="F"+LTRI(STR(ASC(SUBS(mchoice,2,1))))+" + "
  82.             mchoice = RIGH(mchoice,LEN(mchoice)-2)
  83.       CASE mchoice=CHR(1)
  84.             @23,1 CLEA
  85.             @23,1 SAY "invalid parameter for litebar.bin...press any key"
  86.             ?mchoice
  87.             WAIT ''
  88.             CANC
  89.       ENDC
  90.       IF .NOT. verb_option
  91.             mchoice=LEFT(mchoice,1)
  92.       ENDI
  93.       @23,0 CLEA
  94.       xoption = ' '
  95.       CALL LITEBAR WITH "1"
  96.       @23,1 SAY "Litebar returns: "+in_front+mchoice
  97.       @24,1 SAY "...press any key to continue (X to exit)" GET xoption PICT "!"
  98.       READ
  99.       IF xoption = "X"
  100.             EXIT
  101.       ENDI
  102.       CALL LITEBAR WITH "0"
  103.       IF remb_option
  104.             mchoice="M"+padding
  105.       ELSE
  106.             mchoice=cr_char+verb_char+funk_char+help_str+time_str+'/'+low_high+mchoice1+mchoice2+mchoice3
  107.       ENDI
  108. ENDDO
  109. IF .NOT. clipper
  110.    RELE MODU litebar
  111. ENDI
  112. RETU
  113.  
  114.