home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / TTTPROC._ / COMPMOVE next >
Encoding:
Text File  |  1995-07-10  |  4.6 KB  |  163 lines
  1. arg window 
  2.  
  3.  
  4. /* va.=''
  5. move=0
  6.  
  7. do i = 1 to 3
  8.   do x = 1 to 3
  9.     va.i.x=selected_cells.i.x
  10.   end /* end do */
  11. end /* end do */
  12.  
  13. if va.i.1=va.i.2 & va.i.3='' & va.i.1=user |,
  14.    va.i.2=va.i.3 & va.i.1='' & va.i.3=user |,
  15.    va.i.1=va.i.3 & va.i.2='' & va.i.1=user |,
  16.    va.1.x=va.2.x & va.3.x='' & va.1.x=user |,
  17.    va.1.x=va.3.x & va.2.x='' & va.3.x=user |,
  18.    va.2.x=va.3.x & va.1.x='' & va.3.x=user |,
  19.    va.1.1=va.2.2 & va.3.3='' & va.1.1=user |,
  20.    va.2.2=va.3.3 & va.1.1='' & va.3.3=user |,
  21.    va.1.1=va.3.3 & va.2.2='' & va.1.1=user |,
  22.    va.1.3=va.3.1 & va.2.2='' & va.1.3=user |,
  23.    va.1.3=va.2.2 & va.3.1='' & va.1.3=user |,
  24.    va.2.2=va.3.1 & va.1.3='' & va.3.1=user then
  25.      do 
  26.               do i = 1 to 3
  27.           do x = 1 to 3
  28.           if  move = 0 & va.i.x='' & va.i.1=va.i.2 & va.i.1=user & x=3 |,
  29.               move = 0 & va.i.x='' & va.i.3=va.i.1 & va.i.3=user & x=2 |,
  30.            move = 0 & va.i.x='' & va.i.2=va.i.3 & va.i.2=user & x=1 |,
  31.               move = 0 & va.i.x='' & va.1.x=va.2.x & va.1.x=user & i=3 |,
  32.           move = 0 & va.i.x='' & va.1.x=va.3.x & va.1.x=user & i=2 |,
  33.           move = 0 & va.i.x='' & va.2.x=va.3.x & va.3.x=user & i=1 |,
  34.           move = 0 & va.i.x='' & va.1.1=va.2.2 & va.1.1=user & i=3 & x=3 |,
  35.           move = 0 & va.i.x='' & va.2.2=va.3.3 & va.3.3=user & i=1 & x=1 |,
  36.           move = 0 & va.i.x='' & va.1.1=va.3.3 & va.3.3=user & i=2 & x=2 |,
  37.           move = 0 & va.i.x='' & va.1.3=va.2.2 & va.2.2=user & i=3 & x=1 |,
  38.           move = 0 & va.i.x='' & va.3.1=va.2.2 & va.2.2=user & i=1 & x=3 |,
  39.           move = 0 & va.i.x='' & va.3.1=va.1.3 & va.1.3=user & i=2 & x=2 then        
  40.                 do 
  41.                   selections=selections+1
  42.                   /* Set cell value 1000 Value Set */
  43.                   CALL VpSetItemValue window,1000,bmphandle,i,x
  44.                   SELECTED_CELLS.i.x=bmphandle 
  45.                   row=i
  46.                   column=x
  47.                   move=1
  48.                   end
  49.                 end
  50.               end
  51.             end */            
  52.  
  53.  
  54. va.=''
  55. val.=''
  56. valu.=''
  57. value.=''
  58. r=1
  59. c=1
  60. cc=3
  61. rr=1
  62. move=0
  63. do i= 1 to 3
  64. va.i=selected_cells.row.i
  65. val.i=selected_cells.i.column
  66. valu.i=selected_cells.r.c
  67. r=r+1
  68. c=c+1
  69. value.i=selected_cells.rr.cc
  70. rr=rr+1
  71. cc=cc-1
  72. end /* end do */
  73.  
  74.    
  75.   if va.1= va.2 & va.3='' & move=0 | va.2=va.3 & va.1='' & move=0 | va.1=va.3 & va.2='' & move=0 then 
  76.     do
  77.       do n= 1 to 3
  78.         if va.n='' then
  79.          do
  80.            selections=selections+1
  81.            /* Set cell value 1000 Value Set */
  82.            CALL VpSetItemValue window,1000,bmphandle,row,n
  83.            SELECTED_CELLS.row.n=bmphandle 
  84.            column=n
  85.  
  86.          end /* end do */
  87.          end /* end do */
  88.            move=1
  89.                       
  90.           
  91.               end
  92.               
  93. if val.1=val.2 & val.3='' & move=0  | val.2=val.3 & val.1='' & move=0 | val.1=val.3 & val.2='' & move=0 then
  94.   do
  95.   do n= 1 to 3
  96.     if val.n='' then
  97.       do
  98.         selections=selections+1
  99.         /* Set cell value 1000 Value Set */
  100.         CALL VpSetItemValue window,1000,bmphandle,n,column
  101.         SELECTED_CELLS.n.column=bmphandle 
  102.         row=n
  103.  
  104.       end /* end do */
  105.     end /* end do */
  106.     move=1
  107.   end
  108.  
  109. if value.1=value.2 & value.3='' & move=0 & value.1<>'' | value.2=value.3 & value.1='' & move=0 & value.2<>'' | value.1=value.3 & value.2='' & move=0 & value.1<>'' then
  110.   do
  111.     rr=1
  112.     cc=3
  113.     do n = 1 to 3
  114.       if value.n='' then
  115.         do
  116.           selections=selections+1
  117.           /* Set cell value 1000 Value Set */
  118.           CALL VpSetItemValue window,1000,bmphandle,rr,cc
  119.           SELECTED_CELLS.rr.cc=bmphandle 
  120.           row=rr
  121.           column=cc
  122.  
  123.          end /* end do */
  124.        rr=rr+1
  125.        cc=cc-1
  126.     end /* end do */
  127.     move=1
  128.   end     
  129.   
  130.   if valu.1=valu.2 & valu.3='' & move=0 & valu.1<>'' | valu.2=valu.3 & valu.1='' & move=0 & valu.2<>''| valu.1=valu.3 & valu.2='' & move=0 & valu.3<>''then
  131.   do
  132.     r=1
  133.     c=1
  134.     do n = 1 to 3
  135.       if valu.n='' then
  136.         do
  137.           selections=selections+1
  138.           /* Set cell value 1000 Value Set */
  139.           CALL VpSetItemValue window,1000,bmphandle,r,c
  140.           SELECTED_CELLS.r.c=bmphandle 
  141.           row=r
  142.           column=c
  143.  
  144.          end /* end do */
  145.        r=r+1
  146.        c=c+1
  147.     end /* end do */
  148.     move=1
  149.   end    
  150.  
  151.  
  152.          
  153.          if move=1 then
  154.             CALL TEST WINDOW
  155.             if tst=1 then
  156.               do      
  157.                 call clear_board
  158.                 return
  159.               end             
  160.                            
  161.             else
  162.               return
  163.