🚀 go-pugleaf

Here is miniature golf for the 81. follow the same guidelines used to put 
in normal skeetball(message 1947) if you have any questions or are 
interested in registering and getting the fulll 18 hole version send me 
some email (lilprog@prairienet.org)

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




Here it is enjoy I will send out a registration form as soon as I have finished the registrated version . Heres what the registered version will have

Full 18 holes possibly a wind factor and also some cheat codes(you will have to figure those out)
enjoy
	lilprog