v4.0/src/CMD/DISKCOMP/DISKCOMP.SKL

   1 :util DISKCOMP             ;AN000;utility name
   2 :class A                   ;AN000;system messages
   3 ;
   4 :use 1 COMMON1             ;AN000;"Incorrect DOS version"
   5 ;
   6 :use 2 EXTEND8             ;AN000;"Insufficient memory"
   7 ;
   8 :use 3 PARSE10             ;AN000;"Invalid parameter"
   9 ;
  10 :def 4 "Do not specify filename(s)",CR,LF                                       ;AN000;
  11 "Command format: DISKCOMP d: d: [/1][/8]",LF,CR                                 ;AN000;
  12 ;
  13 :def 5 CR,LF,"Invalid drive specification",CR,LF                                ;AN000;
  14 "Specified drive does not exist",CR,LF                                          ;AN000;
  15 "or is non-removable",CR,LF                                                     ;AN000;
  16 ;
  17 :def 6 CR,LF,"Cannot DISKCOMP to or from",CR,LF                                 ;AN000;
  18 "a network drive",CR,LF                                                         ;AN000;
  19 ;
  20 :def 7 CR,LF,"Insert FIRST diskette in drive %1:",CR,LF                         ;AN000;
  21
  22 :def 8 CR,LF,"Insert SECOND diskette in drive %1:",CR,LF                        ;AN000;
  23
  24 :def 9 CR,LF,"FIRST diskette bad or incompatible",CR,LF                         ;AN000;
  25
  26 :def 10 CR,LF,"SECOND diskette bad or incompatible",CR,LF                       ;AN000;
  27 ;
  28 :use 11 EXTEND21             ;AN000;"Drive not ready"            NOTE CHANGE %1 TO %0
  29 ;
  30 :use 12 COMMON28             ;AN000;"Press any key to continue . . ."
  31 ;
  32 :use 13 EXTEND19  ;AN000;CR,LF,"Attempt to write to write-protected diskette",CR,LF
  33 ;
  34 :def 14 CR,LF,"Compare another diskette (Y/N) ?"                                ;AN000;
  35 ;
  36 :def 15 CR,LF,"Comparing %1 tracks",CR,LF                                       ;AN000;
  37 "%2 sectors per track, %3 side(s)",CR,LF                                        ;AN000;
  38 ;
  39 :def 16 CR,LF,"Drive types or diskette types",CR,LF                             ;AN000;
  40 "not compatible",CR,LF                                                          ;AN000;
  41 ;
  42 :def 17 CR,LF,"Unrecoverable read error on drive %2",CR,LF                      ;AN000;
  43 "side %3, track %4",CR,LF                                                       ;AN000;
  44 ;
  45 :def 18 CR,LF,"Compare error on",CR,LF,"side %3, track %4",CR,LF                ;AN000;
  46 ;
  47 :def 19 "Make sure a diskette is inserted into",CR,LF                           ;AN004;
  48 "the drive and the door is closed",CR,LF                                        ;AN004;
  49 ;
  50 :def 20 CR,LF,"Compare process ended",CR,LF                                     ;AN000;
  51 ;
  52 :def 21 CR,LF,"Compare OK",CR,LF                                                ;AN000;
  53 ;
  54 :def 22 CR,LF                                                                   ;AC007;
  55 :end                                                                            ;AN000;
  56 \1a