1  COM F$[7],B$[7],L9,F8
2  COM M$[72],A6,A7,N,E9
3  COM W,W$[64],W0,Y
4  COM M[500],M,M0,M9,Y[150]
5  COM P[25,2],A[200]
6  COM C$[72],D$[11]
7  COM S,S[40],R,V8,V9,E0,M5
8  COM P8,J[3,11]
9  REM COBOL, HP 36845B, 6/74
10  FILES COSCR
20  DIM A$[72]
30  IF E9=0 THEN 700
100  REM ERROR PRINTING
112  PRINT "*";
120  GOTO E9 OF 200,210,220,230,240,250
130  PRINT "ERROR CODE";E9;
140  GOTO 900
200  PRINT "USE OF ELEMENTARY OR EDITED ITEMS ILLEGAL";
202  GOTO 900
210  PRINT "CAN ONLY ACCEPT DISPLAY-TYPE FIELDS";
212  GOTO 900
220  PRINT "NON-NUMERIC FIELD ACCESSED AS NUMERIC";
222  GOTO 900
230  PRINT "ILLEGAL TYPE OF MOVE SPECIFIED";
232  GOTO 900
240  PRINT "ACCESS BEYOND FILE LIMITS";
242  GOTO 900
250  PRINT "SUBSCRIPT OUT OF BOUNDS--ACCESS OUT OF MEMORY";
252  GOTO 900
700  REM  NO ERROR EXIT
710  CHAIN "$XCORUN",20
900  PRINT " AT LINE";N
910  CHAIN "$COMON",5
2000  REM DEBUGGER???
9999  END 
