home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
m
/
msh_ut11.zip
/
PANEL.MSH
< prev
next >
Wrap
Text File
|
1992-05-10
|
1KB
|
34 lines
| file: PANEL.MSH Improved panel_stats for Mi-Shell
|───────────────────────────────────────────────────────────
|
(dup length 3 - str_pos!
(str_pos 1 ge)(| create two substrings and insert a "."
dup | handle first copy
1 str_pos substring swap dup length str_pos 1 + swap substring
"," swap & & | ',' American, english way
| "." swap & & | '.' German Way
str_pos 3 - str_pos!)while
)formatted_nr!
( "stats" | code enhanced by J.Pirnay
panel.nbfiles " files"&nl&
"total size "&
0 (current.size +)loop_panel formatted_nr &
" bytes " &
0 (current.selected(1 +)if)loop_panel | get nr of selected files
dup 0 > | any selected ?
(
0 (current.selected(current.size +)if)loop_panel formatted_nr
" bytes in " & swap &
" selected files" &
nl swap &&
)
(drop) | don't need nr anymore
ifelse
|| Now I want to know, what's still available at the drive:
nl &
prog_dir "dskfree " & panel.pattern unit_and_name drop & " " &
prog_dir "df.txt" & & (execute)with_nomagic
prog_dir "df.txt" & read &
message
)panel_stats!