Listing of file='IDS2PR24' on disk='vmedia/701-2716B.wvd.zip'
# Sector 321, program filename = 'IDS2PR24' 1000 REM "IDS2PR24" - Release 2.1 - REPORT RECORD SELECTION DESCRPTION INPUT 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : E$(1600)=BIN(INT((POS(-STR(E$(),78,56)<>20)-1)/8)+49) : GOSUB '32("IDS2sR07") 1060 IF POS("YN"=E$(774))=0THEN GOSUB '45(1,"Y") : IF POS("YN"=E$(775))=0THEN GOSUB '45(2,"Y") : IF POS("YN"=E$(776))=0THEN GOSUB '45(3,"Y") : IF E$(1)=HEX(F2)THEN GOSUB '45(67,"Report") : ELSE GOSUB '45(67,"Batch") : GOSUB '45(68,E$) : F0=66 : GOSUB '36 : R3$(1)="IDS2PR05" : E$=STR(E$(),78,8) : GOSUB 1510 : X=1 : FOR I=1TO 5 : IF STR(E3$(),108+(I-1)*17,8)=" "THEN 1210 1170 GOSUB '55(66,I) : GOSUB '45(I*3+1,"1") : GOSUB '45(I*3+2,STR(E3$(),108+(I-1)*17,8)) : STR(E2$(I*3+1),5,1),STR(E2$(I*3+2),5,1)=AND HEX(FE) : STR(E2$(I*3+3),3,1)=OR HEX(08) : GOSUB '43(I*3+2) : IF E$=" "THEN X=0 1210 NEXT I : GOSUB '43(66) : PRINT AT(Q+7,48);BOX(0,30); : ON XGOTO 1300 1240 F=F+1 : IF F>F0THEN 1300 : GOSUB '34(F) : IF F<4THEN GOSUB 1470 : ELSE ON MOD(F-4,3)+1GOSUB 1480,1520 : GOTO 1240 1290 PRINT HEX(07) 1300 GOSUB '63("EXEC=Accept, EDI","T=Modify, '09=Delete spec, '16=Field names, 31=Cancel"," ") : GOSUB '34(250) : ON Q+1GOTO 1570,1580,1590,,,,,,,1370,,,,,,,1560,,,,,,,,,,,,,,,,1340,1600 : GOTO 1290 1340 LOAD T#2,"IDS2PR25"1000, 1350 STOP # 1370 PRINT HEX(07) : 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 1300 : STR(E$(),872,435)=" " : MAT REDIM E$(24)83 : DATA SAVE DA T#3,(E4)E$() : MAT REDIM E$(E8)1 : GOTO 1060 1470 IF POS("YN"=E$)<>0THEN RETURN : GOSUB '35("Invalid Response 'Y' or 'N' only") : F=F-1 : RETURN 1480 IF E$=" "THEN 1500 : IF Q>0AND Q<=VAL(E$(1600))-48THEN RETURN : GOSUB '38(43,E$(1600)) : F=F-1 : RETURN 1500 FOR F=FTO 48 : GOSUB '45(F," ") : NEXT F : F=F0 : RETURN 1510 F5$=E$OR ALL(20) : GOSUB '39(F5$,5) : MAT REDIM E3$(6)83 : DATA LOAD DA T#P,(A)E3$() : RETURN 1520 E7$=E$ : GOSUB '43(F-1) : GOSUB '43(50+Q) 1530 GOSUB 1510 : IF STR(E3$(),10,1)<"5"THEN 1540 : E$=STR(E3$(),82) : GOTO 1530 1540 MAT REDIM E3$(24)83 : DATA LOAD DA T#P,(A+8)E3$() : GOTO 1550 1550 MAT SEARCHE3$(),=STR(E7$,1,8)TO F9$STEP 8 : IF F9$>HEX(0000)THEN RETURN : GOSUB '38(34,STR(E7$,,8)) : F=F-1 : RETURN 1560 R3$(1)="IDS2PR24" : LOAD T#2,"IDS2PS17"1000, 1570 IF E$(774)="Y"THEN GOSUB '45(1,"N") : ELSE GOSUB '45(1,"Y") : GOTO 1300 1580 IF E$(775)="Y"THEN GOSUB '45(2,"N") : ELSE GOSUB '45(2,"Y") : GOTO 1300 1590 IF E$(776)="Y"THEN GOSUB '45(3,"N") : ELSE GOSUB '45(3,"Y") : GOTO 1300 1600 F=0 : GOTO 1240 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR24" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"