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,