Listing of file='IDS2PU21' on disk='vmedia/701-2724B.wvd.zip'
# Sector 846, program filename = 'IDS2PU21' 1000 REM "IDS2PU21" - DATE FILE UTILITIES ACCESS SECURITY MODULE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2sSC0") : E$=E9$(1)OR ALL(20) : IF E$<>E9$(1)AND F6$(53)<>"Y"THEN J5$,E$()=E9$(1) : ELSE J5$,E$()=" " : PRINT AT(0,7);HEX(020402000E);"Data File Utilities - Access Security Cont rol Module";HEX(0F);AT(11,42);"file to be" : PRINT AT(11,53);"dumped" 1060 GOSUB '45(1,J5$) : F6$(12)="N" : GOSUB '34(1) : J5$=E$ : E7$=E$OR ALL(20) : IF E7$<>E$THEN 1080 : GOSUB '35("File name must contain at least 1 upper case letter") : GOTO 1060 1080 P=5 : IF STR(E7$,,4)="ids2"THEN P=2 : LIMITS T#P,E7$,A,M,N,Q : ERRORF0$="Disk error on device # -- check device or '31 to cancel" : CONVERT PTO STR(F0$,POS(F0$=23)+2,1),(#) : GOSUB '35(F0$) : GOSUB '34(250) : GOTO 1080 1085 D=Q : IF D=2THEN 1090 : GOSUB '35("Specified file is not a valid data file name") : GOTO 1060 1090 DATA LOAD BA T#P,(A)STR(E$(),10,256) : IF STR(E$(),10,4)=HEX(8201D3E3)THEN 1095 : GOSUB '35("Specified file is not an IDEAS data file") : GOTO 1060 1095 IF STR(E$(),14,8)=E$THEN 1100 : F0$="Control file already exists for file "&STR(E$(),14,8) : GOSUB '35(F0$) : GOTO 1060 1100 MAT REDIM E$(6)83 : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : IF STR(E$(),63,3)=" "OR STR(E$(),63,3)=R4$THEN 1140 : GOSUB '35("Another user has exclusive edit and documentation rights") : GOTO 1060 1140 IF R8$>=STR(E$(),62,1)THEN 1160 : GOSUB '35("Your user class is not authorized to edit or document this fil e") : GOTO 1060 1160 IF STR(E$(),66,8)=" "THEN 1225 : PRINT HEX(06020400000E);AT(15,6);BOX(1,67);" Please enter the password as sociated with this data file" : GOSUB '34(2) : PRINT AT(15,6,66);BOX(-1,-67) 1190 IF E$=STR(E$(),66,8)THEN 1225 : GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX ECUTE to try again","!") : GOTO 1060 1225 IF F6$(53)="N"THEN 1300 : MAT SEARCHE1$(),=STR(E$(),2,8)TO F9$STEP 56 : IF F9$<>HEX(0000)THEN 1300 : GOSUB '63("Application Data"," File not currently opened by START module" ,"!") : GOTO 1060 1300 LOAD T#2,"IDS2PU17"1000, 1310 DEFFN'127"Q$=";HEX(22);"IDS2PU21";HEX(22);":SCRATCHTQ$:SAVET()Q$1000,3700 ";HEX(0D) : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU21" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"