Listing of file='IDS2PS45' on disk='vmedia/701-2724B.wvd.zip'
# Sector 607, program filename = 'IDS2PS45'
1000 REM "IDS2PS45" - PASS/FAIL DOCUMENTATION FOR BRANCH (OPTS M & V)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E$<>" "OR J3>14THEN 1040
: GOSUB '48(0,"Skip all remaining pass/fail actions for this edit.",0)
: GOTO 2000
1030 IF J3>14THEN E$=E$&" the field named in field"
1040 IF E$=" "THEN Y=14
: ELSE Y=0
: E$="Branch"
: IF J3>14THEN E$=E$&" indirect to the field named in field"
: ELSE E$=E$&" to field"
: E$=E$&HEX(2022)&STR(F1$,1,8)&HEX(222E)
: MAT SEARCHE3$(),=STR(F1$,1,8)TO F9$STEP 8
: IF F9$=HEX(0000)AND J3=14THEN Y=13
: IF F9$=HEX(0000)AND J3>14AND VER(F1$,"@TSTFLDH")<8AND F1$<>"@SYSBUF0"THEN
Y=14
1100 GOSUB '48(17,E$,0)
: IF Y=0THEN 2000
: CONVERT YTO E$,(###)
: STR(E$,1,1)="E"
: GOSUB '48(1,E$,3)
2000 GOSUB '49(0)
: F4=F4+1
: LOAD T#2,"IDS2PS30"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS45"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"