24 lines
472 B
Text
24 lines
472 B
Text
PROCEDURE Main()
|
|
LOCAL s := hb_MemoRead( Left( __FILE__ , At( ".", __FILE__ )) +"prg")
|
|
LOCAL c, n, i
|
|
LOCAL a := {}
|
|
|
|
FOR EACH c IN s
|
|
IF Asc( c ) > 31
|
|
AAdd( a, c )
|
|
ENDIF
|
|
NEXT
|
|
a := ASort( a )
|
|
i := 1
|
|
WHILE i <= Len( a )
|
|
c := a[i] ; n := 1
|
|
i++
|
|
IF i < Len(a) .AND. c == a[i]
|
|
WHILE c == a[i]
|
|
n++ ; i++
|
|
END
|
|
ENDIF
|
|
?? "'" + c + "'" + "=" + hb_NtoS( n ) + " "
|
|
END
|
|
|
|
RETURN
|