Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DEF N(L)C$="hybcdfgjklmnpqrstvwxzaeiou"J=L/2 K=-1IF L MOD 2THEN K=RND(J)
- FOR I=0TOJ-1O$=O$+CHR$(ASC(C$[RND(21)])-32*!I)+C$[RND(5)+21]+C$[RND(2)]*(K==I)NEXT RETURN O$END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement