\READ 242906NW.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+96,Y*2/3,1\ENDIF
\ADD 1 TO X
\IF X<25\JUMP LOOP1\ENDIF
\MOVE 0 TO X \ADD 1 TO Y
\IF Y<32\JUMP LOOP1\ENDIF
\MOVE 0 TO Y
\FRAME 96,0,24,20
\ADD 1 TO M
\CLEAR SCREEN
\IF M>95\END\ELSE\SHOW 0,0,M\JUMP LOOP1\ENDIF