Listing of file='IDS2PS47' on disk='vmedia/701-2724B.wvd.zip'
# Sector 618, program filename = 'IDS2PS47'
1000 REM "IDS2PS47" - Release 2.1 - PASS/FAIL DOCUMENTATION CHANGE FIELD ATTRI
BUTES
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: E$=" for field"
: IF E6$="X"THEN E$=E$&" named in field"
: E$=E$&" "&F1$
: F5$=F2$
: IF F5$<>"KBD=ON"THEN 1070
: E$=E$&" set keyboard avaibility ON"
: GOTO 2000
1070 IF F5$<>"KBD=OFF"THEN 1080
: E$=E$&" set keyboard avaibility OFF"
: GOTO 2000
1080 IF F5$<>"DSP=NONE"THEN 1090
: E$=E$&" set display attribute to OFF"
: GOTO 2000
1090 IF F5$<>"DSP=NRML"THEN 1100
: E$=E$&" set display attribute to normal"
: GOTO 2000
1100 IF F5$<>"DSP=BRGT"THEN 1110
: E$=E$&" set display attribute to bright"
: GOTO 2000
1110 IF F5$<>"DSP=BLNK"THEN 1120
: E$=E$&" set display attribute to blinking"
: GOTO 2000
1120 IF STR(F5$,4,1)="="THEN E$=E$&" set"
: IF STR(F5$,4,1)="+"THEN E$=E$&" increment"
: IF STR(F5$,4,1)="-"THEN E$=E$&" decrement"
: IF STR(F5$,,3)="POS"THEN E$=E$&" buffer position"
: IF STR(F5$,,3)="ROW"THEN E$=E$&" row"
: IF STR(F5$,,3)="COL"THEN E$=E$&" column"
: IF STR(F5$,4,1)="="THEN E$=E$&" to"
: ELSE E$=E$&" by"
1190 E8$=STR(F5$,5)
1200 IF LEN(E8$)=1OR STR(E8$,,1)>"0"THEN 1230
: E8$=STR(E8$,2)
: GOTO 1200
1230 E$=E$&" "&E8$
2000 GOSUB '48(0,E$,0)
: AND (STR(E0$(),5,1),DF)
: GOSUB '49(0)
: GOSUB 3010
: LOAD T#2,"IDS2PS30"1000,
3010 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$="IDS2PS47"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"