(a3:define-set (0 0)
(a3:call-sub 0)
) ;; end of define-set 
(a3:define-sub (0 0)
(a3:call-user-func 4002 15 0)
(a3:call-user-func 4002 14 0)
(a3:call-user-func 4002 3 0)
(a3:call-user-func 4002 2 0)
(a3:call-user-func 4002 4 0)
(a3:call-user-func 4002 10 0)
(a3:call-user-func 4002 29 0)
(a3:call-user-func 4002 1 0)
(a3:call-user-func 4002 5 0)
(a3:call-user-func 4002 7 0)
(a3:call-user-func 4002 9 0)
(a3:call-user-func 3000 0 8 0 0)
(a3:call-user-func 2151 0 0 0 255 300 2)
(a3:call-user-func 2000 -1 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 2015)
(a3:call-user-func 2050)
(a3:call-user-func 2120)
(a3:call-user-func 2070)
(a3:call-user-func 2150)
(a3:call-user-func 2053 0 200 1 700 540 0 255 0)
(a3:call-user-func 2062 0 3)
(a3:call-user-func 2055 0 0)
(a3:call-user-func 2070)
(a3:call-user-func 2000 1010 -1 0 0 0 10 2000 2 0 0 0 0)
(a3:call-user-func 2021 1)
(a3:call-user-func 2055 0 1)
(a3:call-user-func 3023 3 0)
(a3:call-user-func 3024 3)
(a3:send-string "北都南さんのコメント（１）#R" 1)
(a3:send-string "クリックで次に進みます。#R$N" 1)
(a3:send-string wait-w 2)
(a3:send-string clear 4)
(a3:call-user-func 3024 3)
(a3:send-string "北都南さんのコメント（２）#R" 5)
(a3:send-string "クリックで次に進みます。#R$N" 5)
(a3:send-string wait-w 6)
(a3:send-string clear 8)
(a3:call-user-func 2070)
(a3:call-user-func 2000 1011 -1 0 0 0 10 2000 2 0 0 0 0)
(a3:call-user-func 3024 3)
(a3:send-string "春日アンさんのコメント（１）#R" 9)
(a3:send-string "クリックで次に進みます。#R$N" 9)
(a3:send-string wait-w 10)
(a3:send-string clear 12)
(a3:call-user-func 3024 3)
(a3:send-string "春日アンさんのコメント（２）#R" 13)
(a3:send-string "クリックで次に進みます。#R$N" 13)
(a3:send-string wait-w 14)
(a3:send-string clear 16)
(a3:call-user-func 2070)
(a3:call-user-func 2000 1012 -1 0 0 0 10 2000 2 0 0 0 0)
(a3:call-user-func 3024 3)
(a3:send-string "本多栞さんのコメント（１）#R" 17)
(a3:send-string "クリックで次に進みます。#R$N" 17)
(a3:send-string wait-w 18)
(a3:send-string clear 20)
(a3:call-user-func 3024 3)
(a3:send-string "本多栞さんのコメント（２）#R" 21)
(a3:send-string "クリックでコメントモードから抜けます。#R$N" 21)
(a3:send-string wait-w 22)
(a3:send-string clear 24)
(a3:call-user-func 2021 0)
(a3:call-user-func 3001 0 500 0)
(a3:call-user-func 2055 0 0)
(a3:call-user-func 2071 0 0 0 255 300 2)
(a3:call-user-func 2000 -1 -1 0 0 0 0 0 0 0 0 0 0)
(a3:call-user-func 2015)
(a3:call-user-func 2050)
(a3:call-user-func 2120)
(a3:call-user-func 2070)
(a3:call-user-func 2150)
(a3:call-user-func 3000 0 9 0 0)
) ;; end of define-sub 
