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