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

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

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

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

delete 194
OK


197ENDNGNG

198ageNGNG
10 REM ホシュsage
20 END

ActiveBASICはexitで終了だが、
99BASICは終了時はsystemって打つのね。
昔を思い出して笑ったよ〜

LEFT$("00"+ HEX$(A), 2)


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

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

 ↑
??? 上の二つ、PRINT文の中のspaceが消えてる・・・  
しかも結局二重投稿だし・・・   鬱



Syntax error
ok


>203
連続の半角空白は1つに圧縮されます。
で、半角で「 」と書くと圧縮されない半角空白に置き換わります。

>>204
ひとつおりこうになりますた ありがとうございますた m(_ _)m

206ナイコンさんNGNG
なるほど

0 go to 0

208WIDTH NGNG

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

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

209WIDTH 40NGNG
三(#゚Д)つΣ●/ < >>208ハント゛ルメイヲ ウチソコネマスタ!

210山崎渉NGNG
(^^)

211山崎渉NGNG
(^^)

212山崎渉NGNG
(^^)

213山崎渉NGNG
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

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

215山崎 渉NGNG

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

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

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

α

219ナイコンさんNGNG
β

220ナイコンさんNGNG
γ

δ

auto 223,1

シルフィード 1面でやられると
「オンマエモナイヨワークワッカッ ハー!」

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

ビギナーズオールパーパスシンボリックインストラクションコード!
BASIC
Syntax Error
Ok

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

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

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

あげw

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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




  ∧_∧
  ( ・∀・)   | | ガッ
 と    )    | |
   Y /ノ    人
    / )    <  >__Λ∩
  _/し' //. V`Д´)/ ←>>213
 (_フ彡        /

243ナイコンさん2014/12/29(月) 23:10:38.86
今年は開催するのかな?

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

245ナイコンさん2017/12/18(月) 19:21:17.07

新着レスの表示
レスを投稿する