0001 ! (c) PPC Paris et l'auteur, 1987
0010 ! VCLISTF liste formules avec en-tÁtes par dĹfaut
0011 ! (c)Eric GENGOUX 29\10\1986
0012 PRINT CHR$(27)&'&k2S'
0020 DIM F$[120],W$[8]
0030 INPUT "WS name? "; W$ @ W$=UPRC$(W$)
0040 IF INCAT(W$,"W")#2 THEN BEEP @ GOTO 30
0050 WORKSHEET W$
0060 PRINT "Listage formules feuille ";W$ @ PRINT
0065 PRINT "LABELS UTILISATEUR:" @ PRINT
0070 FOR C=1 TO MAXCOL
0080 F$="COL. "&COORD$(C,0,0)&" = "&GETLABEL$(C,0) @ PRINT F$
0090 NEXT C
0095 PRINT @ PRINT
0100 FOR L=1 TO MAXROW
0110 F$="ROW "&STR$(L)&" = "&GETLABEL$(0,L) @ PRINT F$
0120 NEXT L
0130 PRINT @ PRINT "FORMULES (par colonnes)" @ PRINT
0140 FOR C=1 TO MAXCOL
0150 FOR L=1 TO MAXROW
0160 F$=COORD$(C,L,0)&' = '&GETFORMULA$(C,L,0)
0161 IF LEN(F$)=POS(F$,'=')+1 THEN GOTO 170
0165 PRINT F$
0170 NEXT L
0180 PRINT
0190 NEXT C
0200 DISP "**Fin**" @ BEEP 600,.5 @ BEEP 400,.5 @ END