Listing of file='IDS2PS30' on disk='vmedia/701-2724B.wvd.zip'
# Sector 439, program filename = 'IDS2PS30' 1000 REM "IDS2PS30" - Release 2.1 - EDIT OPERATIONS PASS/FAIL DOCUMENTATION 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM F1$8,F2$8 1020 E2(7)=E2(7)+1 : IF E2(7)>E2(6)THEN 2000 1030 E2(8)=E2(8)+1 : IF E2(8)>64THEN 2000 : IF E$(E2(8)*18+536)=" "THEN 1030 : CONVERT E2(7)TO F9$,(##) : GOSUB '48(0,F9$,0) : F1$=STR(E$(),E2(8)*18+538) : F2$=STR(E$(),E2(8)*18+546) : E6$=E$(E2(8)*18+536) : IF E6$="P"THEN GOSUB '48(-1,"If PASS",0) : IF E6$="F"THEN GOSUB '48(-1,"If FAIL",0) : IF E6$="B"THEN GOSUB '48(-1,"If",0) 1120 E6$=E$(E2(8)*18+537) : X=0 : F0$=" " : FOR I=1TO 2 : F5$=F2$ : F2$=F1$ : IF F5$>"FILE # 0"AND F5$<"FILE # 8"THEN F5$=STR(C9$,8*(VAL(STR(F5$,8))-49 )+1) : F1$=F5$ 1140 IF VER(F5$,"IFFLGXOX")<8AND VER(F5$,"ORFLGXOX")<8THEN 1150 : IF STR(F5$,,1)="I"THEN F0$=" and" : ELSE F0$=" or" : F0$=F0$&" sysflag "&STR(F5$,6,1)&" is " : IF STR(F5$,8)="N"THEN F0$=F0$&" ON" : ELSE F0$=F0$&" OFF" : GOSUB '48(0,F0$,0) : F0$=" " 1150 IF VER(F5$,"IFLFKXXX")<8AND VER(F5$,"ORLFKXXX")<8THEN 1160 : IF STR(F5$,,1)="I"THEN F0$=" and" : ELSE F0$=" or" : F0$=F0$&" last FN key is" : IF STR(F5$,6,1)=">"THEN F0$=F0$&" greater than" : IF STR(F5$,6,1)="<"THEN F0$=F0$&" less than" 1155 IF STR(F5$,7)="OF"THEN F0$=F0$&" OFF" : ELSE IF STR(F5$,6)="=31"THEN F0$=F0$&" CANCEL" : ELSE IF STR(F5$,6)="=32"THEN F0$=F0$&" EXECUTE" : ELSE IF STR(F5$,6)="=33"THEN F0$=F0$&" EDIT" : ELSE F0$=F0$&" "&STR(F5$,7) : GOSUB '48(0,F0$,0) 1160 F0$=" " : IF VER(F5$,"SKIP##PF")<8THEN 1170 : F9$=STR(F5$,5) : IF F9$<"10"THEN F9$=STR(F9$,2) : IF X=1THEN GOSUB '48(0," and",0) : F0$=" skip ahead "&F9$&" P/F" : IF F9$<>"1"THEN F0$=F0$&"'s" : X=1 : GOSUB '48(0,F0$,0) : F0$=" " 1170 IF VER(F5$,"BACK##PF")<8THEN 1180 : F9$=STR(F5$,5) : IF F9$<"10"THEN F9$=STR(F9$,2) : IF X=1THEN GOSUB '48(0," and",0) : F0$=" skip back "&F9$&" P/F" : IF F9$<>"1"THEN F0$=F0$&"'s" : X=1 : GOSUB '48(0,F0$,0) : F0$=" " 1180 IF VER(F5$,"SEQX=###")<8THEN 1190 : E8$=STR(F5$,6) : IF F9$<"100"THEN F9$=STR(F9$,2) : IF F9$<"10"THEN F9$=STR(F9$,2) : IF X=1THEN GOSUB '48(0," and",0) : F0$=" set next seq. no. to "&E8$ : X=1 : GOSUB '48(0,F0$,0) : F0$=" " 1190 IF VER(F5$,"FLAGX=OX")<8THEN 1200 : IF X=1THEN GOSUB '48(0," and",0) : F0$=" turn sysflag "&STR(F5$,5,1) : IF STR(F5$,8)="N"THEN F0$=F0$&" ON" : ELSE F0$=F0$&" OFF" : GOSUB '48(0,F0$,0) : F0$=" " : X=1 1200 IF VER(F5$,"LSTFK=XX")<8THEN 1201 : IF X=1THEN GOSUB '48(0," and",0) : F0$=" set last FN key to" : IF STR(F5$,7)="OF"THEN F0$=F0$&" OFF" : ELSE IF STR(F5$,7)="31"THEN F0$=F0$&" CANCEL" : ELSE IF STR(F5$,7)="32"THEN F0$=F0$&" EXECUTE" : ELSE IF STR(F5$,7)="33"THEN F0$=F0$&" EDIT" : ELSE F0$=F0$&STR(F5$,7) : GOSUB '48(0,F0$,0) : F0$=" " : X=1 1201 IF F5$="GETOLDPF"THEN F0$=" set current P/F condition to old P/F conditio n" : IF F5$="SETOLDPF"THEN F0$=" set old P/F condition to current P/F conditio n" 1202 IF STR(F5$,,2)<>"IF"AND STR(F5$,,2)<>"OR"OR VER(STR(F5$,3),"ERR###")<6THE N 1203 : IF STR(F5$,,1)="I"THEN F0$=" and" : ELSE F0$=" or" : F0$=F0$&" last system error message number is "&STR(F5$,6) 1203 IF STR(F5$,,2)<>"IF"AND STR(F5$,,2)<>"OR"OR STR(F5$,3,5)<>"OLDPF"THEN 121 0 : IF STR(F5$,,1)="I"THEN F0$=" and" : ELSE F0$=" or" : F0$=F0$&" old P/F condition is" : IF STR(F5$,8)="P"THEN F0$=F0$&" PASS" : ELSE F0$=F0$&" FAIL" 1210 IF I=2AND X=1AND E6$<>" "AND LEN(E0$())>3AND STR(E0$(),LEN(E0$())-2,3)<>" and"THEN GOSUB '48(0," and",0) : NEXT I : IF STR(E0$(),8,4)="PASS"OR STR(E0$(),8,4)="FAIL"THEN 1220 : IF STR(E0$(),8,3)<>"and"THEN 1217 : ADD(STR(E0$(),,1),FC) : STR(E0$(),8)=STR(E0$(),12) : GOTO 1220 1217 STR(E0$(),5)=STR(E0$(),8) : ADD(STR(E0$(),,1),FD) : AND (STR(E0$(),5,1),DF) 1220 IF E6$>"G"OR E6$=" "THEN 1300 : IF MOD(VAL(E6$),2)=0OR E6$="G"THEN F0$="disable" : ELSE F0$="enable" : IF E6$<"C"THEN F0$=F0$&" skip ahead keys" : IF E6$="C"OR E6$="D"THEN F0$=F0$&" skip back keys" : IF E6$="E"OR E6$="F"THEN F0$=F0$&" the CANCEL key" : IF E6$="G"THEN F0$=F0$&" system error messages" 1300 IF E6$="H"THEN LOAD T#2,"IDS2PS49"1000, : IF E6$="I"OR E6$="J"THEN LOAD T#2,"IDS2PS41"1000, : IF E6$>"J"AND E6$<"O"THEN LOAD T#2,"IDS2PS43"1000, : IF E6$="M"OR E6$="N"THEN STOP "RECEIVE" : IF E6$="O"THEN F0$="save record for file "&F1$ : IF E6$="P"THEN F0$="save record for file named in field "&F1$ 1360 IF E6$="Q"THEN F0$="branch to field "&F1$ : IF E6$="R"THEN F0$="branch to field named in field "&F1$ : IF E6$="S"OR E6$="T"THEN LOAD T#2,"IDS2PS46"1000, : IF E6$="U"OR E6$="V"THEN LOAD T#2,"IDS2PS48"1000, : IF E6$="W"OR E6$="X"THEN LOAD T#2,"IDS2PS47"1000, : IF E6$="Y"THEN LOAD T#2,"IDS2PS44"1000, 1420 IF E6$="Z"THEN LOAD T#2,"IDS2PS29"1000, : GOSUB '48(-1,F0$,0) : AND (STR(E0$(),5,1),DF) : GOSUB '49(0) : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1 : ELSE F4=F4+1 : F0$=" " : X=0 : GOTO 1020 2000 IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN LOAD T#2,"IDS2PR36"1000, : LOAD T#2,"IDS2PS27"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS30" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"