programgames/capitals/play.xtl

source · imports a: games/capitals/Atlas.xtl

ᵘl̲oop : Int -> Char

function · line 11
ᵘl̲oop ← { s →
  said ← p̲rint! ᵃs̲ay s
  pic ← ⎕S̲HOW ᵃd̲raw s
  e ← ⎕E̲VENT @
  "end" m̲atch ⎕E̲KIND e ? "THE END"
  "click" m̲atch ⎕E̲KIND e ? ᵘl̲oop s ᵃc̲lick ⎕E̲AT e◆ ᵘl̲oop s
}