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