[Coco] Release CenterText.b09

[phil pt]

James

When Os9Budget calls CenterText it stores the screen position in Centertext
for displaying the menu. The Center position is different for the menu
title and the menu items.

On Sun, Apr 8, 2018 at 6:49 PM, James Jones <jejones3141 at gmail.com> wrote:

> I'm wondering whether
>
> PRINT USING "S"+STR$(width)+"^",text;
>
> wouldn't do the job. (Is the poke to a magic number intended to influence
> where the output appears?)
>
> On Sun, Apr 8, 2018 at 11:58 AM, phil pt <ptaylor2446 at gmail.com> wrote:
>
> > The following code is a procedure file CenterText.b09 that is used in Os9
> > Budget. This is the only source code that will be release.  Please read
> the
> > copyright notice.
> >
> > PROCEDURE CenterText
> >
> > (* CenterText (C) 2018 By Phillip Taylor *)
> > (* Relase conditions The user can use this code but not for commercial *)
> > (* Use. Any modifications that the user makes to this code may not be *)
> > (* be included in the Os9Budget Program. Violations of this terms the
> user
> > *)
> > (* will not longer be able to this procedure file. *)
> >
> > (* Params Passed TT Text & SW is the Screen Width *)
> >
> >
> > PARAM SW:Integer; TT:String[80] \(* SW = Screen Width, TT = Text *)
> > DIM A,B,C,I
> > DIM T1,T2,T3:STRING[80]
> > DIM ID:String[1]
> > T1=""
> > T2=""
> > T3=""
> > A=0
> > B=0
> > C=0
> > A=LEN(TT)
> > B= B + SW - A
> > C=INT(B/2)
> > FOR I=1 TO C
> > T1 = T1 + " "
> > NEXT I
> > T2 = T2 + T1 + TT
> > Poke 64301,C                \ (* Save the screen position in
> memory/Center
> > Text  *)
> > PRINT T2
> > END
> >
> > --
> > Coco mailing list
> > Coco at maltedmedia.com
> > https://pairlist5.pair.net/mailman/listinfo/coco
> >
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
>