2ちゃんねる ■掲示板に戻る■ 全部 1- 最新50    

■ このスレッドは過去ログ倉庫に格納されています

第1回昔のPC板杯プログラムコンテスト

1 :あまぐらまぁ:01/12/20 20:21.net
毎年恒例となった 第1回昔のPC板杯プログラムコンテストを開催するヨ!
かつてやった(であろう)クダラネー!!プログラムや クダラネー!!テクニックを
再びここで披露して下さい。

目的:画面上に100回「オマエモナー」と表示させる。
   特例としてカナが使えない機種は「OMAEMONA-」でも良い。
使用機種:不問
使用言語:BASIC限定(各機種の方言の使用は可)
条件:プログラムコードが長くならないように注意。
   (省略されました・・全てを読むにはここを押してください)が
   出てしまったら、そのエントリーは無効。
評価:綺麗なソースやアルゴリズムだけではなく、実行したときの芸術性
   なども評価の対象とする。
   表示1回毎に色を変えたり音を出したり等、演出を凝らすのは
   構わない。各自工夫してプログラムすること。
   ネタ歓迎!。

エントリーする人は、動作機種を(ものによっては何BASICかも)明記してくれ。
エントリーに対するレスなんかも大いにしちゃって!。もりageて行こう!
ビクーリするようなヤツ期待してます!

197 :END:02/07/17 13:00.net


198 :age:02/09/05 01:54.net
10 REM ホシュsage
20 END

199 :ナイコンさん:02/09/19 11:59.net
ActiveBASICはexitで終了だが、
99BASICは終了時はsystemって打つのね。
昔を思い出して笑ったよ〜

200 :ナイコンさん:02/09/20 01:04.net
LEFT$("00"+ HEX$(A), 2)

201 :ナイコンさん:02/09/29 13:45.net

1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END

202 :ナイコンさん:02/09/29 13:49.net
1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END

203 :ナイコンさん:02/09/29 13:52.net
 ↑
??? 上の二つ、PRINT文の中のspaceが消えてる・・・  
しかも結局二重投稿だし・・・   鬱



Syntax error
ok



204 :ナイコンさん:02/09/29 14:32.net
>203
連続の半角空白は1つに圧縮されます。
で、半角で「 」と書くと圧縮されない半角空白に置き換わります。

205 :ナイコンさん:02/09/29 16:21.net
>>204
ひとつおりこうになりますた ありがとうございますた m(_ _)m

206 :ナイコンさん:02/12/03 04:08.net
なるほど

207 :ナイコンさん:02/12/24 19:34.net
0 go to 0

208 :WIDTH :02/12/24 22:06.net

●/ < RANDOMIZEニ タヨラナイ、ランスウノ カエカタ。
PRINT"HIT SPACE KEY!":WHILE INKEY$<>" ":A=RND(1):WEND

●/ < ソノ オウヨウレイ。
http://pc.2ch.net/test/read.cgi/i4004/1037113354/202

209 :WIDTH 40:02/12/24 22:09.net
三(#゚Д)つΣ●/ < >>208ハント゛ルメイヲ ウチソコネマスタ!

210 :山崎渉:03/01/13 21:51.net
(^^)

211 :山崎渉:03/03/13 17:31.net
(^^)

212 :山崎渉:03/04/17 12:22.net
(^^)

213 :山崎渉:03/04/20 06:02.net
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

214 :山崎渉:03/05/28 17:12.net
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉

215 :山崎 渉:03/07/15 11:10.net

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

216 :なまえをいれてください:03/07/22 13:00.net
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。

217 :ぼるじょあ ◆ySd1dMH5Gk :03/08/02 04:59.net
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

218 :ナイコンさん:04/02/24 16:00.net
α

219 :ナイコンさん:04/02/25 19:18.net
β

220 :ナイコンさん:04/05/01 21:04.net
γ

221 :ナイコンさん:04/05/02 17:05.net
δ

222 :ナイコンさん:04/05/03 21:21.net
auto 223,1

223 :ナイコンさん:04/05/07 17:51.net
シルフィード 1面でやられると
「オンマエモナイヨワークワッカッ ハー!」

224 :ナイコンさん:04/05/07 18:01.net
208のリンク先が見れないなぁ
RANDOMIZEって毎回同じ結果になるから使えないよね?
それを消すためのプログラムがあるのは知ってたが、資料不足でどうにもできず。
田舎で月1000円の小遣いとかじゃどうにも資料を集めるできんかった厨房の頃。

225 :ナイコンさん:04/05/12 23:07.net
ビギナーズオールパーパスシンボリックインストラクションコード!
BASIC
Syntax Error
Ok

226 :ナイコンさん:2005/04/17(日) 16:38:42 .net
保守

227 :ナイコンさん:2005/06/04(土) 03:06:52 .net
最下層

228 :ナイコンさん:2005/06/05(日) 01:24:07 .net
最下層って目立つよな。

あげw

229 :ナイコンさん:2006/06/01(木) 20:03:14 .net
一年ぶりにあげ

230 :ナイコンさん:2006/11/22(水) 01:58:06 .net
PRINT CHR$(13)

231 :ナイコンさん:2006/11/25(土) 13:56:09 .net
5 cls
10 print "懐かしい 泣きそうだった ";
15 beep
20 goto 10
25 end


232 :ナイコンさん:2007/05/13(日) 00:47:20 .net
>>224
RANDOMIZE TIMEとか使ってたな。
3年前の書き込みにレスつけるのもどーかだがw

233 :ナイコンさん:2007/05/13(日) 00:58:32 .net
そして内蔵時計脂肪の昨今

234 :ナイコンさん:2007/05/21(月) 13:28:06 .net
10 PRINT"nullpo"
20 GOTO 10

235 :ナイコンさん:2007/05/21(月) 14:28:50 .net
15 print ゙ga゙:stop

236 :ナイコンさん:2007/05/21(月) 14:44:26 .net
゙じゃねえだろオレorz

237 :ナイコンさん:2009/08/28(金) 19:45:31 .net
二年ぶりにあげ

238 :ナイコンさん:2010/11/06(土) 17:18:31 .net
1年3ヶ月ぶり age

239 :ナイコンさん:2010/11/07(日) 01:11:04 .net
そんなにスレもつもんか
テーマ決めずになんでもBASICソース貼ってくれ

240 :─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG :2012/01/22(日) 10:06:37.63 .net
…ってなワケで、オレ様はこちらにいる。

MAIN STREET
http://www.geocities.jp/courant_de_console/main_street/

シンプル・ブレーク・アウト…。
- - - - - - - -

関連スレ

TIME SESSION PART.1 - 新作戦略会議 -
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42600/1321405314/l100


241 :ナイコンさん:2012/01/25(水) 19:17:23.99 .net


★★今時代は嫌中ブーム!!★★

みなさん嫌中ブーム知ってますか?嫌中ブームが今ネットでのひそかなブームとなってます
2ちゃんねるで大流行りした、嫌韓ブームでしたが
新しく中国を嫌う嫌中ブームがインターネットで流行っているのです!
それもそのはず彼らの横暴な態度に今日本人は怒っているからです!嫌韓と同じですね

新世紀の話題 嫌中ブーム!
時代のトレンド 嫌中ブーム!
さあ新しい時代に乗り遅れるな!話題沸騰、今時代はまさに嫌中ブームなのです!





242 :電脳プリオン 忍法帖【Lv=40,xxxPT】(2+0:8) 【17.9m】 :2013/08/18(日) NY:AN:NY.AN ?PLT(12080).net
  ∧_∧
  ( ・∀・)   | | ガッ
 と    )    | |
   Y /ノ    人
    / )    <  >__Λ∩
  _/し' //. V`Д´)/ ←>>213
 (_フ彡        /

243 :ナイコンさん:2017/11/23(木) 14:15:17.85 .net
忘れたな

244 :ナイコンさん:2017/12/18(月) 19:21:17.07 .net
http://imepic.jp/20171218/674390

245 :ナイコンさん:2020/07/03(金) 15:08:14.96 .net
うける

246 :ナイコンさん:2022/05/04(水) 10:48:04 .net
うけない

総レス数 246
77 KB
掲示板に戻る 全部 前100 次100 最新50
read.cgi ver.24052200