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"