Listing of file='ddu.005c' on disk='vmedia/701-2720C.wvd.zip'
# Sector 768, program filename = 'ddu.005c'
1000 % LABEL - START OF PROGRAM
1075 COM J9$1,C5$(16)8,C6$(5)17,D2,D3,D5,D1$4,D2$1,D3$20,K8$(200)1
: C9$(1)="ddu.005c"
: GOSUB '140(3,"151152153")
: IF R9$<>HEX(00)THEN 1760
: LOAD T<R9>R9$()7050,7999BEG 1095
1095 C5$()=STR(C4$(),275,128)
: D2=0
: PRINT AT(21,27,);"Index ";
1110 D2=D2+1
: IF D2>17THEN 1635
: D1$=" "
: C6$()=" "
: IF D2>1THEN 1155
: PRINT AT(21,33);D2;
: C0$(3)=C0$(1)
: C0$(4)=C0$(2)
: GOTO 1200
1155 IF C5$(D2-1)=" "THEN 1635
: PRINT AT(21,33);D2;
: C0$(3)=C5$(D2-1)
: C0$(4)=C0$(3)
: OR (C0$(4),20)
: LIMITS T#2,C0$(4),C0(1),C0(2),C0(3),C0(4)
: IF C0(4)<>2THEN 1780
: DATA LOAD DA T#2,(C0(1))C4$()
: ERRORGOTO 1780
1200 C6$()=STR(C4$(),108,85)
: IF STR(C6$(1),1,8)=" "THEN 1805
: IF STR(C6$(2),1,8)=" "THEN D2$="S"
: ELSE D2$="M"
: D3=1
1230 IF STR(C6$(D3),1,8)=" "THEN 1275
: D3$=C0$(1)&"-"&STR(C6$(D3),1,8)
: GOSUB '152("KY","3"," ",D3$," "," "," ")
: IF M=52THEN 1805
: C9$(2)="read/fld"
: IF M<>0THEN 1770
: D3=D3+1
: IF D3<6THEN 1230
1275 D1$=" "
: GOSUB '151("GT","4","0000"," "," "," "," ")
: IF M=0THEN 1305
: C9$(2)="1st/indx"
: IF M<>64THEN 1770
: D1=0
: GOTO 1330
1305 GOSUB '151("LT","4","9999"," "," "," "," ")
: IF M=64THEN 1805
: C9$(2)="last/idx"
: IF M<>0THEN 1770
: CONVERT M2$TO D1
1330 D1=D1+1
: CONVERT D1TO D1$,(####)
: GOSUB '151("EQ","4",D1$," "," "," "," ")
: IF M=52THEN 1365
: C9$(2)="new/indx"
: IF M<>0THEN 1770
: GOTO 1330
1365 K8$()=" "
: STR(K8$(),D0(4,1),40)="Access path to file, "&C0$(1)
: STR(K8$(),D0(4,2),8)=C0$(1)
: STR(K8$(),D0(4,3),1)=BIN(D2)
: IF D2>1THEN 1400
: IF STR(C4$(),10,1)="3"THEN STR(K8$(),D0(4,4),1)="Y"
: ELSE STR(K8$(),D0(4,4),1)="N"
: GOTO 1405
1400 IF STR(C4$(),10,1)="5"THEN STR(K8$(),D0(4,4),1)="N"
: ELSE STR(K8$(),D0(4,4),1)="Y"
1405 STR(K8$(),D0(4,5),2)=HEX(0000)
: C8=0
: J1=1
1425 IF STR(C6$(J1),1,8)=" "THEN 1450
: CONVERT STR(C6$(J1),14,2)TO J2
: C8=C8+J2
: J1=J1+1
: IF J1<6THEN 1425
1450 STR(K8$(),D0(4,6),1)=BIN(C8)
: IF D2=1THEN 1475
: STR(K8$(),D0(4,7),20)=C0$(3)
: STR(K8$(),D0(4,8),3)=C1$
1475 GOSUB '153("RW",K8$(),"4",D1$," "," "," "," ")
: C9$(2)="st/indx"
: IF M<>0THEN 1770
: GOSUB '153("RW"," ","1",C0$(1)," ","4",D1$," ")
: C9$(2)="file/idx"
: IF M<>0THEN 1770
: GOSUB '153("RW"," ","2",C0$(1)," ","4",D1$," ")
: C9$(2)="rec/indx"
: IF M<>0THEN 1770
1520 GOSUB '153("RW"," ","4",D1$," ","2",C0$(1)," ")
: C9$(2)="indx/rec"
: IF M<>0THEN 1770
: D3=0
: D5=0
1540 % LABEL - NEXT INDEX/FIELD
1545 D3=D3+1
: IF STR(C6$(D3),1,8)=" "THEN 1110
: D3$=C0$(1)&"-"&STR(C6$(D3),1,8)
: K8$()=" "
: STR(K8$(),D0(8,1),1)=BIN(D3)
: STR(K8$(),D0(8,2),1)=BIN(D5+1)
: STR(K8$(),D0(8,3),1)=STR(K8$(),2,1)
: IF STR(C6$(D3),17,1)="-"THEN STR(K8$(),D0(8,4),1)="D"
: ELSE STR(K8$(),D0(8,4),1)="A"
1590 GOSUB '153("RW",K8$(),"4",D1$," ","3",D3$," ")
: C9$(2)="indx/fld"
: IF M<>0THEN 1770
: GOSUB '153("RW"," ","3",D3$," ","4",D1$," ")
: C9$(2)="fld/indx"
: IF M<>0THEN 1770
: CONVERT STR(C6$(D3),13,3)TO D6
: D5=D5+D6
: IF D3<6THEN 1540
: GOTO 1110
1635 % LABEL
1645 GOSUB '140(3,"152154156")
: IF R9$<>HEX(00)THEN 1700
: LOAD T<R9>R9$()7050,7999BEG 1665
1665 GOSUB '152("KY","2"," ",C0$(1)," "," "," ")
: C9$(2)="read/rec"
: IF M<>0THEN 1770
: STR(K8$(),D0(2,6),1)=" "
: GOSUB '154(K8$(),"2"," ")
: C9$(2)="mod/rec"
: IF M<>0THEN 1770
: GOSUB '156("AL")
1700 PRINT AT(21,0,);HEX(0E07);"IDEAS-2 file successfully converted";HEX(0F);
: PRINT AT(22,40);" EXEC/RUN - Reorganize Data Dictionary";
: PRINT AT(23,40);"CANCEL/EDIT - Terminate";
1715 KEYIN J8$
: IF STR(J8$,,1)<>HEX(F0)THEN 1730
: C5$=C3$
: COM CLEAR J8$
: LOAD TC5$
1730 IF STR(J8$,,1)<>HEX(82)THEN 1715
: IF STR(K9$,7,2)=" "THEN 1750
: D8=VAL(STR(K9$,7,1))
: D9=VAL(STR(K9$,8,1))
: IF D8<1OR D9<8THEN 1750
: MAT COPY -K9$<D8,D9>TO -K9$<D8+8,D9-8>
: STR(K9$,D8,8)=C3$
1750 COM CLEAR J8$
: LOAD T"ddu.040"
1760 D0=2
: GOTO 1810
1770 D0=3
: GOTO 1810
1780 D0=1
: M=ERR
: GOTO 1810
1805 D0=4
: GOTO 1810
1810 % LABEL
1820 COM CLEAR J9$
: LOAD T"ddu.005e"1000,2999BEG 1000