1  COM V0,V1,V2,V3,V4,V5,V6,V7
2  COM H$[62],H[62],S$[70],T$[70],V$[70]
3  COM S[240,4]
4  COM F$[6],V9
5  COM C[200],C0,P0,P9
7  COM Q[20],G[20,4],D$[12]
8  COM E0,E9
10  REM  HP CONTRIBUTED LIBRARY, 2/75, 4 PROGRAMS:  SNOBOL, SNOBEX,
11  REM  SNOBER, SNOBLD.
20  X=E0-300
30  IF X>0 THEN 50
40  X=X+308
50  GOTO X OF 80,100,120,140,160,180,200,220,240,260,280
60  X=X-11
70  GOTO X OF 300,320,340,360,380,400,420,440,460,480,500
80  PRINT "INVALID USE OF *"
90  GOTO 510
100  PRINT "MISSING RIGHT '"
110  GOTO 510
120  PRINT "INVALID DELIMITER"
130  GOTO 510
140  PRINT "LINE TOO LONG"
150  GOTO 510
160  PRINT "INVALID LABEL"
170  GOTO 510
180  PRINT "IMPROPER EQUALS SIGN"
190  GOTO 510
200  PRINT "IMPROPER VARIABLE"
210  GOTO 510
220  PRINT "IMPROPER GOTO"
230  GOTO 510
240  PRINT "INVALID STRING LENGTH"
250  GOTO 510
260  PRINT "SYSTEM ERROR - STACK EXHAUSTED PREMATURELY"
270  GOTO 510
280  PRINT "INVALID END STATEMENT"
290  GOTO 510
300  PRINT "IMPROPER VARIABLE REFERENCE"
310  GOTO 510
320  PRINT "INDIRECT REFERENCE NOT TO A NAME"
330  GOTO 510
340  PRINT "NUMBER LARGER THAN 31 DIGITS"
350  GOTO 510
360  PRINT "NON-NUMERIC VALUE FOUND"
370  GOTO 510
380  PRINT "INVALID SUBJECT"
390  GOTO 510
400  PRINT "EQUALS SIGN MISPLACED"
410  GOTO 510
420  PRINT "INVALID PATTERN MATCH"
430  GOTO 510
440  PRINT "SYSTEM ERROR - INVALID OP CODE"
450  GOTO 510
460  PRINT "SYSTEM ERROR - STACK SHOULD BE EMPTY"
470  GOTO 510
480  PRINT "ATTEMPTED ASSIGNMENT TO A NULL STRING"
490  GOTO 510
500  PRINT "INVALID SUBJECT"
510  END 
