home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / bridge20.zip / SAMPLE.BR < prev   
Text File  |  1990-05-13  |  3KB  |  82 lines
  1. gosub vardef
  2. cls
  3. maximize
  4. echo {bold}{red}    Now loading sample code... Please wait{n}
  5. exec /n:brnote /hide notepad sample.br; move 0 49.38 100 50; hide()
  6. cls
  7. restore
  8. dialog define Sample
  9. begin
  10.     at 1 10
  11.     size 316 98
  12.     caption "Sample Bridge Dialog Box"
  13.     validate gosub infobred
  14.     timeout %ibt%
  15.     combobox at 196 54 lines 2 width 20 sorted scrollbar required 1 result ibt default  %constell%
  16.     begin
  17.         %constell%
  18.         "Andromeda"
  19.         "Cassiopeia"
  20.         "Camelopardis"
  21.         "Pegasus"
  22.         "Hercules"
  23.         "Lyra"
  24.         "Cygnus"
  25.         "Sagittarius"
  26.         "Ophichus"
  27.         "Coma Berenices"
  28.     end
  29.     radiobutton at 197 15 left width 7 default 1 %Gal[2]%
  30.     radiobutton at 252 15 left width 7 %Gal[1]%
  31.     combobox at 12 14 lines 3 width 12 scrollbar result Epoch default  3
  32.     begin
  33.         "1950"
  34.         "2000"
  35.         "1990"
  36.     end
  37.     groupbox at 13 42 size 160 45 "Stellar Color"
  38.     radiobutton at 26 55 %Color[1]%
  39.     radiobutton at 94 55 %Color[2]%
  40.     checkbox at 26 69 default 2 %Color[3]% 
  41.     checkbox at 94 69 %Color[4]%
  42.     groupbox at 192 42 size 104 50 "Constellation ?"
  43.     groupbox at 8 4 size 69 38 "Epoch Data"
  44.     groupbox at 189 4 size 118 34 "Catalog Reference"
  45.     pushbutton at 90 14 default 1 "&Continue with demo" result binfores
  46. end
  47. dialog load Sample
  48. return
  49.  
  50. :infobred
  51. if %binfores% == 1 return
  52. dialog load
  53. begin
  54.     at 32 10
  55.     size 240 152
  56.     caption "Bred Demo"
  57.     timeout 20
  58.     text at 27 6 width 45 center "The dialog box behind was created using the"
  59.     text at 27 19 width 45 center "Bridge Editor (BrEd). Using BrEd you can"
  60.     text at 27 32 width 45 center "edit your Dialog Box and BrEd pastes the code"
  61.     text at 27 44 width 45 center "for you !!! Bred can also paste commands and"
  62.     text at 27 54 width 45 center "functions complete with full Bridge syntax."
  63.     text at 27 66 width 45 center "Examine the batch file below. It produced this section"
  64.     text at 27 80 width 45 center "of the Demonstration. Click on <OK> to try the"
  65.     text at 27 92 width 45 center "sample Dialog Box behind this message."
  66.     text at 27 104 width 45 center "Then click on 'Continue with Demo' to return to main menu."
  67.     pushbutton at 100 124 width 6 "OK"
  68. end
  69. binfores = -1
  70. return
  71.  
  72. :vardef
  73. Color[1] = "Red Giant"
  74. Color[2] = "Brown Dwarf"
  75. Color[3] = "White Dwarf"
  76. Color[4] = "Blue Giant"
  77. Gal[1]   = "NGC"
  78. Gal[2]   = "Messier"
  79. constell = Orion
  80. ibt = 0
  81. return
  82.