Trailing-Edge
-
PDP-10 Archives
-
BB-K818A-BM_1981
-
sources/imerr.for
There are no other files named imerr.for in the archive.
C imerr> ReGIS input -- report error in ReGIS input to user
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C operating-system-dependent switches
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C
C
C C O P Y R I G H T
C
C
C Copyright (C) 1980 by
C Digital Equipment Corporation, Maynard, Mass.
C
C
C This software is furnished under a license and may be used and
C copied only in accordance with the terms of such license and
C with the inclusion of the above copyright notice. This
C software or any other copies thereof may not be provided or
C otherwise made available to any other person. No title to and
C ownership of the software is hereby transferred.
C
C The information in this software is subject to change without
C notice and should not be construed as a commitment by Digital
C Equipment Corporation.
C
C DIGITAL assumes no responsibility for the use or reliability
C of its software on equipment that is not supplied by DIGITAL.
C
C define char byte
C 27+128
C w(riting) opt(ion)s come groups of 8:
C (1) replace(0)/erase(1)/complement(2)/overlay(3)
C (2) negative image 0/1
C (3) pattern < 256 bit mask (e.g. 192 = P11000000)
C >= 256 canned pattern * 256 (e.g. 512 = P2)
C if value >= 256, low 8 bits are ignored
C (4) pattern multiplier, different from 6(?)
C (5) shading flag, sim pattern+ >= 10 use char
C (6) if shading != 0 this is y reference val
C (7) pixel multiplier, 1 <= value <= 10
C (8) alternating 0/1
C (9) foreground intensity, 0 <= value <= 7
C (10) background intensity, 0 <= value <= 7
C
C offsets from gwopsp...
C Inktypes...
C Inkolors...
C Text options
C RSTSONLY define Maxgels 1000 # due to limited RAM on RSTS
C drawing primitive gels...
C attribute/marker/other gels...
C writing attribute gels : Woptbase + wopindex
C similarly topts...
C maximum # of characters in a filespec
C maximum # of characters in a command line
C max length of prompt buffer
C max number of characters in file record
C size of record buffers (Fbufsz + 1)
C include logdef
C ========================================================================
C ========================================================================
subroutine imerr ( err )
integer err
C error number (see definitions in imedef)
integer ch
integer ip
C contains file input buffer
C cio - COMMON areas for Graphics Editor I/O
common / cio / ip1 , iplast , optr , putlun , obuf , ibuf
integer ip1
C subscript of last character fetched from ibuf
integer iplast
C subscript of last character in ibuf
integer optr
C subscript of last character stored in obuf
integer putlun
C logical unit # for putc (either OUTLUN or TTYLUN)
integer obuf ( 133 )
C buffer for output record (built by putc)
integer ibuf ( 133 )
C input buffer used by getc
C string egoflo Too much input - out of room
C string exw Bad syntax in W command
C string exwp Bad syntax in P option of W command
C string ecoord Bad [x,y] coordinate specification
C string emgdx Macrograph defined or deleted within a macrograph
C string emgatu Bad character after @
C string emgdbn Non-alpha macrograph name
C string emgexh Out of macrograph storage
C string emgnst Macrograph calls nested too deeply
C string exl Bad syntax in L command
C string exr Bad syntax in R command
C string exs Bad syntax in S command
C string exv Bad syntax in V command
C string exp Bad syntax in P command
C string exc Bad syntax in C command
C string ext Bad syntax in T command
C string ecc2 Fewer than 2 points in closed curve
C string eoc3 Fewer than 3 points in open curve
C string epremc C(B) or C(S) terminated prematurely
C string eobjn Bad label or object name
C string enoob ;"}" found and no object was open
C string eunco Eof hit and open object(s) exist
C string eputbk Internal error - putbak
C string evpts Too many points in line or curve
integer egoflo ( 29 )
integer exw ( 24 )
integer exwp ( 36 )
integer ecoord ( 35 )
integer emgdx ( 50 )
integer emgatu ( 22 )
integer emgdbn ( 26 )
integer emgexh ( 26 )
integer emgnst ( 35 )
integer exl ( 24 )
integer exr ( 24 )
integer exs ( 24 )
integer exv ( 24 )
integer exp ( 24 )
integer exc ( 24 )
integer ext ( 24 )
integer ecc2 ( 36 )
integer eoc3 ( 34 )
integer epremc ( 36 )
integer eobjn ( 25 )
integer enoob ( 34 )
integer eunco ( 33 )
integer eputbk ( 24 )
integer evpts ( 33 )
data egoflo ( 1 ) , egoflo ( 2 ) , egoflo ( 3 ) , egoflo ( 4 ) , e
*goflo ( 5 ) / 84 , 111 , 111 , 32 , 109 /
data egoflo ( 6 ) , egoflo ( 7 ) , egoflo ( 8 ) , egoflo ( 9 ) , e
*goflo ( 10 ) / 117 , 99 , 104 , 32 , 105 /
data egoflo ( 11 ) , egoflo ( 12 ) , egoflo ( 13 ) , egoflo ( 14 )
* , egoflo ( 15 ) / 110 , 112 , 117 , 116 , 32 /
data egoflo ( 16 ) , egoflo ( 17 ) , egoflo ( 18 ) , egoflo ( 19 )
* , egoflo ( 20 ) / 45 , 32 , 111 , 117 , 116 /
data egoflo ( 21 ) , egoflo ( 22 ) , egoflo ( 23 ) , egoflo ( 24 )
* , egoflo ( 25 ) / 32 , 111 , 102 , 32 , 114 /
data egoflo ( 26 ) , egoflo ( 27 ) , egoflo ( 28 ) , egoflo ( 29 )
* / 111 , 111 , 109 , 0 /
data exw ( 1 ) , exw ( 2 ) , exw ( 3 ) , exw ( 4 ) , exw ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exw ( 6 ) , exw ( 7 ) , exw ( 8 ) , exw ( 9 ) , exw ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exw ( 11 ) , exw ( 12 ) , exw ( 13 ) , exw ( 14 ) , exw ( 15
*) / 32 , 105 , 110 , 32 , 87 /
data exw ( 16 ) , exw ( 17 ) , exw ( 18 ) , exw ( 19 ) , exw ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exw ( 21 ) , exw ( 22 ) , exw ( 23 ) , exw ( 24 ) / 97 , 110
*, 100 , 0 /
data exwp ( 1 ) , exwp ( 2 ) , exwp ( 3 ) , exwp ( 4 ) , exwp ( 5
*) / 66 , 97 , 100 , 32 , 115 /
data exwp ( 6 ) , exwp ( 7 ) , exwp ( 8 ) , exwp ( 9 ) , exwp ( 10
* ) / 121 , 110 , 116 , 97 , 120 /
data exwp ( 11 ) , exwp ( 12 ) , exwp ( 13 ) , exwp ( 14 ) , exwp
*( 15 ) / 32 , 105 , 110 , 32 , 80 /
data exwp ( 16 ) , exwp ( 17 ) , exwp ( 18 ) , exwp ( 19 ) , exwp
*( 20 ) / 32 , 111 , 112 , 116 , 105 /
data exwp ( 21 ) , exwp ( 22 ) , exwp ( 23 ) , exwp ( 24 ) , exwp
*( 25 ) / 111 , 110 , 32 , 111 , 102 /
data exwp ( 26 ) , exwp ( 27 ) , exwp ( 28 ) , exwp ( 29 ) , exwp
*( 30 ) / 32 , 87 , 32 , 99 , 111 /
data exwp ( 31 ) , exwp ( 32 ) , exwp ( 33 ) , exwp ( 34 ) , exwp
*( 35 ) / 109 , 109 , 97 , 110 , 100 /
data exwp ( 36 ) / 0 /
data ecoord ( 1 ) , ecoord ( 2 ) , ecoord ( 3 ) , ecoord ( 4 ) , e
*coord ( 5 ) / 66 , 97 , 100 , 32 , 91 /
data ecoord ( 6 ) , ecoord ( 7 ) , ecoord ( 8 ) , ecoord ( 9 ) , e
*coord ( 10 ) / 120 , 44 , 121 , 93 , 32 /
data ecoord ( 11 ) , ecoord ( 12 ) , ecoord ( 13 ) , ecoord ( 14 )
* , ecoord ( 15 ) / 99 , 111 , 111 , 114 , 100 /
data ecoord ( 16 ) , ecoord ( 17 ) , ecoord ( 18 ) , ecoord ( 19 )
* , ecoord ( 20 ) / 105 , 110 , 97 , 116 , 101 /
data ecoord ( 21 ) , ecoord ( 22 ) , ecoord ( 23 ) , ecoord ( 24 )
* , ecoord ( 25 ) / 32 , 115 , 112 , 101 , 99 /
data ecoord ( 26 ) , ecoord ( 27 ) , ecoord ( 28 ) , ecoord ( 29 )
* , ecoord ( 30 ) / 105 , 102 , 105 , 99 , 97 /
data ecoord ( 31 ) , ecoord ( 32 ) , ecoord ( 33 ) , ecoord ( 34 )
* , ecoord ( 35 ) / 116 , 105 , 111 , 110 , 0 /
data emgdx ( 1 ) , emgdx ( 2 ) , emgdx ( 3 ) , emgdx ( 4 ) , emgdx
* ( 5 ) / 77 , 97 , 99 , 114 , 111 /
data emgdx ( 6 ) , emgdx ( 7 ) , emgdx ( 8 ) , emgdx ( 9 ) , emgdx
* ( 10 ) / 103 , 114 , 97 , 112 , 104 /
data emgdx ( 11 ) , emgdx ( 12 ) , emgdx ( 13 ) , emgdx ( 14 ) , e
*mgdx ( 15 ) / 32 , 100 , 101 , 102 , 105 /
data emgdx ( 16 ) , emgdx ( 17 ) , emgdx ( 18 ) , emgdx ( 19 ) , e
*mgdx ( 20 ) / 110 , 101 , 100 , 32 , 111 /
data emgdx ( 21 ) , emgdx ( 22 ) , emgdx ( 23 ) , emgdx ( 24 ) , e
*mgdx ( 25 ) / 114 , 32 , 100 , 101 , 108 /
data emgdx ( 26 ) , emgdx ( 27 ) , emgdx ( 28 ) , emgdx ( 29 ) , e
*mgdx ( 30 ) / 101 , 116 , 101 , 100 , 32 /
data emgdx ( 31 ) , emgdx ( 32 ) , emgdx ( 33 ) , emgdx ( 34 ) , e
*mgdx ( 35 ) / 119 , 105 , 116 , 104 , 105 /
data emgdx ( 36 ) , emgdx ( 37 ) , emgdx ( 38 ) , emgdx ( 39 ) , e
*mgdx ( 40 ) / 110 , 32 , 97 , 32 , 109 /
data emgdx ( 41 ) , emgdx ( 42 ) , emgdx ( 43 ) , emgdx ( 44 ) , e
*mgdx ( 45 ) / 97 , 99 , 114 , 111 , 103 /
data emgdx ( 46 ) , emgdx ( 47 ) , emgdx ( 48 ) , emgdx ( 49 ) , e
*mgdx ( 50 ) / 114 , 97 , 112 , 104 , 0 /
data emgatu ( 1 ) , emgatu ( 2 ) , emgatu ( 3 ) , emgatu ( 4 ) , e
*mgatu ( 5 ) / 66 , 97 , 100 , 32 , 99 /
data emgatu ( 6 ) , emgatu ( 7 ) , emgatu ( 8 ) , emgatu ( 9 ) , e
*mgatu ( 10 ) / 104 , 97 , 114 , 97 , 99 /
data emgatu ( 11 ) , emgatu ( 12 ) , emgatu ( 13 ) , emgatu ( 14 )
* , emgatu ( 15 ) / 116 , 101 , 114 , 32 , 97 /
data emgatu ( 16 ) , emgatu ( 17 ) , emgatu ( 18 ) , emgatu ( 19 )
* , emgatu ( 20 ) / 102 , 116 , 101 , 114 , 32 /
data emgatu ( 21 ) , emgatu ( 22 ) / 64 , 0 /
data emgdbn ( 1 ) , emgdbn ( 2 ) , emgdbn ( 3 ) , emgdbn ( 4 ) , e
*mgdbn ( 5 ) / 78 , 111 , 110 , 45 , 97 /
data emgdbn ( 6 ) , emgdbn ( 7 ) , emgdbn ( 8 ) , emgdbn ( 9 ) , e
*mgdbn ( 10 ) / 108 , 112 , 104 , 97 , 32 /
data emgdbn ( 11 ) , emgdbn ( 12 ) , emgdbn ( 13 ) , emgdbn ( 14 )
* , emgdbn ( 15 ) / 109 , 97 , 99 , 114 , 111 /
data emgdbn ( 16 ) , emgdbn ( 17 ) , emgdbn ( 18 ) , emgdbn ( 19 )
* , emgdbn ( 20 ) / 103 , 114 , 97 , 112 , 104 /
data emgdbn ( 21 ) , emgdbn ( 22 ) , emgdbn ( 23 ) , emgdbn ( 24 )
* , emgdbn ( 25 ) / 32 , 110 , 97 , 109 , 101 /
data emgdbn ( 26 ) / 0 /
data emgexh ( 1 ) , emgexh ( 2 ) , emgexh ( 3 ) , emgexh ( 4 ) , e
*mgexh ( 5 ) / 79 , 117 , 116 , 32 , 111 /
data emgexh ( 6 ) , emgexh ( 7 ) , emgexh ( 8 ) , emgexh ( 9 ) , e
*mgexh ( 10 ) / 102 , 32 , 109 , 97 , 99 /
data emgexh ( 11 ) , emgexh ( 12 ) , emgexh ( 13 ) , emgexh ( 14 )
* , emgexh ( 15 ) / 114 , 111 , 103 , 114 , 97 /
data emgexh ( 16 ) , emgexh ( 17 ) , emgexh ( 18 ) , emgexh ( 19 )
* , emgexh ( 20 ) / 112 , 104 , 32 , 115 , 116 /
data emgexh ( 21 ) , emgexh ( 22 ) , emgexh ( 23 ) , emgexh ( 24 )
* , emgexh ( 25 ) / 111 , 114 , 97 , 103 , 101 /
data emgexh ( 26 ) / 0 /
data emgnst ( 1 ) , emgnst ( 2 ) , emgnst ( 3 ) , emgnst ( 4 ) , e
*mgnst ( 5 ) / 77 , 97 , 99 , 114 , 111 /
data emgnst ( 6 ) , emgnst ( 7 ) , emgnst ( 8 ) , emgnst ( 9 ) , e
*mgnst ( 10 ) / 103 , 114 , 97 , 112 , 104 /
data emgnst ( 11 ) , emgnst ( 12 ) , emgnst ( 13 ) , emgnst ( 14 )
* , emgnst ( 15 ) / 32 , 99 , 97 , 108 , 108 /
data emgnst ( 16 ) , emgnst ( 17 ) , emgnst ( 18 ) , emgnst ( 19 )
* , emgnst ( 20 ) / 115 , 32 , 110 , 101 , 115 /
data emgnst ( 21 ) , emgnst ( 22 ) , emgnst ( 23 ) , emgnst ( 24 )
* , emgnst ( 25 ) / 116 , 101 , 100 , 32 , 116 /
data emgnst ( 26 ) , emgnst ( 27 ) , emgnst ( 28 ) , emgnst ( 29 )
* , emgnst ( 30 ) / 111 , 111 , 32 , 100 , 101 /
data emgnst ( 31 ) , emgnst ( 32 ) , emgnst ( 33 ) , emgnst ( 34 )
* , emgnst ( 35 ) / 101 , 112 , 108 , 121 , 0 /
data exl ( 1 ) , exl ( 2 ) , exl ( 3 ) , exl ( 4 ) , exl ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exl ( 6 ) , exl ( 7 ) , exl ( 8 ) , exl ( 9 ) , exl ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exl ( 11 ) , exl ( 12 ) , exl ( 13 ) , exl ( 14 ) , exl ( 15
*) / 32 , 105 , 110 , 32 , 76 /
data exl ( 16 ) , exl ( 17 ) , exl ( 18 ) , exl ( 19 ) , exl ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exl ( 21 ) , exl ( 22 ) , exl ( 23 ) , exl ( 24 ) / 97 , 110
*, 100 , 0 /
data exr ( 1 ) , exr ( 2 ) , exr ( 3 ) , exr ( 4 ) , exr ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exr ( 6 ) , exr ( 7 ) , exr ( 8 ) , exr ( 9 ) , exr ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exr ( 11 ) , exr ( 12 ) , exr ( 13 ) , exr ( 14 ) , exr ( 15
*) / 32 , 105 , 110 , 32 , 82 /
data exr ( 16 ) , exr ( 17 ) , exr ( 18 ) , exr ( 19 ) , exr ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exr ( 21 ) , exr ( 22 ) , exr ( 23 ) , exr ( 24 ) / 97 , 110
*, 100 , 0 /
data exs ( 1 ) , exs ( 2 ) , exs ( 3 ) , exs ( 4 ) , exs ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exs ( 6 ) , exs ( 7 ) , exs ( 8 ) , exs ( 9 ) , exs ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exs ( 11 ) , exs ( 12 ) , exs ( 13 ) , exs ( 14 ) , exs ( 15
*) / 32 , 105 , 110 , 32 , 83 /
data exs ( 16 ) , exs ( 17 ) , exs ( 18 ) , exs ( 19 ) , exs ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exs ( 21 ) , exs ( 22 ) , exs ( 23 ) , exs ( 24 ) / 97 , 110
*, 100 , 0 /
data exv ( 1 ) , exv ( 2 ) , exv ( 3 ) , exv ( 4 ) , exv ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exv ( 6 ) , exv ( 7 ) , exv ( 8 ) , exv ( 9 ) , exv ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exv ( 11 ) , exv ( 12 ) , exv ( 13 ) , exv ( 14 ) , exv ( 15
*) / 32 , 105 , 110 , 32 , 86 /
data exv ( 16 ) , exv ( 17 ) , exv ( 18 ) , exv ( 19 ) , exv ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exv ( 21 ) , exv ( 22 ) , exv ( 23 ) , exv ( 24 ) / 97 , 110
*, 100 , 0 /
data exp ( 1 ) , exp ( 2 ) , exp ( 3 ) , exp ( 4 ) , exp ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exp ( 6 ) , exp ( 7 ) , exp ( 8 ) , exp ( 9 ) , exp ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exp ( 11 ) , exp ( 12 ) , exp ( 13 ) , exp ( 14 ) , exp ( 15
*) / 32 , 105 , 110 , 32 , 80 /
data exp ( 16 ) , exp ( 17 ) , exp ( 18 ) , exp ( 19 ) , exp ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exp ( 21 ) , exp ( 22 ) , exp ( 23 ) , exp ( 24 ) / 97 , 110
*, 100 , 0 /
data exc ( 1 ) , exc ( 2 ) , exc ( 3 ) , exc ( 4 ) , exc ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data exc ( 6 ) , exc ( 7 ) , exc ( 8 ) , exc ( 9 ) , exc ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data exc ( 11 ) , exc ( 12 ) , exc ( 13 ) , exc ( 14 ) , exc ( 15
*) / 32 , 105 , 110 , 32 , 67 /
data exc ( 16 ) , exc ( 17 ) , exc ( 18 ) , exc ( 19 ) , exc ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data exc ( 21 ) , exc ( 22 ) , exc ( 23 ) , exc ( 24 ) / 97 , 110
*, 100 , 0 /
data ext ( 1 ) , ext ( 2 ) , ext ( 3 ) , ext ( 4 ) , ext ( 5 ) / 6
*6 , 97 , 100 , 32 , 115 /
data ext ( 6 ) , ext ( 7 ) , ext ( 8 ) , ext ( 9 ) , ext ( 10 ) /
*121 , 110 , 116 , 97 , 120 /
data ext ( 11 ) , ext ( 12 ) , ext ( 13 ) , ext ( 14 ) , ext ( 15
*) / 32 , 105 , 110 , 32 , 84 /
data ext ( 16 ) , ext ( 17 ) , ext ( 18 ) , ext ( 19 ) , ext ( 20
*) / 32 , 99 , 111 , 109 , 109 /
data ext ( 21 ) , ext ( 22 ) , ext ( 23 ) , ext ( 24 ) / 97 , 110
*, 100 , 0 /
data ecc2 ( 1 ) , ecc2 ( 2 ) , ecc2 ( 3 ) , ecc2 ( 4 ) , ecc2 ( 5
*) / 70 , 101 , 119 , 101 , 114 /
data ecc2 ( 6 ) , ecc2 ( 7 ) , ecc2 ( 8 ) , ecc2 ( 9 ) , ecc2 ( 10
* ) / 32 , 116 , 104 , 97 , 110 /
data ecc2 ( 11 ) , ecc2 ( 12 ) , ecc2 ( 13 ) , ecc2 ( 14 ) , ecc2
*( 15 ) / 32 , 50 , 32 , 112 , 111 /
data ecc2 ( 16 ) , ecc2 ( 17 ) , ecc2 ( 18 ) , ecc2 ( 19 ) , ecc2
*( 20 ) / 105 , 110 , 116 , 115 , 32 /
data ecc2 ( 21 ) , ecc2 ( 22 ) , ecc2 ( 23 ) , ecc2 ( 24 ) , ecc2
*( 25 ) / 105 , 110 , 32 , 99 , 108 /
data ecc2 ( 26 ) , ecc2 ( 27 ) , ecc2 ( 28 ) , ecc2 ( 29 ) , ecc2
*( 30 ) / 111 , 115 , 101 , 100 , 32 /
data ecc2 ( 31 ) , ecc2 ( 32 ) , ecc2 ( 33 ) , ecc2 ( 34 ) , ecc2
*( 35 ) / 99 , 117 , 114 , 118 , 101 /
data ecc2 ( 36 ) / 0 /
data eoc3 ( 1 ) , eoc3 ( 2 ) , eoc3 ( 3 ) , eoc3 ( 4 ) , eoc3 ( 5
*) / 70 , 101 , 119 , 101 , 114 /
data eoc3 ( 6 ) , eoc3 ( 7 ) , eoc3 ( 8 ) , eoc3 ( 9 ) , eoc3 ( 10
* ) / 32 , 116 , 104 , 97 , 110 /
data eoc3 ( 11 ) , eoc3 ( 12 ) , eoc3 ( 13 ) , eoc3 ( 14 ) , eoc3
*( 15 ) / 32 , 51 , 32 , 112 , 111 /
data eoc3 ( 16 ) , eoc3 ( 17 ) , eoc3 ( 18 ) , eoc3 ( 19 ) , eoc3
*( 20 ) / 105 , 110 , 116 , 115 , 32 /
data eoc3 ( 21 ) , eoc3 ( 22 ) , eoc3 ( 23 ) , eoc3 ( 24 ) , eoc3
*( 25 ) / 105 , 110 , 32 , 111 , 112 /
data eoc3 ( 26 ) , eoc3 ( 27 ) , eoc3 ( 28 ) , eoc3 ( 29 ) , eoc3
*( 30 ) / 101 , 110 , 32 , 99 , 117 /
data eoc3 ( 31 ) , eoc3 ( 32 ) , eoc3 ( 33 ) , eoc3 ( 34 ) / 114 ,
* 118 , 101 , 0 /
data epremc ( 1 ) , epremc ( 2 ) , epremc ( 3 ) , epremc ( 4 ) , e
*premc ( 5 ) / 67 , 40 , 66 , 41 , 32 /
data epremc ( 6 ) , epremc ( 7 ) , epremc ( 8 ) , epremc ( 9 ) , e
*premc ( 10 ) / 111 , 114 , 32 , 67 , 40 /
data epremc ( 11 ) , epremc ( 12 ) , epremc ( 13 ) , epremc ( 14 )
* , epremc ( 15 ) / 83 , 41 , 32 , 116 , 101 /
data epremc ( 16 ) , epremc ( 17 ) , epremc ( 18 ) , epremc ( 19 )
* , epremc ( 20 ) / 114 , 109 , 105 , 110 , 97 /
data epremc ( 21 ) , epremc ( 22 ) , epremc ( 23 ) , epremc ( 24 )
* , epremc ( 25 ) / 116 , 101 , 100 , 32 , 112 /
data epremc ( 26 ) , epremc ( 27 ) , epremc ( 28 ) , epremc ( 29 )
* , epremc ( 30 ) / 114 , 101 , 109 , 97 , 116 /
data epremc ( 31 ) , epremc ( 32 ) , epremc ( 33 ) , epremc ( 34 )
* , epremc ( 35 ) / 117 , 114 , 101 , 108 , 121 /
data epremc ( 36 ) / 0 /
data eobjn ( 1 ) , eobjn ( 2 ) , eobjn ( 3 ) , eobjn ( 4 ) , eobjn
* ( 5 ) / 66 , 97 , 100 , 32 , 108 /
data eobjn ( 6 ) , eobjn ( 7 ) , eobjn ( 8 ) , eobjn ( 9 ) , eobjn
* ( 10 ) / 97 , 98 , 101 , 108 , 32 /
data eobjn ( 11 ) , eobjn ( 12 ) , eobjn ( 13 ) , eobjn ( 14 ) , e
*objn ( 15 ) / 111 , 114 , 32 , 111 , 98 /
data eobjn ( 16 ) , eobjn ( 17 ) , eobjn ( 18 ) , eobjn ( 19 ) , e
*objn ( 20 ) / 106 , 101 , 99 , 116 , 32 /
data eobjn ( 21 ) , eobjn ( 22 ) , eobjn ( 23 ) , eobjn ( 24 ) , e
*objn ( 25 ) / 110 , 97 , 109 , 101 , 0 /
data enoob ( 1 ) , enoob ( 2 ) , enoob ( 3 ) , enoob ( 4 ) , enoob
* ( 5 ) / 59 , 34 , 125 , 34 , 32 /
data enoob ( 6 ) , enoob ( 7 ) , enoob ( 8 ) , enoob ( 9 ) , enoob
* ( 10 ) / 102 , 111 , 117 , 110 , 100 /
data enoob ( 11 ) , enoob ( 12 ) , enoob ( 13 ) , enoob ( 14 ) , e
*noob ( 15 ) / 32 , 97 , 110 , 100 , 32 /
data enoob ( 16 ) , enoob ( 17 ) , enoob ( 18 ) , enoob ( 19 ) , e
*noob ( 20 ) / 110 , 111 , 32 , 111 , 98 /
data enoob ( 21 ) , enoob ( 22 ) , enoob ( 23 ) , enoob ( 24 ) , e
*noob ( 25 ) / 106 , 101 , 99 , 116 , 32 /
data enoob ( 26 ) , enoob ( 27 ) , enoob ( 28 ) , enoob ( 29 ) , e
*noob ( 30 ) / 119 , 97 , 115 , 32 , 111 /
data enoob ( 31 ) , enoob ( 32 ) , enoob ( 33 ) , enoob ( 34 ) / 1
*12 , 101 , 110 , 0 /
data eunco ( 1 ) , eunco ( 2 ) , eunco ( 3 ) , eunco ( 4 ) , eunco
* ( 5 ) / 69 , 111 , 102 , 32 , 104 /
data eunco ( 6 ) , eunco ( 7 ) , eunco ( 8 ) , eunco ( 9 ) , eunco
* ( 10 ) / 105 , 116 , 32 , 97 , 110 /
data eunco ( 11 ) , eunco ( 12 ) , eunco ( 13 ) , eunco ( 14 ) , e
*unco ( 15 ) / 100 , 32 , 111 , 112 , 101 /
data eunco ( 16 ) , eunco ( 17 ) , eunco ( 18 ) , eunco ( 19 ) , e
*unco ( 20 ) / 110 , 32 , 111 , 98 , 106 /
data eunco ( 21 ) , eunco ( 22 ) , eunco ( 23 ) , eunco ( 24 ) , e
*unco ( 25 ) / 101 , 99 , 116 , 40 , 115 /
data eunco ( 26 ) , eunco ( 27 ) , eunco ( 28 ) , eunco ( 29 ) , e
*unco ( 30 ) / 41 , 32 , 101 , 120 , 105 /
data eunco ( 31 ) , eunco ( 32 ) , eunco ( 33 ) / 115 , 116 , 0 /
data eputbk ( 1 ) , eputbk ( 2 ) , eputbk ( 3 ) , eputbk ( 4 ) , e
*putbk ( 5 ) / 73 , 110 , 116 , 101 , 114 /
data eputbk ( 6 ) , eputbk ( 7 ) , eputbk ( 8 ) , eputbk ( 9 ) , e
*putbk ( 10 ) / 110 , 97 , 108 , 32 , 101 /
data eputbk ( 11 ) , eputbk ( 12 ) , eputbk ( 13 ) , eputbk ( 14 )
* , eputbk ( 15 ) / 114 , 114 , 111 , 114 , 32 /
data eputbk ( 16 ) , eputbk ( 17 ) , eputbk ( 18 ) , eputbk ( 19 )
* , eputbk ( 20 ) / 45 , 32 , 112 , 117 , 116 /
data eputbk ( 21 ) , eputbk ( 22 ) , eputbk ( 23 ) , eputbk ( 24 )
* / 98 , 97 , 107 , 0 /
data evpts ( 1 ) , evpts ( 2 ) , evpts ( 3 ) , evpts ( 4 ) , evpts
* ( 5 ) / 84 , 111 , 111 , 32 , 109 /
data evpts ( 6 ) , evpts ( 7 ) , evpts ( 8 ) , evpts ( 9 ) , evpts
* ( 10 ) / 97 , 110 , 121 , 32 , 112 /
data evpts ( 11 ) , evpts ( 12 ) , evpts ( 13 ) , evpts ( 14 ) , e
*vpts ( 15 ) / 111 , 105 , 110 , 116 , 115 /
data evpts ( 16 ) , evpts ( 17 ) , evpts ( 18 ) , evpts ( 19 ) , e
*vpts ( 20 ) / 32 , 105 , 110 , 32 , 108 /
data evpts ( 21 ) , evpts ( 22 ) , evpts ( 23 ) , evpts ( 24 ) , e
*vpts ( 25 ) / 105 , 110 , 101 , 32 , 111 /
data evpts ( 26 ) , evpts ( 27 ) , evpts ( 28 ) , evpts ( 29 ) , e
*vpts ( 30 ) / 114 , 32 , 99 , 117 , 114 /
data evpts ( 31 ) , evpts ( 32 ) , evpts ( 33 ) / 118 , 101 , 0 /
goto ( 201 , 202 , 203 , 204 , 205 , 206 , 207 , 208 , 209 , 210 ,
* 211 , 212 , 213 , 214 , 215 , 216 , 217 , 218 , 219 , 220 , 221 ,
* 222 , 223 , 224 , 225 ) , err
201 call putcha ( egoflo )
goto 300
202 call putcha ( exw )
goto 300
203 call putcha ( exwp )
goto 300
204 call putcha ( ecoord )
goto 300
205 call putcha ( emgdx )
goto 300
206 call putcha ( emgatu )
goto 300
207 call putcha ( emgdbn )
goto 300
208 call putcha ( emgexh )
goto 300
209 call putcha ( emgnst )
goto 300
210 call putcha ( exl )
goto 300
211 call putcha ( exr )
goto 300
212 call putcha ( exs )
goto 300
213 call putcha ( exv )
goto 300
214 call putcha ( exp )
goto 300
215 call putcha ( exc )
goto 300
216 call putcha ( ext )
goto 300
217 call putcha ( ecc2 )
goto 300
218 call putcha ( eoc3 )
goto 300
219 call putcha ( epremc )
goto 300
220 call putcha ( eobjn )
goto 300
221 call putcha ( enoob )
goto 300
222 call putcha ( eunco )
goto 300
223 call putcha ( eputbk )
goto 300
224 call putcha ( evpts )
goto 300
225 call putcha ( evpts )
goto 300
300 continue
call putc ( 10 )
ip = min0 ( 133 , max0 ( 0 , iplast ) )
C ensure in bounds
ch = ibuf ( ip )
C iplast may be last valid location in "ibuf"
ibuf ( ip ) = 0
C but we must terminate it
call putcha ( ibuf )
C display the erroneous line of input
C (if error is in MG, this may be of little help)
ibuf ( ip ) = ch
C replace the char (probably a Newline)
call putc ( 10 )
end