|100
!{ @i $2 } #007a ;i STA2 !{ @j $2 } #0020 ;j STA2 ;i LDA2 ;j LDA2 SUB2 #18 DEO