open "NAMOFILE.FIL" FOR OUTPUT AS #99
close #99
open "copygen" for output as #99
close #99

OPEN "NAMOFILE.TXT" FOR binary AS #100
OPEN "NAMOFILE.FIL" FOR BINARY AS #101
REPWOOD$=CHR$(13)+CHR$(10)
ORIGWOOD$=chr$(10)
BLAHBLAH:
IF EOF(100) THEN GOTO EGRESS
GET$ #100,10000,THABYTE$
REPLACE ORIGWOOD$ WITH REPWOOD$ IN THABYTE$
PUT$ #101,THABYTE$
GOTO BLAHBLAH

EGRESS:
CLOSE #100
CLOSE #101

open "NAMOFILE.FIL" for input as #1
open "COPYGEN.TMP" for output as #2
open "DECODGEN.TMP" FOR OUTPUT AS #3
k=1
f=1
gosub decgen
getnextline:
if eof(1) then goto buhbye
p$=str$(k)
p$=ltrim$(p$)
line input #1,thisname$
print #2,"mv -f -v "+thisname$+" /webdisk/decode/"+p$+"/"
f=f+1
if f > 1000 then k=k+1:f=1:gosub decgen
goto getnextline
buhbye:

close #1
close #2
close #3
open "COPYGEN.TMP" FOR APPEND AS #1
open "DECODGEN.TMP" FOR INPUT AS #2
getdline:
if eof(2) then goto uhhuh
line input #2,dl$
print #1,dl$
goto getdline
uhhuh:
close #1
close #2
OPEN "COPYGEN.TMP" FOR BINARY AS #200
OPEN "copygen" FOR BINARY AS #201
rem ? "NOW CREATING: ";NFOUT$
REPWOOD$=CHR$(13)+CHR$(10)
ORIGWOOD$=chr$(10)
yaya:
IF EOF(200) THEN GOTO LMCO
GET$ #200,10000,THABYTE$
REPLACE REPWOOD$ WITH ORIGWOOD$ IN THABYTE$
PUT$ #201,THABYTE$
GOTO yaya
LMCO:
CLOSE #200
CLOSE #201
end

decgen:
if eof(1) then goto buhbye
p$=str$(k)
p$=ltrim$(p$)
print #3,"cd /webdisk/decode/"+p$+"/"
print #3,"uudeview -i -a -c *"
print #3,"mv -f -v ./*.* /webdisk/html/80g/otr/"
print #3,"rm -f -v *"
return