みんなでBASICのコードを1行ずつ書いていくスレ

1 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:41 ID:???

10 REM ***** ﾋﾄﾘ ｲﾁｷﾞｮｳﾃﾞ ｵﾈｶﾞｲ (ﾊｧﾄ *****

2 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:42 ID:???

20 end

3 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:42 ID:???

シラネーヨ

4 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:43 ID:???

15 goto 30

5 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:43 ID:???

　

6 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:44 ID:???

int i=0;

7 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:44 ID:???

30　goto　20

8 名前：s@kurai投稿日：2001/09/09(日) 17:45 ID:???

12 goto 40

9 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:45 ID:???

14 goto 40

10 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:46 ID:???

40 goto 10

11 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:46 ID:???

11 goto 15

12 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:46 ID:???

ﾜﾗﾀ。。。

13 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:47 ID:???

new

14 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:47 ID:???

5 ON STOP GOTO 30
10 PRINT "ばか";
20 GOTO 10
30 PRINT "あほ"

15 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:47 ID:???

#define　>>1　UNKO

16 名前：こんな感じだっけ？投稿日：2001/09/09(日) 17:48 ID:???

10 circle(200.120)40

17 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:49 ID:???

#include <ひろゆき.h>
void main(void)
{
printf("∀")
}

18 名前：レオウルトラ投稿日：2001/09/09(日) 17:49 ID:???

BEEP

19 名前：避暑地の名無しさん投稿日：2001/09/09(日) 17:50 ID:???

>>16
なんか足りないっぽい

20 名前：避暑地の名無しさん投稿日：2001/09/09(日) 18:03 ID:???

$trip = substr(crypt($i, $salt), -8);

21 名前：避暑地の名無しさん投稿日：2001/09/09(日) 18:09 ID:???

100 SCREEN 3,0,0,1:CONSOLE 0,25,0,1:COLOR,,,2:CLS 3
ああ、今でも覚えてるよ、あの感触（以下略

22 名前：避暑地の名無しさん投稿日：2001/09/09(日) 18:11 ID:???

run

23 名前：避暑地の名無しさん投稿日：2001/09/09(日) 18:13 ID:???

ピーーーーーッ！！

24 名前：避暑地の名無しさん投稿日：2001/09/09(日) 18:58 ID:???

10　new

25 名前：避暑地の名無しさん投稿日：2001/09/09(日) 19:23 ID:???

ﾊﾆﾘｲﾄ

26 名前：避暑地の名無しさん投稿日：2001/09/09(日) 19:24 ID:???

printf("■■■■終了■■■■");

27 名前：サトぴん (・∇・)ノ投稿日：2001/09/09(日) 19:31 ID:???

>>26
C

28 名前：犬のふりをする虎（喋る）投稿日：2001/09/09(日) 19:34 ID:???

>>26
何秒か考えた

29 名前：エリー ◆cUrYd68s投稿日：2001/09/09(日) 19:44 ID:???

mon

30 名前：ギコ帽子投稿日：2001/09/09(日) 20:20 ID:46eA3xK.

10 SCREEN1:DEFINTA-Z
20 FORI=0TO255:VPOKE6144+I,I:NEXT
30 FORI=0TO2047:A=VPEEK(I):VPOKEI,A\2ORA:NEXT
40 LOCATE,9

何のプログラムかわかる？
っていうか未だにこんなものが書ける自分がちょっとヤだなぁ…。

31 名前：避暑地の名無しさん投稿日：2001/09/09(日) 20:25 ID:???

CWnd *cWnd =new CWnd;

32 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:03 ID:???

`rm -rf`

33 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:07 ID:???

>>30
ポケコンか？

34 名前：鮎崎はまみ投稿日：2001/09/09(日) 21:15 ID:eW1rLjjE

懐かしいなおい（ｗ
ROM BASICで作るとあとで悲惨なんだよな

35 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:16 ID:???

>>34
保存できんで泣く

36 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:18 ID:???

ROM BASIC．．．何か懐かしい名称を見た。

37 名前：ミ☆ ミホシ ◆VphA1hdY投稿日：2001/09/09(日) 21:20 ID:???

PC8801で1-line BASIC Programとか作って喜んでいた十年前。

38 名前：まろ投稿日：2001/09/09(日) 21:21 ID:???

Out of Memoryなんてでたら、スペース埋めたりしたもんだ
MZ-1500

39 名前：鮎崎はまみ投稿日：2001/09/09(日) 21:26 ID:eW1rLjjE

小学生のときポケコンで覚えたがどうもtiny basicというやつだったようで
p.と入力するとprintになる

40 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:27 ID:???

10 PRINT"MOREHA PB-400 DATTA YO!!"
20 END

41 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:28 ID:???

!　がprintだったけ？

42 名前：鮎崎はまみ投稿日：2001/09/09(日) 21:29 ID:eW1rLjjE

?だったような

43 名前：まろ投稿日：2001/09/09(日) 21:30 ID:???

>>41
？だったような

44 名前：まろ投稿日：2001/09/09(日) 21:30 ID:???

逝ってきまーす

45 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:30 ID:???

MessageBox(NULL,"(ﾟдﾟ)ｳﾏｰ","(ﾟдﾟ)ｳﾏｰ",MB_OK);

46 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:36 ID:???

ポケコン
10c.:cl.
20f.i=1to10
30loc.1,3:p."aaa"
40n.

↓

10 CLS : CLEAR
20 FOR I=1 TO 10
30 LOCATE 1,3 : PRINT "aaa"
40 NEXT

47 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:57 ID:???

10　AGE

48 名前：避暑地の名無しさん投稿日：2001/09/09(日) 21:58 ID:???

POP >>50

49 名前：本みりん投稿日：2001/09/09(日) 23:12 ID:???

100 GOSUB (ﾟдﾟ)ｳﾏｰ:

50 名前：避暑地の名無しさん投稿日：2001/09/10(月) 01:19 ID:???

50 print "age" : goto 50

51 名前：避暑地の名無しさん投稿日：2001/09/10(月) 01:46 ID:???

static a as integer ;

・・・gotoでどれだけもめたことか・・・

52 名前：避暑地の名無しさん投稿日：2001/09/10(月) 02:09 ID:???

SYSTEM

53 名前：避暑地の名無しさん投稿日：2001/09/10(月) 02:34 ID:???

53　PLEY "CDE CDE GEDC DEC"

54 名前：避暑地の名無しさん投稿日：2001/09/10(月) 02:36 ID:???

ｽﾚ立てるたびに
すぐさま消えていくんだけど
ﾄﾞｳｽﾘｬいいんだ
泣きそう

55 名前：避暑地の名無しさん投稿日：2001/09/10(月) 02:36 ID:???

>>53
Syntax Error in 53

56 名前：　投稿日：2001/09/10(月) 02:42 ID:???

５６　GOTO>>1

57 名前：寒敗ピアニｯｼﾓ(違法)投稿日：2001/09/10(月) 03:40 ID:3V6rC9SE

10 CLS

58 名前： 投稿日：2001/09/10(月) 12:07 ID:???

1000 end