commit deletes

2013-10-27 23:48:49 +00:00 · 2013-10-27 23:48:49 +00:00 · 372c577f83
commit 372c577f83
parent 776bba907c
233 changed files with 0 additions and 6724 deletions
--- a/Task/File-size/REXX/file-size.rexx
+++ b/Task/File-size/REXX/file-size.rexx
@ -1,13 +0,0 @@
-/*REXX pgm to verify a file's size (by reading the lines) in CD & root. */
-parse arg iFID .                       /*let user specify the file ID.  */
-if iFID==''  then iFID='FILESIZ.DAT'   /*Not specified? Then use default*/
-say 'size of'     iFID '=' filesize(iFID)           /*current directory.*/
-say 'size of \..\'iFID '=' filesize('\..\'iFID)     /*   root directory.*/
-exit                                   /*stick a fork in it, we're done.*/
-
-/*──────────────────────────────────FILESIZE subroutine─────────────────*/
-filesize:  parse arg f
-                                    do r=1  while lines(f)\==0
-                                    call linein f
-                                    end   /*r*/
-return r-1