Listing of file='IDS2PS87' on disk='vmedia/701-2715B.wvd.zip'
# Sector 331, program filename = 'IDS2PS87'
1000 REM "IDS2PS87" - Release 2.1 - SCREEN/REPORT COPY EDITS FOR SCREEN/FIELD
- MODULE #2 OF 4 - PROTECT TABLE
1010 COM J0$17,J2$8,J3$8
: DATA 98,228,326,228,554,228,782,228,1010,228,1238,228,1466,192,1658,192,1
850,192
: E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1040
1040 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: J3$=HEX(0102040810204080)
: J4,J5=0
: E$()=" "
: GOSUB '32("IDS2sS65")
: F=0
1130 F=F+1
: IF F>4AND J1$<>"RENAME"THEN GOSUB '34(F)
: IF F>4AND Q=32THEN 1800
: ON FGOSUB 1160,1180,1260,1280,1300,1360
: IF F>6THEN GOTO 1480
: GOTO 1130
1160 GOSUB '45(F,J6$)
: RETURN
1180 GOSUB '39("IDS2sS65",3)
: MAT REDIM E$(24)83
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
: E$=STR(E$(),10,24)&ALL(00)
: FOR I=1TO 32
: ROTATEC(STR(E$,I),-2)
: NEXT I
: ADD(E$,20)
: GOSUB '45(F,E$)
1260 GOSUB '45(3,STR(J6$,,8))
: E$=" "
: RETURN
1280 GOSUB '45(4,STR(J6$,9,8))
: RETURN
1300 IF J1$<>"RENAME"THEN 1310
: E$=J5$
: GOSUB '45(5,E$)
: GOTO 1320
1310 J5$=E$
1320 STR(E$(),94,8)=E$
: IF Q<>32THEN RETURN
: RETURN CLEAR
: GOTO 1800
1360 IF J1$<>"RENAME"THEN 1370
: E$=STR(J5$,9)
: GOSUB '45(6,E$)
: GOTO 1380
1370 STR(J5$,9)=E$
1380 STR(E$(),102,8)=E$
: IF Q<>32THEN 1410
: RETURN CLEAR
: GOTO 1800
1410 IF STR(J5$,,16)<>STR(J6$,,16)THEN RETURN
: F0$="The reference and current file & field can not be the same !"
: GOSUB '53(F0$)
: F=F-2
: RETURN
1480 IF J1$="RENAME"THEN F0$="Renaming all field edits from previous field"
: ELSE F0$="EXEC = Accept, EDIT = Modify, FN'31 = Cancel"
: GOSUB '53(F0$)
: IF J1$="RENAME"THEN 1560
: GOSUB '34(250)
: F=4
: ON Q-31GOTO 1540,1130
: GOTO 1480
1540 PRINT AT(23,0,80);
1560 J0$=J6$
: J2$=ALL(00)
: J1=1
: Y9=1
: GOSUB '60(E1$(2),J0$)
: IF STR(E6$(),,16)<>STR(J0$,,16)THEN 1810
1670 Y9=2
: GOSUB '62(E1$(2),1,0)
: IF Q=0OR STR(F$(),7,16)<>STR(J0$,,16)THEN 1810
: STR(J0$,17)=BIN(VAL(STR(F$(),3))+1)
: J=INT((VAL(STR(F$(),3))-32)/8)+1
: C2=MOD(VAL(STR(F$(),3))-32,8)+1
: STR(J2$,J,1)=OR STR(J3$,C2,1)
: GOTO 1670
1800 IF J1$<>"RENAME"THEN 1810
: J6$=J5$
: F$()="RENAME"
: R3$(1)="IDS2PS03"
: LOAD T#2,"IDS2PS95"1000,
1810 LOAD T#2,"IDS2PS99"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS87"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"