image of READY prompt

Wang2200.org

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