void local fn DoIt
  int s =1, c = 1, cube = 1, n = 0
  while ( n < 30 )
    int square = s * s
    while ( cube < square )
      c++
      cube = c * c * c
    wend
    if ( cube == square )
      text ,, _zRed
      printf @"%d is square and cube",square
      text
    else
      print square
      n++
    end if
    s++
  wend
end fn

fn DoIt

HandleEvents