Choose For Random Strings In Commodore 64 BASIC?

Question

I have this variable declarations on my program: X="MAGENTA" Y="CYAN" Z="TAN" A="KHAKI" Now what I want is to randomly choose one of these and `PRINT` it. But how to do this?

Answer 1

Module1

Function RandomColorStyle() As String

Dim RandomColorStr As String

Dim iRandNum As Integer

iRandNum = -1

Randomize()

While (iRandNum < 1) Or (iRandNum > 4)

iRandNum = Int(Rnd() * 3 + 1)

End While

RandomColorStr = " "

Select Case iRandNum

Case 1 : RandomColorStr = "MAGENTA"

Case 2 : RandomColorStr = "CYAN"

Case 3 : RandomColorStr = "TAN"

Case 4 : RandomColorStr = "KHAKI"

End Select

RandomColorStyle = RandomColorStr

End Function

Sub Go()

For iLoop = 1 To 10

Console.WriteLine(RandomColorStyle)

Next

End Sub

Sub Main()

Go()

End Sub

End Module