Listing of file='IDS2PR16' on disk='vmedia/701-2716B.wvd.zip'
# Sector 220, program filename = 'IDS2PR16' 1000 REM "IDS2PR16" - Release 2.1 - REPORT GENERATOR OPERATIONS SPECIFICATIONS PART 2 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1020 COM C9$19,C5$1 : C5$="R" : IF E$(1)="\E2"THEN C5$="B" : E$="Report" : IF C5$="B"THEN E$="Batch" : GOSUB '45(12,E$) : GOSUB '45(13,E$) : R3$(1)="IDS2PR13" : GOSUB '33("IDS2sR05") : AND (STR(E2$(3),5,1),FE) 1031 PRINT AT(18,1,40);HEX(0F);"Touch '16 to add or modify an Edit";AT(19,1,40 );"associated with the current operation" 1040 GOSUB '43(9) : E8$=ALL(00) : MAT SEARCHF$(),=STR(E8$,1,9)TO F9$STEP 9 : C6=INT(VAL(F9$,2)/9) 1080 IF C6=0THEN 1150 : E$=" " : PRINT HEX(060F); : FOR I=(Q-1)*63TO MIN(Q*63-1,C6-1) : CONVERT I+1TO E$,(###) : F5$=STR(F$(),I*9+1,6)&ALL(00) : FOR J=1TO 8 : ROTATEC(STR(F5$,J),-2) : NEXT J : ADD(F5$,20) : PRINT AT(MOD(I,21)+2,INT((I-(Q-1)*63)/21)*13+41);STR(E$,1,4);F5$ : NEXT I 1150 IF STR(E$(),1600,8)=" "THEN 1680 : GOSUB '63("EXEC=Accept, EDI","T=Modify, '16=Edit process, '10=Change op n umber, '31=Cancel"," ") : GOSUB '34(250) : IF Q=24THEN 2000 : IF Q=16THEN 1500 : IF Q=33THEN 1210 : IF Q=32THEN 1680 : IF Q=31THEN LOAD T#2,"IDS2PR13"1000, : IF Q=10THEN 1700 : IF Q>16AND Q<21THEN 1190 1180 PRINT HEX(07); : GOTO 1150 1190 Q=Q-16 : PRINT HEX(06); : FOR I=2TO 22 : PRINT AT(I,40,40); : NEXT I : GOTO 1080 1210 E1=1 : GOTO 1300 1300 F=4 1305 F=F+1 1308 GOSUB '34(F) : ON F-2GOTO 1305,1305,1390,1400,1410 : IF F<3THEN 1305 : ELSE GOTO 1150 : STOP "NO." 1390 IF POS(" 0123456789PR"=E$)>0THEN 1305 : GOSUB '35("Level must be blank, 0-9, 'R', or 'P'") : GOTO 1308 1400 IF E$=" "THEN 1405 : IF E$>="0"AND E$<="9"THEN 1305 : IF E$>="A"AND E$<="Z"THEN 1305 : GOSUB '35("Sysflag designator must be 0-9 or A-Z") : GOTO 1308 1405 GOSUB '45(F+1," ") : GOTO 1150 1410 IF E$="Y"OR E$="N"THEN 1150 : GOSUB '35("Sysflag state must be 'Y' (ON) or 'N' (OFF)") : GOTO 1308 1500 IF STR(E$(),1600,8)=" "THEN 1180 : MAT REDIM E$(24)83 : DATA SAVE DA T#3,(E4)E$() : MAT REDIM E$(E8)1 : MAT REDIM F$(27)83 : DATA SAVE DA T#3,(E4+25)F$() : MAT REDIM F$(E9)1 : C9$=STR(E$(),2,8)&STR(E$(),1600,8) : R3$(1)="IDS2PR14" : LOAD T#2,"IDS2PS18"1000, 1680 E8$=STR(E$(),1600,8)&STR(E$(),1611,3)&E$(1614)&ALL(00) : ADD(STR(E8$,1,11),E0) : FOR I=12TO 1STEP -1 : ROTATEC(STR(E8$,I),2) : NEXT I : GOSUB '43(4) : STR(F$(),Q*9-8,9)=STR(E8$,,9) : MAT REDIM F$(27)83 : DATA SAVE DA T#3,(E4+25)F$() : LOAD T#2,"IDS2PR13"1000, 1700 IF C6<2THEN 1180 : GOSUB '43(3) : F5$=E$ADDALL(E0) : FOR I=8TO 1STEP -1 : ROTATEC(STR(F5$,I),2) : NEXT I : MAT SEARCHF$(),=STR(F5$,1,6)TO F9$STEP 9 : IF F9$=HEX(0000)THEN 1180 : J3=INT(VAL(F9$,2)/9)+1 : OR (STR(E2$(4),5,1),01) 1710 F0$="Please enter new operation number (001-###)" : CONVERT C6TO STR(F0$,POS(F0$="#"),3),(###) : GOSUB '53(F0$) : GOSUB '34(4) : IF Q=0OR Q>C6THEN 1710 : AND (STR(E2$(4),5,1),FE) : IF Q=J3THEN 1150 : X=J3*9-8 : E8$=STR(F$(),X) : STR(F$(),X)=STR(F$(),X+9)&ALL(00) 1730 Q=Q*9-8 : MAT COPY -F$()<Q,2242-Q>TO -F$()<Q+9,2242-Q> : STR(F$(),Q,9)=E8$ : GOTO 1040 1799 STOP # 2000 GOSUB '43(1) : J6$=E$ : IF E$=" "THEN 1020 : GOSUB '43(3) : STR(J6$,9)=E$ : IF E$=" "THEN 1020 : MAT REDIM E$(24)83 : DATA SAVE DA T#3,(E4)E$() : MAT REDIM E$(E8)1 : MAT REDIM F$(27)83 : DATA SAVE DA T#3,(E4+25)F$() : MAT REDIM F$(E9)1 : F$()=J6$ : COM CLEAR J6$ : R3$(1)="IDS2PR13" : LOAD T#2,"IDS2PS98"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR16" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"