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"