Module Main
Use Another

Public Class Main Function BoolTest
	Set A To True
	Set B To A Invert
	Return B
EndFunction

Public Class Main Function NoneTest
	Set A To None
	Return A
EndFunction

Public Class Main Function LoopThirds Args Num
	If Num Equals 0
	Then Return True
	Set TenThirds To 1 Divide 30
	Set Third To TenThirds Multiply 10
	Set NewNum To Num Subtract Third
	Jump Self LoopThirds NewNum
EndFunction

Public Class Main Function RatioTest
	Jump Self LoopThirds 10
EndFunction

Public Class Main Function IfTest
	If False
	Then Return False

	If False
	Then Return False
	ElseIf True
	Then Return True
	Else Return False
EndFunction

Public Class Main Function CountDown Args NumFrom
	If NumFrom Equals 0
	Then Return True
	Set Next To NumFrom Subtract 1
	Jump Self CountDown Next
EndFunction

Public Class Main Function LoopTest
	Jump Self CountDown 10000
EndFunction

Public Class Main Function MakeNumberReal
	Set Halfish To Another GetHalfish 620
	Set Double To Halfish Add Halfish
	Set Final To Double Subtract 2
	Return Final
EndFunction

Public Class Main Function MakeNumber
	Set NewMain To Create Main
	Jump NewMain MakeNumberReal
EndFunction