スタート: For i = 1 To 7 If 閲覧済[i] Then Set 済マーク[i] "済" Else Set 済マーク[i] " " EndIf Next Ask $(済マーク[1]) 01-01_まずはストーリー〜何話くらいの話を作る? $(済マーク[2]) 01-02_まずはストーリー〜参戦作品の数 $(済マーク[3]) 02-01_シナリオを作る前に〜eveを覗いてみよう $(済マーク[4]) xx-01_イベントコマンドを覚えよう $(済マーク[5]) xx-02_イベントコマンド〜会話系 $(済マーク[6]) xx-xx_for文〜繰り返しの基本 $(済マーク[7]) xx-xx_版権MIDI〜多重指定 サンプルシナリオ end Switch 選択 Case 1 Set 閲覧済[1] <EVE\01-01_まずはストーリー〜何話くらいの話を作る?.eve> Case 2 Set 閲覧済[2] <EVE\01-02_まずはストーリー〜参戦作品の数.eve> Case 3 Set 閲覧済[3] <EVE\02-01_シナリオを作る前に〜eveを覗いてみよう.eve> Case 4 Set 閲覧済[4] <EVE\xx-01_イベントコマンドを覚えよう.eve> Case 5 Set 閲覧済[5] <EVE\xx-02_イベントコマンド〜会話系.eve> Case 6 Set 閲覧済[6] <EVE\xx-xx_for文〜繰り返しの基本.eve> Case 7 Set 閲覧済[7] <EVE\xx-xx_版権MIDI〜多重指定.eve> Case 8 <EVE\サンプルシナリオ.eve> EndSw