Wang 2200 Virtual Media

Listing of file='IDS2PS48' on disk='vmedia/701-2724B.wvd.zip'
# Sector 626, program filename = 'IDS2PS48'
1000 REM "IDS2PS48" - Release 2.1 - PASS/FAIL DOCUMENTATION FOR DISPLAY FIELDS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : E$=" display from"
   : IF F1$=" "THEN E$=E$&" first field"
   : IF F1$<>" "AND E6$="V"THEN E$=E$&" field named in"
   : IF F1$<>" "THEN E$=E$&" field "&F1$
   : E$=E$&" to"
   : IF F2$=" "THEN E$=E$&" last field"
   : IF F2$<>" "AND E6$="V"THEN E$=E$&" field named in"
1080 IF F2$<>" "THEN E$=E$&" field "&F2$
   : GOSUB '48(0,E$,0)
   : AND (STR(E0$(),5,1),DF)
   : GOSUB '49(0)
   : GOSUB 3010
   : X=0
   : E$=" "
   : LOAD T#2,"IDS2PS30"1000,
2000 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$="IDS2PS48"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"