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"