v4.0/src/CMD/COMP/COMP.SKL

   1 :util COMP                 ;utility name                                 ;AN000;
   2
   3 :class A                   ;system messages                              ;AN000;
   4
   5 :use 1 COMMON1             ;"Incorrect DOS version"                      ;AN000;
   6 :use 2 EXTEND8             ;"Insufficient memory"                        ;AN000;
   7 :use 3 PARSE10             ;"Invalid parameter"                          ;AN000;
   8
   9 :def 4 "10 Mismatches - ending compare",CR,LF                            ;AN000;
  10 :use 5 EXTEND15            ;"Invalid drive specification"                ;AN000;
  11 :def 6 "Compare error at OFFSET %1",CR,LF                                ;AN000;
  12 :def 7 "File 1 = %1",CR,LF                                               ;AN000;
  13 :def 8 "File 2 = %1",CR,LF                                               ;AN000;
  14 :def 9 "Eof mark not found",CR,LF                                        ;AN000;
  15 :def 10 "Files compare ok",CR,LF                                         ;AN000;
  16 :use 11 EXTEND2            ;"File not found"                             ;AN000;
  17 :use 12 COMMON25           ;"Invalid path"                               ;AN000;
  18 :use 13 EXTEND32           ;"Sharing violation"                          ;AN000;
  19 :use 14 EXTEND4            ;"Too many open files"                        ;AN000;
  20 :def 15 CR,LF,CR,LF,"Enter primary filename",CR,LF                       ;AN000;
  21 :def 16 CR,LF,CR,LF,"Enter 2nd filename or drive id",CR,LF               ;AN000;
  22 :def 17 "Files are different sizes",CR,LF                                ;AN000;
  23 :def 18 "Compare more files (Y/N) ?"                                     ;AN000;
  24 :def 19 "%1 and %2",CR,LF                                                ;AN000;
  25 :def 20 CR,LF                                                            ;AN000;
  26 :use 21 EXTEND5            ;"Access Denied"                              ;AN000;
  27 :use 22 EXTEND37           ;"Code page mismatch"                         ;AN000;
  28 :DEF 23 "Files compare ok",CR,LF                                         ;AN000;
  29 :end                                                                     ;AN000;
  30 \1a