; WINNER OF THE SECOND ANNUAL ICWST IN 1987
; BY ROBERT R. REED, III

START    MOV   #4098,B
F        CMP   <A,<B
         MOV   S,@B
         CMP   <A,<B
A        MOV   S,-5
         DJN   F,B
K        MOV   W,<W
         DJN   K,<W
         ADD   #3,W
B        JMP   K
W        DAT   -10
S        SPL   0
         END