Listing of file='IDS2PS24' on disk='vmedia/701-2716B.wvd.zip'
# Sector 922, program filename = 'IDS2PS24' 1000 REM "IDS2PS24" - Release 2.1 - SCREEN/REPORT/BATCH RANGE TEST SPECIFICATI ONS 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB 2120 : CONVERT VAL(STR(E$(),78))-31TO STR(E$(),2073,2),(##) : IF E0$="IDS2sS24"THEN 1030 : GOSUB '32("IDS2sS24") : GOSUB '36 1030 STR(F6$(),11,4)=ALL("Y") : IF STR(E$(),98,1944)<>" "THEN 2000 1040 F=9 : GOSUB '43(13) : IF E$=" "THEN GOSUB '45(13,"ANY") 1050 F=F+1 : IF F>F0THEN 2000 : IF F<>10THEN 1070 : GOSUB '43(10) : IF E$=" "THEN GOSUB '45(10,"N") 1070 GOSUB '34(F) : ON F-8GOTO 2110,1090,,1100 : IF F<14THEN 1050 : ON MOD(F-14,5)+1GOTO 1130,1140,1150,1140,1150 1090 IF E$="Y"THEN 1050 : GOSUB '45(11," ") : GOSUB '45(12," ") : F=13 : GOTO 1050 1100 IF E$="Y"OR E$="N"THEN 1050 : GOSUB '35("Must be 'Y' or 'N'") : GOTO 1070 1130 IF E$<>" "THEN 1132 : FOR I=FTO F+4 : GOSUB '45(I," ") : NEXT I : GOTO 2000 1132 MAT SEARCHE3$(),=STR(E$,,8)TO F9$STEP 8 : IF F9$>HEX(0000)OR VER(E$,"@TSTFLD#")=8OR E$="LSTFNKEY"THEN 1050 1134 GOSUB '35("Invalid field name") : GOTO 1070 1140 ON POS("FCN"=E$)GOTO 1050,1050,1142 : GOSUB '35("Must be 'F', 'C', or 'N'") : GOTO 1070 1142 GOSUB '45(F+1," ") : IF MOD(F-12,5)=0THEN 2000 : ELSE F=F+2 : GOTO 1070 1150 GOSUB '43(F-1) : IF E$="C"THEN 1160 : IF E$="F"THEN 1155 : GOSUB '45(F," ") : GOSUB '35("Invalid FCN specification") : GOTO 1070 1155 GOSUB '43(F) : IF E$=" "THEN 1134 : MAT SEARCHE3$(),=STR(E$,,8)TO F9$STEP 8 : IF F9$=HEX(0000)AND VER(E$,"@TSTFLD#")<8THEN 1134 1160 IF MOD(F-13,5)=0THEN 2000 : GOTO 1050 1170 STOP # 2000 F0$=", EXEC = Accept, EDIT = Modify," : IF J9=1THEN F0$=F0$&" FN'9 = Delete," : F0$=F0$&" FN'31 = Cancel" : GOSUB '63("FN'1-'6 = Ranges",F0$," ") : GOSUB '34(250) : IF Q=0THEN 2070 : IF Q<7THEN 2080 : IF Q=33THEN 1040 : IF Q=32THEN LOAD T#2,"IDS2PS28"1000, : IF Q=9THEN 2090 : GOTO 2000 2070 GOSUB '43(13) : IF E$="ANY"THEN GOSUB '45(13,"ALL") : ELSE GOSUB '45(13,"ANY") : GOTO 2000 2080 F=Q*5+8 : GOTO 1050 2090 IF Q=9AND J9<>0THEN 2100 : PRINT HEX(07); : GOTO 2000 2100 F6$(14)="N" : STR(E$(),2042)=" " : FOR I=1TO 9 : C9$=STR(E$(),82,16)&E$(78)&E$(76)&BIN(I+47) : Q=0 : IF I=1OR F6$(42+I)="Y"THEN GOSUB '41(E1$(2),C9$,.5) : F$()=" " : IF Q<>0THEN GOSUB '42(E1$(2),0) : NEXT I : F6$(14)="Y" : LOAD T#2,"IDS2PS18"1000, 2110 F5$="IDS2PS24" : LOAD T#2,"IDS2PS96"1000, 2120 MAT REDIM F$(27)83 : DATA LOAD DA T#3,(E4+8)F$() : MAT REDIM F$(E9)1 : IF C5$<>"S"THEN RETURN : Q=VAL(C7$)*9-8 : F$(Q)=STR(C7$,3) : F$(Q+5)=STR(C7$,2) : MAT REDIM E3$(24)83 : IF C5$="S"THEN I=51 : ELSE I=17 : DATA LOAD DA T#3,(E4+I)E3$() : MAT REDIM E3$(249)8 : RETURN 2140 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS24" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"