10 CT=0
20 CLEAR 5000
25 INPUT "WHICH DIRECTORY --> ";DD$
30 ST=15488
40 EN=16383
50 DIM A$(120)
60 CMD "DIR 1,I"
70 FOR X=ST TO EN
80 IF PEEK(X)=32 THEN GOSUB 270:IF BR=-1 THEN 120 ELSE GOTO 110
90 HO$=HO$+CHR$(PEEK(X))
100 POKE X,ASC("*")
110 NEXT X
120 '
130 OPEN "O",1,"GO/JCL:0"
135 PRINT #1,"CD C:/WORKING/DL/TRS/";DD$
140 FOR X=1 TO CT
150 PRINT #1,"EXPORT ";A$(X);":1"
160 NEXT X
170 CLOSE 1
180 CMD"s=do go"
190 OPEN "O",1,"GO/BAT:0"
200 PRINT #1,"MD %1"
210 FOR X=1 TO CT
220 PRINT #1,"MV ";A$(X);" %1"
230 NEXT X
240  CLOSE 1: END
250 GOTO 130
260 CMD"s=do go"
270 SP=0:FOR Y=1 TO 20
280 IF PEEK(X+Y)=32 THEN SP=SP+1
290 NEXT Y
300 IF SP = 20 THEN BR=-1
310 IF PEEK(X)=32 AND PEEK(X-1)=32 THEN 350
320 CT=CT+1
330 A$(CT)=HO$
340 HO$=""
350 RETURN
