[Coco] [Non-DoD Source] Coco Digest, Vol 188, Issue 19

[Taylor, Phillip L CIV]

Message: 2
Date: Mon, 9 Apr 2018 05:40:52 -0500 (CDT)
From: "tim franklinlabs.com" <tim at franklinlabs.com>
To: CoCoList for Color Computer Enthusiasts <coco at maltedmedia.com>
Subject: Re: [Coco] Release CenterText.b09
Message-ID:
	<1083859824.14863.1523270452989 at webmail6.networksolutionsemail.com>
Content-Type: text/plain; charset="UTF-8"

   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



I will make the changes to the copyright notice and it's also included the main code that displays on all the menus OS( Budget (C) 2018 By Professional Softwaredevelopment.com. CenterText is the only module that is be released in the Os9Budget project and is released as public domain under the following condition that it cannot be modified and redistributed with Os9 Budget.