E ,3 1:ACO} :Cleared. (18|00:12) 68 2 2:ATKI :Cleared. (21|00:06) 68 3 3:Ao[gEACV^C :Cleared. (27|00:18) 68 (4 5:Hʂ܂ :Cleared. (46|00:23) 68 Y25 6:RzAJz :Cleared. (60|00:21) 68 <6 7:Ђς肾I :Cleared. (41|00:27) 68 F7 8:JE{[C :Gived up ! ( 758)*68 (P810:D :Cleared. (21|00:19) 68 mZ911:~bL[}EX :Gived up ! ( 671)*68 d:12:io :Cleared. (38|00:07) 68 nsave"il68" x6 7:Ђς肾I :Cleared. (41|00:27) 68  7XmaxƒYmaxƒYouso SeatXmaxƒYmax)„H_lineYmaxƒYouso)„V_lineXmaxƒYouso) H_sintenYmax)„V_sintenXmax) Read}(&Y&Ymax&H_line&H) Read}(&X&Xmax&V_line&V) =HփV"Error !!""H ="H"V="V USize(&Size) o (ƒYmaxSize)(ƒYmaxSize) ()(XmaxSizeƒYmaxSize)"bf"€ӻU)݀)݀)݀ӻ)݀)݀) 9line (0,0)-(Xmax*Size-1,Ymax*Size-1),2,"b" for Y=1 to Ymax-1:line (0,Y*Size-1)-(Xmax*Size-1,Y*Size),2,"b":next Y for X=1 to Xmax-1:line (X*Size-1,0)-(X*Size,Ymax*Size-1),2,"b":next X TiрTiր H_sinten)V_sinten) >"Ymax҃Xmax6 R,V_sinten) 6Umekomi6(&Xmax&Ymax&H_line&H_sinten&V_sinten)1=Yoko @LastѳLast() JLastуBlast TPp"last="ݲҀLast)) ^Oހ…Pp) hPp >rLastBlastуLast R|H_sinten) Umekomi6(&Ymax&Xmax&V_line&V_sinten&H_sinten)0=Tate LastѳLast() LastуBlast Pp"last="ݲҀLast)) Oހ…Pp) Pp <LastBlastуLast [if fnLast()>0 then 160 e, "( "ҀKaisu))" )"  ) Cc(Cc) Output  "Give up ! Please one Hint ! (x,y,1:on / -1:off)"XƒYƒT < Put*(XƒYƒT) O &Blast x 0H_sinten)V_sinten) :6 D---------------------------------------------------------------------- ! NUmekomi(&Xmax&Ymax&H_line&H_sinten&V_sintenƒ Tate_yoko) A XXƒYƒBufferƒSeat m bBufferƒXmax)„Now_lineXmax) lYYmax vJ Tate_yoko"y=""x=" Y)) H_lineY)4  H_sintenY)4  for X=1 to Xmax P  if Tate_yoko then Now_line(X)=fnSeat(X,Y)  :else Now_line(X)=fnSeat(Y,X) next  Tate_yoko  Now_line)ѢSeatƒY)  Now_line)ѢSeatY)   Hantei  No_end . XXmax i  BufferфBufferƒX)BufferNo_end   Tate_yokoSeatфSeatXƒY)SeatфSeatYƒX)  BufferƒX)փSeatV_sintenX)    Tate_yokoPutH(XƒY„BufferƒX)) J PutH(YƒX„BufferƒX)) Q  y *No_endH_lineY) 4 >UBASIC ł return erase Buffer(),Now_line() s H---------------------------------------------------------------------- /RSeat(XƒY) H\(SeatXƒY)) f---------------------------------------------------------------------- pHantei zBuffer H_blockYouso) H_block)ѢH_lineY)  Hantei_subS() #for X=1 to Xmax E Buffer(1,X)=Buffer(0,X) Rnext u Buffer)ѢBuffer)  X܃Xmax)  Now_lineX)„Now_lineXmaxރX)   X܄H_block))  H_blockX)„H_blockH_block)ރX) ' A Hantei_subS() W XXmax $ BufferфBufferƒXmaxރX) . Buffer=(sgn(Buffer)-(Buffer=0))*(H_block(0)+1-abs(Buffer))+(sgn(Buffer)<1) 3 BufferрBuffer.)(H_block)ހBuffer))(Buffer) d8 UBASIC ł́A_^łƒl 1 ƂȂB(NBASIC ł -1) B BufferƒX)уBuffer L j X܃Xmax) t Now_lineX)„Now_lineXmaxރX) ~  for X=1 to int(H_block(0)/2) = swap H_block(X),H_block(H_block(0)+1-X) M next p H_block)ѢH_lineY)  Hantei_kekkao  ----------------------------------------------------------------------  Hantei_sub(W) +NormaƒCountƒ Now_normaƒXƒXx K  Start_blockH_block)) dNormaфH_block) FXуXmaxXxуNormaCount PX ZCount d n Now_lineX) x CountXx   BufferƒX)уXx -Count 5 A Xx ^ BufferƒX)уXx { Now_lineX)  X    BufferƒX)уXx  Now_lineX)  "CountфH_blockXx) , 6 @XƒCount &J bCountƒ Now_normaƒXxXNormaфH_block) vBuffer) XՃXmax  Now_lineX)BufferƒX)ރ Now_norma  CountNow_line Start_block Now_norma))  Now_norma " GXф Start_block Now_norma) nBufferƒX)ރ Now_norma Count Now_norma   CountBufferƒX)у Now_norma  Count  Now_lineX) / Now_line Start_block Now_norma)) B Now_norma L q(Xф Start_block Now_norma) 2Buffer„ Start_block Now_norma))ރ Now_norma <Count Now_norma FBufferƒX)ރ Now_norma P "Z Now_normaԄBufferƒX) 6d Now_norma [n Start_block Now_norma)уX xCountфH_block Now_norma)  Now_lineX) BufferƒX)ރ Now_norma Now_line Start_block Now_norma))  Now_norma $ `Buffer„ Start_block Now_norma))ރ Now_norma Xф Start_block Now_norma) Count Now_norma     X  CountCount 6 @ =J---------------------------------------------------------------------- ST Hantei_kekka ^ Now_normaƒ Max_blockƒ Min_blockƒCheckƒCheck2ƒXxƒXxxƒWxƒFarƒBxƒL_typeƒR_typeƒFlag |XXmax  Now_lineX)  BufferƒX)фNow_lineX) $ P BufferƒX)фBufferƒX)  BufferƒX)рBufferƒX).)  BufferƒX)   Now_line)ѢBuffer) X XԃXmax  XxуX 5& Now_lineX)ƒFlag}Flag h: Now_lineXx)ƒXxԃXmax} sD Xx |N X Now_lineXx)Xx b XL_type l L_typeфNow_lineX) v  Xx҃XmaxR_type 9 R_typeфNow_lineXx) A d FarуXxރXBxуX  L_typeƒR_type}  XуX(X)WxуXx(XxԃXmax)  CheckрBufferƒX))(BufferƒX))  Check2рBufferƒWx)) D Min_blockуXmax Max_block a XxxуCheckCheck2  H_blockXxx)҃ Max_block Max_blockфH_blockXxx)   H_blockXxx)ԃ Min_block Min_blockфH_blockXxx) * 4 Min_blockуXmax Min_block `> L_typeƒR_typeƒ Min_block҃Farƒ Max_block҃Far} R XxxуBxXxBufferƒXxx) p z Min_blockՃFar  L_typeƒR_type}  WxуXx 3  WxԃXmax„Now_lineWx)}Wx W  WxӃBx݃ Min_block XxxуXxBx݃ Min_block BufferƒXxx):print "";Xxx;  XxуBx݃ Min_blockFlag   !$ L_typeƒR_type} 1!8 WxуBx k!B Wx„Now_lineWx)}Wx !j WxՃXxރ Min_block !~XxxуBxXxރ Min_block !BufferƒXxx):print "";Xxx; ! ! " " XуXx !" B"Now_line)ѢBuffer) X"XXmax {" Now_normaфBufferƒX) "  Now_norma " XxуX "( BufferƒXx))ԃ Now_normaXx "F Max_block #P Xxxу Now_normaBufferƒXx)) @#Z H_blockXxx)҃ Max_block b#n Max_blockфH_blockXxx) j#x q# # Max_block„Now_lineXx)} # H_blockBufferƒXx)))ƒXxՃXmax} $ CheckфBufferƒXx) H$ Check„H_blockBufferƒXx)))} g$BufferƒXx) o$ w$ $" Xx $6 CheckфBufferƒXx) $@ CheckƒCheckހBufferƒXx))} %TBufferƒXx) %^ %h -% Max_block ^% XxxрBufferƒX)) Now_norma % H_blockXxx)҃ Max_block Max_blockфH_blockXxx) % % Max_block„Now_lineX)} & H_block Now_norma)ƒX} 4& CheckфBufferƒX) o&& Check„H_blockBufferƒX)))} w&0 &:BufferƒX) &D &X &b XՃXmax &v CheckфBufferƒX) ' CheckƒCheckބBufferƒX)} 6'BufferƒX) >' F' M' n'Now_line)ѢBuffer) |'X 'XՃXmax ' Now_lineX)6 '  Min_blockуXmax Max_block ( CheckрBufferƒX))(BufferƒX)) 2(  Check2рBufferƒX)) O(* XxxуCheckCheck2 (4 H_blockXxx)ԃ Min_block Min_blockфH_blockXxx) (H H_blockXxx)҃ Max_block Max_blockфH_blockXxx) (\ Check҃Check2 )f BxуX )p X Q) Bx„Now_lineBx)}Bx Y) h) XxуX }) XԃXmax ) XxԃXmax„Now_lineXx)}Xx ) ) Min_blockӃXރBxƒ Max_blockԃXxރBx} * Flag U* XxxрBufferƒBx))(BufferƒBx))Check *$ H_blockXxx)ԃXރBxFlag *. *8 Flag *LXxxуBxXxރ Max_blockBufferƒXxx) *jBxуXxރ Max_block *t +~ (+ Min_block҃XxރBx j+ XxxуXxBx݃ Min_blockBufferƒXxx) + XxуBx݃ Min_block + + ---------------------- + XƒXx + BxуX + XԃXmax ", BxԃXmax„Now_lineBx)}Bx *,( h,2 Min_blockӃBxރXƒ Max_blockԃBxރXx} z,< Flag ,F XxxуCheck2BufferƒBx)) ,P H_blockXxx)ԃBxރXFlag ,Z ,d Flag )-xXxxуXx݃ Max_blockBxBufferƒXxx) I-BxуXx݃ Max_block Q- Y- |- Min_block҃BxރXx - XxxуXxBxރ Min_blockBufferƒXxx) - XxуBxރ Min_block - . Max_blockуXރXx 5. XxBufferƒXx) d. XԃXmaxBufferƒX) l." w.6 X .@ .J .T---------------------------------------------------------------------- .^ ,/h---------------------------------------------------------------------- Y/rRead(&Y&Ymax&H_line&H) d/|N z/YYmax / H_lineY) / NH_lineY) / H_lineYƒN) / HфH_lineYƒN) / / / J0---------------------------------------------------------------------- a0Size(&Size) q0XƒY 0XрXmax) 0YрYmax) 0 YԃXSizeуYSizeуX 0  #1 ---------------------------------------------------------------------- B1& Put(XƒYƒType) M10 C r1: Cр"027"ƒType)) 2D Type((X)Size(Y)Size)(XSizeƒYSize)ƒC"bf"€ӻU)݀)݀)݀ӻ)݀)݀)l [2N ((X)Size(Y)Size)(XSizeƒYSize)ƒC"bf" 2X  locate (X-1)*2,Y-1:print mid("~E",Type*2+3,2); 2b  if and{Seat(X,Y)<>0,Seat(X,Y)<>Type} then beep:print "What !?":end 3l SeatXƒY)уType 3v  V3 ---------------------------------------------------------------------- g3 Last() ~3 XƒYƒLast 3 YYmax 3 H_lineY) 3 XXmax 3 SeatXƒY)Last 3 3  4 Kaisu 4 (Last) h4 ---------------------------------------------------------------------- 4 ---------------------------------------------------------------------- 4>+----------------------- &5H+---------------------------------------------------------------------- 85R+Look! M5\+MxƒMyƒYo a5f+XMy 5p+AA"???????" 5z+"Line "" "݀X))": " 5+NA 5+B 5+B))"," 5+ 5+) 5+ 6+XMx 46+AA "???????" [6+"Line "" "݀X))": " o6+NA 6+BB(ƒB1}' 6+B))"," 6+ 6,) 6, 6, 6$,Output 7.,"last ="Last 78,YуYouso >7B,XYouso" " T7L,XXmax 7V,V_lineX)ӃYPрV_lineX„V_lineX)ރY))) 7`,Y„V_lineX)}P~, 8j,V_lineX)ӃYP 8t," " 8~, 8, '8, =8,YYmax Y8,XуYouso 8,H_lineY)ӃXPрH_lineY„H_lineY)ރX))) 8,X„H_lineY)}P, 9,H_lineY)ӃXP 9," " 9, 49,XXmax d9,"~"„SeatXƒY)) k9, r9- y9 - 9- 9-Seiri! 9(-MxƒMyƒYCGyou 92-YMy :<-C" "݀Gyou ))" data " :F-A $:P-ҀA)) T:Z-CCCGyou"," h:d-NA :n-C" "݀Gyou ))" data " :x-B :-ҀB)) :-CCCGyou"," :- :- ;-XMx I;-C" "݀Gyou ))" data " T;-A f;-ҀA)) ;-CCCGyou"," ;-NA ;-C" "݀Gyou ))" data " ;-B <-ҀB)) (<.XуMxƒNуA}. X<.CCCGyou"," _<. f<". m<,. <2---------------------------------------------------------------------- =2---------------------------------------------------------------------- @=2Xmax,Ymax,Youso(max) :ATKI =2  8>2 >2 ?2 ?2   ?2  b@2  @2      VA2   A3 BB3   B3 ---------- C"3---------------------------------------------------------------------- ;C,32( Xmax,Ymax,Youso(max) :ACO} C63  D@3    DJ3   DT3     aE^3 Eh3   =Fr3    F|3 & G3 G3   G3   cH3   H3  ?I3  I3    J3   J3  J3------------------------------------------------ %K3---------------------------------------------------------------------- nK3-2 Xmax,Ymax,Youso(max) :Ao[gEACV^C K3       fL4 L4  VM4  M&4  >N04    N:4    :OD4   ON4   *PX4  Pb4    Pl4 Pv4-------- =Q4     Q4   MR4   R4 S4   S4    T4  T4     U4    {U4   V4  {V4  V4---------------------------------------------------------------------- W5-2Xmax,Ymax,Youso(max) :Hʂ܂ }W 5 W5    YX 5    X*5  UY45   Y>5  UZH5 ZR5     E[\5 c[f5 [p5   O\z5  \5   O]50 ]5   K^5  ^5    _5--------------------------------------- X_5---------------------------------------------------------------------- _5-- Xmax,Ymax,Youso(max) :RzAJz `5   {`5 `5      _a5      a5  Wb6 b6  ;c6  c$6 +d.6    Od86----------- dB6    ?eL6  eV6   f`6  fj6    gt6   g~6  h6    h6    h6 mi6 i6 i6---------------------------------------------------------------------- j6A( Xmax,Ymax,Youso(max) :Ђς肾I j6  j6      [k6     k6      7l6        l7   m 7  m7     m7   ]n(7  n27   9o<7 ! oF7  pP7   pZ7      pd7 _qn7  qx7   ;r7 r7 s7   s7 s7 at7 t7  =u7   u7 u7   v7---------------------------------------------------------------------- Wv7#( Xmax,Ymax,Youso(max) :JE{[C v7 3w8  w8   x8 }x"8 x,8  Yy68 y@8   5zJ8 zT8  {^8  {h8 {r8  [||8    |8  7}8  }8   }8 ~8---------------------------------------------------------------------- O~8<2 Xmax,Ymax,Youso(max) :D ~8   +8       8   8      u8    8   Q8      9     -9   9 .,*(& &9  w09  :9     SD9     N9      /X9    ,  b9    l9      yv9    0 熀9     U9  9%    9---------------------------------------------------------------------- E9(Xmax,Ymax,Youso(max) :~bL[}EX È9        =9    9    A9     ˊ9 A9         9     I9 ӌ: : H:---------------------------------------------------------------------- :Xmax,Ymax,Youso(max) :io{[ *: 4:   >:   mH:   ------------- R:   u\:    f:   6p:----------------------------------------------------------------------