program generated by chatgpt

[James D Jarvis]

create a qb64PE program to randomly generate a smiley face with a prompt to continue with a new face or quit the program.    

Code: (Select All)

' Random Smiley Face Program
' Author: OpenAI

Randomize Timer

Dim Smiley(3) As String * 5

Smiley(1) = ":)"
Smiley(2) = ":D"
Smiley(3) = ";)"

Do
    Print Smiley(Int(Rnd(1) * 3) + 1)
    Print "Press 'N' for a new smiley, or 'Q' to quit."
    Input choice$
Loop While UCase$(choice$) <> "Q"

End

---

Where's the rocket? All I see is a chess piece with a gas problem.

Pete

I'll give the AI a pass on the gas.