Listing of file='IDS2P008' on disk='vmedia/701-2717B.wvd.zip'
# Sector 717, program filename = 'IDS2P008' 1000 REM "IDS2P008" - NEW USER SECURITY INPUT MODULE 1005 E6$=F6$(17)AND HEX(02) : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1010 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2s000") : MAT SEARCHE1$(),="IDS2f005"TO F9$STEP 56 : IF F9$=HEX(0000)THEN 1030 : J0=(VAL(STR(F9$,2))+55)/56 : GOTO 1060 1030 LIMITS T#2,"ids2f005",A,B,C,D : MAT REDIM E$(6)83 : DATA LOAD DA T#2,(A)E$() : LIMITS T#2,"IDS2f005",A,B,C,D : IF F6$(53)="N"THEN J0=1 : ELSE J0=LEN(STR(E1$(),1))/56 : MAT REDIM E$(E8)1 : E1$(J0)="IDS2f005"&HEX(02)&BIN(J0,2)&STR(E$(),403,1)&STR(E$(),405,42)&BIN (A,2) 1060 E$()=" " : STR(F6$(),11,4)="YNYY" : GOSUB '60("IDS2f005"," ") : IF VAL(E6$())=255THEN R8$="F" 1090 F=0 1100 F=F+1 1110 GOSUB '34(F) : ON FGOTO 1130,1100,1100,1200,1240,1270 1130 IF F1$(1)<>" "THEN 1100 : F6$(14)="N" : GOSUB '41("IDS2f005",E$,1) : F6$(14)="Y" : IF Q=0THEN 1100 : GOSUB '36 : F6$(11)="N" : GOTO 1270 1200 IF VAL(E6$())<255THEN 1100 : GOSUB '45(5,"F") : F=F+1 : GOTO 1100 1240 IF POS("0123456789ABCDEF"=E$)>0THEN 1100 : GOSUB '35("User code must be 0 - 9 or A - F") : GOTO 1110 1270 F0$="EXEC - accept, EDIT - modify" : IF VAL(E6$())<255THEN F0$=F0$&", '31 - system menu" : IF F1$(1)<>" "THEN F0$=F0$&", '09 - delete" : GOSUB '53(F0$) : GOSUB '34(250) : IF Q=31THEN 1370 : IF Q=33THEN 1090 : IF Q=9AND F1$(1)<>" "THEN 1363 : IF Q<>32THEN 1270 : GOSUB '42("IDS2f005",1) : IF Q=0THEN 1090 : IF VAL(E6$())<>255THEN 1365 : GOSUB '43(1) : R4$=E$ 1360 GOSUB '43(5) : R8$=E$ : GOTO 1365 1363 F$()=" " : GOSUB '42("IDS2f005",0) 1365 E$()=" " : F=0 : GOSUB '36 : IF VAL(E6$())=255THEN 1370 : F6$(11)="Y" : GOSUB '53("Press '31 to return to system menu") : GOTO 1090 1370 IF F1$(J0)=" "THEN 1380 : E$=STR(F1$(J0),,3) : GOSUB '41("IDS2f005",E$,0) : GOSUB '42("IDS2f005",0) 1380 IF STR(R3$(1),,4)="IDS2"THEN P=2 : ELSE P=4 : F0$=STR(R3$(),,9) : LOAD T#P,F0$1000,