Listing of file='IDS2PF20' on disk='vmedia/701-2717B.wvd.zip'
# Sector 62, program filename = 'IDS2PF20'
1000 REM "IDS2PF20" - COPY A DATA FILE CONTROL FILE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sSC0")
: PRINT HEX(0E);AT(0,7);"Data File Editor - Copy A Data File's Control File
";HEX(0F);AT(11,42);"data file to be copied"
: GOSUB '45(1,E9$(1))
: F6$(12)="N"
1020 GOSUB '34(1)
: E9$(1)=E$
: F0$=E$OR ALL(20)
: GOSUB '39(F0$,5)
: IF Q=2THEN 1030
: GOSUB '35("Control file doesn't exist for this file")
: GOTO 1020
1030 D1=M
: D3=A
: D4=P
: MAT REDIM E3$(6)83
: DATA LOAD DA T#P,(A)E3$()
: CONVERT STR(E3$(),10,1)TO D2
: IF D2>4THEN 1040
: MAT REDIM E3$(24)83
: DATA LOAD DA T#P,(A)E3$()
1040 STR(E2$(2),7,1)=OR HEX(80)
: PRINT HEX(0F);AT(15,6);BOX(1,67);AT(15,7);"Enter desired new name for the
copy of this control file"
: GOSUB '34(2)
: E9$(1)=E$
: F0$=E$OR ALL(20)
: IF F0$=E9$(1)THEN 1100
1050 IF D2<5THEN S=18
: ELSE S=4
: IF STR(F0$,,4)="ids2"THEN P=2
: ELSE P=5
: DATA SAVE DC OPEN T#P,(S)F0$
: ERRORX=ERR
: IF X<>83THEN 1080
: GOSUB '35("The control file for this file already exists!")
: GOTO 1040
1060 GOSUB '39(F0$,5)
: STR(E3$(),2,8)=E9$(1)
: STR(E3$(),11,5)=ALL(00)
: STR(E3$(),16,6)=R2$
: STR(E3$(),447,3)=R4$
: IF D2>4THEN STR(E3$(),82,8)=" "
: IF D2>4THEN 1070
: STR(E3$(),82,8)=E9$(1)
: STR(E3$(),275,128)=" "
1070 DATA SAVE DC #P,E3$()
: IF D2<5THEN GOSUB 1090
: DATA SAVE DC #P,END
: DATA LOAD BA T#D4,(D1)STR(E3$(),,256)
: DATA SAVE BA T#P,(M)STR(E3$(),,256)
: MAT REDIM E3$(249)8
: LOAD T#2,R3$(1)1000,
1080 PRINT "UNEXPECTED ERROR ";X
: END
1090 DATA LOAD DA T#D4,(D3+8)E3$()
: DATA SAVE DC #P,E3$()
: RETURN
1100 GOSUB '35("File name must contain at least one upper case character")
: GOTO 1040
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF20"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"