here's an updated version. it actually has any ending!
start:
h#=150:x#=0:x2#=-20:sync rate 25:do:oh#=h#:if spacekey()=1:dec h#:o=0:endif:if spacekey()=0 and h#<149:inc h#,5:o=1:endif
cls
ink RGB(0,0,255),0:box 0,0,650,650:ink RGB(0,128,0),0:if splat=0:time=0:ellipse x#,370,10,20:ink RGB(0,0,0),0:dot x#-5,365:dot x#+5,365:line x#-5,375,x#+5,375:line x#-7,362,x#-4,365:line x#+7,362,x#+4,365:inc x#:endif
ink RGB(0,255,0),0:circle 110,h#+200,40:circle 410,h#+200,40:line 150,h#+200,370,h#+200:ink RGB(255,255,255),0:line 260,h#+200,260,h#:line 250,h#+200,250,h#:line 270,h#+200,270,h#:set cursor 370,h#+200:set text size 1:Print "500 pounds"
ink RGB(192,192,192),0:box 0,390,650,500:ink RGB(255,255,0),0:box 200,h#,480,h#+50:box 480,0,520,390:ink RGB(255,255,255),0:set cursor 70,h#+200:print "500 pounds":set text size 25:set cursor 0,0:Print "Drop the weights on the alien; get to 10 points"
if x#>700:x#=0:endif:if x#>107 and x#<113 and h#+240>350 and splat=0 and o=1 or x#>407 and x#<413 and h#+240>350 and splat=0 and o=1:splat=1:inc p:endif:if splat=1:inc time:ink RGB(0,128,0),0:ellipse x#,390,20,2:endif
if time=40:splat=0:time=0:endif:ink RGB(192,192,192),0:box 400,h#-70,480,h#:ink RGB(0,0,0),0:set cursor 400,0:Print "POINTS: ",p:ink RGB(0,0,0),0:set cursor 210,h#+10:Print "EL CHEAPO CRANES":if p=10:goto win::endif
ink RGB(255,165,74),0:if splat2=0:time2=0:ellipse x2#,370,10,20:ink RGB(0,0,0),0:dot x2#-5,365:dot x2#+5,365:line x2#-5,375,x2#+5,375:inc x2#,5:endif:if x2#>700:x2#=-40:endif:if time2=40:splat2=0:time2=0:endif
if x2#>107 and x2#<113 and h#+240>350 and splat2=0 and o=1 or x2#>407 and x2#<413 and h#+240>350 and splat2=0 and o=1:splat2=1:dec p:endif:if splat2=1:inc time2:ink RGB(255,165,74),0:ellipse x2#,390,20,2:endif:loop
win:
cls
ink RGB(255,0,0),0:set cursor 100,0:set text size 75:Print "YOU WIN!!!!":ink RGB(255,128,0),0:set text size 60:set cursor 150,100:Print "Play again?":wait key:wait key:goto start:
[EDIT]
I'm starting to make it in to a full game with levels. Won't be 20 lines though.
Mysteries Surround You