Dim As Integer sel

Sub show_time()
   ? Time$
    
End Sub

Sub show_date()
   ? Date$
    
End Sub

Sub show_rand()
   ? Rnd * 999999999
    
End Sub

Dim As Sub procs( 3 )

procs( 0 ) = @show_time
procs( 1 ) = @show_date
procs( 2 ) = @show_rand

? "0. Display the time."
? "1. Display the date."
? "2. Display a random number."
?
Do
   Locate 5
   ? space( 30 )
   Locate 5
   Input "Your selection? ", sel
Loop Until sel < 3

procs( sel )()
Sleep