Listing of file='ddu.035 ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 900, program filename = 'ddu.035' 1030 COM K9$124,C1$1,C3$8 1035 LOAD T"SE.SUBS"3800,4000BEG 1055 1055 DIM A1$3,A1$(16)1,A3$8,A4$1,A0(11),A9$48,T1$(256)1,A1,S0$(1)1 : DIM B1$(16)3,B2$(16)3,B5$2,B1,B2,B3,B4 : IF STR(K9$,1,6)=" "THEN 1365 : IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1365 : IF STR(K9$,7,2)<>" "THEN 1090 : C3$="@MENU " : GOTO 1115 1090 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1100 : C3$="@MENU " : GOTO 1105 1100 C3$=STR(K9$,VAL(STR(K9$,7,1)),8) : GOTO 1105 1105 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 " 1115 SELECT #1<STR(K9$,4,3)> : DATA LOAD DC OPEN T#1,"DD.DEF" : ERRORGOTO 1390 1130 DATA LOAD DC #1,A0(),A9$ : ERRORGOTO 1390 1135 B1$()=" " : B2=POS(A9$=HEX(FF)) : IF B2=1THEN 1425 : IF B2=0THEN B2=49 : B1$()=STR(A9$,1,B2-1) : B3=(B2-1)/3 : A1$()=" " : GOSUB 1490 : GOSUB '128(" '1 - Clear all users",21,51,00) : GOSUB '128(" EXEC/RUN - Continue",22,51,00) : GOSUB '128("CANCEL/EDIT - Terminate",23,51,00) 1195 GOSUB '100(HEX(F218010150),HEX(01)) : IF U=0THEN 1470 : IF U=1THEN 1235 : IF U=4AND S0=1THEN 1225 : GOSUB '128("Invalid key; Ignored",99,0,20) : GOTO 1195 1225 B2$()=B1$() : GOTO 1280 1235 IF POS(A1$()=HEX(8B))=0THEN 1195 : B2$()=" " : A1=1 : B4=1 1250 IF A1$(A1)=HEX(8B)THEN 1260 : A1$(A1)=" " : GOTO 1265 1260 B2$(B4)=B1$(A1) : B4=B4+1 1265 A1=A1+1 : IF A1<=B3THEN 1250 1280 IF B2$()=" "THEN 1195 : $OPEN #1 : DBACKSPACE #1,BEG : DATA LOAD DC #1,A0(),A9$ : B4=1 1305 MAT SEARCHA9$,=B2$(B4)TO B5$STEP 3 : IF VAL(B5$,2)=0THEN 1325 : MAT COPY A9$<VAL(B5$,2)+3>TO A9$<VAL(B5$,2)> : STR(A9$,46)=ALL(FF) 1325 B4=B4+1 : IF B4>B3THEN 1340 : IF B2$(B4)<>" "THEN 1305 1340 DBACKSPACE #1,BEG : DATA SAVE DC #1,A0(),A9$ : $CLOSE#1 : GOTO 1135 1365 GOSUB 1490 : GOSUB '128("Program not properly initialized",99,0,20) : C3$="@MENU " : GOTO 1450 1390 GOSUB 1490 : PRINT HEX(07); : GOSUB '128("I/O error on access to data dictionary",23,1,20) : GOSUB '128(" Disk error code:",24,1,20) : GOSUB '125(20) : PRINT AT(23,21);ERR; : GOSUB '125(00) : GOTO 1450 1417 PRINT AT(23,0,);HEX(07); : GOSUB '128("Unable to exclusively Open Definition file",21,1,20) : GOTO 1195 1425 GOSUB 1490 : PRINT AT(23,0,);HEX(07); : GOSUB '128("Definition file is \EE\EF\F4 currently in use",21,1,20) : GOTO 1450 1450 GOSUB '128("CANCEL/EDIT - Exit",23,51,0) 1455 KEYIN A4$ : IF STR(A4$,1)=HEX(F0)THEN 1470 : PRINT HEX(07); : GOTO 1455 1470 DATA SAVE DC CLOSE#1 : ERRORGOTO 1475 1475 C5$=C3$ : COM CLEAR C1$ : LOAD TC5$ 1490 SELECT PRINT 005(80) : PRINT HEX(03); : GOSUB '128("Definition File Utilities - Examine In-use Conditions",1,99,2 0) : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80); : RETURN 2000 DEFFN'100(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 LINE2021 : GOSUB '129("DATA",0) : T9=0 : FOR T4=1TO 02 : ON T4GOSUB 2011,2016 : NEXT T4 : T9=-1 : T3=S4 2007 ON T3GOSUB 2011 : 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(09,31,01,08,14,B3,A1$(),S0$,"\A6",1,T9," ") : A1$()=T1$() : RETURN 2016 GOSUB '127(09,33,03,08,14,B3,20,B1$()," ") : RETURN 2021 DATA 07,07,00,"Select User ids. to be cleared:" : DATA 0,0,0," "