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