window -c %w | window -c %w1
; chiudo le due window
window -h %w | window -h %w1

echo -s Statistiche file $1- --- $lines($1-) linee $file($1-).size byte $bytes($file($1-).size).k kb
;inizio a scrivere con l'/echo le informazioni riguardanti file grandezza il nome del file e le linee
.filter -fp %f %w *
;inserisco tutto il contenuto del file nella prima finestra usando il comando /filter

filter -pp %w %w1 *=alias -l *
; con il comando /filter metto nella seconda finestra tutto ciò che inizia con *=alias -l * e che si trova nella prima finestra
; -p si usa per le window, in questo caso ne sono presenti due perche sia l'input che l'output usato dal comando sarà preso dalle finestre, rispettivamente
; %w e %w1

filter -ppxc %w1 %w1 [script]
;qui invece sempre usando -pp con -x escludo le linee contententi [script] e con -c cancello l'output

var %i = 0,%t = $line(%w1,0)
;var %i = 0,%t = alle linee totali della finestra di output (working) e iniziamo il conteggio
while (%i < %t) {
inc %i
var %locate_alias = $addtok(%locate_alias,$+(,$gettok($line(%w1,%i),3,32),),44)
}
echo -s %g Alias Locali -> %locate_alias
;qui visualizzo il msg con gli alias totali trovati usando il comando /filter

clear %w1
;cancello la finestra di output

;proseguo con lo stesso procedimento di prima, cercate di capire da soli

filter -ppx %w %w1 *=alias -l *
filter -ppc %w1 %w1 *=alias *
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
if ($len(%alias) > 150) { echo -s %g Alias -> %alias | unset %alias }

;qui verifico se la lungezza della variabile supera i 150 caratteri, per una visualizzazione più carina dell'output.In alcuni casi la variabile potrebbe superare i 950 caratteri se il file
;contiene troppi aliases, è consigliato quindi, nel caso in cui si vuole cambiare la condizione, di non superare i 950 caratteri :)

var %alias = $addtok(%alias,$+(,$gettok($line(%w1,%i),2,32),),44)
}
echo -s %g Alias -> %alias

clear %w1
filter -pp %w %w1 *=on *
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
var %events = $addtok(%events,$+(,$remove($gettok($gettok($line(%w1,%i),2-,61),1-5,58),$chr(123)),),44)
}
echo -s %g Eventi -> $line(%w1,0) -> %events

clear %w1
filter -pp %w %w1 *=*$*
var %i = 0,%t = $line(%w1,0),%id
while (%i < %t) {
inc %i
inc %id $count($line(%w1,%i),$chr(36))
}
echo -s %g Identificatori usati ->  %id

clear %w1
filter -pp %w %w1 *=dialog * $chr(123)
var %i = 0,%t = $line(%w1,0),%h = 2
while (%i < %t) {
inc %i
if ($gettok($line(%w1,%i),%h,32) == -l) { var %h = 3 }
var %dialog = $addtok(%dialog,$+(,$gettok($line(%w1,%i),%h,32),),44),%h = 2
}
echo -s %g Dialog -> $+($chr(40),$gettok(%dialog,0,44),$chr(41)) %dialog

clear %w1
filter -pp %w %w1 *=menu * $chr(123)
var %i = 0,%t = $line(%w1,0)
while (%i < %t) {
inc %i
var %menu = $addtok(%menu,$+(,$gettok($line(%w1,%i),2,32),),44)
}
echo -s %g Menu -> %menu