Sorry your browser is not supported!

if file exist("output.txt") then delete file "output.txt"
OPEN TO WRITE 1,"output.txt"
Dim con$(30)
  	con$(1)="b"
   con$(2)="c"
   con$(3)="d"
   con$(4)="f"
   con$(5)="g"
   con$(6)="h"
   con$(7)="j"
   con$(8)="k"
   con$(9)="l"
   con$(10)="m"
   con$(11)="n"
   con$(12)="p"
   con$(13)="q"
   con$(14)="r"
   con$(15)="s"
   con$(16)="t"
   con$(17)="v"
   con$(18)="w"
   con$(19)="x"
   con$(20)="y"
   con$(21)="z"
   con$(22)="a"
   con$(23)="e"
   con$(24)="i"
   con$(25)="o"
   con$(26)="u"
   con$(27)=" "
   con$(28)=" "
   con$(29)=" "
   con$(30)=" "


do
a$=Con$(Rndm(30))
b$=Con$(Rndm(30))
c$=Con$(Rndm(30))
d$=Con$(Rndm(30))
e$=Con$(Rndm(30))
f$=Con$(Rndm(30))
g$=Con$(Rndm(30))
h$=Con$(Rndm(30))
i$=Con$(Rndm(30))
j$=Con$(Rndm(30))
k$=Con$(Rndm(30))
l$=Con$(Rndm(30))
m$=Con$(Rndm(30))
n$=Con$(Rndm(30))
o$=Con$(Rndm(30))
p$=Con$(Rndm(30))
q$=Con$(Rndm(30))
r$=Con$(Rndm(30))
s$=Con$(Rndm(30))
t$=Con$(Rndm(30))
u$=Con$(Rndm(30))
v$=Con$(Rndm(30))
w$=Con$(Rndm(30))
x$=Con$(Rndm(30))
y$=Con$(Rndm(30))
z$=Con$(Rndm(30))

cls
Print a$
WRITE STRING 1,a$+b$+c$+d$+e$+f$+g$+h$+i$+j$+k$+l$+m$+n$+o$+p$+q$+r$+s$+t$+u$+v$+w$+x$+y$+z$
loop

Function Rndm(num)
   random=1+(rnd(num-1))
EndFunction random

wdlt bpnv  xyz oszhomzjgg 
mtu qkqbuzu vjmxhyi kqmcvu
x s zffktprrkmarh bijfosuv
sfilqkk nc dpskwxbdn xicyz
 ytvrka y lgzqbc dywqifuy 
cnhjwx  fky gdqhvymodr znk
ukkfboibs kk msjoozfect ua
crjy fo okrugkpyha  bqj sg
 thlfm dum gwnzkekq  auiwl
 emxwcocgksxhcwuelao ztcuw
rfdufnxhhyibpb geaj snbqp 
xndtezmvjgh qxrr xgxgjkj  
eiwcmcnqldtuwo usipdge oux
iucy yzwwx nhq s mjcv ywuk
pnvehlpjvscl   nhm aybz ia
gava dofauwdrknps jrg  qfz
kbsd vhddzunmk  s ghdtfrx 
ghjxzzs sturrilokskcf jlqs

Sync On: Sync Rate 0
Dim con$(27)
For N=1 To 26
  con$(N)=Chr$(N+96)
Next N
LastChar$=" "
Input "Number Of Characters To Write To File: ";NumChars
CLS
If file exist("output.txt") then delete file "output.txt"
OPEN TO WRITE 1,"output.txt"
For N=1 To NumChars
  If Rnd(3)=1 And LastChar$<>" "
    Rem Decrease chances of really long words by throwing extra spaces in
    Print " ";
    WRITE Byte 1,32;
    LastChar$=" "
  Else
    Rem Normal non-space random characters
    a$=Con$(rnd(25)+1)
    Print a$;
    WRITE Byte 1,Asc(a$);
    LastChar$=a$
  Endif
Next N
Close File 1
Print: Print
Print NumChars;" characters written. Press a key to exit."
Wait Key

Sync On: Sync Rate 0
Dim con$(27)
For N=1 To 26
  con$(N)=Chr$(N+96)
Next N
LastChar$=" "
Print "press any key to start"
Wait key
If file exist("output.txt") then delete file "output.txt"
OPEN TO WRITE 1,"output.txt"
number# = 1
Do
wait (1)
CLS
  If Rnd(3)=1 And LastChar$<>" "
    Rem Decrease chances of really long words by throwing extra spaces in

    WRITE Byte 1,32;
    LastChar$=" "
  Else
    Rem Normal non-space random characters
    a$=Con$(rnd(25)+1)

    WRITE Byte 1,Asc(a$);
    LastChar$=a$
  Endif

Print number# ," characters written"
number#=(number#+1)

if returnkey()=1
gosub die
endif
Print "Press a key to exit."
Loop

die:
Close File 1
end