[TIB] Sharing a Function (TI-89/92+)

To: ti-basic@lists.ticalc.org
Subject: [TIB] Sharing a Function (TI-89/92+)
From: "Adam N." <sgamer@swbell.net>
Date: Thu, 22 Aug 2002 13:18:26 -0500
In-reply-to: <Pine.GSO.4.44L-027.0208221354460.1928-100000@chamonix.hl.andrew.cmu.edu>
Priority: normal
References: <20020819222138.C960B18018@mx-1.sollentuna.net>
Reply-To: ti-basic@lists.ticalc.org


Here's a little something that all of you probably use anyway:

(PLEASE NOTE: This is copied and pasted from Graph-Link.
Therefore, the --> will look weird... that unidentifiable symbol
would be it.)

This is a function that takes a string as input. The output is the
X-coordinate (Column) that the Output orPxlText commands
must use if you wish to display that string, centerred on the screen.

centrstr(gnirts)
Func
local fropp
dim(gnirts)ťfropp
fropp*3ťfropp
80-froppťfropp
Return fropp
EndFunc

Function does not affect the contents of "gnirts", which should be a 
string.

USAGE

...
Lbl N1
Dialog
 Request "Enter your name",name1
EndDlog
If ok=0
 goto n1
Output 35,(centrstr(name1)),name1
Output 60,(centrstr("Is this correct?")),"Is this correct?"
...

That block of code will ask someone for his/her name, not accept
a CANCEL, center the name in a middleish area of the screen,
and center the confirmation at the bottom.

This could have its uses...

--Adam Norberg, who's been a lurker on this list for the last two 
years

References:

[TIB] Re: TI-83 Basic stumper

From: "Arthur J. O'Dwyer" <ajo@andrew.cmu.edu>