image of READY prompt

Wang2200.org

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,