Listing of file='IDS2PS37' on disk='vmedia/701-2724B.wvd.zip'
# Sector 521, program filename = 'IDS2PS37'
1000 REM "IDS2PS37" - Release 2.1 - DOCUMENTATION FOR SET FIELDS = FIELD/CONST
ANT
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '33("IDS2sS34")
: FOR I=13TO 61STEP 16
: F0$=" "
: E0$()=HEX(01)
: GOSUB '43(I)
: IF E$=" "THEN 2100
: E4$()="Set field "&STR(E$,,8)&" = "
: GOSUB '48(0,E4$(),0)
: FOR J=I+1TO I+13STEP 3
: IF F0$=" "THEN 1065
: IF F0$="+"THEN E$=HEX(26202220222026)
: IF F0$="+"THEN GOSUB '48(14,E$,0)
: ELSE GOSUB '48(20,"&",0)
1065 GOSUB '43(J)
: IF E$=" "THEN 2050
: E6$=E$
: IF E$="F"THEN E$="field"
: ELSE E$="constant"
: GOSUB '48(22,E$,0)
: GOSUB '43(J+1)
: GOSUB '48(31,E$,0)
: GOSUB '43(J+2)
: F0$=E$
: IF F0$=" "THEN 2000
: E$="(bytes used)"
: IF F0$="+"OR F0$="&"THEN 1160
: F9$=F0$
: IF LEN(F0$)=1THEN F9$="0"&F0$
: STR(E$,7)="= "&F0$&")"
1160 GOSUB '48(50,E$,0)
2000 GOSUB '49(0)
: IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
: ELSE F4=F4+1
2050 NEXT J
2100 NEXT I
: E0$()=HEX(01)
: 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,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS37"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"