Listing of file='ddu.005' on disk='vmedia/701-2720C.wvd.zip'
# Sector 721, program filename = 'ddu.005'
1040 COM J9$1,K8$(1)100,C0$3
1045 COM S0$(1)1,T1$(80)1
: LOAD T"DDA.DAT"0,0BEG 1055
1055 LOAD T"SE.SUBS"3800,4000BEG 1065
1065 C9$(1)="ddu.005"
: PRINT HEX(03);
: GOSUB '128("Definition File Utilities - Convert IDEAS-2 File",1,99,20)
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80);
: IF STR(K9$,1,6)=" "THEN 1405
: IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1405
: IF STR(K9$,7,2)<>" "THEN 1105
: C3$="@MENU "
: GOTO 1165
1105 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1115
: C3$="@MENU "
: GOTO 1120
1115 C3$=STR(K9$,VAL(STR(K9$,7,1)),8)
: GOTO 1120
1120 C8=VAL(STR(K9$,7,1))
: C9=VAL(STR(K9$,8,1))
: MAT COPY -K9$<C8+8,C9-8>TO -K9$<C8,C9-8>
: STR(K9$,C8+C9-8,8)="@MENU "
1165 PRINT AT(12,0,160);
: GOSUB '128(" EXEC/RUN - Continue",22,51,0)
: GOSUB '128("CANCEL/EDIT - Terminate",23,51,0)
1175 GOSUB '100(HEX(F218010150)," ")
: IF R1=0THEN 1535
: IF R1=1THEN 1200
: GOSUB '128("Invalid key; Ignored",99,0,20)
: GOTO 1175
1200 IF POS("3BD"=STR(C1$,1))*POS("123567"=STR(C1$,2))*POS("012345"=STR(C1$,3)
)=0THEN 1430
: SELECT #2<C1$>
: C0$(2)=C0$(5)
: OR (C0$(2),20)
: LIMITS T#2,C0$(2),C0(1),C0(2),C0(3),C0(4)
: IF C0(4)<>2THEN 1445
: DATA LOAD DA T#2,(C0(1))C4$()
: ERRORGOTO 1445
1240 IF STR(C4$(),1,1)<>"\E3"THEN 1445
: CONVERT STR(C4$(),10,1)TO J1
: IF J1>4THEN 1460
: GOSUB '140(2,"150151")
: IF R9$<>HEX(00)THEN 1475
: LOAD T<R9>R9$()7050,7999BEG 1255
1255 GOSUB '150("1 ")
: C9$(2)="Open"
: IF M<>0THEN 1505
: GOSUB '151("EQ","1",C0$(1)," "," "," "," ")
: C9$(2)="Find"
: IF M=52THEN 1370
: IF M<>0THEN 1505
: PRINT AT(21,0,);HEX(07);
: C0$="NO "
1300 GOSUB '101(HEX(F218010150)," ")
: IF R1<>1THEN 1320
: IF C0$="NO "THEN 1165
: IF C0$="YES"THEN 1335
1320 GOSUB '128("Invalid response; Retry",99,0,20)
: GOTO 1300
1335 GOSUB '140(1,"156")
: IF R9$<>HEX(00)THEN 1475
: LOAD T<R9>R9$()7050,7999BEG 1350
1350 GOSUB '156("AL")
: COM CLEAR J9$
: LOAD T"ddu.005d"
1370 GOSUB '140(1,"156")
: IF R9$<>HEX(00)THEN 1475
: LOAD T<R9>R9$()7050,7999BEG 1385
1385 GOSUB '156("AL")
: COM CLEAR J9$
: LOAD T"ddu.005a"
1405 GOSUB '128("Program not properly initialized; Press any key to Cancel",99
,0,20)
: KEYIN J8$
: C3$="@MENU "
: GOTO 1560
1430 GOSUB '128("Invalid device address; Re-specify",99,0,20)
: GOTO 1175
1445 GOSUB '128("Invalid IDEAS-2 control file; Re-specify",99,0,20)
: GOTO 1175
1460 GOSUB '128("Invalid IDEAS-2 file type; Re-specify",99,0,20)
: GOTO 1175
1475 PRINT HEX(07);
: GOSUB '128("Error in selecting definition access software",23,1,20)
: GOSUB '128(" Press any key to cancel",24,1,20)
: KEYIN J8$
: GOTO 1535
1505 GOSUB '140(1,"160")
: IF R9$<>HEX(00)THEN 1560
: LOAD T<R9>R9$()7050,7999BEG 1520
1520 GOSUB '160(1,C9$(1),C9$(2))
: GOTO 1560
1535 GOSUB '140(1,"156")
: IF R9$<>HEX(00)THEN 1560
: LOAD T<R9>R9$()7050,7999BEG 1550
1550 GOSUB '156("AL")
1560 C5$=C3$
: COM CLEAR J8$
: LOAD TC5$
2000 DEFFN'100(S9$,S0$)
: S4=1
: S3=03
: S2=0
: S1=0
: T0$=" "
: IF POS(S9$=F2)>0THEN T0$=STR(S9$,POS(S9$=F2)+1,4)
: RESTORE LINE2026
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 03
: ON T4GOSUB 2011,2016,2021
: NEXT T4
: T9=-1
: T3=S4
2007 ON T3GOSUB 2011,2016,2021
: ON R1GOTO ,,,,2009,2010
: RETURN
2009 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 2007
2010 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 2010
: GOTO 2007
2011 GOSUB '126(06,46,08,01,00,001,C0$(5),S0$,"X",1,T9,".....6")
: C0$(5)=T1$()
: RETURN
2016 GOSUB '126(08,46,03,01,00,001,C1$,S0$,"X",1,T9,".....6")
: C1$=T1$()
: RETURN
2021 GOSUB '126(10,46,08,01,00,001,C0$(1),S0$,"X",1,T9,".....6")
: C0$(1)=T1$()
: RETURN
2026 DATA 04,03,00,"Enter required information:"
: DATA 06,08,00,"IDEAS-2 data file name:"
: DATA 08,08,00,"IDEAS-2 control file device address:"
: DATA 10,08,00,"Definition file name:"
: DATA 0,0,0," "
2200 DEFFN'101(S9$,S0$)
: S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: IF POS(S9$=F2)>0THEN T0$=STR(S9$,POS(S9$=F2)+1,4)
: RESTORE LINE2216
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 01
: ON T4GOSUB 2211
: NEXT T4
: T9=-1
: T3=S4
2207 ON T3GOSUB 2211
: ON R1GOTO ,,,,2209,2210
: RETURN
2209 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 2207
2210 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 2210
: GOTO 2207
2211 GOSUB '126(14,41,03,01,01,001,C0$,S0$,"A",1,T9,".....6")
: C0$=T1$()
: RETURN
2216 DATA 13,12,00,"This file definition already exists,"
: DATA 14,15,00,"Do you wish to overwrite?"
: DATA 14,46,00,"(YES/NO)"
: DATA 0,0,0," "