|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
549 bytes
|
| Line | |
|---|
| 1 | XQSUITE1 ;Subroutines for XQSUITE: SuiteMan ;11/29/94 11:47
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;;KV8
|
|---|
| 4 | ;
|
|---|
| 5 | SPLIT ;Takes X, Returns Y1 and Y2
|
|---|
| 6 | N XQIN,XQMID,XQDONE,XQSP
|
|---|
| 7 | S XQIN=X,XQMID=($L(XQIN)\2)+1,XQDONE=0,XQSP=" "
|
|---|
| 8 | I $E(XQIN,XQMID)=XQSP S Y1=$E(XQIN,1,XQMID-1),Y2=$E(XQIN,XQMID+1,$L(XQIN))
|
|---|
| 9 | F XQI=1:1:XQMID-1 Q:XQDONE D
|
|---|
| 10 | .I $E(XQIN,XQMID-XQI)=XQSP S Y1=$E(XQIN,1,(XQMID-XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1
|
|---|
| 11 | .Q:XQDONE
|
|---|
| 12 | .I $E(XQIN,XQMID+XQI)=XQSP S Y1=$E(XQIN,1,(XQMID+XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1
|
|---|
| 13 | .Q
|
|---|
| 14 | ;W !,XQIN,!,Y1,!,Y2
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
