News:

Welcome to RetroCoders Community

Main Menu

Simple Stupid 8 Ball code

Started by ron77_db, Apr 03, 2022, 02:35 PM

Previous topic - Next topic

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