Listing of file='IDS2PF00' on disk='vmedia/701-2717B.wvd.zip'
# Sector 894, program filename = 'IDS2PF00' 1000 REM "IDS2PF00" - FILE EDIT/DOCUMENT ACCESS SECURITY MODULE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : G=VAL(E6$) : GOSUB '32("IDS2sSC0") : E$=E9$(1)OR ALL(20) : IF E$<>E9$(1)AND F6$(53)="N"THEN J5$,E$()=E9$(1) : ELSE J5$,E$()=" " : PRINT AT(0,7);HEX(020402000E);"Data File Editor - Access Security Control Module";HEX(0F);AT(11,42);"file to be" 1040 IF G=0THEN E$="created" : ELSE IF G=1THEN E$="revised" : ELSE IF G=2THEN E$="documented" : ELSE IF G=3THEN E$="initialized" : F6$(18)=E$ : PRINT AT(11,53);E$ 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 G=0THEN 1300 : 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 1200 : 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 1200 : GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX ECUTE to try again","!") : GOTO 1060 1200 E9$(1)=J5$ : E6$=BIN(G) : ON GGOTO ,1230,1240 : LOAD T#2,"IDS2PF01"1000 1230 LOAD T#2,"IDS2PF15"1000 1240 LOAD T#2,"IDS2PF13"1000 1300 IF D=0THEN 1200 : GOSUB '35("Control file already exists - CANCEL or enter new file name") : GOTO 1060 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF00" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"