Sorry your browser is not supported!

res:
randomize timer()
dim similes$(32)
similes$(0)=" 8-| "
similes$(1)=" :-y "
similes$(2)=" :-S "
similes$(3)=" 8-) "
similes$(4)=" :'( "
similes$(5)=" }:> "
similes$(6)=" 69-| "
similes$(7)=" :-* "
similes$(8)=" :~) "
similes$(9)=" [B]) "
similes$(10)=" ?:-| "
similes$(11)=" ~8-| "
similes$(12)=" <-) "
similes$(13)=" (|:|) "
similes$(14)=" |:|) "
similes$(15)=" :)# "
similes$(16)=" 8-# "
similes$(17)=" }:) "
similes$(18)=" X-D "
similes$(19)=" :-[o] "
similes$(20)=" ^^; "
similes$(21)=" B-) "
similes$(22)=" :> "
similes$(23)=" :) "
similes$(24)=" 3:[ "
similes$(25)=" #-) "
similes$(26)=" :-D "
similes$(27)=" >:( "
similes$(28)=" %-) "
similes$(29)=" P-( "
similes$(30)=" 8-O "
similes$(31)=" :-O "
similes$(32)=" :-? "
input "How many? ",num
for x=1 to num
r=rnd(32)
out$=out$+similes$(r)
next x
print out$
print "Copied to da c:\yosmilies.txt."
if file exist("C:\yosmilies.txt")=1 then delete file "C:\yosmilies.txt"
open to write 1,"C:\yosmilies.txt"
write string 1,out$
close file 1
execute file "notepad","C:\yosmilies.txt",""
wait key
out$=""
goto res