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," "