Simple Stupid 8 Ball code

[ron77_db]

looks like someone has left and deleted his posts well here is the lost code he shares before he deleted his account...

Dim s As String

Input "Welcome to the 8 ball. Ask your question!", s

Dim a(0 To 4) As String = {"Yes", "No.", "Maybe.", "idk", "Prolly."}

'pull random element from array
Randomize

Dim ri As Integer

ri = Int(Rnd * 5)

Print a(ri)

sleep