(a3:define-set (0 0)
(a3:call-sub 0)
) ;; end of define-set 
(a3:define-sub (0 1)
(a3:call-user-func 2070)
(a3:call-user-func 2151 0 0 0 255 300 2)
(a3:call-user-func 2050)
(a3:call-user-func 2120)
(a3:call-user-func 2015)
(a3:call-user-func 1016 3 1 -1 0)
(a3:call-far 9019 0)
(a3:call-sub 1)
(a3:call-user-func 2151 0 0 0 0 1000 0)
(a3:eval-noeffect (a3:assign-word 1300 0)
)
(a3:eval-noeffect (a3:assign-word 1301 1)
)
(a3:call-sub 2)
(a3:eval-noeffect (a3:assign-local 0 0))
;; begin do-while 
(a3:label 2)
(a3:call-user-func 4000 4 500000 0)
(a3:eval (a3:idref-reflag))
(a3:switch ( 900 5) ( 901 6) ( 902 7) ( 800 8) ( 801 9) ( 802 10) ( 803 11) ( default 12) )
(a3:label 5)
(a3:eval-noeffect (a3:assign-local 0 1)
)
(a3:goto 4)
(a3:label 6)
(a3:eval-noeffect (a3:pre-decr-word 1300)
)
(a3:eval (a3:bop-less? (a3:idref-word 1300) 0))
(a3:ifnot 13)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1300 (a3:bop-sub (a3:bop-add (a3:bop-div (a3:bop-sub (a3:idref-word 1502) 1) 12) 1) 1))
)
;; end then-clause 
(a3:label 13)
;; end of if statement 
(a3:call-sub 2)
(a3:goto 4)
(a3:label 7)
(a3:eval-noeffect (a3:pre-incr-word 1300)
)
(a3:eval (a3:bop-great-equal? (a3:idref-word 1300) (a3:bop-add (a3:bop-div (a3:bop-sub (a3:idref-word 1502) 1) 12) 1)))
(a3:ifnot 14)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1300 0)
)
;; end then-clause 
(a3:label 14)
;; end of if statement 
(a3:call-sub 2)
(a3:goto 4)
(a3:label 8)
(a3:eval-noeffect (a3:pre-decr-word 1301)
)
(a3:eval (a3:bop-less? (a3:idref-word 1301) 1))
(a3:ifnot 15)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1301 11)
)
;; end then-clause 
(a3:label 15)
;; end of if statement 
(a3:call-sub 5)
(a3:goto 4)
(a3:label 9)
(a3:call-user-func 3001 0 500 1)
(a3:call-user-func 3000 0 (a3:idref-word 1301) 0 0)
(a3:goto 4)
(a3:label 10)
(a3:call-user-func 3001 0 500 0)
(a3:goto 4)
(a3:label 11)
(a3:eval-noeffect (a3:pre-incr-word 1301)
)
(a3:eval (a3:bop-great? (a3:idref-word 1301) 11))
(a3:ifnot 16)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1301 1)
)
;; end then-clause 
(a3:label 16)
;; end of if statement 
(a3:call-sub 5)
(a3:goto 4)
(a3:label 12)
(a3:eval (a3:bop-logical-and (a3:bop-less-equal? 2000 (a3:idref-reflag)) (a3:bop-less? (a3:idref-reflag) (a3:bop-add 2000 (a3:idref-word 1502)))))
(a3:ifnot 17)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-acc (a3:bop-sub (a3:idref-reflag) 2000))
)
(a3:call-user-func 2151 0 0 0 255 300 2)
(a3:call-user-func 2120)
(a3:call-user-func 2150)
(a3:call-user-func 2000 -1 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-sub 4)
(a3:call-user-func 2151 0 0 0 255 300 2)
(a3:call-sub 1)
(a3:call-user-func 2151 0 0 0 0 300 2)
(a3:call-user-func 2150)
(a3:call-sub 2)
;; end then-clause 
(a3:label 17)
;; end of if statement 
(a3:goto 4)
(a3:label 4)
(a3:eval (a3:bop-equal? (a3:idref-local 0) 0))
(a3:if 2)
;; end do-while 
(a3:call-user-func 2120)
(a3:call-user-func 2103 0)
(a3:call-user-func 2150)
) ;; end of define-sub 
(a3:define-sub (1 0)
(a3:call-user-func 2000 1003 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 2123 910 2300 1 0 16 10 255 0)
(a3:call-user-func 2123 900 1230 1 104 544 10 255 0)
(a3:call-user-func 2123 901 1260 1 488 544 10 255 0)
(a3:call-user-func 2123 902 1270 1 680 544 10 255 0)
(a3:call-user-func 2131 900 2 900)
(a3:call-user-func 2131 901 2 901)
(a3:call-user-func 2131 902 2 902)
(a3:call-user-func 2123 800 2500 1 576 104 10 255 0)
(a3:call-user-func 2123 801 2501 1 632 104 10 255 0)
(a3:call-user-func 2123 802 2502 1 688 104 10 255 0)
(a3:call-user-func 2123 803 2503 1 744 104 10 255 0)
(a3:call-user-func 2131 800 2 800)
(a3:call-user-func 2131 801 2 801)
(a3:call-user-func 2131 802 2 802)
(a3:call-user-func 2131 803 2 803)
) ;; end of define-sub 
(a3:define-sub (5 0)
(a3:call-user-func 2123 810 (a3:bop-add 2510 (a3:idref-word 1301)) 1 68 112 10 255 0)
) ;; end of define-sub 
(a3:define-sub (2 1)
(a3:call-sub 5)
(a3:call-user-func 2123 905 (a3:bop-add 1280 (a3:idref-word 1300)) 1 592 544 10 255 0)
(a3:eval-noeffect (a3:assign-local 0 0))
;; begin do-while 
(a3:label 18)
(a3:eval-noeffect (a3:assign-acc (a3:bop-add (a3:bop-mul (a3:idref-word 1300) 12) (a3:idref-local 0)))
)
(a3:call-user-func 2123 (a3:bop-add 1000 (a3:idref-local 0)) (a3:bop-add 2554 (a3:idref-acc)) 1 (a3:bop-add 104 (a3:bop-mul 152 (a3:bop-mod (a3:idref-local 0) 4))) (a3:bop-add 184 (a3:bop-mul 120 (a3:bop-div (a3:idref-local 0) 4))) 10 255 0)
(a3:call-user-func 2131 (a3:bop-add 1000 (a3:idref-local 0)) 2 (a3:bop-add (a3:idref-acc) 2000))
(a3:call-sub 3)
(a3:eval (a3:idref-reflag))
(a3:switch ( 0 21) ( 1 22) ( default 23) )
(a3:label 21)
(a3:call-user-func 2130 (a3:bop-add 1000 (a3:idref-local 0)) 0)
(a3:call-user-func 2123 (a3:bop-add 1100 (a3:idref-local 0)) 2550 1 (a3:bop-add 104 (a3:bop-mul 152 (a3:bop-mod (a3:idref-local 0) 4))) (a3:bop-add 184 (a3:bop-mul 120 (a3:bop-div (a3:idref-local 0) 4))) 5 128 0)
(a3:goto 20)
(a3:label 22)
(a3:call-user-func 2124 (a3:bop-add 1100 (a3:idref-local 0)) -1)
(a3:goto 20)
(a3:label 23)
(a3:call-user-func 2124 (a3:bop-add 1000 (a3:idref-local 0)) -1)
(a3:call-user-func 2124 (a3:bop-add 1100 (a3:idref-local 0)) -1)
(a3:goto 20)
(a3:label 20)
(a3:eval-noeffect (a3:assign-local 0 (a3:bop-add (a3:idref-local 0) 1))
)
(a3:call-user-func 4001)
(a3:eval (a3:bop-less? (a3:idref-local 0) 12))
(a3:if 18)
;; end do-while 
) ;; end of define-sub 
(a3:define-sub (3 0)
(a3:eval-noeffect (a3:assign-reflag 0)
)
(a3:eval (a3:bop-less? (a3:idref-acc) (a3:idref-word 1502)))
(a3:ifnot 24)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-reflag (a3:idref-word (a3:bop-add 1512 (a3:bop-mul (a3:idref-acc) (a3:idref-word 1503)))))
)
(a3:goto 25)
;; end then-clause 
(a3:label 24)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-reflag -1)
)
;; end else-clause 
(a3:label 25)
;; end of if statement 
) ;; end of define-sub 
(a3:define-sub (4 3)
(a3:eval-noeffect (a3:assign-local 0 0))
(a3:eval-noeffect (a3:assign-local 0 (a3:idref-acc))
)
(a3:eval-noeffect (a3:assign-reflag 0)
)
(a3:eval (a3:bop-less-equal? (a3:idref-local 0) (a3:idref-word 1502)))
(a3:ifnot 26)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-local 1 0))
(a3:eval-noeffect (a3:assign-local 1 0)
)
;; begin do-while 
(a3:label 28)
(a3:eval-noeffect (a3:assign-local 2 0))
(a3:eval-noeffect (a3:assign-local 2 (a3:bop-sub (a3:idref-word 1504) 1))
)
;; begin do-while 
(a3:label 30)
(a3:eval (a3:bop-logical-and (a3:bop-equal? (a3:idref-word (a3:bop-add 2200 (a3:bop-mul (a3:idref-local 2) 4))) (a3:idref-local 0)) (a3:bop-equal? (a3:idref-word (a3:bop-add 2201 (a3:bop-mul (a3:idref-local 2) 4))) (a3:idref-local 1))))
(a3:ifnot 32)
;; begin then-clause 
(a3:call-user-func 2070)
(a3:call-user-func 2000 (a3:idref-word (a3:bop-add 2202 (a3:bop-mul (a3:idref-local 2) 4))) -1 0 0 0 10 1000 2 0 0 0 0)
(a3:call-user-func 4000 1 -1 0)
;; end then-clause 
(a3:label 32)
;; end of if statement 
(a3:eval-noeffect (a3:pre-decr-local 2)
)
(a3:eval (a3:bop-great-equal? (a3:idref-local 2) 0))
(a3:if 30)
;; end do-while 
(a3:eval-noeffect (a3:pre-incr-local 1)
)
(a3:eval (a3:bop-less-equal? (a3:idref-local 1) (a3:idref-word (a3:bop-add 1511 (a3:bop-mul (a3:idref-local 0) (a3:idref-word 1503))))))
(a3:if 28)
;; end do-while 
(a3:eval-noeffect (a3:assign-reflag 1)
)
(a3:goto 27)
;; end then-clause 
(a3:label 26)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-reflag -1)
)
;; end else-clause 
(a3:label 27)
;; end of if statement 
) ;; end of define-sub 
