[Coco] Release CenterText.b09

[tim franklinlabs.com]

   I would re-read you copyright message. It reads like it wasn't
   proofread at all. Just a suggestion!

     On April 8, 2018 at 9:19 PM phil pt wrote:
     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 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 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
     [1]Coco at maltedmedia.com
     [2]https://pairlist5.pair.net/mailman/listinfo/coco

     --
     Coco mailing list
     [3]Coco at maltedmedia.com
     [4]https://pairlist5.pair.net/mailman/listinfo/coco

     --
     Coco mailing list
     [5]Coco at maltedmedia.com
     [6]https://pairlist5.pair.net/mailman/listinfo/coco

References

   1. mailto:Coco at maltedmedia.com
   2. https://pairlist5.pair.net/mailman/listinfo/coco
   3. mailto:Coco at maltedmedia.com
   4. https://pairlist5.pair.net/mailman/listinfo/coco
   5. mailto:Coco at maltedmedia.com
   6. https://pairlist5.pair.net/mailman/listinfo/coco