Microsoft Small Basic

Program Listing: RVG855

List Program

contestants = "1=TB;2=KA;3=JN;4=TKG;5=TE;6=JDC;7=DBe;8=RAD;9=CA;10=CB;11=MT;12=JD;13=LM;14=PH;15=JAu;16=DH;17=TMC;18=JAb;19=GC;20=DMK;21=DL;22=JC;23=DF;24=AHa;25=GH;26=BR;27=RP;28=WC;29=SP;30=ArR;31=JH;32=AM;33=AmR;34=JI;35=RI;36=DBu;37=BS;38=JK;39=EN;40=CK;41=AnH;42=OH;43=SG;44=DS;45=KP;46=SM"
TextWindow.WriteLine("The Winners are:")
number = 1
For N = 1 To 10
winner = Math.GetRandomNumber(46)
While (contestants[winner] = 0)
winner = Math.GetRandomNumber(46)
EndWhile

TextWindow.WriteLine(number + ". " + contestants[winner])
number = number + 1
contestants[winner] = 0
EndFor
TextWindow.WriteLine("")