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* 110 IF ERROR THEN 9998 120 ASSIGN U0$,C1,J, RR 130 IF J THEN 9998 140 U0=V6=C0 145 D1=D 150 U1=C2 160 GOSUB 1000 165 W1=C0 170 A1$="EDIT00" 175 A1$[C7]=B0$ 180 CHAIN J,A1$,100 190 GOTO 9998 1000 REM *** PROGRAM RESERVED FOR FUTURE USE **** 9990 REM 9991 M4=SYS(C0) 9992 N4=SYS(C1) 9993 A1$="EDIT31" 9994 A1$[C7]=B0$ 9995 CHAIN J,A1$,100 9996 PRINT A1$" is missing. ERROR" 9997 STOP 9998 GOTO 9991 9999 END