できました。たぶん
mkIIでは配列変数の要素は最大262144個なのでC_iだけ配列に入れずにREADするようにしました
あ、でもmkIIのプログラムは最大で524288Byte(改行含む)なので結局300000個のDATAは入らないですね
CLEAR
RESTORE @D '@DはDATAのあるラベル
READ N,M
DIM L[N],R[N]
FOR I=0 TO M-1
'使わない変数
READ _
NEXT
FOR I=0 TO N-1
READ L[I],R[I]
NEXT
SORT 0,N,L
SORT 0,N,R
RESTORE @D
READ N,M
LI=0:RI=0
NUM=0:ANS=0
FOR I=0 TO M-1
READ C
@L
IF LI>=N THEN @R
IF L[LI]<=C THEN NUM=NUM+1:LI=LI+1:GOTO @L
@R
IF RI>=N THEN @C
IF R[RI]<C THEN NUM=NUM-1:RI=RI+1:GOTO @R
@C
FOR J=1 TO NUM
ANS=(ANS+C)%20123
NEXT
NEXT
?ANS