image of READY prompt

Wang2200.org

Listing of file='IDS2PS00' on disk='vmedia/701-2716B.wvd.zip'

# Sector 608, program filename = 'IDS2PS00'
1000 REM "IDS2PS00" - SCREEN MASK EDIT/DOCUMENT ACCESS SECURITY MODULE
1010 COM J3
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF E6$>HEX(03)THEN LOAD T#2,R3$(1)1000,
   : ELSE G=VAL(E6$)
   : GOSUB '32("IDS2sSC0")
   : E$()=E9$(2)
   : PRINT AT(0,7);HEX(020402000E);"Screen Mask Editor - Access Security Contr
     ol Module";HEX(0F);AT(11,42);"mask to be"
1060 IF G=0THEN E$="created"
   : ELSE IF G=1THEN E$="revised"
   : ELSE IF G=2THEN E$="documented"
   : ELSE IF G=3THEN E$="copied"
1070 PRINT AT(11,53);E$
1080 F6$(12),F6$(13)="N"
   : GOSUB '34(1)
   : IF Q=31THEN LOAD T#2,R3$(1)1000,
   : IF E$<>" "THEN 1090
   : GOSUB '35("File name must be non-blank")
   : GOTO 1080
1090 P=3
   : IF STR(E$,,4)="IDS2"THEN P=2
   : LIMITS T#P,E$,A,B,C,D
   : ERRORCONVERT PTO E$,(#)
   : GOSUB '38(44,E$)
   : GOSUB '34(250)
   : IF Q=31THEN LOAD T#2,R3$(1)1000,
   : E$=" "
   : GOTO 1070
1095 IF G=0THEN 1370
   : IF D<0THEN 1110
   : DATA LOAD BA T#P,(A)STR(F$(),1,256)
   : IF STR(F$(),1,4)=HEX(8201D3F3)THEN 1130
   : IF STR(F$(),4,1)=HEX(E1)THEN 1105
   : GOSUB '35("Specified file is not an IDEAS screen mask")
   : GOTO 1080
1105 GOSUB '35("Specified screen is archived -- cannot access")
   : GOTO 1080
1110 GOSUB '35("Specified file is scratched -- cannot access")
   : GOTO 1080
1130 IF G<>2AND G<>3THEN 1210
1140 IF G=2THEN PRINT HEX(06020400000E);AT(13,6);BOX(1,67);" Are the field edi
     ts to be attached? ('Y' or 'N')";
   : ELSE PRINT HEX(06020400000E);AT(13,6);BOX(1,67);" Are the screen edits to
      be copied also? ('Y' or 'N')";
   : GOSUB '45(3,"Y")
   : GOSUB '34(3)
   : PRINT AT(13,6,66);BOX(-1,-67)
   : J3=POS("NY"=STR(E$,,1))
1180 IF J3=1OR J3=2THEN 1210
   : GOSUB '35("Response must be either 'Y' or 'N'")
   : GOTO 1140
1210 IF STR(F$(),54,3)=" "OR STR(F$(),54,3)=R4$THEN 1230
   : GOSUB '35("Another user has exclusive edit and documentatation rights")
   : GOTO 1080
1230 IF R8$>=STR(F$(),53,1)THEN 1250
   : GOSUB '35("Your user class is not authorized to edit or document this fil
     e")
   : GOTO 1080
1250 IF STR(F$(),57,8)=" "THEN 1290
   : PRINT HEX(06020400000E);AT(15,6);BOX(1,67);" Please enter the password as
     sociated with this screen"
   : GOSUB '34(2)
   : PRINT AT(15,6,66);BOX(-1,-67)
1280 IF E$=STR(F$(),57,8)THEN 1290
   : GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX
     ECUTE to try again","!")
   : GOTO 1080
1290 E9$(2)=E$()
   : E6$=BIN(G)
   : ON GGOTO ,1330,1340
   : LOAD T#2,"IDS2PS01"1000,
1330 LOAD T#2,"IDS2PS09"1000
1340 LOAD T#2,"IDS2PS23"1000
1370 IF D=0THEN 1290
   : GOSUB '35("File already exists - Please CANCEL or enter new file name")
   : GOTO 1080
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS00"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"