v4.0/src/CMD/PRINT/PRINT.SKL

   1 ;================================================
   2 ; PRINT Message Skeleton File
   3 ;================================================
   4
   5 :util   PRINT
   6
   7 :class  1
   8
   9 :use   EXTEND19
  10 :use   EXTEND20
  11 :use   EXTEND21
  12 :use   EXTEND22
  13 :use   EXTEND23
  14 :use   EXTEND24
  15 :use   EXTEND25
  16 :use   EXTEND26
  17 :use   EXTEND27
  18 :use   EXTEND28
  19 :use   EXTEND29
  20 :use   EXTEND30
  21 :use   EXTEND31
  22
  23 :class  2
  24                                          ;1 - Too many operands
  25                                          ;2 - Required operand missing
  26 :use   PARSE3                            ;3 - Not in switch list provided
  27                                          ;4 - Not in keyword list provided
  28 :use   PARSE6                            ;6 - Out of range specified
  29                                          ;7 - Not in value list provided
  30                                          ;8 - Not in string list provided
  31 :use   PARSE9                            ;9 - Invalid Parameter
  32
  33 :class  A
  34
  35 :def 6  " error reading file",CR,LF,"$"
  36 :def 7  "File not found",CR,LF,"$"
  37 :def 8  CR,LF,LF,"File $"
  38 :def 9  " canceled by operator$"
  39 :def 10 CR,LF,LF,"All files canceled by operator$"
  40 :def 11 "File allocation table bad drive "
  41 :def 12 "A.",CR,LF,"$"
  42 :def 13 "List output is not assigned to a device",CR,LF
  43 :def 14 "Resident part of PRINT installed",CR,LF
  44
  45 :class  B
  46
  47 :use 1  COMMON1
  48 :def 2  CR,LF
  49 :def 15 "Cannot use PRINT - Use NET PRINT",CR,LF
  50 :def 17 "PRINT queue is full",CR,LF
  51 :def 18 "PRINT queue is empty",CR,LF
  52 :def 19 "Access denied",CR,LF
  53 :def 20 "Invalid drive specification",CR,LF
  54 :def 21 "Errors on list device indicate that it",CR,LF
  55         "may be off-line. Please check it.",CR,LF
  56
  57 :class  C
  58
  59 :def 22 CR,LF,LF,"  %1 is currently being printed",CR,LF
  60 :def 23 "  %1 is in queue",CR,LF
  61 :use 24 EXTEND2
  62 :def 25 "Pathname too long",CR,LF
  63 :def 26 "File not in PRINT queue",CR,LF
  64
  65 :class  D
  66
  67 :def 27 "Name of list device [PRN]: "
  68
  69 :end
  70