いろんな言語で「Hello World」だ。ゴラァ

いろんな言語で「Hello World」だ。ゴラァ at LINUX

[1からを表示]
50:名無しさん＠お腹いっぱい。
01/04/12 17:35.net
>>42
DISPLAY HOGE ON CONSOLE. じゃなくて
DISPLAY HOGE UPON CONSOLE. じゃないかな

いくら偽者だといってもちみのソース汚すぎ。
私が清書してあげましょう。

目盛行 ---1----+----2----+----3----+----4----+----5----+----6----+----7----+---
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 *
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 SOURCE-COMPUTER. MAKER-A.
000700 OBJECT-COMPUTER. MAKER-A.
000800 /
000900 DATA DIVISION.
001000 /
001100 WORKING-STORAGE SECTION.
001200 01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
001300 /
001400 PROCEDURE DIVISION.
001500 DISPLAY HELLO-WORLD UPON CONSOLE.
001600 STOP RUN.

51:５０
01/04/12 17:37.net
げげ空白がなくなってる。ずれてるじゃんかー
結局汚いままか。

52:５０
01/04/12 17:46.net
よしできた。こんなのが書きたかったの。

IDENTIFICATION DIVISION.
　PROGRAM-ID. HELLO.
　　*
　　　ENVIRONMENT DIVISION.
　　　　CONFIGURATION SECTION.
　　　　　SOURCE-COMPUTER. MAKER-A.
　　　　　　OBJECT-COMPUTER. MAKER-A.
　　　　　　　/
　　　　　　　　DATA DIVISION.
　　　　　　　　　/
　　　　　　　　　　WORKING-STORAGE SECTION.
　　　　　　　　　　　01 HELLO-WORLD PIC X(11) VALUE 'Hello World'.
　　　　　　　　　　　　/
　　　　　　　　　　　　　PROCEDURE DIVISION.
　　　　　　　　　　　　　　DISPLAY HELLO-WORLD UPON CONSOLE.
　　　　　　　　　　　　　　　STOP RUN.

53:名無しさん＠お腹いっぱい。
01/04/12 18:01.net
結構大変だったでしょう>>50(偽５０)

54:５３
01/04/12 18:07.net
訂正
結構大変だったでしょう>>52(偽５０)

55:名無しさん＠Ｅｍａｃｓ
01/04/12 18:07.net
PROGRAM HELLO
WRITE(6,610) ' HELLO WORLD '
610 FORMAT(A20)
END

56:名無しさん＠お腹いっぱい。
01/04/12 19:39.net
emacs lisp

(print "Hello World")

57:56
01/04/12 19:40.net
>>44
で既出だった。しかも message の方が洗練されてる。打つだし脳

58:名無しさん＠お腹いっぱい。
01/04/12 21:48.net
ふと思ったが、このスレ板違いのような…(ｗ

59:名無しさん＠お腹いっぱい。
01/04/12 22:50.net
proc options(maon);
.
.

60:名無しさん＠お腹いっぱい。
01/04/12 23:09.net
<?php
　　echo "Hello, World.";
?>

61:名無しさん＠お腹いっぱい。
01/04/12 23:22.net
>>33

Windows プログラム的には

Private Sub Form_Paint()
　　Print "Hello World"
End Sub

のほうがよくない？　フォームの AutoRedraw プロパティも
デフォルトでは False だし。

62:名無しさん＠お腹いっぱい。
01/04/12 23:27.net
　┌─────┐
　│ 　　　　　　　　　　　　.|
　│　 Hello World!　　　　│
　│ 　　　　　　　　　　　　.|
　└――─――┘
　　　　　　ヽ(´ー｀)ﾉ
　　　　　　 (　へ)
　　　　　　く

63:U-名無しさん
01/04/13 01:46.net
K&R.
これからはじまった。
（これがプログラマーに永遠にHello Worldを書かせつづける原点）

64:PDF
01/04/13 03:25.net
%PDF-1.4
1 0 obj
<< /Type /Catalog /Pages 2 0 R >>
endobj
2 0 obj
<< /Type /Pages /Kids [3 0 R] /Count 1 >>
endobj
3 0 obj
<< /Type /Page /Parent 2 0 R /MediaBox [0 0 200 150]
/Resources << /Font << /F1 4 0 R >> >> /Contents 5 0 R >>
endobj
4 0 obj
<< /Type /Font /Subtype /Type1 /BaseFont /Helvetica >>
endobj
5 0 obj
<< /Length 39 >>
stream
BT /F1 20 Tf 10 100 Td (Hello World) Tj ET
endstream
endobj
xref
0 6
0000000000 65535 f
0000000009 00000 n
0000000058 00000 n
0000000115 00000 n
0000000241 00000 n
0000000311 00000 n
trailer
<<
/Size 6
/Root 1 0 R
>>
startxref
403
%%EOF

65:名無しさん＠お腹いっぱい。
01/04/13 04:38.net
xfontsel -sample "hello world"

66:Anonymousさん
01/04/14 11:22.net
10 PRINT "HELLO WORLD"

20 END

67:Anonymousさん
01/04/14 11:23.net
program Hello(input, output)

begin
writeln('Hello World')

end.

68:Anonymousさん
01/04/14 11:24.net
(defun hello

(print

(cons 'Hello (list 'World))))

69:Anonymousさん
01/04/14 11:26.net
#include <stdio.h>
void main(void)

{

　char *message[] = {"Hello ", "World"};

　int i;
for(i = 0; i < 2; ++i)

　printf("%s", message[i]);

　printf("\n");

}

70:名無しさん＠お腹いっぱい。
01/04/14 11:26.net
C:\>echo Hello World
Hello World

C:\>

逝ってきます。

71:Anonymousさん
01/04/14 11:43.net
#include <iostream.h> #include <string.h> class string
{
private:
int size;
char *ptr;
public:
string() : size(0), ptr(new char('\0')) {}
string(const string &s) : size(s.size)
{
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string()
{
delete [] ptr;
}
friend ostream &operator <<(ostream &, const string &);
string &operator=(const char *);
};

ostream &operator<<(ostream &stream, const string &s)
{
return(stream << s.ptr);
}
string &string::operator=(const char *chrs)
{
if (this != &chrs)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chrs);
}
return(*this);
}
int main()
{
string str;
str = "Hello World";
cout << str << endl;
return(0);
}

72:Anonymousさん
01/04/14 11:45.net
#!/usr/local/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;

73:Anonymousさん
01/04/14 11:46.net
PROGRAM HELLO
PRINT *, 'Hello World'
END

74:Anonymousさん
01/04/14 11:51.net
どれがいいと思う？
ヲレ的にはいにしえのRPG言語が良いのじゃ

75:Z80
01/04/14 15:12.net
　LD　　HL,MSGTBL
　CALL　PRINTOUT

サブルーチンの中は考えてません（ダメ？）。

76:名無しさん＠お腹いっぱい。
01/04/14 15:17.net
#include <syslog.h>
int main()
{
syslog(LOG_INFO|LOG_USER, "ALL YOUR BASE ARE BELONG TO US.");
return 0;
}

77:Anonymousさん
01/04/14 16:25.net
>>76
それ、「Hello World」なのか？

78:名無しさん＠お腹いっぱい。
01/04/14 16:44.net
>>29
最後の CALL は JP にしとこうよ。

OS-9 + MC680x0 きぼん。

79:名無しさん＠お腹いっぱい。
01/04/14 17:31.net
#!/usr/local/bin/ruby
print [72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 10].pack("C*")

# Just Another Perl Hacker みたいだね

80:x86 ASM
01/04/14 22:16.net
x86+MS-DOS+Debug.exe (tested on Win98)

-a cs:0
24E1:0000 0E PUSH CS
24E1:0001 1F POP DS
24E1:0002 BA0E00 MOV DX,000E
24E1:0005 B409 MOV AH,09
24E1:0007 CD21 INT 21
24E1:0009 B8014C MOV AX,4C01
24E1:000C CD21 INT 21

-e cs:e
24E1:000E 54.48 68.65
24E1:0010 69.6c 73.6c 20.6f 70.2c 72.20 6F.57 67.6f 72.72
24E1:0018 61.6c 6D.64 20.0d 63.0a 61.0a 6E.24 6E.0
-g
Hello, World

プログラムは正常に終了しました.
-

81:名無しさん＠お腹いっぱい。
01/04/14 22:54.net
as(FreeBSD+x86) maybe required i386 or later.

.text
　　　　pushl　 $0x0c
　　　　pushl　 $msg
　　　　pushl　 $0x1
　　　　pushl　 $0x4
　　　　movl　　$0x4,%eax
　　　　int　　 $0x80
　　　　subl　　$-0x10,%esp

　　　　xorl　　%ebx,%ebx
　　　　xorl　　%eax,%eax
　　　　incl　　%eax

　　　　pushl　 %ebx
　　　　pushl　 %eax
　　　　int　　 $0x80

msg:　　.asciz　"Hello, World\n"

82:名無しさん＠お腹いっぱい。
01/04/15 01:15.net
$ echo vaka | sed -e 's/vaka/Hello World/'

83:名無しさん＠お腹いっぱい。
01/04/15 01:22.net
% wget fURLﾘﾝｸ(ftp.gnu.org)
% tar zxfv hello-1.3.tar.gz ; cd hello-1.3
% ./configure ; make ; make install ; rehash
% hello

84:名無しさん＠お腹いっぱい。
01/04/15 01:38.net
>>83
むぅ冗談かと思ったら。一体何をするプログラムだ??

85:すとーるまんKo
01/04/15 01:51.net
>>84
Hello Worldはプログラムを習い始めてまず作らされます。
毎年、数百万ステップものHello Worldプログラムが作られ
再利用することも無く捨てられていきます。
まったく、資源の無駄としか言いようが無く、GNUの精神にも
真っ向から挑戦しています。
この不毛な人的リソース消費に終止符を打つため、より正しい
Hello Worldプログラムのソースをフリーソフトとして公開します。

86:名無しさん＠お腹いっぱい。
01/04/15 01:53.net
>>81
もっと短くなるよ
コンパイラが吐いたソースそのままじゃoもろくない

87:名無しさん＠お腹いっぱい。
01/04/15 05:33.net
>>86
それは、
　　　　movl　　$0x4,%eax
　　　　pushl　 %eax
とした方がバイト数減らせるとか？
ちなみに、これはコンパイラが吐いたソースではないよ。
普通にhello.Sでかいてま。教えてplease.

88:名無しさん＠お腹いっぱい。
01/04/15 14:22.net
printk(KERN_EMERG "Hello, World!\n");
machine_halt();
do_exit(0);

89:名無しさん＠お腹いっぱい。
01/04/15 15:03.net
(message-box (mapconcat 'char-to-string '(72 101 108 108 111 32 87 111 114 108 100) ""))

(message-box (prin1-to-string '(Hello Wold)))

90:名無しさん＠お腹いっぱい。
01/04/15 15:11.net
>>84
URLﾘﾝｸ(www.gnu.org)

# apt-get install hello
# hello
Hello, world!

91:名無しさん＠お腹いっぱい。
01/04/15 21:24.net
# auto-apt run
# hello

92:CCルリたん。
01/04/16 01:10.net
<HTML>
<TITLE>
Hello World
</TITLE>
<BODY>
Hello World
</BODY>
</HTML>

93:awk
01/04/16 04:57.net
ちがう >>21
#!/usr/bin/awk
BEGIN{
　print "Hello World";
}

94:WRD
01/04/16 22:38.net
@STARTUP(400)@WMODE(5)@TON(2);
@LOCATE(3;29)@COLOR(37)@WAIT(8);
Hello World.

95:Anonymousさん
01/04/16 23:18.net
# /ver/qmail/bin/qmail-inject
to: admin@hanajyan.com
hello world
ctrl + d

ををっ！なぜか師匠に差出人不明のメールが...

96:クンクン（零式）
01/04/16 23:43.net
>>95
クン・・・
まぁ、Ｌｉｎｕｘって便利なようね。。。

# /ver/qmail/bin/qmail-inject
to:ups@hanajan.com
"hello world"
ctrl + d
"give_me_UPS_to_use_AS/400"
ctrl + d
ctrl + z

クーン，クンクン

97:CCルリたん。
01/04/17 00:30.net

ruri% wall Hello World

98:ベタでスマソ
01/04/17 04:23.net
\documentclass{jarticle}
\begin{document}
Hello World
\end{document}

99:VAX DCL
01/04/19 10:28.net
$ WRITE SYS$OUTPUT "Hello World"
$ EXIT

100:名無しさん＠お腹いっぱい。
01/04/21 07:02.net
<TITLE>
Hello World in JavaScript
</TITLE>
<SCRIPT>
document.write ("Hello, world!")
</SCRIPT>

101:てーぎふ
01/04/21 22:56.net
%TGIF 4.1.16
state(0,37,100.000,0,0,0,16,1,9,1,1,0,0,1,0,1,0,'Courier',0,80640,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408,1,0,2880,0).
%
% @(#)$Header$
% %W%
%
unit("1 pixel/pixel").
script_frac("0.6").
fg_bg_colors('black','white').
page(1,"",1,'').
text('black',16,3,1,0,1,99,16,0,13,3,0,0,0,0,2,99,16,0,0,"",0,0,0,0,16,'',[
minilines(99,16,0,0,0,0,0,[
mini_line(99,13,3,0,0,0,[
str_block(0,99,13,3,0,-1,0,0,0,[
str_seg('black','Courier',0,80640,99,13,3,0,-1,0,0,0,0,0,
"Hello World")])
])
])]).

102:Y2k
01/04/21 23:37.net
#include<stdio.h>
void main()
int a=0;
{
while(1)
{
printf("%d\n",a);
a++;
}
}

103:名無しさん＠お腹いっぱい。
01/04/24 15:55.net
>>102
ハァ?

104:???????????????B
01/04/24 19:44.net
>>102はあほです。
ゆるいしてやってください。
void

105:PL/I
01/04/24 19:50.net
HW: PROC OPTIONS (MAIN);
　　　PUT SKIP LIST ('Hello World');
END HW;

106:???????????????B
01/04/26 05:11.net
test
\

107:PostScript
01/04/26 08:41.net
%!PS-Adobe-3.0 EPSF-3.0
%%Creator: 2ch-net
%%Pages: 1
%%DocumentFonts: Times-Roman
%%LanguageLevel: 2
%%EndComments

%%BeginProlog
/Hello {
　/Times-Roman findfont 10 scalefont setfont
　moveto
　(Hello, World) show
} def
%%EndProlog

[{
%%BeginFeature: *PageSize A4
　　mark { statusdict /a4tray get exec } stopped pop
　　userdict /a4 get exec cleartomark
%%EndFeature
} stopped cleartomark

%%Page: 1 1
200 200 Hello
showpage

%%Trailer
%%Pages: 1
%%EOF

108:Prolog
01/04/26 08:58.net
main:-write('Hello, World.'),nl.

109:韓国語
01/04/26 09:40.net
あにょはせよ

110:名無しさん＠お腹いっぱい。
01/04/26 13:23.net
>>102
void ､ﾊ､ﾎ､ﾏ､ｭ､ﾟ､ﾎﾆｬ､ﾀ

111:Smalltalk
01/04/29 06:57.net
Transcript show:'Hello World';cr

112:やはりここは
01/04/29 12:10.net
「日本語Mind」って、↓こんな感じでしたっけ

メインとは、
　"Hello, world!"を表示し、
　終了する。
すること。

113:初心者です
01/04/30 07:30.net
/* HelloWorld.java */
import java.awt.*;

public class HelloWorld extends Frame {
public static void main( String argv[] ) {
HelloWorld helloWorld = new HelloWorld("4月30日版　");
helloWorld.show();
}

HelloWorld(String title){
super(title);
setSize(400, 200);
setLayout(null);
this.setBackground(Color.magenta);

Label label = new Label("アンニョンハセヨセゲー");
label.setLocation(20, 50);
label.setSize(200, 50);
label.setBackground(Color.yellow);
this.add(label);
}
}

114:名無しさん＠お腹いっぱい。
01/04/30 15:57.net
echo "Hello World" > /etc/motd

115:名無しさん＠お腹いっぱい。
01/05/01 18:29.net
>>114
ガイシュツ

116:名無しさん＠お腹いっぱい。
01/05/02 01:17.net
>>115 どこ？

117:名無しさん＠お腹いっぱい。
01/05/26 19:36.net
とりあえず、ソースに「Hello, World」を直接書くのは反則にしない？

118:login:Penguin
01/05/28 19:51.net
優良！

119:login:Penguin
01/05/28 19:52.net
>>117
了解！

120:じゃないよ
01/05/30 23:18.net
>>117 を踏まえて。。。

C:\>copy con a.txt
Hello World!
^Z
1 個のファイルをコピーしました。

C:\>type a.txt
Hello World!

C:\>

逝ってきます。。。

121:メッセンジャーサービス
01/06/01 01:18.net

$ smbclient -M YOUR_WINDOWS_CLIENT_NAME
(snip)
Connected. Type your message, ending it with a Control-D
Hello! World
(Ctrl-D)
sent 14 bytes
$

122:sed
01/06/01 01:24.net

$ sed -r 'a\
Hello! World
'

リターンキーがポイント

123:メッセンジャーサービス
01/06/01 01:35.net

誰かAppleScriptお願い・・・

124:age
01/06/06 00:12.net
age

125:8086
01/06/06 02:20.net
mov ah, 9
mov dx, msg
int 21h
ret
msg db 'Hello World!$'

126:PL/SQL block
01/06/06 02:21.net
begin
dbms_output.put_line('Hello World!');
end;
/

127:訂正
01/06/06 02:24.net
>>125
8086 + MS-DOS

128:http
01/06/06 02:25.net
% telnet webserver 80
GET /helloworld.txt HTTP/1.0

以下略

129:秀丸
01/06/06 02:27.net
message "Hello World!";

130:Tcl/Tk
01/06/06 02:54.net
% puts "Hello World"
Hello World
% button .a -text "Hello World" -command {puts "Hello World"}
.a
% pack .a

＃好きなだけ押してくれ。

131:login:Penguin
01/06/06 03:07.net
echo "uryyb, jbeyq" | /usr/games/rot13

132:login:Penguin
01/06/06 03:08.net
navigator URLﾘﾝｸ(www.seri.sakura.ne.jp)

133:1行野郎
01/06/06 03:13.net
wget -q -O - URLﾘﾝｸ(cocoa.2ch.net) | awk -F, '{$0=$4;gsub(/<[^>]*|&[a-z]+;/,"");gsub(/[^A-Za-z ]/,"\n");gsub(/\<\w\>/,"");print}' | grep '\w' | sort | uniq -c | sort -nr | awk 'NR==1{$1="";print}'

134:133
01/06/06 03:29.net
w3mの方が簡単だった。read.cgiってwgetのアクセスを拒否するのね。
w3m -dump 'URLﾘﾝｸ(cocoa.2ch.net)' | awk -F\[\"\'\] '{print $2}' | sort | uniq -c | sort -nr | awk 'NR==2{$1="";print}'

135:ドラえもん
01/06/06 23:31.net
# 事前に尻尾のスイッチを引いてBluetoothを活性化しておくこと
% tmtp doraemon.cat.robo 2173
Connected to tmtp.doraemon.cat.robo in year 2173.
220 tmtp.doraemon.cat.robo Time Machine Server (Version 1.5) Ready.
User (tmtp.doraemon.cat.robo(sewashi)): nobita
Password:
230 Konnichiwa, boku doraemon desu.
tmtp> set lang=en
200 SET command successful.
tmtp> HELO World
200 Hello World!
tmtp>

136:HTML
01/06/08 06:42.net
<FORM method=POST action="hoge/bbs.cgi">
<input type=submit value="書き込む" name="submit">
名前：<INPUT TYPE=text NAME=FROM SIZE=19 VALUE=名無しさん＠お腹いっぱい。>
E-mail（省略可）：<INPUT TYPE=text NAME=mail SIZE=19 VALUE=sage>
<TEXTAREA rows=5 cols=70 wrap=OFF name=MESSAGE value="Hello! World"></TEXTAREA>
<INPUT type=hidden name=bbs value=linux>
</FORM>

137:名無しさん＠お腹いっぱい。
01/06/08 06:43.net
sa

138:C# (Web Service)
01/06/08 07:10.net
// helloworld.asmx
<%@ WebService Language="C#" class="HelloWorld" %>
using System;
using System.Web.Services;

public class HelloWorld {
　　[WebMethod]
　　public String HelloService() {
　　　　return "Hello World";
　　}
}

139:あなたも億万長者をめざしませんか?
01/06/08 14:17.net
URLﾘﾝｸ(www2.csc.ne.jp)

140:名無しさん＠お腹いっぱい。
01/06/08 17:21.net
１３９　は　　ブラクラです

141:汎用機マンセー
01/06/09 06:53.net
//JOB
/*MESSAGE HELLO WORLD
//DUMMY EXEC PGM=JDJDUMMY
//

142:名無しさん＠お腹いっぱい。
01/06/09 07:12.net
>>141
おまえ●立汎用機か？

143:141
01/06/09 14:49.net
>>142
日●汎用機だが、何か？
ってかそれがわかる時点でｵﾏｴﾓﾅｰ

144:Winおばさん厨
01/06/09 16:01.net
>>143
おばさんにはそんなのわかんないよ。
SHなら少しはわかるけど。すうぱぁＨだべ？

145:scripter
01/06/10 17:44.net
#!/bin/csh -f
echo "Hello World"

146:ドラえもん
01/06/10 18:09.net
本当のscripterならこれだろ

#!/bin/sh
echo "Hello World"

147:login:Penguin
01/06/10 19:37.net
FCB 3F,??
FCB 'H','E','L','L','O',' ','W','O','R','L','D',00
??のところは覚えなし

148:login:Penguin
01/06/10 20:18.net
>>146
おしい！ >>4で既出

149:名無しさん＠Ｅｍａｃｓ
01/06/10 21:36.net
% emacs -f view-hello-file

150:ひねくれもの
01/06/10 22:05.net
% vi hello.c
% cc -c hello.c
% strings hello.o

151:Makefile
01/06/10 22:06.net
ALL:
@echo "Hello, World!"

152:scripter
01/06/10 22:07.net
hoge@root[~](1036)>cat aa.awk
{
printf("Hello World \n");
}
hoge@root[~](1037)>echo |awk -f aa.awk
Hello World
　　…かなり無理が…

153:login:Penguin
01/06/10 22:39.net
>>152 root を常用するのはやめれ(w

/var/qmail/control/me に World と書いてメールを出すと、
相手方のメールサーバに

HELO World

と名乗るかもしれんが確かめてない。

postfix なら myhostname = World
sendmail ならばこうかな？（自信なし）
DwWorld
Dj$w

# あ、でも HELO じゃなくて EHLO だな。

154:おく
01/06/10 23:08.net
>>152

% cat bb.awk
BEGIN{printf("Hello World\n");}

% awk -f bb.awk
Hello World

155:bash
01/06/11 00:25.net
$ PS1="Hello World"
Hello World

156:scripter(152)
01/06/11 20:46.net
>>154
うまい。１本とられた。。。

157:login:Penguin
01/06/12 00:12.net
>>156 サブぅ
とっくのガイシュツ >>93

158:今さらawkを出すならこのくらいやらないと
01/06/12 02:09.net
echo Hello | awk -v ORS=" World\n" 1

159:おまえもな
01/06/12 21:25.net
>>157 それをいうなら「キシュツ」だろ。

160:login:Penguin
01/06/12 22:27.net
ただ今外出中。

161:login:Penguin
01/06/12 23:34.net
>>159
新鮮だな・・・

162:login:Penguin
01/06/12 23:57.net
>>159 「おまえもな」それをいうなら。
　　　　 ∧＿∧
　　　　（　´∀｀）おまえもな → オマエモナー → モナー
　　　　（　　　　）
　　　　｜｜　|
　　　　（_＿）＿）

URLﾘﾝｸ(www.2ch.net)
URLﾘﾝｸ(shake-hip.com)
URLﾘﾝｸ(shake-hip.com)

163:login:Penguin
01/06/12 23:58.net
>>159
うん。いいね。

164:login:Penguin
01/06/13 00:01.net
Linuxのアセンブラで
Hello,world!
って画面の左上に表示させるのってどうするの？

165:名無しさん＠お腹いっぱい。
01/06/13 00:33.net
MsgBox　"Hello World!"

166:名無しさん＠お腹いっぱい。
01/06/13 00:35.net
WScript.Echo("Hello World!");

167:名無しさん＠お腹いっぱい。
01/06/13 06:05.net
>>159
> >>157 それをいうなら「キシュツ」だろ。
２ちゃんねる用語で"キシュツ"ってあるんだよ。
まー、最初は読み間違いから始まったんだけどな。
ＦＡＱ読んでみろ。 URLﾘﾝｸ(www.2ch.net)

168:１６７
01/06/13 06:33.net
>>167
> ２ちゃんねる用語で"キシュツ"ってあるんだよ。
ガイシュツだ。鬱死。

169:これ以上さむくしないで
01/06/13 22:43.net
>>167

170:さらなる活用形
01/06/13 22:56.net
既出　→　ガイシュツ　→　外出　→　帰宅　→ キタク

てことで、これからは「キタク」と言いましょう。

171:login:Penguin
01/06/13 23:14.net
>>17
ｲﾔﾃﾞｽ｡｡

172:login:Penguin
01/06/14 00:40.net

メインとは
"Hello world."を表示し
スタック検査。

173:名無しさん＠こんにちは世界
01/06/14 02:25.net
$ su
Password:
# cd /sys/i386/conf
# cp GENERIC HOGE
# vi HOGE
# grep ident HOGE
ident Hello_World
# config HOGE
# cd ../../compile/HOGE
# make depend && make && make install && reboot
-----------------------------------------------------
(login)
FreeBSD/i386(hoge)(ttyv1)

login:hoge
Password:
Last login: Thu Jun 14 01:09:42 from 10.20.774.3
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991, 1993, 1994
The Regents of the University of California. All rights reserved.

FreeBSD 4.3-RELEASE (Hello_World) #0: Sat Apr 21 10:54:49 GMT 2001
bash-2.05$

174:login:Penguin
01/06/14 02:26.net
disp "Hello world.".

175:TeraTermLanguage
01/06/14 02:54.net
connect 'sunsite.sut.ac.jp:80'
sendln 'GET /java/tutorial/getStarted/application/index.html'

Hello World Applicationというページだから、どっかに表示されてると思う。

176:login:Penguin
01/06/14 05:18.net
org 100h
mov dx,offset msg
mov ah,09h
int 21h
mov ax,4c00h
int 21h
:msg
db 'Hello World'

177:176
01/06/14 05:20.net
おっと、>>80でがいしゅつだった

178:Anonymous
01/06/14 22:09.net
>>176-177
dosの.asm(masm?)とは燻し銀じゃ

179:台本スクリプト
01/06/15 03:24.net
｛｝の間を削除せよ

｛楠田｝こんにちは｛楠田枝里子デ～ス
　愛川　司会の愛川欽也です
　（略）
　両者　な～るほど、ザ、｝ワールド！｛
　愛川　春の祭典スペッシャ～ル｝

180:Graffitti(R)
01/06/15 03:44.net
メモ帳(Memo)ボタンを押す
[h][逆向きの3][L][L][o][.][/(上から)][－(左から)]
[w][o][R(一筆書きで)][L][o(下から始め時計回り)][.][↑(上へ線を引く)]

181:sage
01/06/15 03:45.net
最後に
[/(上から)]

182:携帯電話メール(J-phone)
01/06/15 03:50.net
大文字英字モードにする
4433555右555666################右右96667775553

「!」が長いゾ

183:>>179
01/06/15 09:51.net
% awk -v RS='{.*}' -v ORS="" 1
{楠田}こんにちは{楠田枝里子デ～ス
　愛川　司会の愛川欽也です
　（略）
　両者　な～るほど、ザ、}ワールド！{
　愛川　春の祭典スペッシャ～ル}
CTRL-D

184:login:Penguin
01/06/15 11:43.net
Oracle iDevelop 200

185:0 で講師曰く，Oracle Portal 用 Portlet で Hello World プログラムを書くと 300 行以上になるが，おそらく世界最長の Hello World だろうだそうな。実際にソース見たら，ほとんどイベント処理。VC++ のスケルトンよりも長い。

186:login:Penguin
01/06/15 12:07.net
Sub Main()
Dim a As Variant
Dim c As Integer
Dim i As Integer

a = Array(72, 29, 7, 0, 3, -79, 55, 24, 3, -6, -8, -87, -3)
For i = 0 To UBound(a)
c = IIf(i, c + a(i), a(0))
Debug.Print Chr(c);
Next
End Sub

187:login:Penguin
01/06/15 13:30.net
↑の For 分の次は
c = a(i) - (c <> 0) * c
という手もあるな。

188:login:Penguin
01/06/15 13:32.net
ウゲ，字間違えた。
For 分→For 文。
鬱だ志乃う。

189:login:Penguin
01/06/15 18:44.net
12345678901234567890
Hello World

11文字より短く出来るんだろうか？

190:standard pascal
01/06/15 19:14.net
program hello(output);

begin
　writeln( "Hello World." )
end.

あってるよな？

191:AppleScript
01/06/15 19:21.net
display dialog "Hello World!"

192:HyperCard
01/06/15 21:36.net
put "Hello World!"

193:ありがとう183
01/06/19 01:32.net
　H,Es,La,Li,O,W,Os,Ra,Lu,Dy

（水素、アインスタニウム、ランタン、リチウム、酸素、
　タングステン、オスミウム、ラジウム、ルテチウム、
　ジスブロシウム）

　このカンマ区切りの元素記号を記号単位に解釈し、最終的に
Hello! World を導くスクリプトを示せ。

194:192
01/06/19 01:34.net
などとイテミル。（←弱気）

195:>>192
01/06/19 02:44.net
echo 'H,Es,La,Li,O,W,Os,Ra,Lu,Dy' | tr -cd A-Z

196:login:Penguin
01/06/19 03:33.net
2ch% gst

"Major GC flip... done, used space = 62%"
GNU Smalltalk Ready

"Hello World" printNl!
st> stdin:1: Undefined variable printNl referenced
'Hello World' printNl!
st>
Execution begins...
'Hello World'
returned value is nil
1155 byte codes executed
which took 0.001 seconds, giving 1155000 bytecodes/sec
90 primitives, percent 7.79
self returns 5, inst var returns 2, literal returns 6
101 method cache lookups since last cleanup, percent 8.74
45 method cache hits, 56 misses, 44.55 percent hits
2ch%

197:パワポ
01/06/19 13:14.net
Sub HelloWorld()
ActivePresentation.Slides(1).Shapes.AddLabel(msoTextOrientationHorizontal, 100, 100, 60, 150).TextFrame.TextRange.Text = "Hello World"
End Sub

198:秀まろ
01/06/19 13:18.net
insert "Hello World";

199:login:Penguin
01/06/19 16:06.net
Sub HelloWorld()
Dim a As Variant
Dim p As Long
Dim i As Integer
Dim n As Integer

p = 1625176704
n = 112
a = Array(0, 2, 5, 8, 11, 15, 16, 8)
While p > 0
p = Int(p / 8)
n = n + a(p Mod 8) - 8
Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + ((p Mod 8) = 7) * 79);
Wend
End Sub

200:Human68k
01/06/19 23:57.net
　pea　　msg
　.dc.w　$ff09
　addq.l　#4,sp
　.dc.w　$ff00
msg:
　.dc.b　"Hello, World",0

201:login:Penguin
01/06/20 01:25.net
>>194
case sensitiveで頼む

202:よ。

203:zilog inside
01/06/20 04:06.net
ORG 0100H
SYSTEM EQU 0005H
STROUT EQU 09H
CR EQU 0DH
LF EQU 0AH

ORG 0100H
LD DE,MSG
LD C,STROUT
CALL SYSTEM
RET

MSG: DEFM 'Hello World'
DEFB CR,LF,'$'

204:zilog inside
01/06/20 04:11.net
しまった。 >>29 で激しくガイシュツであった…
しかも system-reset で CP/M に戻ってるし。

205:login:Penguin
01/06/20 13:38.net
>>198 の改訂版。

Sub HelloWorld()
　　Const c As Long = 167478560
　　Dim a As Long
　　Dim p As Long
　　Dim q As Integer
　　Dim n As Integer

　　p = 1622817408
　　n = 112
　　While p > 0
　　　　p = Int(p / 8)
　　　　q = p Mod 8
　　　　a = c Mod 16 ^ (q + 1)
　　　　n = n + (a - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
　　　　Debug.Print Chr(n + (((n - 104) Mod 15) = 0) * 32 + (q = 6) * 80);
　　Wend
End Sub

206:203
01/06/20 13:43.net
あ，13 行目と 14 行目を
n = n + (c Mod 16 ^ (q + 1) - c Mod 16 ^ (q - (q = 0))) / 16 ^ q - 8
とまとめれば，変数 a は不要でした。

207:login:Penguin
01/06/20 13:56.net
(q - (q = 0)) は Sgn(q + 1) * q にすることも可。
>>203 の (q = 6) は (-Int(q / 6)) にすることも可。
比較演算子っていんちきくさいじゃん。なんとなく。
スレ違いかも。

208:194=183
01/06/20 15:20.net
>>200
ムチャゆーな。
そういうキミには >>183 を英語で出力するよう修正願おう。

209:login:Penguin
01/06/20 21:52.net
PC-8801
VRAMの先頭アドレスってC000Hからで合ってたっけ？

LD HL,0C000H
LD BC,#MSG

LD B,11

LOOP:
LD A,(BC)
LD (HL),A
INC HL
INC BC
DJNZ LOOP

.data
MSG: DC "HELLO WORLD"

210:207
01/06/20 21:53.net
スマソ。LINUX板だった。

211:いいんじゃねぇ～の
01/06/20 22:02.net
>>208
いいんじゃね～の
10 print "Hello World"
20 goto 20
っていうのも出てるし（藁

212:login:Penguin
01/06/20 23:50.net
>>207
だせっ、バグバグじゃん。そのプログラムは何番地に格納されんだよ。
LDIRぐらい使えよ。

213:ルーク、forthだ、forthを使え
01/06/20 23:55.net
: MAIN
　　　　"Hello World" SPRINT ;

214:login:Penguin
01/06/20 23:57.net
hello:-write('Hello World'),nl.

215:login:Penguin
01/06/21 01:03.net
>>212
そのProlog、おもいっきりガイシュツです

216:login:Penguin
01/06/21 01:41.net
to hello
cs hideturtle home penup
lt 90 fd 100 rt 90
pendown fd 40 bk 20
repeat 2 [rt 90 fd 20]
penup lt 90 fd 30 lt 180
pendown fd 20 rt 90 fd 40 repeat 3 [rt 90 fd 20]
penup bk 30 rt 90 bk 20
pendown fd 40
penup rt 90 fd 30 lt 90
pendown bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown repeat 2 [fd 40 bk 40 rt 90 fd 20 lt 90] fd 40 bk 40
penup rt 90 fd 30 lt 90
pendown repeat 4 [fd 20 rt 90]
penup rt 90 fd 30 lt 90
pendown fd 20 rt 90 fd 20
penup fd 30
pendown repeat 4 [fd 20 rt 90] fd 20 lt 90 fd 20
end

217:login:Penguin
01/06/21 01:55.net
>>207
Bレジスター破壊しまくり藁

LD DE,0C000H
LD HL,#MSG

LOOP:
LD A,(HL)
OR A
RET Z
LDI
JR LOOP

.data
MSG: DC "HELLO WORLD",0

って感じかな？

218:nanashi
01/06/21 02:01.net
>>209
それっておもいっきりLinuxねた。
"Just for Fun "(P.31)

219:login:Penguin
01/06/21 02:02.net
>>215
おーい、だからさ
>>210 氏が指摘してるようにブロック転送命令使えってばよぅ。

220:217
01/06/21 02:06.net
あ、すまん、使ってたな。しかも不定長に対応だな
一滴マス

221:210
01/06/21 02:20.net
>>218
いやいや、不定長つうたって文字列なら結局は固定長でしょ。
で、何も文字列の最後にターミネタ（0）じゃなくとも、文字列の頭に文字数でもいいわけでさ。
PASCALなんてそうだっけ？（オレはターパスしかしらんけど）
で、文字数があればちゃんとLDIRが使えるわけ。
Z80なんて速度遅いわメモリ少ないわで、さまざまなノウハウがあるわけよ。
ま、>>207は何よりBレジが痛いんだけどね。
全然LINUX板ネタじゃないんで、もう逝くよ。

222:218
01/06/21 02:43.net
かえってきました

>>219
あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入
れてLDIRでおしまい、ですね。

誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。
また一滴マス。

223:名無し
01/06/21 04:01.net
変数使ってみました。ちょいインデントが不安。
public class Hello
{
　　public static void Main(string[]args)
　　{
　　　　string a="Hello World";
　　　　System.Console.WriteLine(a);
　　}
}

224:login:Penguin
01/06/21 05:27.net
with io;
package body helloworld is

use io;

begin -- main
　　put("Hello World");
　　new_line;
end helloworld;

225:login:Penguin
01/06/21 15:07.net
>>222
これＰＡＳＣＡＬ？

226:login:Penguin
01/06/21 15:26.net
set label "Hello World" at screen 0.5,screen 0.5
set border 0
set noxtics
set noytics
set xrange [0:1]
set yrange [0:1]
plot -1 notitle

227:login:Penguin
01/06/21 15:37.net
>>218
同じようなことを N88-BASIC の DRAW 命令でやろうとしたけどリファレンスが
なくて断念。ダセッ<俺。

228:login:Penguin
01/06/21 15:47.net
'# hello.vbs で保存してダブルクリック
dim EXL
set EXL=WScript.CreateObject("Excel.Application")
EXL.Workbooks.Add
EXL.Cells(1,1).Value="Hello World"
EXL.Visible=True

229:225
01/06/21 15:50.net
間違えた，スマソ。
>218 は >214 が正解。

230:login:Penguin
01/06/22 13:53.net
>>223
おそらくAdaではないかと思われ。
ロートル国防省からの刺客?

231:login:Penguin
01/06/22 14:19.net
dialog "Hello world",0,"hogehoge"

232:login:Penguin
01/06/22 18:21.net
Basic09 きぼーーんぬ

233:名無しさん＠お腹いっぱい。
01/06/22 22:58.net
アセンブラでお願いします

234:login:Penguin
01/06/23 00:07.net
>>231
既に出ているが、何か？

235:login:Penguin
01/06/23 00:40.net
import com.nttdocomo.ui.*;
public class HelloIJava extends IApplication implements SoftKeyListener
{
private Panel panel;
public HelloIJava(){}
public void start()
{
panel=new Panel();
panel.add(new Label("Hello !!",Label.CENTER));
panel.setSoftLabel(Panel.SOFT_KEY_1,"Quit");
panel.setSoftKeyListener(this);

Display.setCurrent(panel);
}
public void softKeyPressed(int softKey)
{
if (softKey==Frame.SOFT_KEY_1)
{
terminate();
}
}
public void softKeyReleased(int softKey){}
}
第1のポイントのゴールはイワツバメが彼が行ったことを行ってはならなかったと
単に強調すること次のとおりです:これは受理可能ではありません。なんちゃって

236:login:Penguin
01/06/23 01:00.net
10 "Hellow world" /
20 #=10

237:login:Penguin
01/06/23 02:43.net
$ cat Hello\ World
echo $0

色々問題があるが

238:。

239:Modula-2
01/06/24 00:04.net
MODULE Hello;

FROM InOut IMPORT WriteString, WriteLn;

BEGIN
　WriteString('Hello, world.');
　WriteLn();
END Hello.

240:Basic-09 >>230
01/06/24 00:14.net
PROCEDURE Hello
(* This is a sample of Basic09 *)
(* usage: RunB("Hello") *)

　print #1, "Hello, world"
end

241:hello.tcl
01/06/24 00:29.net
wm title . "Hello, world"
label .l -relief sunken -border 2 -text "Hello, world."
button .b -text "Bye, world." -command {exit}
pack .l -side top -padx 10 -pady 5
pack .b -side right

242:hello.vl
01/06/24 15:37.net
module main();
initial begin
$display("Hello,world");
$finish;
end
endmodule

243:login:Penguin
01/07/19 05:42.net
倉庫入りしそうじゃねーか、ゴルァ age

244:login:Penguin
01/07/19 05:44.net
倉庫入りは下げでﾚｽしても阻止できるぞ

245:login:Penguin
01/08/10 04:11.net
age

246:login:Penguin
01/08/10 06:18.net
>>11
これのどこがまずいの？

247:login:Penguin
01/08/10 10:06.net
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
begin
write('Hello,World!');
end.

248:login:Penguin
01/08/10 14:08.net
<HTML>
<B>Hello,world</B>
</HTML>

249:login:Penguin
01/08/10 14:33.net
#include <stdio.h>

long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};

int main( void)
{
int iLine;
int iBank;
int iBit;

long lTest = 0;

for(iLine = 0;iLine < 5;iLine++){
for(iBank = 0;iBank < 2;iBank++){
for(iBit = 0;iBit < 32;iBit++){
lTest = 1 << iBit;
if( (lMsg[iLine][iBank] & lTest) != 0){
printf( "*");
}
else{
printf( " ");
}
}
}
printf( "\n");
}
getchar();
return 0;
}

250:login:Penguin
01/08/28 12:50 1oArpc0c.net
age

251:login:Penguin
01/08/28 16:13 jaPRCAI6.net
ぼんじゅーる。るもんど。

252:login:Penguin
01/08/29 01:24 ZjU6i9ug.net
long lMsg[ 6][ 2] = {
0x00012024L, 0x00420015L,
0x00712724L, 0x0072D395L,
0x00892fBCL, 0x004A3455L,
0x068920A4L, 0x004A1455L,
0x02712724L, 0x0072138AL,
0x00000000L, 0x00000000L
};

why2次元。

253:login:Penguin
01/08/29 01:32 ZjU6i9ug.net
(setq msg "Hello World")
(message msg)

echo "既出だったらごめんね"

254:login:Penguin
01/08/29 07:02 uBl.KZOo.net
48 65 6C 6C 6F 20 57 6F 72 6C 64

これじゃ駄目？

255:既出か？
01/08/29 07:27 c59II4ig.net
\documentstyle[a4j]{jarticle}
\begin{document}
\noindent
Hello World.
\end{document}

256:login:Penguin
01/08/29 12:31 SDRDaKDc.net
GLOBAL DRAWING MODULE hello();

BEGINMODULE

text (#1, vec (0, 0), 0, "Hello World": tsize=50, tslant=0);
ENDMODULE

257:login:Penguin
01/08/29 12:58 fnFRaVHc.net
SNDBRKMSG MSG('HELLO WORLD') TOMSGQ(*ALLWS)

258:login:Penguin
01/08/29 13:53 SmuEce8k.net
int init_module(void)
{
printk("<1>Hello World\n");
return 0;
}

259:コブラ
01/08/31 01:33 Ihpm/akI.net
(defun hw(msg)
(if (null msg) 'nil
(princ msg)))

(hw '(Hello World))

(defun hw2()
(princ '(Hello World)))

(hw2)

260:　
01/08/31 01:44 p7lv3A8E.net
これはもう出た？

Makefile
--------------
all:Hello

Hello:
echo "HelloWorld"
-------------
make

261:login:Penguin
01/08/31 02:28 kzmx.r22.net
module hello;
initial $display("Hello, World!!");
endmodule

262:日本語
01/08/31 03:21 k4XBpcQ6.net
こんにちは世界

263:ひまわり
01/08/31 06:00 ZltyaOwY.net
ヒネリが無いぞ >>259

「こんにちは世界」と、言う。

264:既出ならすんまそん。
01/08/31 06:43 200uXQHQ.net
DECLARE
/*オラクルのPL/SQLだ。*/
BEGIN
DBMS_OUTPUT.PUTLINE("Hello World !!");
END;
/

265:各無しさん＠Ｅｍａｃｓ
01/09/01 00:36 /qbYDcAI.net
while true;do E='Hello World.';N=1;while [ $N -le ${#E} ];do echo -n "$(echo $E|cut -b$N)";let N+=1;done;N=1;while [ $N -le ${#E} ];do sleep 1;echo -ne "\b \b";let N+=1;done;sleep 1;done

266:各無しさん＠Ｅｍａｃｓ
01/09/02 23:05 tNGvVpZM.net
(define (script-fu-hello-world) (let* ((g (car (gimp-image-new 512 128 0)))
(r (car (gimp-layer-new g 512 128 0 "Hello World" 100 0)))
(w '(#(8 9 30 83 56 71 71 2 79 155 55 85 30 90 28 158)
#(98 94 119 60 84 58 88 140 122 104 103 118 90 62 108 66)
#(136 11 127 144 140 131) #(156 10 150 143 160 129)
#(171 66 170 120 195 137 213 76 177 66 202 89 195 119 178 112)
#(221 -14 226 155 271 70 287 152 343 -29 290 89 276 25 242 108)
#(330 57 310 113 339 133 356 67 330 58 347 81 336 113 324 103)
#(365 35 368 137 379 95 408 64 378 81) #(428 16 397 142 412 128)
#(458 76 422 98 454 115 458 143 478 15 453 105 437 105)
#(495 -20 476 159 472 140 517 -2))) (s (cons-array 32 'double)))
(gimp-image-undo-disable g) (gimp-image-add-layer g r 0) (gimp-edit-fill r 1)
(while (begin (set! c (car w)) (set! l (length c)) (> l 0)) (set! n 0)
(while (< n l) (aset s n (aref c n)) (set! n (+ n 1)))
(gimp-free-select g n s 0 1 1 8) (set! w (cdr w)))
(gimp-edit-fill r 0) (gimp-selection-clear g) (gimp-image-undo-enable g)
(gimp-image-clean-all g) (gimp-display-new g) (gimp-displays-flush)))
(script-fu-register "script-fu-hello-world"
"<Toolbox>/Xtns/Script-Fu/Misc/Hello World" "Beginner's instruction."
"2ch <age>" "2ch" "2001" "")

267:login:Penguin
01/09/03 02:07 jDGRRFRM.net
cat <<EOF | mail -s 脅迫 tarou@fxxxtv.co.jp
あのことは誰にもいいません。そのかわり、わがままかも
しれませんが、お願いがあるのです。本番中に3回まわって、
「Hello World」
と絶叫していただきたいのです。今月中に実行してください。
ご無理なようでしたら結構です。奥様にすべて打ち明ける
覚悟はしております。
かしこ。
EOF

268:login:Penguin
01/09/03 10:21 5UuSjmvg.net
10 CLS
20 Dim X,Y,Z
30
40 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
50 Data 0,0,1,1,1,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,1,1,1
60 Data 1,0,0,1,0,0,0,0,0,1,1,1,1,0
70 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
80 Data 0,1,0,0,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0
90 Data 0,1,0,1,0,0,0,0,0,1,0,0,0,1
100 Data 1,1,1,1,1,0,1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0
110 Data 0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1
120 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
130 Data 1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
140 Data 0,1,0,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0
150 Data 1,0,0,1,0,0,0,0,0,1,0,0,0,1
160 Data 1,0,0,0,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1
170 Data 0,0,1,1,1,0,0,0,0,1,0,1,0,0,0,1,1,1,0,0,1,0,0
180 Data 0,1,0,1,1,1,1,1,0,1,1,1,1,0,0
190 FOR Y=1 TO 5
200 FOR X=1 TO 60
210 Read Z
220 PSet(X+100,Y+100),Z
230 NEXT X
240 NEXT Y

かっこ悪いですか？

269:ABAP
01/09/07 00:04.net
REPORT ZSAPEDIT.

write 'Hello, World'.

270:CASLII
01/09/07 02:27.net
HELO START
OUT BUF,LEN
BUF DC "Hello World!"
LEN DC 11
RET
END

次ページ