Listing of file='IDS2PS35' on disk='vmedia/701-2724B.wvd.zip'
# Sector 498, program filename = 'IDS2PS35'
1000 REM "IDS2PS35" - Release 2.1 - DOCUMENTATION FOR TABLE & REPLACE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: E$,F0$=" "
: F5$=STR(E$(),98)
: IF F5$<>" "THEN 1030
: GOSUB '48(0,"No look-up field - use the same replace table element as las
t table look-up",0)
: E$=" "
: GOSUB 3320
: GOTO 2000
1030 F9$=STR(E$(),106)
: IF F9$<"10"THEN F9$=STR(F9$,2)
: E$="Look-up field is "&HEX(22)&F5$&HEX(22)&" with "&F9$&" byte"
: IF F9$<>"1"THEN E$=E$&"s"
: E$=E$&"."
: CONVERT F9$TO C0
2000 E7$=STR(E$(),326)
: IF E7$<>" "THEN 2010
: F0$="There is no replace table"
: GOTO 2020
2010 F9$=STR(E$(),334)
: IF F9$<"10"THEN F9$=STR(F9$,2)
: F0$="Replace field is "&HEX(22)&E7$&HEX(22)&" with "&F9$&" byte"
: IF F9$<>"1"THEN F0$=F0$&"s"
: F0$=F0$&"."
: CONVERT F9$TO C4
2020 IF E$<>" "THEN E4$()=E$&" "&F0$
: ELSE E4$()=F0$
: GOSUB '48(0,E4$(),0)
: GOSUB 3320
: FOR I=1TO 2
: IF I=1THEN F$()=STR(E$(),127,198)
: ELSE F$()=STR(E$(),339,215)
: $TRAN(F$(),HEX(2080))R
: IF F$()=" "THEN 3000
: IF I=1THEN GOSUB '48(0,"Look-up table:",0)
: ELSE GOSUB '48(0,"Replace table:",0)
: GOSUB 3320
: L=181+17*I
: IF I=1THEN Y=C0
: ELSE Y=C4
: IF Y=0THEN 3000
2110 X=INT(L/MAX(C4,C0))
: Z=MAX(C4,C0)
: FOR J=1TO X
: E$=STR(F$(),J*Y-Y+1,Y)
: IF VAL(E0$())+Y<80THEN 2140
: GOSUB 3320
2140 GOSUB '48(-1,E$,Z)
: NEXT J
: IF LEN(E0$())>1THEN GOSUB 3320
: ELSE E0$()=HEX(01)
3000 NEXT I
: F5$=STR(E$(),111)
: IF F5$=" "THEN 3300
: E$="Disk table file name is "&HEX(22)&F5$&HEX(222E)
: F5$=STR(E$(),119)
: IF F5$=" "THEN 3200
: E$=E$&" Replace from field "&HEX(22)&F5$&HEX(22)
3200 GOSUB '48(0,E$,0)
: GOSUB 3320
3300 IF E2(6)<>0THEN LOAD T#2,"IDS2PS30"1000,
: IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN LOAD T#2,"IDS2PR36"1000,
: LOAD T#2,"IDS2PS27"1000,
3320 GOSUB '49(0)
: IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
: ELSE F4=F4+1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS35"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"