12 lines
348 B
Plaintext
12 lines
348 B
Plaintext
OpenConsole()
|
|
|
|
a$="One" +#TAB$+ "Two" +#TAB$+ "Three" +#TAB$+ "Four" +#TAB$+ "Five" +#TAB$+
|
|
"Six" +#TAB$+ "Seven"+#TAB$+ "Eight" +#TAB$+ "Nine" +#TAB$+ "Ten" +#TAB$
|
|
|
|
Print("Source list: "+#TAB$+a$+#CRLF$+"Random list: "+#TAB$)
|
|
|
|
For i=1 To CountString(a$,#TAB$)
|
|
Print(StringField(a$,Random(CountString(a$,#TAB$),1),#TAB$)+#TAB$)
|
|
Next
|
|
Input()
|