Listing of file='IDS2PR00' on disk='vmedia/701-2716B.wvd.zip'
# Sector 16, program filename = 'IDS2PR00'
1000 REM "IDS2PR00" - Release 2.1 - REPORT GENERATOR ACCESS SECURITY MODULE
1005 COM J3
: J4=6
: IF E$="\C0\C2\C1\D4\C3\C8\A1\C0"THEN J4=8
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E6$>HEX(04)THEN LOAD T#2,R3$(1)1000,
: ELSE G=VAL(E6$)
: GOSUB '32("IDS2sSC0")
: E$()=E9$(J4)
: E$="Report"
: IF J4=8THEN E$="Batch Program"
: PRINT AT(0,7);HEX(020402000E);E$;" Generator - Access Security Control Mo
dule";
1033 E$="report to"
: IF J4=8THEN E$="program to"
: IF G=0THEN E$=E$&" create"
: ELSE IF G=1THEN E$=E$&" revise"
: ELSE IF G=2THEN E$=E$&" document"
: ELSE IF G=3THEN E$=E$&" copy"
: ELSE IF G=4THEN E$=E$&" protect"
: PRINT HEX(0F);AT(11,42);E$
1060 F6$(12)="N"
: GOSUB '34(1)
: IF E6$=HEX(1F)THEN LOAD T#2,R3$(1)1000,
: F5$=E$OR ALL(20)
: IF F5$<>E$THEN 1080
: GOSUB '35("The file name must contain at least 1 upper case letter")
: GOTO 1060
1080 P=3
: IF VER(F5$,"IDS2")=4OR VER(F5$,"ids2")=4THEN P=2
: LIMITS T#P,F5$,A,B,C,D
: ERRORCONVERT PTO F9$,(#)
: GOSUB '38(44,F9$)
: GOSUB '34(250)
: IF Q=31THEN LOAD T#2,R3$(1)1000,
: ELSE GOTO 1060
1085 IF G=0THEN 1385
: IF D=0THEN 1100
: DATA LOAD BA T#P,(A)STR(F$(),1,256)
: IF J4=6THEN IF STR(F$(),,4)=HEX(8201D3F2)OR STR(F$(),138,1)="\F2"THEN 113
0
: IF J4=8THEN IF STR(F$(),,4)=HEX(8201D3E2)OR STR(F$(),138,1)="\E2"THEN 113
0
: GOSUB '35("Specified file is not an IDEAS-generated module")
: GOTO 1060
1100 GOSUB '35("Control file does not exist -- cannot revise or document")
: GOTO 1060
1130 IF G<>2AND G<>3THEN 1215
1140 IF G=2THEN PRINT HEX(06020400000E);AT(13,6);BOX(1,67);" Are the operation
s to be included? ('Y' or 'N')";
: ELSE PRINT HEX(06020400000E);AT(13,6);BOX(1,67);" Are the operations to b
e copied also? ('Y' or 'N')";
: GOSUB '45(3,"Y")
: GOSUB '34(3)
: IF E6$=HEX(1F)THEN LOAD T#2,R3$(1)1000,
: PRINT AT(13,6,66);BOX(-1,-67)
1170 J3=POS("NY"=STR(E$,,1))
: IF J3=1OR J3=2THEN 1215
: GOSUB '35("Response must be either 'Y' or 'N'")
: GOTO 1140
1215 GOSUB '39(F5$,3)
: MAT REDIM F$(3)83
: DATA LOAD DA T#P,(A)F$()
: MAT REDIM F$(E9)1
: IF STR(F$(),71,3)=" "OR STR(F$(),71,3)=R4$THEN 1245
: GOSUB '35("Another user has exclusive edit and documentatation rights")
: GOTO 1060
1245 IF R8$>=STR(F$(),70,1)THEN 1265
: GOSUB '35("Your user class is not authorized to edit or document this fil
e")
: GOTO 1060
1265 IF STR(F$(),134,8)=" "THEN 1305
: PRINT HEX(06020400000E);AT(15,6);BOX(1,67);" Please enter the password as
sociated with this program"
: GOSUB '34(2)
: IF E6$=HEX(1F)THEN LOAD T#2,R3$(1)1000,
: PRINT AT(15,6,66);BOX(-1,-67)
1295 IF E$=STR(F$(),134,8)THEN 1305
: GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX
ECUTE to try again","!")
: GOTO 1060
1305 E9$(J4)=E$()
: E6$=BIN(G)
: ON GGOTO ,1345,1355,1365
: IF J4=6THEN E$(1)="\F2"
: ELSE E$(1)="\E2"
: LOAD T#2,"IDS2PR01"1000,
1335 COM CLEAR J3
: LOAD T#2,R3$(1)1000
1345 LOAD T#2,"IDS2PR28"1000,
1355 LOAD T#2,"IDS2PR23"1000,
1365 LOAD T#2,"IDS2PP30"1000,
1385 IF D<>0THEN 1395
: LIMITS T#P,E$,A,B,C,D
: IF D<>0THEN 1395
: GOTO 1305
1395 GOSUB '35("File already exists - Please CANCEL or enter new file name")
: GOTO 1060
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR00"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"