Sub Main
  DIM pilihan as integer
  pilihan = 0

  WHILE pilihan <> 1 AND pilihan <> 2
     PRINT "Menu"
     PRINT "1. Pengurutan angka ascending"
     PRINT "2. Pengurutan angka descending"
     SLEEP 3000
     INPUT "Masukan pilihan anda", pilihan
  END WHILE

  IF pilihan = 1 THEN
    ....
  END IF
  IF pilihan = 2 THEN
    ....
  END IF
End Sub