1  COM A[25],V[2,10]
2  COM A$[255],A1$[255],B0$[5],D0$[255],F0$[1],F1$[11],S0$[6]
3  COM H0$[94],H1$[94],J0$[3],J1$[3],K1$[15],P0$[184],P1$[4]
4  COM N0$[1],U0$[11],U1$[11],V0$[10],V1$[10],W$[102],W0$[8],W1$[255],Z$[255]
5  COM C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,D0
6  COM D,D1,D2,F9,G,G0,G8,L,S0,V0,V1,V2,V3,V5,V7
7  COM W0,W1,W3,W5,W8,W9
10  COM L[5],M[64,2],N[64,2],P[2]
11  COM B$[94],L$[94],M$[94],N$[94],O$[94],P$[94]
12  COM L1,L2,L3,L4,L7,M1,M2,M3,M4,M5,M7,M8,M9,N1,N2,N3,N4
15  REM (C) COPYRIGHT  HEWLETT-PACKARD CO. 1976
16  REM ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,
17  REM REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE
18  REM PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD CO.
50  FILES *
99  CHAIN "$EDITOR"
100  REM *ENTRY*
1000  REMP >>ERROR<<
1005  DIM R$[11]
1010  IF  ERROR  THEN 1225
1015  PRINT 
1020  IF M4>299 THEN 1300
1025  PRINT "A serious error occurred during the execution of the "W0$" command."
1030  R$="EDERRO"
1035  R$[7]=B0$
1040  ASSIGN R$,C1,J, PR 
1045  IF  NOT J THEN 1060
1050  PRINT "Error documentation file inaccessible; error not documented."
1055  GOTO 1200
1060  IF  END #C1 THEN 1120
1065  READ #C1,C1;A,B
1070  IF B=A THEN 1200
1075  PRINT #C1,B;H0$,TIM(0),TIM(1),TIM(2),TIM(3),D,D1,D2,M4,N4
1080  IF  ERROR  THEN 1100
1085  PRINT #C1;P0$,P1$,V0,V5,V2,V3,W0,W1,W3
1090  PRINT #C1;A$,Z$,A1$,W0$,B0$,D0$,F1$,S0$,U0$,U1$,X$,S0
1095  PRINT #C1;B$,W$,W1$,G,G0,G8,V7
1100  B=REC(C1)+C1
1105  IF  ERROR  THEN 1225
1110  PRINT #C1,C1;A,B
1115  GOTO 1200
1120  B=A
1125  PRINT #C1,C1;A,B
1200  REM2 ***CHAIN TO EDITOR FOR RECOVERY***
1205  A1$="EDITOR"
1210  A1$[LEN(A1$)+C1]=B0$
1215  PRINT "Recovery in progress."
1220  CHAIN J,A1$,200
1225  PRINT "Recovery attempt failed.  Sorry..."
1230  STOP 
1300  REM2 *** ASCII FILE ERROR ***
1305  PRINT "Attention needed for your output device."
1310  PRINT "Please attend to the device and retry the command."
1315  REM2 ***CHAIN TO ED0000***
1320  A1$="EDIT00"
1325  A1$[LEN(A1$)+C1]=B0$
1330  CHAIN J,A1$,100
1335  PRINT "Program EDIT00 is missing."
9999  END 
