Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
513 bytes
|
Rev | Line | |
---|
[613] | 1 | ENTEXT ;(WASH ISC)/DLM-Break Text Into 80 Char Segments ;8-28-84
|
---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
---|
| 3 | ;EXPECTS STRING IN 'ENORD' - LENGTH OF LINE IN 'ENLTH'
|
---|
| 4 | ;RETURNS NUMBER OF SEGMENTS IN 'ENNU'
|
---|
| 5 | ; ENORD(1) - ENORD(ENNU)
|
---|
| 6 | CKL ;BRK ORDER STR
|
---|
| 7 | S S=1,ENNU=1
|
---|
| 8 | S Z=ENLTH,ENORD(ENNU)=""
|
---|
| 9 | CL1 S L=$F(ENORD," ",Z) I L=0&(S'=1) S ENORD(ENNU)=ENORD(ENNU)_$E(ENORD,Z-1,$L(ENORD)) G CL2
|
---|
| 10 | S ENORD(ENNU)=ENORD(ENNU)_$E(ENORD,S,L-2)
|
---|
| 11 | I $L(ENORD(ENNU))>(ENLTH-5) S ENNU=ENNU+1,ENORD(ENNU)=""
|
---|
| 12 | S S=L-1,Z=L
|
---|
| 13 | G CL1
|
---|
| 14 | CL2 K S,L,Z,ENLTH Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.