/* INCACHE EXEC - DISPLAY THE ADDRESSES THAT CACHE MAGIC IS */
/* CURRENTLY CACHING. */
'pipe (name incache endchar $)',
' cp q n', /* Get user information */
'|split /,/', /* Split into single lines */
'|strip', /* Remove leading blanks */
'|loc x4A', /* Only keep cache magic info */
'|hexsort', /* Sort it by real address */
'|spec 2-5 1', /* Only keep real address */
'| a: fanout', /* Send input stream to other */
'|pad 8', /* Pad the address */
'|join 9', /* Put 10 addresses in a row */
'|buffer', /* Wait until second stage pipe is done */
'|console', /* Send data to the console */
'$',
'a:',
'|count lines', /* Total the number of devices cached */
'|spec 1-* 1 /drives are currently being cached. / nw',
'|console' /* Send data to the console */
               (
geocities.com/vmvse)