STRPDM.COM
A
DSPSIZ(24 80 *DS3)
A
R SCREEN1
A
CA03(03 'exit')
A
1 27'CREATE SEPERATED PC DOCUMENT'
A
22 3'F3=Exit'
A
3 4'FILE'
A
FILE 10A B 3
14
A
4 4'MEMBER'
A
5 4'LIBRARY'
A
MEMBER 10A B 4 14
A
LIB 10A B
5 14
A
3 25'Name'
A
4 25'Name, *FIRST, *LAST'
A
5 25'Name, *LIBL, *CURLIB'
A
TEXT 75 O 21
3DSPATR(HI)
A
6 4'FOLDER'
A
FOLDER 10A B 6 14
A
6 25'Name'
A
7 4'DOCUMENT'
A
DFTNAM 6A B 7 14
A
7 25'Name'
A
8 4'SEPERATOR'
A
SEP 1A
B 8 14
A
10 4'BREAK FILES GREATER THAN 50,000 RE-
A
CORDS INTO SEPERATE FILES?'
A
BRK 1A
B 10 65