Listing of file='IDS2PR11' on disk='vmedia/701-2716B.wvd.zip'
# Sector 179, program filename = 'IDS2PR11'
1000 REM "IDS2PR11" - Release 2.1 - REPORT GENERATOR FIELD EDIT COMPLETION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E$(1)="\E2"THEN STR(E$(),792,5),STR(E$(),800,3),STR(E$(),812,3)=ALL(30
)
: MAT REDIM F$(27)83,E3$(24)83
: DATA LOAD DA T#3,(E4+8)F$(),E3$()
: MAT REDIM F$(249)9,E3$(249)8,E0$(249)1
: E8$=ALL(00)
: J1=Q
: IF J1=25THEN 1195
: GOSUB '43(22)
: E8$=BIN(Q)&ALL(00)
1020 GOSUB '43(23)
: E0$()=" "
: IF Q>0THEN STR(E0$(),,Q)=ALL(A3)
: STR(E8$,9)=BIN(Q)
: GOSUB '43(25)
: D7=Q
: GOSUB '43(17)
: F1=Q
: STR(E8$,6,1)=BIN(D7*D7*16+F1+32)
: GOSUB '43(24)
: J5=Q
: GOSUB '43(30)
: C9=Q
: IF E$(808)="Y"THEN Q=2
: ELSE Q=0
: IF E$(809)="Y"THEN Q=Q+1
: STR(E8$,2,2)=BIN(J5*16+C9*4+Q,2)
: GOSUB '43(28)
: STR(E8$,4,1)=BIN(128+Q)
: D9=Q
1140 GOSUB '43(21)
: C1=Q
: STR(E8$,5,1)=BIN(Q)
: STR(E8$,7,1)=BIN(POS(" 0123456789ABCDEFRP"=E$(811))*8)
: IF E$(813)="Y"THEN OR (STR(E8$,7,1),04)
: IF E$(814)="Y"THEN OR (STR(E8$,7,1),02)
: IF E$(815)="Y"THEN OR (STR(E8$,7,1),01)
: IF E$(1)="\E2"THEN 2000
: STR(E8$,8,1)=BIN(F4)
1195 F6=VAL(E$(E8))
: IF VAL(F$(F6))=0THEN 1200
: DATA LOAD BA T#3,(E4+33+F4)E4$()
: STR(E4$(),8+VAL(STR(F$(F6),5)),VAL(STR(F$(F6),9)))=" "
: DATA SAVE BA T#3,(E4+33+F4)E4$()
1200 IF D7=2OR J1=25THEN 2000
: IF D7=0THEN 1500
: ON C9GOTO 1310,1320,1330
: E0$(1)=HEX(AD)
: GOTO 1500
1310 E0$(LEN(E0$()))=HEX(AD)
: GOTO 1500
1320 STR(E0$(),LEN(E0$())-1)=HEX(ADAD)
: GOTO 1500
1330 STR(E0$(),LEN(E0$())-1)=HEX(ABAB)
1500 IF E$(814)="Y"THEN E0$(POS(E0$()=A3))=HEX(A4)
: X=POS(-E0$()=A3)
: IF D9=0THEN 1550
: E0$(X-D9)=HEX(AE)
: X=X-D9-1
1550 IF E$(813)="N"THEN 2000
: FOR I=X-3TO POS(E0$()=A3)+1STEP -4
: IF I>POS(E0$()=A3)THEN E0$(I)=HEX(AC)
: NEXT I
2000 F6=VAL(E$(E8))
: IF J1=25THEN STR(E3$(),F6*8-7)=STR(E3$(),F6*8+1)
: ELSE E3$(F6)=STR(E$(),784)
: IF J1=25THEN STR(F$(),F6*9-8)=STR(F$(),F6*9+1)&ALL(00)
: ELSE F$(F6)=E8$
: MAT REDIM F$(27)83,E3$(24)83
: DATA SAVE DA T#3,(E4+8)F$()
: DATA SAVE DA T#3,(E4+17)E3$()
: MAT REDIM F$(E9)1,E3$(249)8
: IF J1=25OR E$(1)="\E2"THEN 2030
: DATA LOAD BA T#3,(E4+33+F4)E4$()
2010 STR(E4$(),8+C1,VAL(STR(E8$,9)))=E0$()
: E0$()=HEX(01)
: DATA SAVE BA T#3,(E4+33+F4)E4$()
2030 F5=0
: LOAD T#2,R3$(1)1000,
2100 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR11"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"