Listing of file='IDS2PS54' on disk='vmedia/701-2715B.wvd.zip'
# Sector 250, program filename = 'IDS2PS54'
1000 REM "IDS2PS54" - SCREEN MASK EDITOR - SET DEFAULT FILE KEY FIELDS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM J2$16
: J2$=E$
: F5$=STR(E$(),78,8)OR ALL(20)
: GOSUB '39(F5$,5)
: MAT REDIM F$(6)83,E4$(32)8
: DATA LOAD DA T#P,(A)F$()
: E4$()=" "
: F1=0
: FOR I=0TO 4
: E4$(I+1)=STR(F$(),I*17+108)
: IF E4$(I+1)>" "THEN F1=I+1
: NEXT I
: E4$(6)=STR(F$(),2)
: F5$=STR(F$(),82,8)OR ALL(20)
: GOSUB '39(F5$,5)
: MAT REDIM F$(24)83
1170 DATA LOAD DA T#P,(A+8)F$()
: FOR I=1TO F1
: MAT SEARCHF$(),=STR(E4$(I),,8)TO F9$STEP 8
: STR(E4$(7),I)=BIN(INT(VAL(F9$,2)/8))
: NEXT I
: DATA LOAD DA T#P,(A)F$()
: STR(E$(),153)="The"
: IF F1>1THEN CONVERT F1TO E$(157),(#)
: E$()=E$()&" key field"
: IF F1>1THEN E$()=E$()&"s"
: E$()=E$()&" for data file "&E4$(6)
1290 IF F1>1THEN E$()=E$()&" are"
: ELSE E$()=E$()&" is"
: E$()=E$()&" provided below for your convenience."
: FOR I=1TO F1
: E$=STR(F$(),VAL(STR(E4$(7),I))*6+499)
: L=VAL(STR(E$,3))
: P=INT(VAL(E$,2)/16)
: T=INT(MOD(VAL(E$,2),16)/2)
: J=MOD(VAL(E$,2),2)
: F=INT(MOD(VAL(STR(E$,6)),16)/8)
: D=MOD(VAL(STR(E$,6)),8)
1380 STR(E2$(),I*9-8,9)=BIN(L)&BIN(P*16+8+J*2+F,2)&BIN(24*I+D)&HEX(01)&BIN(T*1
6+1)&HEX(802000)
: STR(E$(),73+240*I),STR(E3$(),I*8-7)=E4$(I)
: NEXT I
: E$="IDS2wS"
: CONVERT R0TO STR(E$,7),(##)
: LIMITS T#3,E$,E4,X,X,X
: MAT REDIM E$(24)83,E2$(27)83,E3$(24)83
: DATA SAVE DA T#3,(E4,E4)E$()
: DATA SAVE DA T#3,(E4,E4)E2$()
: DATA SAVE DA T#3,(E4,E4)E3$()
1470 MAT REDIM E$(E8)1,F$(E9)1,E4$(16)16,E2$(250)9
: E$=J2$
: LOAD T#2,"IDS2PS02"1000,
1799 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS54"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"