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