Code

var vresult as string
var vchoices as string




vchoices =
"502     Office;" +
"505      GENERATOR;" +
"507      TILT A WHIRL;" +
"508      SCRAMBLER 2;" +
"509      GENERATOR;" +
"511      ZIPPER;" +
"516      SCRAMBLER 1;" +
"517      SLIDE 1;" +
"518      SPIDER;" +
"519      HURRICANE;" +
"522      GRAVITRON;" +
"523      ELI WHEEL;" +
"524      FUNHOUSE;" +
"528      BERRY GO RND;" +
"530      ORIENT EXPRESS;" +
"531      BEES;" +
"535      BIKES;" +
"536      RAIDERS;" +
"539      TRAIN;" +
"541      ROCKET RACE;" +
"542      SCOOTER;" +
"547      SKEEBALL;" +
"552      CAROUSEL;" +
"559      GONDOLA;" +
"560      GONDOLA SCENERY;" +
"569      CENTRAL PARK;" +
"570      MERRY GO RND;" +
"576      SWING;" +
"577      MARDI GRAS;" +
"580      BERRY GO RND 2;" +
"582      CLIFFHANGER;" +
"585      TORNADO;" +
"586      2 OFFICE;" +
"588      FREAK OUT;" +
"589      SLIDE 2;" +
"590      CONST ZONE;" +
"591      WACAMOLE;" +
"592      WATER RACE;" +
"593      DERBY;" +
"594      FULL TILT;" +
"595      PENTHOUSE;" +
"596      QUASAR;" +
"598      TERRY HOUSE;" +
"599      Columbus;" +
"600     Musik Express;" +
"601      Glendale House;" +
"602      Londonaire House;" +
"603      Dannys House;" +
"604      TandM Bunk;" +
"605      500kw Gen;" +
"606      Dog Ride"


vresult = @PopupChoiceList(vchoices, "Select Equipment")