(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 2026 0 0 0 0 0 0 0)
(a3:call-user-func 1016 3 1 -1 0)
(a3:call-far 9018 0)
(a3:call-sub 1)
(a3:call-user-func 2151 0 0 0 0 300 2)
(a3:eval-noeffect (a3:assign-word 1400 0)
)
(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) ( default 8) )
(a3:label 5)
(a3:eval-noeffect (a3:assign-local 0 1)
)
(a3:goto 4)
(a3:label 6)
(a3:eval-noeffect (a3:pre-decr-word 1400)
)
(a3:eval (a3:bop-less? (a3:idref-word 1400) 0))
(a3:ifnot 9)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1400 (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 9)
;; end of if statement 
(a3:call-sub 2)
(a3:goto 4)
(a3:label 7)
(a3:eval-noeffect (a3:pre-incr-word 1400)
)
(a3:eval (a3:bop-great-equal? (a3:idref-word 1400) (a3:bop-add (a3:bop-div (a3:bop-sub (a3:idref-word 1502) 1) 12) 1)))
(a3:ifnot 10)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1400 0)
)
;; end then-clause 
(a3:label 10)
;; end of if statement 
(a3:call-sub 2)
(a3:goto 4)
(a3:label 8)
(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 11)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1307 (a3:bop-sub (a3:idref-reflag) 2000))
)
(a3:call-user-func 2071 0 0 0 255 500 0)
(a3:eval-noeffect (a3:assign-word 1066 0)
)
(a3:call-user-func 3001 0 500 0)
(a3:eval-noeffect (a3:assign-word 14 0)
)
(a3:call-user-func 2000 -1 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 2050)
(a3:call-user-func 2070)
(a3:call-user-func 4300)
(a3:call-user-func 2120)
(a3:call-user-func 1015)
(a3:call-user-func 2021 1)
(a3:eval-noeffect (a3:assign-acc (a3:idref-word 1307))
)
(a3:call-sub 3)
(a3:call-user-func 1007 1 3 0 0 0 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 1007 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 1007 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 4300)
(a3:call-user-func 3000 0 2 0 0)
(a3:eval-noeffect (a3:assign-word 1066 1)
)
(a3:call-user-func 2151 0 0 0 255 300 2)
(a3:call-user-func 2070)
(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 11)
;; 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 
) ;; end of define-sub 
(a3:define-sub (1 0)
(a3:call-user-func 2070)
(a3:call-user-func 2150)
(a3:call-user-func 2050)
(a3:call-user-func 2120)
(a3:call-user-func 2021 0)
(a3:call-user-func 1016 3 1 -1 0)
(a3:call-user-func 2000 1004 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 2053 910 2400 1 0 16 10 255 0)
(a3:call-user-func 2053 900 1230 1 104 544 10 255 0)
(a3:call-user-func 2053 901 1260 1 488 544 10 255 0)
(a3:call-user-func 2053 902 1270 1 680 544 10 255 0)
(a3:call-user-func 2061 900 2 900)
(a3:call-user-func 2061 901 2 901)
(a3:call-user-func 2061 902 2 902)
) ;; end of define-sub 
(a3:define-sub (2 1)
(a3:call-user-func 2053 905 (a3:bop-add 1280 (a3:idref-word 1400)) 1 592 544 10 255 0)
(a3:eval-noeffect (a3:assign-local 0 0))
;; begin do-while 
(a3:label 12)
(a3:eval-noeffect (a3:assign-acc (a3:bop-add (a3:bop-mul (a3:idref-word 1400) 12) (a3:idref-local 0)))
)
(a3:eval-noeffect (a3:assign-word 1305 0)
)
(a3:call-sub 5)
(a3:eval-noeffect (a3:assign-word 1306 (a3:idref-reflag))
)
(a3:call-user-func 2053 (a3:bop-add 1000 (a3:idref-local 0)) (a3:bop-add (a3:bop-add 2430 (a3:bop-mul (a3:idref-word 1400) 12)) (a3:idref-local 0)) 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:eval-noeffect (a3:assign-acc (a3:bop-add (a3:bop-add 2000 (a3:bop-mul (a3:idref-word 1400) 12)) (a3:idref-local 0)))
)
(a3:call-user-func 2061 (a3:bop-add 1000 (a3:idref-local 0)) 2 (a3:idref-acc))
(a3:eval (a3:idref-word 1306))
(a3:switch ( 0 15) ( 1 16) ( default 17) )
(a3:label 15)
(a3:call-user-func 2060 (a3:bop-add 1000 (a3:idref-local 0)) 0)
(a3:call-user-func 2053 (a3:bop-add 1100 (a3:idref-local 0)) 2420 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 14)
(a3:label 16)
(a3:call-user-func 2054 (a3:bop-add 1100 (a3:idref-local 0)) -1)
(a3:goto 14)
(a3:label 17)
(a3:call-user-func 2054 (a3:bop-add 1000 (a3:idref-local 0)) -1)
(a3:call-user-func 2054 (a3:bop-add 1100 (a3:idref-local 0)) -1)
(a3:goto 14)
(a3:label 14)
(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 12)
;; end do-while 
) ;; end of define-sub 
(a3:define-sub (3 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 18)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-local 1 0))
(a3:eval-noeffect (a3:assign-local 1 0)
)
;; begin do-while 
(a3:label 20)
(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 22)
(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 24)
;; begin then-clause 
(a3:eval-noeffect (a3:assign-word 1305 (a3:idref-word (a3:bop-add 2202 (a3:bop-mul (a3:idref-local 2) 4))))
)
(a3:eval-noeffect (a3:assign-word 1306 (a3:idref-word (a3:bop-add 2203 (a3:bop-mul (a3:idref-local 2) 4))))
)
(a3:call-sub 4)
;; end then-clause 
(a3:label 24)
;; 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 22)
;; 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 20)
;; end do-while 
(a3:eval-noeffect (a3:assign-reflag 1)
)
(a3:goto 19)
;; end then-clause 
(a3:label 18)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-reflag -1)
)
;; end else-clause 
(a3:label 19)
;; end of if statement 
) ;; end of define-sub 
(a3:define-sub (4 0)
(a3:call-user-func 2021 1)
(a3:call-user-func 4111 4 1)
(a3:call-user-func 6002 9016 1)
(a3:call-user-func 4111 4 0)
) ;; end of define-sub 
(a3:define-sub (5 0)
(a3:eval-noeffect (a3:assign-reflag 0)
)
(a3:eval (a3:bop-less? (a3:idref-acc) (a3:idref-word 1502)))
(a3:ifnot 25)
;; begin then-clause 
(a3:call-user-func 4130 2 (a3:idref-acc))
(a3:goto 26)
;; end then-clause 
(a3:label 25)
;; begin else-clause 
(a3:eval-noeffect (a3:assign-reflag -1)
)
;; end else-clause 
(a3:label 26)
;; end of if statement 
) ;; end of define-sub 
