Mini Golf

:0^xmin
:0^xmax
:0^xscl
:0^ymin
:0^ymax
:0^yscl
:0^h
:0^t
:Disp "highest scores"
:disp a
:disp b
:disp c
:disp d
:disp e
:pause
:clrhome
:disp "Minigolf"
:disp "unregistered"
:disp "version"
:disp "by lilprog"
:pause
:clrhome
:lbl a
:0^s
:H+1^H
:if H>6
:prgm2
:disp "hole"
:disp h
:pause
:clrhome
:clrdraw
:rand*20+1^j
:rand*20+75^i
:rand*28+1^k
:Int I
:Int j
:int k
:i-j^j
:if h>3
:prgm7
:if h<4
:line(0,30,i,30)
:line(I,0,I,30)
:rand*20+1^m
:rand*28+1^n
:pt-on(m+n)
:pt-on(m+1+n)
:pt-on(m+n+1)
:pt-on(m+1+n+1)
:pt-on(j,k)
:pt-on(j+1,k)
:pt-on(j,k+1)
:pt-on(j+1,k+1)
:pt-on(j+2,k)
:pt-on(j+2,k+1)
:pt-on(j+1,k+2)
:pt-on(j,k+2)
:pt-on(j-1,k)
:pt-on(j-1,k+1)
:lbl b
:s+1^s
:disp "shot"
:disp s
:pause
:clrhome
:dispgraph
:pause
:disp "power"
:input p
:disp "angle"
:input q
:p/100^o
:q/100^r
:0^f
:lbl c
:f+1^f
:prgm8
:pt-chg(m,n)
:pt-chg(m+1,n)
:pt-chg(m,n+1)
:pt-chg(m+1,n+1)
:m+o^m
:n+r^n
:pt-chg(m,n)
:pt-chg(m+1,n)
:pt-chg(m,n+1)
:pt-chg(m+1,n+1)
:if F>100
:goto e
:goto c
:lbl e
:if m<(j-2)
:goto b
:if m>(j+3)
:goto b
:if n<(k-2)
:goto b
:if n>(k+3)
:goto b
:s+t^t
:goto a



that is the end of the main program here are the sub programs

prgm2
:t-15^t
:disp "your score is"
:disp t
:if t<0
:disp "underpar"
:if t<0
:disp "overpar"
:if t<e
:goto a
:stop
:lbl a
:if t<a
:goto b
:if t<b
:goto c
:if t<c
:goto d
:if t<d
:goto e
:t^e
:stop
:lbl b
:d^e
:c^d
:b^c
:a^b
:t^a
:stop
:lbl c
:d^e
:c^d
:b^c
:t^b
:stop
:lbl d
:d^e
:c^d
:t^c
:stop
:lbl e
:d^e
:t^d
:stop

here is the next sub program

prgm7
:rand^l
:if l>.5
:j-30^j
:if l>.5
:k+30^k
:line(0,30,35,30)
:line(55,30,95,30)
:line(55,30,55,60)
:line(65,0,65,15)
:line(35,60,55,60)
:line(35,30,35,60)

and the final one

prgm8
:if m>(I-1)
:o*-1^o
:if n<1
:r*-1^r
:if h>3
:goto a
:if n>30
:r*-1^r
:end
:lbl a
:if m<64
:goto f
:if m>66
:goto f
:if n>15
:goto f
:o*-1^o
:lbl f
:if m<35
:goto b
:if m>55
:goto b
:if n>30
:goto d
:end
:lbl b
:if n>30
:r*-1^r
:end
:lbl d
:if n>59
:r*-1^r
:if m<36
:o*-1^o
:if m>54
:o*-1^o
:end