0001 ! (c) PPC Paris et l'auteur, 1987
0010 ! VCCLFORM (c)Eric GENGOUX
0020 DISP "Effacement formules VisiCALC"
0030 OPTION BASE 1
0040 DIM W$[8]
0050 W$=ACTIVE$
0060 INPUT "Feuille traitee ",W$;W$
0070 IF INCAT(W$,'W')#2 THEN BEEP @ GOTO 60
0080 WORKSHEET W$
0090 W2$=COORD$(1,1,1)
0100 INPUT "1ere case ",W2$;W2$
0110 IF COL(W2$)=0 OR ROW(W2$)=0 THEN BEEP @ GOTO 100
0120 R0=ROW(W2$) @ C0=COL(W2$)
0130 W2$=COORD$(MAXROW,MAXCOL,1)
0140 INPUT "Dern.case ",W2$;W2$
0150 IF COL(W2$)=0 OR ROW(W2$)=0 THEN BEEP @ GOTO 100
0160 R9=ROW(W2$) @ C9=COL(W2$)
0170 DISP "Un instant..."
0180 FOR R=R0 TO R9
0190 FOR C=C0 TO C9
0200 IF GETLABEL$(C,R)#"" THEN GOTO 240
0210 PUTFORMULA C,R,GETVALUE$(C,R,0)
0220 NEXT C
0230 NEXT R
0240 BEEP 1000,.5 @ BEEP 700,.5 @ DISP "Termine" @ END