;redcode
;name E-Call
;author CatFace
;strategy 1st place in Japanese Preliminary '87
;strategy ICWST'87 semi-finalist
;assert 1
MAIN MOV MIS ,@P
ADD #8 ,P
MOV MISM ,MT
JMP MAIN
MIS JMP -8
COUNT DAT #64
CE DAT #-30
P DAT #13
MISM JMP -3
AD SPL 0
DJN MT ,COUNT ; was DJN POOL ,COUNT (missing label)
JMP CLOSE
MT JMP AD
CLOSE MOV AD ,@C
CMP #30 ,C
DJN MT ,C
MOV #-30 ,C
JMP CH
DG JMP -8
CH SPL AD
JMP MT ; was JMP POOL (missing label)
C DAT #-30
END MAIN