1 'オミクジ 5 CLS 10 PRINT" オミクジ" 15 PRINT" タクトスイッチデヒク" 20 IFBTN()=1GOTO30 25 GOTO20 30 CLS:PRINT" ガシャ":WAIT60 35 PRINT" ガシャ":WAIT60 40 PRINT" ガシャ":WAIT60 45 A=RND(4) 50 IF A=0 PRINT" キチ":GOTO75 55 IF A=1 PRINT" ショウキチ":GOTO75 60 IF A=2 PRINT" チュウキチ":GOTO75 65 IF A=3 PRINT" \ダイキチ/":WAIT60 70 PRINT" \オオアタリ/" 75 WAIT240 80 CLS:PRINT" /マタキテネ\":WAIT240 85 GOTO5
シンプルなプログラムですが、スイッチを利用しているところがいいですね。IchigoJam初心者の良い教材になりそうです。