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"