Amiga ISO Collection/AmigaUtilCD2.iso/Sound/Misc/HJB-LC1.LHA/ListCommV1.0/ListComm

Text File | 1994-09-29 | 6.6 KB | 2 lines

/* Optimized with RexxOpt 1.5 */
options results;I=0;LOAD: OPEN(CONFIG,"s:listcomm.cfg","R");header01 =READLN(CONFIG);header02 =READLN(CONFIG);header03 =READLN(CONFIG);header04 =READLN(CONFIG);header05 =READLN(CONFIG);INTERPRET READLN(CONFIG);INTERPRET READLN(CONFIG);INTERPRET READLN(CONFIG);INTERPRET READLN(CONFIG);CLOSE(CONFIG);IF ANSI = 'YES' then call YES;IF ANSI = 'NO' then call NO;YES: SAY " p";SAY "ListComm V1.0 by FLi7e/$CP & HJB";SAY "";SAY "Started    : "TIME()"";SAY "";SAY "Pass 01    : Creating RAW-LIST & Header";OPEN(output,""ANSIFILE"","W");writeln(output," ");writeln(output," ");writeln(output,"                         This file was created using");writeln(output," ");writeln(output,"            Module List Creator V1.0 ©`94 FLi7e of $ceptic^Haujobb!");writeln(output," ");writeln(output,"            .---------------------------------------------------.");writeln(output,"            | List creation started on:" DATE()||" at "TIME()" |");writeln(output,"            `---------------------------------------------------'");writeln(output," ");writeln(output,"   .-----------------.-------------------------.---------.----------------.");writeln(output,"   |                 !                         !         !                |");writeln(output,"   | Musican         : Modulename              : Length  : Comment        |");writeln(output,"   |                 ¡                         ¡         ¡                |");writeln(output,"   `-----------------^-------------------------^---------^----------------'");writeln(output,"   .-----------------.-------------------------.---------.----------------.");address command 'list 'PATH' p=#?mod#? lformat "%n¬%l¬%c" all files >t:file';SAY "Pass 02    : Creating Modulelist";SAY "";open(file,"t:file","R");do while ~eof(file);line = readln(file);if line ~= "" then do;FILENAME = left(line,pos("¬",line)-1);FILENAME = Upper(FILENAME);FILENAME = strip(FILENAME,'L','MOD.');FILENAME = strip(FILENAME,'T','.MOD');LINE = right(line,length(line)-pos("¬",line));FILELENGTH = left(line,pos("¬",line)-1);LINE = right(line,length(line)-pos("¬",line));if pos("^",line) ~= 0 then do;AUTHOR = left(line,pos("^",line)-1);COMMENT = right(line,length(line)-pos("^",line));end;else do;AUTHOR = line;COMMENT = "";end;AUTHOR = left(AUTHOR,16);FILENAME = left(FILENAME,24);FILELENGTH = right(FILELENGTH,7);COMMENT = left(COMMENT,14);I=I+1;SAY "Entry #    : "I"";writeln(output,"   | "AUTHOR || "| "FILENAME || "|" FILELENGTH || " " || "|" COMMENT "|");end;end;WriteLN(output,"   `-----------------^-------------------------^---------^----------------'");WriteLN(output," ");WriteLN(output,"            .----------------------------------------------------.");WriteLN(output,"            | List creation finished on:" DATE()||" at "TIME()" |");WriteLN(output,"            `----------------------------------------------------'");WriteLN(output," ");WriteLN(output,"                        Number of listed modules: "I"");WriteLN(output," ");WriteLN(output,"  For suggestions or bug-reports on LISTCOMM call: [phone] (THE PUB)");CLOSE(output);SAY "";SAY "Finished   : "TIME()"";SAY "";SAY "Everything is finished! The list can be found at "ANSIFILE"!";SAY " p";call ex;NO: SAY " p";SAY "ListComm V1.0 by FLi7e/$CP & HJB";SAY "";SAY "Started    : "TIME()"";SAY "";SAY "Pass 01    : Creating RAW-LIST & Header";OPEN("output",""TXTFILE"","W");writeln("output"," ");writeln("output"," ");writeln("output","                         This file was created using");writeln("output"," ");writeln("output","           Module List Creator V0.6b ©`94 FLi7e of $ceptic^Haujobb!");writeln("output"," ");writeln("output","            .---------------------------------------------------.");writeln("output","            | List creation started on:" DATE()||" at "TIME()" |");writeln("output","            `---------------------------------------------------'");writeln("output"," ");writeln("output","   .-----------------.-------------------------.---------.----------------.");writeln("output","   |                 !                         !         !                |");writeln("output","   | Musican         : Modulename              : Length  : Comment        |");writeln("output","   |                 ¡                         ¡         ¡                |");writeln("output","   `-----------------^-------------------------^---------^----------------'");writeln("output","   .-----------------.-------------------------.---------.----------------.");address command 'list 'PATH' p=#?mod#? lformat "%n¬%l¬%c" all files >t:file';SAY "Pass 02    : Creating Modulelist";SAY "";open(file,"t:file","R");do while ~eof(file);line = readln(file);if line ~= "" then do;FILENAME = left(line,pos("¬",line)-1);FILENAME = Upper(FILENAME);FILENAME = strip(FILENAME,'L','MOD.');FILENAME = strip(FILENAME,'T','.MOD');LINE = right(line,length(line)-pos("¬",line));FILELENGTH = left(line,pos("¬",line)-1);LINE = right(line,length(line)-pos("¬",line));if pos("^",line) ~= 0 then do;AUTHOR = left(line,pos("^",line)-1);COMMENT = right(line,length(line)-pos("^",line));end;else do;AUTHOR = line;COMMENT = "";end;AUTHOR = left(AUTHOR,16);FILENAME = left(FILENAME,24);FILELENGTH = right(FILELENGTH,7);COMMENT = left(COMMENT,14);I=I+1;SAY "Entry #    : "I"";writeln('output',"   | "AUTHOR || "| "FILENAME || "|" FILELENGTH || " " || "|" COMMENT "|");end;end;WriteLN('output',"   `-----------------^-------------------------^---------^----------------'");WriteLN('output'," ");WriteLN('output',"            .----------------------------------------------------.");WriteLN('output',"            | List creation finished on:" DATE()||" at "TIME()" |");WriteLN('output',"            `----------------------------------------------------'");WriteLN('output'," ");WriteLN('output',"                        Number of listed modules: "I"");WriteLN('output'," ");WriteLN('output',"  For suggestions or bug-reports on LISTCOMM call: [phone] (THE PUB)");close(output);SAY "";SAY "Finished   : "TIME()"";SAY "";SAY "Everything is finished! The list can be found at "TXTFILE"!";SAY "";SAY " p";call ex;ex: CLOSE(FILE);address command("c:delete >nil: ram:t/file");exit(0)