誕生日を指示にしたがって入力してもらい、

ラッキーアイテムとラッキーカラーを占います。

占い中のギミックもあります。

 

福井弁が多いので、わからない言葉があればコメントしてください。

 

 

プログラム バージョン:1.2b21

 

10 CLS:CLV:A=RND(3)+1:LC5,2:?”キョウノ”:LC7,3:?”ラッキーアイテム・カラー ウラナイ”:WAIT60:GOSUB100:LC10,8:?”ウラナイチュウ­"
20 WAIT60:LC17,8:?".";:WAIT60:?".";:WAIT60:?".":WAIT60:LC17,8:?"   ":B=B+1:IF B<A GOTO 20
30 LC10,8:?" ラッキーアイテム:”:LC11,10:?”ラッキーカラー :":WAIT60
40 LC20,8:GOSUB120:A=RND(10):LC20,10
50 IF A=0 ?”アカ”:ELSE IF A=1 ?”アオ”:ELSE IF A=2 ?”キイロ”:ELSE IF A=3 ?”ミドリ”:ELSE IF A=4 ?”シロ”:ELSE IF A=5 ?”オレンジ”:ELSE IF A=6 ?”ピンク”:ELSE IF A=7 ?”ムラサキ”:ELSE IF A=8 ?”クロ”
60 IF A=9 ?”ミズイロ”
70 LC0,20:END
100 LC3,8:?”セイネンガッピヲ(0101)ノヨウニ”:LC6,9:?”ニュウリョクシテクダサイ­"
110 LC10,12:INPUT" ",D:LC10,7:?CHR$(12):RETURN
120 LC20,8:C=RND(7):IF C=0 ?”ソトズック”:ELSE IF C=1 ?”ウチズック”:ELSE IF C=2 ?”ツルツルイッパイノオチャ”:ELSE IF C=3 ?”オチョキン”:ELSE IF C=4 ?”チューブ":ELSE IF C=5 ?”ツマッタノート”:ELSE IF C=6 ?”ジャミジャミ”
130 RETURN

コメント
コメントする