source: FOIAVistA/trunk/r/ENGINEERING-EN/ENTEXT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 513 bytes
Line 
1ENTEXT ;(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)
6CKL ;BRK ORDER STR
7 S S=1,ENNU=1
8 S Z=ENLTH,ENORD(ENNU)=""
9CL1 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
14CL2 K S,L,Z,ENLTH Q
Note: See TracBrowser for help on using the repository browser.