image of READY prompt

Wang2200.org

Listing of file='IDS2PR36' on disk='vmedia/701-2716B.wvd.zip'

# Sector 485, program filename = 'IDS2PR36'
1000 REM "IDS2PR36" - Release 2.1 - REPORT DOC. (OPERATIONS)
1010 COM E1,E2,E3,C8,E2(8),C2$19,D0,D8,C7$32,C8$3,C3$8
   : E2(7),E2(8)=0
   : IF C5$="B"THEN Q=8
   : ELSE Q=6
   : C3$=E9$(Q)OR ALL(20)
   : IF STR(C2$,,8)<>E9$(Q)THEN 1080
   : ADDC(STR(C2$,17,1),01)
   : STR(C2$,18)=" "
   : GOTO 1128
1080 CONVERT STR(E$(),157,3)TO E2
   : ERRORE2=0
1085 IF E2=0OR J3=1THEN 1520
   : E3=0
   : D8=1
   : CONVERT STR(E$(),152,3)TO D0
   : ERRORD0=0
1110 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB 1590
   : GOSUB 1550
   : IF C5$="B"THEN Q=8
   : ELSE Q=6
   : C2$=STR(E9$(Q),,8)&STR(E$,,8)
   : C8$=STR(E$,9)
   : D7=0
1128 E$()=" "
   : E6$=F6$(17)AND HEX(02)
   : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"1010,1128BEG 1129
1129 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
1130 GOSUB '60(E1$(2),C2$)
1140 KEYIN E6$,1140,1150
   : GOTO 1160
1150 IF VAL(E6$)=31THEN 1520
1160 IF D6>=54THEN GOSUB 1610
   : IF STR(E6$(),,16)=STR(C2$,,16)THEN 1180
   : IF E3<>0THEN 1170
   : GOSUB 1640
   : E0$()=HEX(01)
   : D6=D6+1
   : GOSUB '49(0)
   : E$="     NO EDITS FOUND FOR OPERATION "&STR(C2$,9,8)
   : GOSUB '48(0,E$,0)
   : D6=D6+2
   : GOSUB '49(0)
   : GOSUB '49(0)
1170 D8=D8+1
   : GOSUB 1550
   : E3=0
   : STR(C2$,9)=STR(E$,,8)
   : C8$=STR(E$,9)
   : E$()=" "
   : GOTO 1130
1180 E3=E3+1
   : STR(C2$,,17)=STR(E6$(),,17)
   : D7=VAL(E6$(18))-48
   : STR(E$(),76)=STR(E6$(),18,1)&"0"&STR(E6$(),17,1)&"N  "&STR(E6$(),,16)
1210 GOSUB '62(E1$(2),1,0)
   : J=VAL(F$(2))-47
   : ON JGOTO 1230,1240,1240,1240,1240,1240,1290,1300,1310
1230 STR(E$(),,22)=F$()
   : STR(E$(),76)=STR(F$(),,250)
   : GOTO 1320
1240 STR(E$(),J*228-130)=STR(F$(),23,228)
   : GOTO 1320
1290 STR(E$(),1466)=STR(F$(),23,192)
   : GOTO 1320
1300 STR(E$(),1658)=STR(F$(),23,192)
   : GOTO 1320
1310 STR(E$(),1850)=STR(F$(),23,192)
1320 IF STR(E6$(),,17)=STR(C2$,,17)THEN 1210
   : GOSUB 1545
   : D9=0
   : ON D7GOTO 1370,1380,1390,1400,1410,1420,1430
   : E$="pass/fails only"
   : F9$="30"
   : D9=1
   : GOTO 1440
1370 E$="set field(s)"
   : F9$="37"
   : GOTO 1660
1380 E$="read record"
   : F9$="32"
   : GOTO 1670
1390 E$="logical test(s)"
   : F9$="36"
   : GOTO 1680
1400 E$="math calc(s)"
   : F9$="31"
   : GOTO 1690
1410 E$="range test(s)"
   : F9$="34"
   : GOTO 1700
1420 E$="table look-up"
   : F9$="35"
   : GOTO 1710
1430 E$="user-specified"
   : F9$="33"
   : GOTO 1730
1440 E2(6),Q=0
   : FOR I=554TO 1438STEP 18
   : IF E$(I)<>" "THEN E2(6)=E2(6)+1
   : IF E$(I+1)="H"THEN Q=Q+1
   : NEXT I
   : IF D6+E2(6)+Q+D9>58THEN GOSUB 1610
   : GOSUB '49(0)
1470 F5$="IDS2PS"&F9$
   : CONVERT VAL(E$(78))-31TO F9$,(##)
   : E4$()="Operation "&HEX(22)&STR(E$(),15,8)&HEX(22)&" ("&F9$&") "&E$
   : E0$()=HEX(01)
   : D6=D6+1
   : GOSUB '49(0)
   : GOSUB '48(0,E4$(),0)
   : GOSUB '49(0)
   : D6=D6+1
   : IF STR(C8$,,1)=" "THEN 1480
   : E$="Do only if level >= "&STR(C8$,,1)
   : GOSUB '48(0,E$,0)
1480 IF STR(C8$,2,1)=" "THEN 1481
   : IF E0$()=HEX(01)THEN E$="Do only if flag"
   : ELSE E$=" and flag"
   : E$=E$&" "&STR(C8$,2,1)&" is"
   : IF STR(C8$,3,1)="Y"THEN E$=E$&" ON"
   : ELSE E$=E$&" OFF"
   : GOSUB '48(0,E$,0)
1481 IF E$(79)<>"Y"THEN 1482
   : IF E0$()=HEX(01)THEN E$="Do only if flag"
   : ELSE E$=" and flag"
   : E$=E$&" "&E$(80)&" is"
   : IF E$(81)="N"THEN E$=E$&" OFF"
   : ELSE E$=E$&" ON"
   : GOSUB '48(0,E$,0)
1482 IF E0$()=HEX(01)THEN 1500
   : D6=D6+1
   : GOSUB '49(0)
1500 E2(4)=E2(3)
   : E2(3)=VAL(STR(E$(),3,1))-31
   : COM CLEAR C3$
   : LOAD T#2,F5$1000,
1520 IF C5$="B"THEN 1530
   : E0$()=HEX(01)
   : GOSUB '48(0,HEX(0C0D),0)
   : GOSUB '49(0)
   : D6=0
1530 IF R3$(1)<>"IDS2PS14"THEN 1540
   : COM CLEAR J9
   : LOAD T#2,R3$(1)1000,
1540 $CLOSE#1
   : COM CLEAR J3
   : LOAD T#2,R3$(1)1000,
1545 GOSUB '39(C3$,3)
   : J2=MAX(1,ABS(INT(-D0*9/249)))
   : J8=MAX(1,ABS(INT(-D0*8/249)))
   : MAT REDIM E3$(3*J8)83
   : DATA LOAD DA T#P,(A+6+J2)E3$()
   : MAT REDIM E3$(24)83
   : RETURN
1550 GOSUB '39(C3$,3)
   : J2=MAX(1,ABS(INT(-D0*9/249)))
   : J8=MAX(1,ABS(INT(-D0*8/249)))
   : J7=MAX(1,ABS(INT(-E2*9/249)))
   : MAT REDIM E2$(3*J7)83
   : IF E2>0THEN DATA LOAD DA T#P,(A+6+J2+J8)E2$()
   : MAT REDIM E2$(250)9,F$(E8)1
   : L=1
   : IF E2>0THEN STR(E2$(),E2*9)=ALL(FF)
   : IF E2=0THEN RETURN
   : IF POS(STR(E2$(D8),,8)<>HEX(FF))=0THEN 1520
1580 E$=E2$(D8)&ALL(00)
   : FOR I=1TO 12
   : ROTATEC(STR(E$,I),-2)
   : NEXT I
   : ADD(STR(E$,,12),20)
   : RETURN
1590 E0$()=HEX(01)
   : J4=J4+1
   : GOSUB '48(0,HEX(0C),0)
   : GOSUB '49(0)
   : C7$=STR(E$(),18,32)
   : IF C5$="B"THEN Q=8
   : ELSE Q=6
   : E$="Report "&HEX(22)&E9$(Q)&HEX(22)&" - "&C7$
   : GOSUB '48(2,E$,0)
   : E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&"  Page ## of ##"
   : CONVERT J4TO STR(E$,16,2),(##)
   : CONVERT J9TO STR(E$,22,2),(##)
   : GOSUB '48(57,E$,0)
1600 GOSUB '49(0)
   : D6=1
   : RETURN
1610 E0$()=HEX(01)
   : GOSUB '49(0)
   : GOSUB '49(0)
   : J4=J4+.0001
   : E0$()=HEX(020C)
   : GOSUB '49(0)
   : E4$()="Report"
   : IF C5$="B"THEN Q=8
   : ELSE Q=6
   : E4$()=E4$()&HEX(22)&E9$(Q)&HEX(22202D20)&C7$
   : GOSUB '48(2,E4$(),0)
1630 CONVERT J4TO E8$,(##.####)
   : E4$()=STR(R2$,,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&"   Page "&E8$
   : GOSUB '48(57,E4$(),0)
   : D6=1
   : GOSUB '49(0)
   : RETURN
1640 E0$()=HEX(01)
   : GOSUB '49(0)
   : E4$()="OPERATION "&HEX(22)&STR(C2$,9,8)&HEX(22)
   : GOSUB '48(0,E4$(),0)
   : D6=D6+2
   : GOSUB '49(0)
   : RETURN
1660 X=99
   : FOR I=1TO 4
   : IF STR(E$(),X,8)<>" "THEN D9=D9+1
   : X=X+8
   : FOR L=1TO 4
   : X=X+21
   : IF STR(E$(),X,21)<>" "THEN D9=D9+1
   : NEXT L
   : IF X<>326THEN X=X-1
   : NEXT I
   : GOTO 1740
1670 IF STR(E$(),107,1)<>" "THEN D9=D9+1
   : IF STR(E$(),108,3)<>" "THEN D9=D9+1
   : IF STR(E$(),111,2)<>" "THEN D9=D9+1
   : IF STR(E$(),113,16)<>" "THEN D9=D9+1
   : IF STR(E$(),129,2)<>" "THEN D9=D9+1
   : FOR L=131TO 287STEP 39
   : IF STR(E$(),L,39)<>" "THEN D9=D9+1
   : NEXT L
   : GOTO 1740
1680 FOR I=99TO 267STEP 56
   : IF STR(E$(),X,51)<>" "THEN D9=D9+1
   : NEXT I
   : IF D9>0THEN D9=D9+1
   : GOTO 1740
1690 FOR I=142TO 508STEP 46
   : IF I=326THEN I=370
   : IF STR(E$(),I,8)<>" "THEN D9=D9+1
   : NEXT I
   : GOTO 1740
1700 FOR I=101TO 281STEP 36
   : IF STR(E$(),I,8)<>" "THEN D9=D9+1
   : NEXT I
   : IF D9>0THEN D9=D9+1
   : GOTO 1740
1710 IF STR(E$(),98,8)<>" "THEN D9=D9+1
   : IF STR(E$(),111,8)<>" "THEN D9=D9+1
   : D9=D9+2
   : CONVERT STR(E$(),106)TO A
   : ERRORA=0
1711 CONVERT STR(E$(),334)TO E
   : ERRORE=0
1714 IF A=0THEN 1720
   : F=MAX(A,E)
   : B=LEN(STR(E$(),127,198))
   : C=INT(B/A)
   : D=C*F+1
   : G=MOD(B,A)
   : IF C>0THEN D9=D9+D
   : IF G>1THEN D9=D9+1
1720 IF E=0THEN 1740
   : B=LEN(STR(E$(),339,215))
   : C=INT(B/E)
   : D=C*F+1
   : G=MOD(B,E)
   : IF C>0THEN D9=D9+D
   : IF G>1THEN D9=D9+1
   : GOTO 1740
1730 X=222
   : D9=2
   : FOR I=222TO 288STEP 33
   : IF STR(E$(),I,8)<>" "THEN D9=D9+1
   : NEXT I
   : IF STR(E$(),317,8)<>" "THEN D9=D9+1
   : GOTO 1740
1740 D9=D9+1
   : GOTO 1440
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR36"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"