Listing of file='IDS2PIX5' on disk='vmedia/701-2717B.wvd.zip'
# Sector 386, program filename = 'IDS2PIX5'
1000 REM "IDS2PIX5" - APPLICATION SECURITY MODULE (USER ID & PASSWORD ENTRY)
1002 COM F1$(L)F
: DIM F8$(6)83,E6$1
: E6$=R8$
: PRINT AT(23,0,);
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB 2000
: LIMITS T#2,"ids2f005",A,B,C,D
: DATA LOAD DA T#2,(A)F8$()
: LIMITS T#2,"IDS2f005",A,B,C,D
1050 B=LEN(STR(E1$()))/56
: E1$(B)="IDS2f005"&HEX(02)&BIN(LEN(STR(E1$()))/56,2)&STR(F8$(),403,1)&STR(
F8$(),405,42)&BIN(A,2)
: UNPACK(####)STR(E1$(B),13)TO C
: STR(E1$(B),13,2)=BIN(C,2)
: STR(E1$(B),19,2)=STR(E1$(B),48)
: J1=0
: IF R4$=" "THEN 1090
: IF R4$=STR(E$(),75,3)AND VER(STR(E$(),74,1),"H")=1AND R8$>=STR(E$(),74,1)
AND STR(E$(),78,8)=" "THEN 1540
1080 IF STR(E$(),75,3)=" "AND VER(STR(E$(),74,1),"H")=1AND R8$>=STR(E$(),74,1)
AND STR(E$(),78,8)=" "THEN 1540
1090 GOSUB '32("IDS2sI04")
: GOSUB '37(1)
: GOSUB '37(2)
: IF STR(E$(),78,8)=" "THEN PRINT HEX(060F);AT(14,47);"Not used"
: IF R4$=" "THEN 1250
: F6$(14)="N"
: R8$="F"
: GOSUB '41("IDS2f005",R4$,0)
: F6$(14)="Y"
: R8$=" "
: IF Q=0THEN 1250
: GOSUB '45(3,R4$)
: GOSUB '45(4,STR(F$(),19))
: GOSUB '45(5,F$(1))
: GOSUB '45(6,STR(F$(),3))
: GOSUB '45(7,F$(2))
: R8$=E$
1230 PRINT HEX(060F);AT(11,47);"accepted"
: GOTO 1480
1250 F6$(13)="N"
1260 GOSUB '34(3)
1300 F6$(14)="N"
: R8$="F"
: GOSUB '41("IDS2f005",E$,0)
: F6$(14)="Y"
: R8$=" "
: IF Q<>0THEN 1360
: J1=J1+1
: F0$="User identification code "&HEX(22)&E$&HEX(22)&" is not in the securi
ty file."
: GOSUB '35(F0$)
: IF J1<3THEN 1260
: GOTO 1640
1360 GOSUB '45(4,STR(F$(),19))
: GOSUB '45(5,F$(1))
: GOSUB '45(6,STR(F$(),3))
: GOSUB '45(7,F$(2))
: R8$=E$
1400 GOSUB '34(8)
: IF F=8THEN 1420
: R4$=E$
: FOR I=3TO 7
: GOSUB '45(I," ")
: NEXT I
: E$=R4$
: R4$,R8$=" "
: GOTO 1300
1420 IF E$=STR(F$(),34,8)THEN 1480
: J1=J1+1
: GOSUB '35("User's password was not correct - Please re-enter")
: F6$(13)="Y"
: IF J1=3THEN 1640
: GOTO 1400
1480 R4$=STR(F$(),31,3)
: IF STR(E$(),78,8)=" "THEN 1531
: F6$(13)="N"
: J1=0
1500 GOSUB '34(9)
: IF E$=STR(E$(),78,8)THEN 1531
: J1=J1+1
: GOSUB '35("Application password is not correct - Please re-enter")
: IF J1<3THEN 1500
: GOTO 1640
1531 IF R8$>=STR(E$(),74,1)THEN 1534
: GOSUB '35("User class is not authorized to run this application")
: GOTO 1640
1534 IF STR(E$(),75,3)=" "OR R4$=STR(E$(),75,3)THEN 1540
: GOSUB '35("Another user has exclusive rights to this applications")
: GOTO 1640
1540 STR(F6$(),11,4)="YYYY"
: CONVERT STR(E$(),245,2)TO Q
: IF R2$=" "THEN R2$=E4$
: IF R2$=" "THEN R2$=@E1$
: GOSUB '77(STR(E$(),131,8))
: IF R2$=" "THEN GOSUB '77("IDS2P006")
: MAT SEARCHE1$()<9>,>HEX(0F)TO F9$STEP 56
: IF F9$<>HEX(0000)THEN GOSUB '77("IDS2PIX7")
: F0$=STR(R3$(),,9)
: R3$()=STR(R3$(),10)
: IF STR(F0$,,4)="IDS2"THEN D=2
: ELSE D=4
1630 LOAD T#D,STR(F0$,,8)1000,
1640 IF STR(E$(),139,8)=" "THEN STOP "File access error -- no recovery module
has been programmed"
: ELSE LOAD T#4,STR(E$(),139,8)1000,
: END
: LOAD T#4,STR(E$(),139,8)1000,
2000 F0$="IDS2fsXX"
: CONVERT (R0-#PART)/16+1TO STR(F0$,7,2),(##)
: IF F0$="IDS2fs00"THEN STOP "Invalid System File specs : Special Edit File
"#
: IF F0$="IDS2fs00"THEN GOTO 2000
2010 LIMITS T#2,F0$,A,B,C,D
: @E2$(1)=BIN(A+3,2)
: IF A=0THEN 2020
: LIMITS T#2,"IDS2f000",A,B,C,D
: @E2$(2)=BIN(A,2)
: IF A=0THEN 2020
: LIMITS T#2,"IDS2fs01",A,B,C,D
: @E2$(3)=BIN(A+3,2)
: IF A=0THEN 2020
: RETURN
2020 PRINT HEX(0607020402000E);AT(23,0);"Error message: Invalid Device Selec
tion for IDEAS System Files ";HEX(010F05)
: F5$=STR(E$(),139,8)
: IF F5$=" "THEN STOP "No file provided to load"
: GOSUB '39(F5$,4)
: IF A=0THEN STOP "File to load does not exist"
: LOAD T#P,F5$1000,
2050 DEFFN'77(F0$)
: X=LEN(STR(R3$()))-9
: MAT COPY -R3$()<,X>TO -R3$()<10,X>
: STR(R3$(),,9)=F0$
: RETURN