program generated by chatgpt

[mnrvovrfc]

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