Skeetball :Disp "highest scores" :disp o :disp q :disp r :disp s :disp x :pause :clrhome :0^a :0^b :0^c :0^d :0^e :0^f :0^g :0^h :0^i :0^j :0^k :0^l :0^m :0^n :0^p :0^V :disp "skeetball" :disp "version 1.7" :disp "by Robert Gardner" :pause :clrhome :Disp "choose your level of play" :disp "1.easy" :disp "2.medium" :input v :clrhome :lbl a :0^h :b+1^b :if b=10 :prgm3 :disp "ball" :disp b :pause :clrhome :clrdraw :line(92,0,92,32) :line(60,0,60,32) :line(65,27,87,27) :line(65,5,65,27) :line(87,27,87,5) :line(87,5,65,5) :line(70,10,70,22) :line(70,22,82,22) :line(82,22,82,10) :line(82,10,70,10) :line(75,15,75,17) :line(75,17,77,17) :line(77,17,77,15) :line(77,15,75,15) :line(0,32,92,32) :rand^p :p*31^p :int p :if v=1 :5^p :rand^c :c*31^c :int c :pt-on(p,c) :pt-on(p+1,c) :pt-on(p-1,c) :pt-on(p,c+1) :pt-on(p,c-1) :pause :disphome :disp "power" :input d :disp "angle" :input e :dispgraph :d/92^f :E/92^g :c^j :p^i :lbl b :H+1^h :if j>30 :line(0,32,92,32) :if i>90 :line(92,0,92,32) :if j<4 :line(0,0,92,0) :if j<1 :g*-1^g :if j>31 :g*-1^g :if i>91 :f*-1^f :prgm2 :pt-off(I+1,J) :pt-off(I,J-1) :pt-off(I,J+1) :pt-off(I,J) :pt-off(I-1,J) :F+I^I :g+j^j :pt-on(I,J) :pt-on(I+1,J) :pt-on(I-1,J) :pt-on(I,J+1) :pt-on(i,j-1) :if h<92 :goto b :lbl c :if i<60 :goto d :if J>32 :goto d :if j<0 :goto d :if i>92 :goto d :if i<65 :goto e :if i>87 :goto e :if j>27 :goto e :if j<5 :goto e :if i<70 :goto f :if i>82 :goto f :if j>22 :goto f :if j<10 :goto f :if i<75 :goto g :if i>77 :goto g :if j>17 :goto g :if j<15 :goto g :goto h :lbl d :clrhome :disp "0 points" :disp "total points" :DISP M :goto a :lbl e :clrhome :disp "10 points" :disp "total points" :m+10^M :disp m :goto a :lbl f :clrhome :disp "20 points" :m+20^M :disp "total points" :disp m :goto a :lbl g :clrhome :disp "30 points" :m+30^M :disp "total points" :disp m :goto a :lbl h :clrhome :disp "bullseye" :m+50^M :disp "total points" :disp m :goto a :prgm 3 :If m>o :m^o :if m>o :end :if m >q :m^q :if m>q :end :if m>r :m^r :if m>r :end :if m>s :m^s :if m>s :end :if m>x :m^x :if m>x :end :prmg 2 :line(77,17,75,17) :line(75,15,77,15) :if j>16 :goto a :line(65,5,87,5) :line(70,10,82,10) :goto b :lbl a :line(65,27,87,27) :line(70,22,82,22) :lbl b :line(75,15,77,15) :line(77,15,77,17) :if i<76 :goto c :line(82,22,82,10) :line(87,27,87,5) :goto d :lbl c :line(70,22,70,10) :line(65,27,65,5) :lbl d :end This is the whole program ^ stands for store key You must set your graph config as follows xmin 0 xmax 95 xscr 0 ymin 0 ymax 63 yscr 0 xres 1 do this by hitting the range key(ti-81)