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"