A* DSPF NAME:
AA2DF
A*%%EC
A
DSPSIZ(24 80 *DS3)
A
R SCREEN1
A
CA03(03 'EXIT')
A
1 2DATE
A
EDTCDE(Y)
A
1 71TIME
A
1 22'MOVE FOLDER DOCUMENTS TO A SOURCE -
A
FILE'
A
10 2'SOURCE FILE:'
A
11 2'SOURCE LIBRARY:'
A
12 2'FOLDER NAME:'
A
FFILE 10A B 10 18
A
FLIB 10A B 11 18
A
TFOLD 10A B 12 18
A
23 2'F3=EXIT'
A
TEXT 75A O 22
2
A
11 30'Name, *LIBL, *CURLIB'
A
10 30'Name'
A
12 30'Name'