| [613] | 1 | XQH1 ;ISC-SF.SEA/JLI - HELP PROCESSOR (Continuation) ;6/2/92 14:23 ;5/13/93 11:33 AM
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | INIT S XQDONE=0,XQDSH="",$P(XQDSH,"-",79)="-",XQHY=-1
|
|---|
| 5 | I '$D(IOF) S IOP="" D ^%ZIS K IOP
|
|---|
| 6 | S I="",IORV="""[""",IORVX="""]""" I $D(IOST(0)),$D(^%ZIS(2,IOST(0),5)) S I=^(5) S:$L($P(I,U,4)) IORV=$P(I,U,4) S:$L($P(I,U,5)) IORVX=$P(I,U,5)
|
|---|
| 7 | Q
|
|---|
| 8 | WAIT S Y=1,DIR(0)="E" D:IOST["C-" ^DIR S:'Y XQDONE=1 W @IOF Q
|
|---|
| 9 | HDR S %XQI=80-$L(XQHF)\2 W @IOF X:$D(^DIC(9.2,+XQHY,10.1)) ^(10.1) S X=0 X ^%ZOSF("RM") W ?%XQI,XQHF
|
|---|
| 10 | Q
|
|---|
| 11 | OUT K X1,XQAU,XQ3,XQBL,XQDSH,XQH1,XQH2,XQHSL,XQHK,XQHN,XQKY,%XQI,%XQJ,%XQK,XQHS,XQHX,K,XQHR,XQHL,XQHF,XQHP,DIC,I,IORV,IORVX,XQDONE,Y,XQHY,DA,DIE,DR,XQKW,XQKWC,XQL,XQLKW,XQW
|
|---|
| 12 | Q
|
|---|
