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, RR 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