Neo-Jaguar Entertainment

Project: TI-AVERAGE3

Release Name:     Averager
Version:          3.00.?? - assumed 3.00.00
Version Syntax:   MainRelease.Update.Fix
Released:         Autumn, 2000
 and Uploaded:    January 13th, 2002
Project Started:  Autumn, 2000
Project Finished: Autumn, 2000

Key:
     -> Store variable ([STO] key)
     Ø  Theta

This program was developed by Tony Slater for the Neo-Jaguar
Entertainment Software Division.  This program was developed
for the TI-83+ version 1.12.  This program uses the "proper"
format for the code; omitable charcters are left in.  ie:
":Output(X,Y,Str1)" instead of ":Output(X,Y,Str1"

For help or support with this program:
        E-mail: tSlater@neo-tokyo.org
        Neo-Jaguar Ent.: http://www.geocities.com/tsgames/
        SE Productions: http://64.114.57.54/index.cgi?section=sen&page=index
        
        Remember, E-Mail addresses and urls can change!  For
        the latest e-mail address, visit one of the websites
        listed above.

THE PROGRAM:

PROGRAM:AVERAGE3
:Disp "HOW MANY NUMBERS","WILL BE AVERAGED"
:Input A
:A->B
:0->Ø
:ClrHome
:Disp "BEGIN ENTERING","VALUES"
:Lbl 0
:0->D
:0->E
:Input D
:B-1->B
:Output(1,14,B)
:Output(2,14,Ø)
:If B>0
:Then
:Input E
:D+E+Ø->Ø
:B-1->B
:Output(1,14,B)
:Output(1,14,Ø)
:Else
:D+Ø->Ø
:Goto 1
:End
:If B>0
:Goto 0
:Lbl 1
:Ø/A->Z
:Disp "     AVERAGE IS:"
:Disp Z

    Source: geocities.com/tsgames/products

               ( geocities.com/tsgames)