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"