image of READY prompt

Wang2200.org

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"