Listing of file='IDS2PP11' on disk='vmedia/701-2717B.wvd.zip'
# Sector 968, program filename = 'IDS2PP11'
1000 REM "IDS2PP11" - Release 2.1 - PROGRAM GENERATOR - RANGE TEST(S)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF STR(E$(),98,3)="ALL"THEN E6$=HEX(8A)
: ELSE E6$=HEX(8B)
: DIM J(2),C1$(2),E5$(2)
: J5$=HEX(B1)&"H=1"&HEX(BAF2)&"H=0:"
: Y=0
: FOR I=0TO 5
: F5$=STR(E$(),I*36+101)
: C6$=E$(I*36+109)&E$(I*36+123)
: IF F5$=" "OR C6$="NN"THEN 3050
1025 C1$(),E5$()=" "
: MAT J=ZER
: FOR J=1TO 2
: IF STR(C6$,J,1)="N"THEN 1026
: F5$=STR(E$(),I*36+(J-1)*14+110)
: IF STR(C6$,J,1)="F"THEN GOSUB 3100
: ELSE GOSUB 3120
: J(J)=X
: IF STR(C6$,J,1)="F"THEN C1$(J)=STR(E8$,,POS(E8$=")"))
: ELSE C1$(J)=E$
: IF STR(C6$,J,1)="F"THEN E5$(J)="E4$()"
: ELSE E5$(J)=F0$
1026 NEXT J
: F5$=STR(E$(),I*36+101)
: IF F5$="LSTFNKEY"THEN 1045
: GOSUB 3100
: J1=X
: J(1)=J(1)*X
: J(2)=J(2)*X
: E$=HEX(9A)&"'43"&E8$
: GOTO 1060
1045 X,J1=1
: E$="Q="&HEX(DC)&"F6$(15)):"
1060 X=POS(C6$="F")
: IF X=0THEN 1070
: IF J(X)=0THEN E$=E$&"F$()=E4$():"
: ELSE E$="Z=Q:"
: IF C6$<>"FF"OR J(1)=J(2)THEN 1065
: IF J(1)=0THEN E$=E$&"F$()=E4$():"
: ELSE E$=E$&"Z=Q:"
1065 E$=E$&HEX(9A)&"'43"&C1$(X)&":"
1070 E$=E$&HEX(9F)
: IF STR(C6$,1,1)="N"THEN 2000
: IF STR(C6$,1,1)="C"THEN 1090
: IF J(1)=0THEN E$=E$&"F$()>=E4$()"
: ELSE E$=E$&"Z>=Q"
: IF C6$<>"FF"THEN 1900
: E$=E$&HEX(B1)&"H=1"&HEX(BAF2)&"H=0:"&HEX(9A)&"'43"&C1$(2)&HEX(3A9F)&"H=1"
: GOTO 1900
1090 IF X=0THEN 1100
: IF J(1)=0THEN E$=E$&"F$()>="&E5$(1)
: ELSE E$=E$&"Z>="&C1$(1)
: GOTO 1900
1100 IF J(1)=0THEN E$=E$&"E4$()>="&E5$(1)
: ELSE E$=E$&"Q>="&C1$(1)
1900 IF STR(C6$,2)<>"N"THEN E$=E$&HEX(8A)
2000 IF STR(C6$,2)="N"THEN 3000
: F$()=F$()&E$
: E$=ALL(20)
: IF STR(C6$,2)="C"THEN 2020
: IF J(2)=0THEN E$=E$&"F$()<=E4$()"
: ELSE E$=E$&"Z<=Q"
: GOTO 3000
2020 IF X=0THEN 2030
: IF J(2)=0THEN E$=E$&"F$()<="&E5$(2)
: ELSE E$=E$&"Z<="&C1$(2)
: GOTO 3000
2030 IF J(2)=0THEN E$=E$&"E4$()<="&E5$(2)
: ELSE E$=E$&"Q<="&C1$(2)
3000 IF Y>0THEN E$=E$&E6$&"H=1"
: E$=E$&J5$
: Y=1
: F$()=F$()&E$
3050 NEXT I
: $TRAN(F$()<,LEN(F$())>,HEX(1A3A))R
: LOAD DA T#2,(D$(29))1000,
3070 STOP "LOAD P/F'S"
: STOP "END IT"
3090 DEFFNZ(Z)=LEN(F$())+1
3100 MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
: IF F9$=HEX(0000)THEN IF VER(F5$,"@TSTFLD#")=8THEN F9$=BIN(VAL(STR(F5$,8))
*8+1619,2)
: Q=INT((VAL(F9$,2)+7)/8)
: IF Q=0THEN Q=250
: IF F5$="@SYSBUF0"THEN Q=269
: E8$=" "
: $PACK(F=HEX(1006))E8$FROMQ
: STR(E8$,,1)="("
: STR(E8$,LEN(E8$)+1)="):"
: X=0
: IF Q<250THEN IF VAL(STR(E2$(Q),6))<64THEN X=1
: RETURN
3120 E$=STR(E$(),I*36+(J-1)*14+110,13)
: F0$=HEX(22)&E$&HEX(22)
: IF NUM(E$)>LEN(E$)THEN X=1
: ELSE X=0
: IF X=1THEN CONVERT E$TO Q
: RETURN
3130 F$(FNZ(Z))=HEX(9F)
: IF J=1AND E$(I*56+109)<>" "THEN STR(F$(),FNZ(Z))=E7$&"1"&E$(I*56+126)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP11"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"