Listing of file='IDS2PM00' on disk='vmedia/701-2717B.wvd.zip'
# Sector 119, program filename = 'IDS2PM00'
1000 REM "IDS2PM00" - MENU EDIT/DOCUMENT ACCESS SECURITY MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E6$>HEX(02)THEN LOAD T#2,R3$(1)1000,
: ELSE G=VAL(E6$)
: GOSUB '32("IDS2sSC0")
: E$()=E9$(5)
: PRINT AT(0,7);HEX(020402000E);"Application Menu Editor - Access Security
Control Module";HEX(0F);AT(11,42);"menu to be"
1040 IF G=0THEN E$="created"
: ELSE IF G=1THEN E$="revised"
: ELSE IF G=2THEN E$="documented"
: PRINT AT(11,53);E$
1060 F6$(12)="N"
: GOSUB '34(1)
: F6$(12)="Y"
: IF E$<>" "THEN 1080
: GOSUB '35("Menu name must be non-blank")
: GOTO 1060
1080 P=4
: IF STR(E$,,4)="IDS2"OR STR(E$,,4)="ids2"THEN P=2
: LIMITS T#P,E$,A,M,N,Q
: ERRORCONVERT PTO F9$,(#)
: GOSUB '38(44,F9$)
: GOSUB '34(250)
: IF Q=31THEN LOAD T#2,R3$(1)1000,
: E$=" "
: GOTO 1060
1085 IF Q=0THEN 1300
: IF G=0THEN 1100
: DATA LOAD BA T#P,(A+1)STR(F$(),1,256)
: E4$()=HEX(00FF1000D3)&"E$(),0001)="&HEX(22)&E$
: IF STR(F$(),1,25)=STR(E4$(),1,25)THEN 1120
: GOSUB '35("Specified file is not an IDEAS menu program")
: GOTO 1060
1100 GOSUB '35("Specified file already exists ")
: GOTO 1060
1120 IF STR(F$(),117,3)=" "OR STR(F$(),117,3)=R4$THEN 1140
: GOSUB '35("Another user has exclusive edit and documentatation rights")
: GOTO 1060
1140 IF R8$>=STR(F$(),116,1)THEN 1160
: GOSUB '35("Your user class is not authorized to edit or document this fil
e")
: GOTO 1060
1160 IF STR(F$(),120,8)=" "THEN 1200
: PRINT HEX(06020400000E);AT(15,6);BOX(1,67);" Please enter the password as
sociated with this program"
: GOSUB '34(2)
: PRINT AT(15,6,66);BOX(-1,-67)
1190 IF E$=STR(F$(),120,8)THEN 1200
: GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX
ECUTE to try again","!")
: GOTO 1060
1200 E9$(5)=E$()
: E6$=BIN(G)
: ON GGOTO ,1230
: LOAD T#2,"IDS2PM01"1000
1230 LOAD T#2,"IDS2PM02"1000
1300 IF G=0THEN 1200
: GOSUB '35("Menu does not exist - Please CANCEL or enter new menu name")
: GOTO 1060
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PM00"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"