10 CLV:VIDEO 3:CLS:D=16*11
20 FOR I=1 TO D:?".";:NEXT:CLT
30 LC X,Y:?" ";
40 K=INKEY()
50 X=X-(K=28)*(X>0)+(K=29)*(X<15)
55 Y=Y-(K=30)*(Y>0)+(K=31)*(Y<10)
56 H=SCR(X,Y)
58 D=D-(H=ASC("."))
60 LC X,Y:?CHR$(249);
70 WAIT 3
75 LC 0,11:?TICK();
80 IF D>1 GOTO 30
90 BEEP 10,30:?:CLK