Listing of file='IDS2PS01' on disk='vmedia/701-2716B.wvd.zip'
# Sector 621, program filename = 'IDS2PS01'
1000 REM "IDS2PS01" - SCREEN MASK EDITOR - SCREEN LEVEL SPECIFICATIONS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sS00")
: DIM F1(8),F2$(6)83,E1(4)
: E$()="\F3"
: J2=0
: GOSUB '45(1,E9$(2))
: E3$()=ALL(20)
: F$()=ALL(00)
: GOSUB '39(E9$(2),3)
: J1=Q
: IF Q=2THEN 1240
: J2=1
: STR(E$(),10,24)=ALL(00)
: STR(E$(),141,12)=" "&STR(R4$,1,3)&STR(R2$,1,6)
: STR(E$(),134,7)="NYYYYNY"
1210 E1(1)=256
: E1(2)=1750
: E1(3),E1(4)=0
: GOTO 1490
1240 MAT REDIM E$(24)83
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
: E1(3)=VAL(E$(135))
: E1(4)=VAL(E$(136))
: S=A+8+VAL(E$(137))/3
: N=VAL(E$(138))
: IF N=0THEN 1370
: MAT REDIM E3$(N)83
: DATA LOAD DA T#P,(S)E3$()
: MAT REDIM E3$(249)8
1370 F5$=E$(134)&ALL(00)
: FOR I=1TO 7
: ROTATEC(STR(F5$,I),-7)
: NEXT I
: $TRAN(F5$,HEX(4E005901))R
: STR(E$(),134,7)=F5$
: GOSUB '33(E9$(2))
: IF N=0OR D=0OR N=27THEN 1410
: MAT COPY -E2$()<9*F0+1,83*N-9*F0>TO -E2$()<9*F0+1+83*(27-N),83*N-9*F0>
: STR(E2$(),9*F0+1,83*(27-N))=ALL(00)
1410 IF N>=0AND N<27THEN STR(E2$(),N*83+1,(3*(1-SGN(D))+24-N)*83)=ALL(00)
: F$()=E2$()
: IF E1(3)=0THEN 1460
: FOR I=1TO E1(3)
: F1(8)=MAX(F1(8),INT(VAL(STR(E2$(I),2),2)*.0625)+VAL(E2$(I))-1)
: NEXT I
1460 GOSUB '33("IDS2sS00")
1490 E$=STR(E$(),10,24)&ALL(00)
: FOR I=1TO 32
: ROTATEC(STR(E$,I),-2)
: NEXT I
: ADD(E$,20)
: GOSUB '45(2,E$)
: FOR I=33TO 37
: GOSUB '37(I)
: NEXT I
: E8$=STR(E$(),62)
: IF POS(E8$>20)=POS(E8$<30)OR POS(E8$>39)>0THEN STR(E$(),62,16)=" "
: IF J1=0THEN 1570
: FOR I=3TO 11
: GOSUB '37(I)
: NEXT I
: FOR I=1TO 7
: GOSUB '71(I)
: NEXT I
1570 FOR I=26TO 32
: GOSUB '37(I)
: NEXT I
: FOR I=40TO 41
: GOSUB '55(I,E1(I-37))
: NEXT I
: GOSUB 2140
: IF J1<>0THEN 1730
1610 F=0
1620 F=F+1
: IF F>11THEN 1730
: IF F<>6THEN 1640
: GOSUB '43(6)
: IF E$=" "THEN GOSUB '45(6,"0")
1640 I=0
: J2=1
: GOSUB '34(F)
: IF F<6THEN 1620
: ON F-5GOTO 1690,1710,1620,1620,1705,1705
: IF F<26THEN 1720
1690 IF VER(E$,"H")=1THEN 1620
: GOSUB '38(41," ")
: GOTO 1640
1705 IF POS(E$=2E)>0THEN 1707
: FOR Q=1TO 7STEP 2
: IF STR(E$,Q,2)=" "THEN 1706
: IF NUM(STR(E$,Q,2))<>2THEN 1707
: CONVERT STR(E$,Q,2)TO X
: IF X<0OR X>35THEN 1707
1706 NEXT Q
: GOTO 1620
1707 GOSUB '35("Invalid Function Key Specification")
: GOSUB '45(F," ")
: GOTO 1640
1710 IF E$=" "OR E$=R4$THEN 1620
: GOSUB '35("User ID (if used) must be current user's")
: GOTO 1640
1720 GOSUB '71(F/2-5)
: GOTO 1730
1730 GOSUB '63("EXEC=Accept EDI","T=Modify top boxes '1-'7=Files '8-'14=Att
ributes '31=Cancel"," ")
: STR(F6$(),12,2)="YY"
: GOSUB '34(250)
: IF Q=33THEN J2=1
: IF Q=33THEN 1610
: IF Q>0AND Q<8THEN 1830
: IF Q>7AND Q<15THEN 1840
: IF Q=31THEN LOAD T#2,"IDS2MS01"1000,
: IF Q<>32THEN 1730
: ELSE Q=J2
: PACK(####)E$FROMF1()
1820 LOAD T#2,"IDS2PS40"1000,
1830 STR(F6$(),12,2)="NN"
: F=Q*2+10
: GOTO 1640
1840 F=Q+18
: J2=1
: GOSUB '43(F)
: IF E$="N"THEN GOSUB '45(F,"Y")
: ELSE GOSUB '45(F,"N")
: GOTO 1730
1890 STOP #
1910 DEFFN'71(X)
: GOSUB '43(X*2+10)
: IF E$<>" "THEN 1970
: GOSUB '45(X*2+11," ")
: F1(X)=0
: GOTO 2140
1970 F5$=E$OR ALL(20)
: GOSUB '39(F5$,5)
: IF Q=2THEN 2030
: F0$="File "&HEX(0722)&STR(E$,,8)&HEX(22)&" not found"
: GOSUB '45(X*2+11,F0$)
: GOSUB '45(X*2+10," ")
2010 IF I<>0THEN RETURN
: RETURN CLEAR
: GOTO 1640
2030 DATA LOAD BA T#P,(A)STR(F2$(),1,256)
: IF STR(F2$(),1,4)<>HEX(8201D3E3)THEN 2010
: DATA LOAD DA T#P,(A)F2$()
: GOSUB '37(X*2+10)
: GOSUB '45(X*2+11,STR(F2$(),22,32))
: IF STR(F2$(),10,1)<"5"THEN 2120
: F5$=STR(F2$(),82)OR ALL(20)
: GOSUB '39(F5$,5)
: DATA LOAD DA T#P,(A)F2$()
2120 CONVERT STR(F2$(),93,4)TO F1(X)
: F1(X)=MAX(F1(X),VAL(STR(F2$(),418)))
2140 J8=F1(8)
: F1(8)=0
: GOSUB '55(39,MAX(256,F1()))
: FOR J=1TO 7
: F1(8)=F1(8)+F1(J)
: NEXT J
: F1(8)=MIN(9999,MAX(J8,F1(8),1750))
: GOSUB '55(38,F1(8))
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS01"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"