home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / TTTPROC._ / COMPWIN < prev    next >
Encoding:
Text File  |  1995-07-12  |  3.6 KB  |  93 lines
  1. arg window
  2. winrow=0
  3. wincolumn=0
  4. win=0
  5. win1.=''
  6.  
  7.  
  8. do i=1 to 3
  9.   do x = 1 to 3
  10.      win1.i.x=selected_cells.i.x
  11.   end /* end do */
  12. end /* end do */
  13.  
  14.  
  15.  
  16. if win1.1.1=win1.1.2 & win1.1.3='' & win1.1.1=bmphandle |, 
  17.   win1.1.2=win1.1.3 & win1.1.1='' & win1.1.2=bmphandle |, 
  18.   win1.1.1=win1.1.3 & win1.1.2='' & win1.1.1=bmphandle |, 
  19.   win1.2.1=win1.2.2 & win1.2.3='' & win1.2.1=bmphandle |, 
  20.   win1.2.2=win1.2.3 & win1.2.1='' & win1.2.2=bmphandle |,
  21.   win1.2.1=win1.2.3 & win1.2.2='' & win1.2.1=bmphandle |,
  22.   win1.3.1=win1.3.2 & win1.3.3='' & win1.3.1=bmphandle |,
  23.   win1.3.2=win1.3.3 & win1.3.1='' & win1.3.2=bmphandle |,
  24.   win1.3.1=win1.3.3 & win1.3.2='' & win1.3.1=bmphandle |, 
  25.   win1.1.1=win1.2.1 & win1.3.1='' & win1.1.1=bmphandle |,
  26.   win1.2.1=win1.3.1 & win1.1.1='' & win1.2.1=bmphandle |,
  27.   win1.1.1=win1.3.1 & win1.2.1='' & win1.1.1=bmphandle |,
  28.   win1.1.2=win1.2.2 & win1.3.2='' & win1.1.2=bmphandle |,
  29.   win1.2.2=win1.3.2 & win1.1.2='' & win1.2.2=bmphandle |,
  30.   win1.1.2=win1.3.2 & win1.2.2='' & win1.1.2=bmphandle |,
  31.   win1.1.3=win1.2.3 & win1.3.3='' & win1.1.3=bmphandle |,
  32.   win1.2.3=win1.3.3 & win1.1.3='' & win1.2.3=bmphandle |,
  33.   win1.1.3=win1.3.3 & win1.2.3='' & win1.1.3=bmphandle |, 
  34.   win1.1.1=win1.2.2 & win1.3.3='' & win1.1.1=bmphandle  & win1.2.2<>''  |,
  35.   win1.1.1=win1.3.3 & win1.2.2='' & win1.3.3=bmphandle  & win1.1.1<>''  |,
  36.   win1.2.2=win1.3.3 & win1.1.1='' & win1.2.2=bmphandle  & win1.3.3<>''  |,
  37.   win1.1.3=win1.2.2 & win1.3.1='' & win1.1.3=bmphandle  & win1.2.2<>''  |,
  38.   win1.1.3=win1.3.1 & win1.2.2='' & win1.3.1=bmphandle  & win1.1.3<>''  |,
  39.   win1.2.2=win1.3.1 & win1.1.3='' & win1.2.2=bmphandle  & win1.3.1<>''  then
  40.     do 
  41.  
  42.  
  43.         do i = 1 to 3
  44.           do x = 1 to 3
  45.             if  win <> 1 &  win1.i.x=''  & win1.i.1=win1.i.2 & win1.i.1=bmphandle |,
  46.               win <> 1 & win1.i.x='' & win1.i.3=win1.i.1 & win1.i.3=bmphandle |,
  47.            win <> 1 & win1.i.x='' & win1.i.2=win1.i.3 & win1.i.2=bmphandle |,
  48.               win <> 1 & win1.i.x='' & win1.1.x=win1.2.x & win1.1.x=bmphandle |,
  49.           win <> 1 & win1.i.x='' & win1.1.x=win1.3.x & win1.1.x=bmphandle |,
  50.           win <> 1 & win1.i.x='' & win1.2.x=win1.3.x & win1.3.x=bmphandle |,
  51.           win <> 1 & win1.i.x='' & win1.1.1=win1.2.2 & win1.1.1=bmphandle & win1.3.3<>user & i=3 & x=3 |,
  52.           win <> 1 & win1.i.x='' & win1.2.2=win1.3.3 & win1.3.3=bmphandle & win1.1.1<>user & i=1 & x=1 |,
  53.           win <> 1 & win1.i.x='' & win1.1.1=win1.3.3 & win1.3.3=bmphandle & win1.2.2<>user & i=2 & x=2 |,
  54.           win <> 1 & win1.i.x='' & win1.1.3=win1.2.2 & win1.2.2=bmphandle & win1.3.1<>user & i=3 & x=1 |,
  55.           win <> 1 & win1.i.x='' & win1.3.1=win1.2.2 & win1.2.2=bmphandle & win1.1.3<>user & i=1 & x=3 |,
  56.           win <> 1 & win1.i.x='' & win1.3.1=win1.1.3 & win1.1.3=bmphandle & win1.2.2<>user & i=2 & x=2 then        
  57.                 do 
  58.                   selections=selections+1
  59.                   /* Set cell value 1000 Value Set */
  60.                   CALL VpSetItemValue window,1000,bmphandle,i,x
  61.                   SELECTED_CELLS.i.x=bmphandle 
  62.                   row=i
  63.                   column=x
  64.                   win=1
  65.                   winrow=i
  66.                   wincolumn=x
  67.              
  68.                   
  69.                 end
  70.  
  71.     end /* end of do loop */
  72.   end /* end of do loop */
  73.       end
  74. if win=1 then
  75.            do
  76.             CALL TEST WINDOW
  77.             if tst=1 then
  78.               do
  79.                 call clear_board
  80.                 return
  81.               end             
  82.            end                
  83.             else
  84.               return
  85.  
  86.   
  87.  
  88.  
  89.  
  90.   
  91.   
  92.   
  93.