ct ct frame def =none super pack buildwindow paused stop running human locked false def buildwindow cv , , , , cv pack left wt cv screen getscreen screen ( screenmin screenmin screenmax screenmax screen bgcolor white ht frame frame frame pack right both board board none def screen screen ( screenmin screenmin screenmax screenmax screen bgcolor white screen wt cv ht pu width green range penup goto , pendown goto , penup goto * + pendown goto * + update def newgame drawgrid human board locked =false update def newgame drawgrid frame new game commands pack this copy belongs to 'acha