\READ 081104PW.PIC
\MOVE 1 TO M \MOVE 0 TO X \MOVE 0 TO Y
\CLEAR SCREEN
\SHOW 0,0,M
\X LOOP1
\DOT X,Y,?
\IF A>0\DOT X,Y,3\ENDIF
\ADD 1 TO X
\IF X<10\JUMP LOOP1\ENDIF
\MOVE 0 TO X \ADD 1 TO Y
\IF Y<12\JUMP LOOP1\ENDIF
\MOVE 0 TO Y
\SHOW 0,0,M,M,S
\ADD 1 TO M
\CLEAR SCREEN
\IF M>95\END\ELSE\SHOW 0,0,M\JUMP LOOP1\ENDIF