TPUQ ` ? $ ~ 3DUf s` L w b SSeaField 6 SSystem O FieldSizeR OFreeCellR OShip1R OShip2R OShip3R OShip4R OBusyCellR2 OPastMoveRd OHitR ONotAvailR P GameSpace R R d P Direction, , , ORightDir, ODownDir, PPosVal s R PGameFieldPtr P GameField j h M& QXcoor * QYcoor &*Q WorkSpace > RInit1 h ** RDoneQ RGetCell ** RSetCell + **>R PutOnePart( | hRIsAvailable0 Mr R PutNewShip8 , r , R SetUpField@ R DrawFieldH H P HumanFieldPtr P HumanField j += h = R DrawFieldP e PComputerFieldPtrz b P ComputerField j h R DrawFieldX SCrt ~ 3DUf s` L w b QInitX" > * QInitY" > * QSelf > QSelf h QOx" * QOy" *QSelf W5i QOx" * QOy" * QVal" FQSelf QOx" QOy" QVal" QSelf QOx" QOy" QSelf Qi *Qj * 6 QOx" M QOy" M QShipSize" M Qdir" M , GQSelf M XQixM *oQiyM *QiM *QflagM r ( 8 QSelf Qrx * Qry * Qd , Qi Qj R QSelf o QSelf = Qi= * Qj= * QSelf Qi * Qj * ( 0 8 @ H P ? L = 3 H E b Y _( m ( SeaField System Crt 6v#SEAFIELD.PAS > X Y h _ ` d e o p w x 1111 # M % @> + = % $ * !!!! $ % $ * %, ; U1 h t"F~&F&E Wd P P F] U1 h ] U ~ |~ ~ |~ ~FN f~&EFF] U1 ~ |)~ #~ |~ ^ N f~&]] U1 ^ FȊF ~&]FHPFHP~W