Just a short money system for newcomers to learn from

Just a short money system for newcomers to learn from

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    money#=10000
rideprice#=1
rem
do
if mouseclick()=1 then dec money#,rideprice# : inc rideprice#, 1
if money#=0 then Text 20, 10, "Can't spend anymore out of cash take out a loan" : money#=0
if money#<0 then money#=0
if money#=0 then print "0"
print money#
loop