Listing of file='IDS2PS27' on disk='vmedia/701-2716B.wvd.zip'
# Sector 964, program filename = 'IDS2PS27'
1000 REM "IDS2PS27" - Release 2.1 - SCREEN DOCUMENTATION FOR FIELD EDITS
1015 E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1020
1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM E1,C8,E2(8)
: DIM C2$19
: E2(7),E2(8)=0
: IF E0$<>C7$THEN GOSUB '33(E9$(2))
1050 E1=MAX(E1,1)
: IF E1>F0THEN 1500
: GOSUB 1530
: IF MOD(VAL(STR(E2$(E1),6)),16)>7OR VER(E3$(E1),"@FLD###@")=8THEN 1090
1080 E2(3),E2(4)=0
: E1=E1+1
: GOTO 1050
1090 C2$=STR(E9$(2),,8)&STR(E3$(E1),,8)&BIN(E2(3)+32)
: IF VER(E3$(E1),"@FLD###@")=8THEN STR(C2$,,8)="@SYSSCR@"
: GOSUB '60(E1$(2),C2$)
: IF STR(E6$(),,16)<>STR(C2$,,16)THEN 1080
: E2(4)=E2(3)
: E2(3)=VAL(E6$(17))-31
: STR(C2$,17)=E6$(17)
: D7=VAL(E6$(18))-48
1145 STR(E$(),76)=STR(E6$(),18,1)&"0"&STR(E6$(),17,1)&"N "&STR(E6$(),,16)
1150 GOSUB '62(E1$(2),1,0)
: ON VAL(F$(2))-47GOTO 1170,1180,1190,1200,1210,1220,1230,1240,1250
1170 STR(E$(),76)=STR(F$(),,250)
: GOTO 1260
1180 STR(E$(),326)=STR(F$(),23,228)
: GOTO 1260
1190 STR(E$(),554)=STR(F$(),23,228)
: GOTO 1260
1200 STR(E$(),782)=STR(F$(),23,228)
: GOTO 1260
1210 STR(E$(),1010)=STR(F$(),23,228)
: GOTO 1260
1220 STR(E$(),1238)=STR(F$(),23,228)
: GOTO 1260
1230 STR(E$(),1466)=STR(F$(),23,192)
: GOTO 1260
1240 STR(E$(),1658)=STR(F$(),23,192)
: GOTO 1260
1250 STR(E$(),1850)=STR(F$(),23,192)
1260 IF STR(E6$(),,17)=STR(C2$,,17)THEN 1150
: GOSUB 1530
: UNPACK(####)C0$TO Q
: Q=MAX(Q,1100)
: PACK(####)C0$FROMQ
: CONVERT E$(76)TO Q
: ERRORQ=0
1305 ON QGOTO 1320,1330,1340,1350,1360,1370,1380
: E$="pass/fails only"
: F9$="30"
: GOTO 1390
1320 E$="set field(s)"
: F9$="37"
: GOTO 1390
1330 E$="read record"
: F9$="32"
: GOTO 1390
1340 E$="logical test(s)"
: F9$="36"
: GOTO 1390
1350 E$="math calc(s)"
: F9$="31"
: GOTO 1390
1360 E$="range test(s)"
: F9$="34"
: GOTO 1390
1370 E$="table look-up"
: F9$="35"
: GOTO 1390
1380 E$="user-specified"
: F9$="33"
: GOTO 1390
1390 E2(6),J9=0
: FOR I=554TO 1436STEP 18
: IF E$(I)<>" "THEN E2(6)=E2(6)+1
: IF E$(I+1)="H"THEN J9=J9+1
: NEXT I
: F4=F4+1
: IF F4+E2(6)+J9<50THEN 1440
: F0$=E$
: E0$()=HEX(01)
: GOSUB '49(0)
: GOSUB '49(0)
: J4=J4+.0001
: F4=1
: E0$()=HEX(020C)
: GOSUB '49(0)
: E4$()="Screen "&HEX(22)&STR(E9$(2),,8)&HEX(22)&" - "&C6$
: GOSUB '48(2,E4$(),0)
1430 CONVERT J4TO E8$,(#.####)
: E4$()=STR(R2$,,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&" Page "&E8$
: GOSUB '48(61,E4$(),0)
: GOSUB '49(0)
: E$=F0$
1440 F5$="IDS2PS"&F9$
: CONVERT VAL(E$(78))-31TO F9$,(##)
: F0$="Field "&HEX(22)&STR(E3$(E1),,8)&HEX(22)
: IF E2(3)<33THEN F0$=F0$&" pre"
: ELSE F0$=F0$&" post"
1450 E4$()=F0$&" entry ("&F9$&") "&E$
: E0$()=HEX(01)
: GOSUB '49(0)
: F4=F4+1
: GOSUB '48(0,E4$(),0)
: IF E$(79)<>"Y"THEN 1460
: E$=": Do only if flag "&E$(80)&" is"
: IF E$(81)="N"THEN E$=E$&" OFF"
: ELSE E$=E$&" ON"
: GOSUB '48(0,E$,0)
1460 GOSUB '49(0)
: LOAD T#2,F5$1000,
1480 STOP #
: STOP #
1500 IF R3$(1)<>"IDS2MS01"THEN 1510
: COM CLEAR J3
: GOTO 1520
1510 COM CLEAR J4
1520 $CLOSE#1
: LOAD T#2,R3$(1)1000,
1530 GOSUB '39(E9$(2),3)
: MAT REDIM E3$(MAX(1,ABS(INT(-8*F0/249)))*3)83
: IF F0>0THEN DATA LOAD DA T#P,(A+8,A)E3$()
: DATA LOAD DA T#P,(A)E3$()
: MAT REDIM E3$(249)8,F$(E8)1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS27"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"