This section is from the document '/pub/list_archives/calc-ti.archive/calc-ti-9411'.

From owner-calc-ti Wed Nov 30 22:18:38 EST 1994 remote from ds
Received: by ds.internic.net; Wed Nov 30 22:13:04 EST 1994
Received: from AUVM.AMERICAN.EDU by AUVM.AMERICAN.EDU (IBM VM SMTP V2R2)
   with BSMTP id 0967; Wed, 30 Nov 94 21:49:17 EST
Received: from AUVM.AMERICAN.EDU (NJE origin NETNEWS@AUVM) by AUVM.AMERICAN.EDU
 (LMail V1.2a/1.8a) with BSMTP id 8015; Wed, 30 Nov 1994 21:46:19 -0500
To:  CALC-TI@LISTS.PPP.TI.COM
Path:
 auvm!psuvm!news.cac.psu.edu!howland.reston.ans.net!vixen.cso.uiuc.edu!prairiene
 t.org!lilprog
From: lilprog@prairienet.org (robert m. gardner)
Newsgroups: bit.listserv.calc-ti
Subject: Calc-TI - BASKETBALL
Date: 1 Dec 1994 02:41:53 GMT
Organization: University of Illinois at Urbana
Lines: 113
Message-ID: <3bjd5h$7b8@vixen.cso.uiuc.edu>
NNTP-Posting-Host: firefly.prairienet.org
Sender: owner-calc-ti@dsmail.internic.net
Precedence: bulk
Reply-To: lilprog@prairienet.org (robert m. gardner)


:0^s
:0^c
:0^d
:0^Xmin
:95^Xmax
:0^Xscl
:0^Ymin
:63^Ymax
:0^Yscl
:Clrhome
:ClrDraw
:Disp ""
:Disp ""
:disp "high score"
:disp a
:pause
:clrhome
:lbl a
:clrdraw
:0^c
:s+1^s
:if s>9
:prgm3
:line(89,43,95,43)
:line(95,43,95,53)
:line(95,43,93,37)
:line(91,37,89,43)
:line(91,37,93,37)
:rand*40+5^x
:rand*55+5^y
:pt-on(x,y+1)
:pt-on(x+1,y+1)
:pt-on(x+2,y+1)
:pt-on(x+2,y+0)
:pt-on(x+1,y-1)
:pt-on(x,y-1)
:pt-on(x-1,y)
:pt-on(x-1,y+1)
:dispgraph
:pause
:clrhome
:disphome
:disp "power"
:input p
:disp "angle"
:input b
:p-b^d
:d/p^d
:b/100^f
:lbl b
:pt-chg(x,y+1)
:pt-chg(x+1,y+1)
:pt-chg(x+2,y+1)
:pt-chg(x+2,y+0)
:pt-chg(x+1,y-1)
:pt-chg(x,y-1)
:pt-chg(x-1,y)
:pt-chg(x-1,y+1)
:pt-chg(x,y+1)
:x+d^x
:y+f^y
:f-.01^f
:pt-chg(x+1,y+1)
:pt-chg(x+2,y+1)
:pt-chg(x+2,y+0)
:pt-chg(x+1,y-1)
:pt-chg(x,y-1)
:pt-chg(x-1,y)
:pt-chg(x-1,y+1)
:pt-chg(x,y+1)
:if x<89
:goto c
:if y>47
:goto c
:if y<39
:goto c
:if x>95
:goto c
:goto d
:lbl c
:if y<1
:goto e
:if x>95
:goto e
:goto b
:lbl e
:clrhome
:disphome
:disp "missed"
:pause
:goto a
:lbl d
:clrhome
:disphome
:disp "good!"
:pause
:j+1^j
:goto a



prgm3
:if j>a
:j^a
:end





The registered version will allow you to bank it and will also allow it to
bounce of the rim. The registered version is only a buck. So if interested
email me!


.