Listing of file='IDS2PR26' on disk='vmedia/701-2716B.wvd.zip'
# Sector 340, program filename = 'IDS2PR26' 1000 REM "IDS2PR26" - Release 2.1 - MODIFY/DEFAULT RECORD RANGE CRITERIA 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : F6$(53)="N" 1040 GOSUB '32("IDS2sR18") : IF E$(856)="X"THEN 1049 : PRINT AT(21,0);BOX(1,79);" FN '00 Allow User Modification of RANGE Def ault Values at Execution ?" : GOTO 1050 1045 IF E$(856)="X"THEN STR(E2$(20),7,1)=AND HEX(3F) 1049 STR(E2$(20),7,1)=AND HEX(3F) 1050 GOSUB '36 : IF E$(1)=HEX(F2)THEN GOSUB '45(11,"Report") : GOSUB '45(19,E$) : C9=1307 : FOR I=1TO VAL(E$(1600)) : GOSUB '45(13+I,STR(E$(),987+I*20,20)) : GOSUB '71(STR(E$(),1596+I*6,6),I*2-1,25) : GOSUB '71(F5$,J0+1,25) : STR(E2$(J0-1),2,2)=ADDBIN(C9*16,2) : STR(E2$(J0),2,2)=STR(E2$(J0-1),2,2)ADDHEX(0500) : C9=C9+VAL(STR(F5$,3)) 1200 STR(E2$(I*2-1),5,1),STR(E2$(I*2),5,1)=OR HEX(01) : GOSUB '37(I*2-1) : GOSUB '37(I*2) : NEXT I : GOTO 1310 1270 FOR F=1TO VAL(E$(1600))*2 : GOSUB '34(F) : IF F=2THEN GOSUB 1292 : NEXT F : GOTO 1310 1292 E$=STR(E$(),16*VAL(STR(E2$(1),2))+INT(VAL(STR(E2$(1),3))/16),VAL(E2$(1))) : IF STR(E2$(1),6)<HEX(40)THEN 1293 : IF E$<=STR(E$(),16*VAL(STR(E2$(2),2))+INT(VAL(STR(E2$(2),3))/16),VAL(E2$( 2)))THEN RETURN : GOTO 1296 1293 IF E$=" "THEN P=0 : ELSE CONVERT E$TO P : ERRORGOTO 1298 1294 E$=STR(E$(),16*VAL(STR(E2$(2),2))+INT(VAL(STR(E2$(2),3))/16),VAL(E2$(1))) : IF E$=" "THEN Q=0 : ELSE CONVERT E$TO Q : ERRORGOTO 1298 1295 IF P<=QTHEN RETURN 1296 GOSUB '35("Maximum must be greater than minimum") 1297 F=0 : RETURN 1298 GOSUB '35("Enter numeric values only") : GOTO 1297 1310 E$="EXEC=Accept, EDIT=Modify," : IF E$(856)<>"X"THEN E$=E$&" '0=User mod," : IF STR(E$(),1307,160)<>" "THEN E$=E$&" '9=Delete spec," : IF E$(856)=" "THEN E$=E$&" '16=Desc," : E$=E$&" '31=Cancel" : GOSUB '63(STR(E$,,16),STR(E$,17)," ") : GOSUB '34(250) : IF E$(856)=" "AND Q=16THEN LOAD T#2,"IDS2PR24"1000,1994 1360 IF Q=9THEN 1510 : IF Q=31THEN 1480 : IF Q=33THEN 1270 : IF Q=32THEN 1422 : IF Q<>0OR E$(856)="X"THEN 1400 : IF E$(774)="Y"THEN GOSUB '45(20,"N") : ELSE GOSUB '45(20,"Y") : GOTO 1310 1400 PRINT HEX(07) : GOTO 1310 1422 IF E$(856)="X"THEN F6$(53)="Y" : GOSUB 1580 : IF E$(856)="X"AND E$(775)="Y"OR E$(856)=" "THEN LOAD T#2,"IDS2PR27"1000,1 994 : IF E$(856)="X"AND E$(776)="Y"THEN LOAD T#2,"IDS2PR20"1000,1994 : IF E$(856)="R"THEN LOAD T#2,"IDS2PR05"1000 : LOAD T#2,"IDS2PBX1"1000,1994 1480 IF STR(R3$(),,4)<>"IDS2"THEN F6$(53)="Y" : IF E$(856)="X"THEN COM CLEAR F() : GOSUB '40(STR(R3$(),,8)) 1510 PRINT HEX(07) : IF STR(E$(),1307,160)=" "THEN 1310 : F6$(11)="N" : GOSUB '63("Press SF'9 to DE","LETE Specification, SF'31 to CANCEL Delete" ," ") : GOSUB '34(250) : F6$(11)="Y" : IF Q=31THEN 1310 : STR(E$(),1307,160)=" " : GOSUB 1580 : GOTO 1040 1580 IF E$(856)="X"THEN RETURN : MAT REDIM E$(24)83 : DATA SAVE DA T#3,(E4)E$() : MAT REDIM E$(E8)1 : RETURN 1640 DEFFN'71(F5$,J0,J1) : E2$(J0)=AND HEX(00FFF0F8FE00C00000) : IF VAL(STR(F5$,3))>J1THEN STR(F5$,3,1)=BIN(J1) : STR(E2$(J0),,1)=STR(F5$,3,1) : IF MOD(VAL(STR(F5$,2)),2)=1THEN STR(E2$(J0),3,1)=OR HEX(02) : IF MOD(VAL(STR(F5$,6)),16)>=8THEN STR(E2$(J0),3,1)=OR HEX(01) : STR(E2$(J0),4,1)=OR BIN(MOD(VAL(STR(F5$,6)),8)) : STR(E2$(J0),6,1)=BIN(16*INT(MOD(VAL(STR(F5$,2)),16)/2)) : RETURN 1990 ON XGOTO 1990,1994 1994 % 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR26" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"