--

--.--

« スポンサーサイト »

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

スポンサー広告:  トラックバック(-)  コメント(-) 

    2005

06.04

« ( ‘д‘)<N88やで »

1000 '--- bonbonaibon quiz ---
1010 '
1020 'width 80,25:cls 3
1030 '
1040 dim ai$(10),coment$(5),q$(5),a$(5,4),a(5):ans=0:poin=0
1050 '
1060 for i=1 to 10:read ai$(i):next
1070 for i=1 to 5:read coment$(i):next
1080 for i=1 to 5:read q$(i):for j=1 to 4:read a$(i,j):next:read a(i):next
1090 '
2000 input"what's your name";name$
2010 for i=1 to 5
2020 print ai$(3):print ai$(4);"<";q$(i)
2030 for j=1 to 4:print j;".";a$(i,j):next
2040 print:input"コタエハ";ans
2050 if ans=a(i) then poin=poin+1
2060 print:next
2070 '
3000 print name$;"ノセイカイスウハ";poin;"モンヤデ!":print
3010 if poin<2 then a=1:b=2 else if poin=2 then a=3:b=4
3020 if poin=3 then a=5:b=6 else if poin=4 then a=7:b=8
3030 if poin=5 then a=9:b=10
3040 print ai$(a):print ai$(b);"<";coment$(poin)
3050 '
3060 end
3070 '
5010 data "〆⌒ヽ","( ‘д‘)","@ノハ@","( ‘д‘)","@ノハ@","(# ‘д‘)"
5020 data "@ノハ@","(*‘д‘)","@ノハ@","(# ´д`)"
5050 data "キモイ・・・","フツウヤネ","イイオトモダチヤネン","チョットキニナルワァ","ウチトケッコンシヨカ"
6010 data "アイボンノセイネンガッピハ","1/6","2/7","3/8","4/9",2
6020 data "アイボンノシュッシンケンハ","ナラケン","ワカヤマケン","ミエケン","オオイタケン",1
6030 data "アイボンノケツエキガタハ","A","B","O","AB",4
6040 data "アイボンノソロシングルタイトルハ","リカイシテオンナノコ","レンアイッテナアニ","マリンスポーツ","ヨシテヨシテ",2
6050 data "アイボンノデビューシングルハ","ラブマシーン","ハッピーサマーウェディング","I WISH","レンアイレボリューション21",2


13年ぶりくらいに組んだよ…中1くらいからいきなり文系人間になったもんで。あんがい覚えてるもんだなぁ。
スポンサーサイト

ぼいんぼいん遊びトラックバック(0)  コメント(4) 

Next |  Back

comments

なにこれ?

( ‘д‘):2005/06/05(日) 16:07:56 | URL | [編集]

N88BASIC テラナツカシスwwwwwwwwwww

名無し募集中。。。:2005/06/05(日) 19:17:50 | URL | [編集]

>なにこれ?=>N88BASIC テラナツカシスwwwwwwwwwww

パソコンのむかあしの言語ですとゆいたい。これ駆使して妄想を実現してた暗い少年だったとゆいたいですよ・・・

ヒロポン:2005/06/05(日) 22:44:42 | URL | [編集]

ヒロポンってPC詳しいんだな

( ‘д‘):2005/06/08(水) 01:45:00 | URL | [編集]

コメントの投稿











 管理者にだけ表示を許可

trackback

この記事のトラックバックURL


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。