STRPDM.COM
A
DSPSIZ(24 80 *DS3)
A
R SCREEN1
A
CA03(03 'EXIT')
A
1 2DATE
A
EDTCDE(Y)
A
1 71TIME
A
1 26'MOVE SOURCE FILES TO A FOLDER'
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
3 2'BEFORE RUNNING THIS PROCESS!'
A
DSPATR(HI)
A
4 2'1. DO A PRINT LIST <F21> FROM THE -
A
SOURCE FILE/LIBRARY TO BE MOVED.'
A
5 2'2. MAKE SURE THE LIST IS THE LAST -
A
ONE IN THE SPLF.'
A
6 2'3. MAKE SURE THE LIST IS PRINTED O-
A
N THE SAME SESSION THIS PROGRAM IN -
A
RAN.'
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'
A
7 2'4. EACH SOURCE FILE WILL BE DISPLA-
A
YED PRESS <ENTER> TO COPY TO FOLDER-
A
.'