Last change
on this file since 1073 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
549 bytes
|
Rev | Line | |
---|
[613] | 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.