SUB MAIN
  DIM ITEM(5) AS STRING
  DIM SELECTED AS INTEGER
  DIM R AS INTEGER
  ITEM(1)="A"
  ITEM(2)="B"
  ITEM(3)="C"
  ITEM(4)="D"
  ITEM(5)="E"
  SELECTED=-1
  R = SELECTONE("OK Dialog", ITEM, SELECTED, "OK", "", "", FALSE)
  PRINT R
  PRINT SELECTED
  R = SELECTONE("OK Dialog", ITEM, SELECTED, "OK", "", "", TRUE)
  PRINT R
  PRINT SELECTED
  R = SELECTONE("Yes/No Dialog", ITEM, SELECTED, "Yes", "", "No", FALSE)
  PRINT R
  PRINT SELECTED
  R = SELECTONE("Yes/Maybe/No Dialog", ITEM, SELECTED, "Yes", "Maybe", "No", FALSE)
  PRINT R
  PRINT SELECTED
  PRINT "*** Finished ***"
END SUB