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! .