From: SMTP%"ALLAN@otago.ac.nz" 30-JUL-1991 21:04:39.91 To: hagood@scri1.scri.fsu.edu CC: Subj: 4D SpaceBreak Ext Date: Wed, 31 Jul 91 12:57 GMT +1200 From: Allan Udy Subject: 4D SpaceBreak Ext To: hagood@scri1.scri.fsu.edu X-VMS-To: IN%"hagood@scri1.scri.fsu.edu" SpaceBreak(fullstr;len;returnstr; remainstr) This external breaks a string at the last space before the passed length. A string without spaces will be broken at the length point. A string shorter than the length will be returned complete. This routine will take a long string and break it into lines of length vlen each separated by a CRLF. This is useful for serial printing when you want to break a page of text into lines of a specified length. Be sure to initialize all variables befor (This file must be converted with BinHex 4.0) :%P0`B@0P3R*PB@XZ4AKd,Q0`G!"338083e"$9!#3"!6h!*!%2@8"!63E!!!%Y)" (GiL)J!"fN!"jLSS*J*!!N!#!5RS!F)F)LAKkLRJ!QRHSQ)KUGhGiS)KTL)CkLB# D!)L9Gh4hGJGA9@"99RHAS+!!Q)!!#D!!!!QJ!*!$J!!!#3#J!!#J!!!*!!#3!!S !J!#JJ!!!QU!!N!#UQU!!!*!!#J!+!*!$#3#3!kUJS!S!!*!!LQB1!!%c49C@8'" `!*!%"`dL4&9N9&9QF!!'F!H)K$'!6PI2#(*!5&@[hC8B+ihU+l*TjjEFF&GkMGM C[5MfY[Eeqlkefr0Y5Ye5Qhml8q+blMKVhY6aE'KTphaBd-Mpli1KkBHAcFhphkI rI`!MPF[m%eFY[1Y@Zp0A@URIQUP4C(J(52EdijMBMHXP`))c9aQUhF!3@9apZ-Z '9A(C[*!!M+HZ8E`2i,+H#DbpY#[qJ%`HVMaEdU)mG1#0%L3V+Be5fF&kIEM036K Uh2$K`krfj(2k0%-R-SKcVHYd2[Frr(IrVLp3*FcRqL(T!M+kqaL`J3JpcN%2il& -)HG",hFl&KYk[YD&q'6U`MiIjDI,b4BaBI(p1Rb[UjHl#'8K&GeZ[VBX0clXAp' $`II!MPVdBF+1f[Gl(jBBhB#Ujk)9H,jGEr@(#qJT`U43m'Yf1@'@),Y0q,ZjrRR qQjiiq6h[p`bVRe`KdreQF14Fm-)Dr"k[Zeq$rk!RUeq$$kVRSaBpcah-%DBFc,T KNjr8Kb+HReHT$P8jPZhcXVk1e`G$YImbSIhl2dGUIQCq2qfQ(+m(Cj[TZpRQrCh rji[9m12EpI,mRHq@jrD%14hh0'p(F`6cef9D8mU0+U9Q#SX+V5Y4m[Qqr9,JQ5d DXfeDf%kJPm9NUU*Til+(C3X3G5PTV&d[20AC'Y&b1c,FTU5PdeE@DrL-1lC[CdB pTXfiVeQp6JD-L[VdiY"h96[QL'e46H0qQp4BkHele04"`5681P,D-b6"ifUH#r2 +b4G,k43-6E"h9)`,%M#0FUV`0AaLX4PU)I[85V$bj6BNRV#cU0642aa)%fjb3f3 jA("I6Ih9kh@MYEde9FCkD0dMhBTD+P%52@c"1D,(,I1Dj@)Ledm%Sm-a#ZbLq(K R5HQP9qb4Qilc*p6!mM0j$0K$4JcF2KV---C"qZbN4[-Q$M%-p2&SfVA#eAqMepM HPlqp62+lC9DprH["*d@ahm1APjYU-H(LTUhe,'aN&AYP0N'P`TCL@&l($9+["2B d+lL"+*9FU0Y8PS*k6K4d[cH$ZDU0Vb'EZ$CC)Eb%&A,AF@X1LiGj[5r&TIMkZIQ 3!lDe$&2%NLY9Se4$-b@6EmPb1PM0F!$"H+(S4MJbl1PEaTh'lA59)bQfYiMdpYQ X1U0RM%G)`5QdC`$Il0HH[F8apV'4MP-G`lXNDeklI2aj&IPYAYbmli$E+9`*il5 &ek`CEhkL8L@h09Xq!*Ga[bhaalda#fY9+9(!GiD(8k[@kRZINYDY92"'l332)h0 GTh,1)r%p12ESfXirSFQ'0SDHaU3aY(c`a2hrP$)rCPBrr3+pU(`3ap$6e2%"RXU B3KQD&ZjTJ4e3km[QjH4mQ[SqI%L(qH'4mRaX$16m`'CrX2E#c,ZPQG[53'ZjS!# 3!pGUUYF!!3!18h"KBf9#FQ9KDbj&H(3"!*!$#&"&@&3d4%eBSP[eYk*EpES!!-c FYMB!!J!!"b%!N!B%V!#3")5B!!!: