git @ Cat's Eye Technologies Bhuna / master eg / fun4.bhu
master

Tree @master (Download .tar.gz)

fun4.bhu @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
F = ^ Level {
  Print "Level is ", Level, EoL
  Q = ^ QLev {
    Print "QLev is ", QLev, EoL
    Print "(And Q thinks Level is ", Level, ")", EoL
    if (QLev < 3)
      Q QLev + 1
    else
      Print "This is as far as we go.", EoL
  }
  if Level < 3 {
    F Level + 1
  } else {
    Print "At level three, woo!", EoL
    Q 0
  }
}

F 0