int x,y,r,r2
string x$
file f1
openfile(f1,getstartpath + "input.txt","W")
openconsole
print
print "  Working...."
print
for x = 1 to 100000

    r = rnd(1.0,250.0) 

    x$ = ""

    for y = 1 to r
        x$ = x$ + chr$(rnd(48.0,122.0))
    next y

    write f1,x$
next x 

print
print "  Press any key"
print
do:until inkey$ <> ""
closeconsole
closefile f1
end