Listing of file='IDS2PS34' on disk='vmedia/701-2724B.wvd.zip'
# Sector 491, program filename = 'IDS2PS34' 1000 REM "IDS2PS34" - Release 2.1 - DOCUMENTATION FOR RANGE CHECK 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : E8$="Test 0 passes if" : FOR I=101TO 281STEP 36 : F5$=STR(E$(),I) : IF F5$=" "THEN 3010 : ADD(STR(E8$,6,1),01) : E$=E8$&" field "&HEX(22)&STR(F5$,,8)&HEX(22) : E6$=E$(I+8) : IF E6$="N"OR E6$=" "THEN 2000 : E$=E$&" >=" : IF E6$="C"THEN 1120 : E$=E$&" field "&HEX(22)&STR(E$(),I+9,8)&HEX(22) : GOTO 1990 1120 F0$=STR(E$(),I+9,13) : IF F0$=" "THEN F0$="blank" : E$=E$&" "&F0$ 1990 IF E$(I+22)<>"N"THEN E$=E$&" and" 2000 E6$=E$(I+22) : IF E6$="N"THEN 3000 : E$=E$&" <=" : IF E6$="C"THEN 2030 : E$=E$&" field "&HEX(22)&STR(E$(),I+23,8)&HEX(22) : GOTO 3000 2030 F0$=STR(E$(),I+23,13) : IF F0$=" "THEN F0$="blank" : E$=E$&" "&F0$ 3000 GOSUB '48(0,E$,0) : GOSUB '49(0) : GOSUB 3070 3010 NEXT I : IF STR(E8$,6,1)<"2"THEN 3050 : E$="A pass condition exists if" : IF STR(E$(),98,3)="ANY"THEN E$=E$&" any of the above tests pass" : ELSE E$=E$&" only if all of the above tests pass" : GOSUB '48(0,E$,0) : GOSUB '49(0) : GOSUB 3070 3050 IF E2(6)<>0THEN LOAD T#2,"IDS2PS30"1000, : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN LOAD T#2,"IDS2PR36"1000, : LOAD T#2,"IDS2PS27"1000, 3070 IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1 : ELSE F4=F4+1 : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS34" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"