wwwroot 'http://pc16.rnd.cc.yamaguchi-u.ac.jp/mdl'; course 2342; constant \$s1st = dynamic 'a_e2d/04_hiragana/1st.htm'; \$mAn = file 'a_e2d/04_hiragana/a-n.htm'; \$mKako = file 'a_e2d/04_hiragana/ka-ko.htm'; \$mGago = file 'a_e2d/04_hiragana/ga-go.htm'; \$mChoon = file 'a_e2d/04_hiragana/choon.htm'; \$qAn = quiz 40;// q-4 \$qKako = quiz 41;// q-5 \$qGago = quiz 42;// q-6 \$qChoon = quiz 43;// q-7 \$level = 8; boolean \$dynamic = true; \$mAnEnable, \$mKakoEnable, \$mGagoEnable, \$mChoonEnable; \$qAnEnable, \$qKakoEnable, \$qGagoEnable, \$qChoonEnable; \$qAnPass, \$qKakoPass, \$qGagoPass, \$qChoonPass; \$start, \$mAllDone, \$qAllDone, \$showQuiz, \$qAllPass; \$showReview; \$next; \$mStep, \$qStep, \$xStep; \$review; \$showResult; 0://開始 next 1010; \$start <= \$showQuiz <= \$showReview <= true; jump \$s1st; sub 1000://Stepの勉強の共通状態 \$mStep <= \$next <= true; 1010://Step１の勉強 \$mAn done -> 1020; call 1000; \$mAnEnable <= true; jump \$s1st; 1020://Step２の勉強 \$mKako done -> 1030; call 1000; \$mKakoEnable <= true; jump \$s1st; 1030://Step３の勉強 \$mGago done -> 1040; call 1000; \$mGagoEnable <= true; jump \$s1st; 1040://Step４の勉強 \$mChoon done -> 1110; call 1000; \$mChoonEnable <= true; jump \$s1st; sub 1100://Stepの練習の共通状態 \$mAllDone <= \$showQuiz <= \$qStep <= \$next <= true; 1110://Step１の練習 \$qAn done -> 1120; call 1100; \$qAnEnable <= true; jump \$s1st; 1120://Step２の練習 \$qKako done -> 1130; call 1100; \$qKakoEnable <= true; jump \$s1st; 1130://Step３の練習 \$qGago done -> 1140; call 1100; \$qGagoEnable <= true; jump \$s1st; 1140://Step４の練習 \$qChoon done -> 1200; call 1100; \$qChoonEnable <= true; jump \$s1st; sub 1201:// 合格を調べる \$qAnPass <= \$qAn passed \$level; \$qKakoPass <= \$qKako passed \$level; \$qGagoPass <= \$qGago passed \$level; \$qChoonPass <= \$qChoon passed \$level; \$qAllPass <= \$qAnPass & \$qKakoPass & \$qGagoPass & \$qChoonPass; sub 1202:// 全部復習を許可する \$mAnEnable <= \$mKakoEnable <= \$mGagoEnable <= \$mChoonEnable <= true; sub 1203://合格か復習したら練習を許可する \$qAnEnable <= \$qAnPass | \$mAn after \$qAn ; \$qKakoEnable <= \$qKakoPass | \$mKako after \$qKako ; \$qGagoEnable <= \$qGagoPass | \$mGago after \$qGago ; \$qChoonEnable <= \$qChoonPass | \$mChoon after \$qChoon ; sub 1204://全部練習を許可する \$qAnEnable <= \$qKakoEnable <= \$qGagoEnable <= \$qChoonEnable <= true; 1200://復習 \$qAllDone <= true; call 1201; if \$qAllPass -> 1300; call 1202; call 1203; \$review <= \$showQuiz <= \$showResult <= \$next <= true; jump \$s1st; 1300://全部合格 \$qAllPass <= true; call 1202; call 1204; \$showQuiz <= \$next <= true; jump \$s1st;