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

いろんな言語で「Hell ..

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

271:元 TeXnician
01/09/08 18:20.net
>>252
メタフォントでHello, world!
なる図形を表示させる奴書いてくれよ。
それをネタに日本語によるオリジナルなメタフォントの教科書書いてくれよ。
いま、メタフォントはなあ、
「はろーワールドすら書けないろくでなし言語」として蔑まれているんだよ。
それを救うためにはメタフォントでハローワールドしかないんだよ。

272:login:Penguin
01/09/14 12:45 kahe/Yro.net
age

273:login:Penguin
01/09/14 12:47 hpMFThis.net
sageてもうた。今度こそage

274:デフォルトの名無しさん
01/09/14 12:54 RxM/qzyg.net
>>40
showpageが抜けとるの

275:login:Penguin
01/09/14 21:38 DnAyJxV2.net
$ yes "Hello World"

276:login:Penguin
01/09/23 23:52 akzhrDq6.net
>>77
今更だが、>>76は"ALL YOUR BASE ARE BELONG TO US."でウケを狙ったのでは
ないだろーか？
ってゆーか、このネタを知っている人は多いのだろうか？
hattenやwasabiよりは少ないような気がする。

277:Smalltalk-72
01/09/24 12:01 R4t.M4XY.net
'Hello World'!
ってSmalltalk-80以降も同じか (藁

278:login:Penguin
01/09/30 21:55 Ymabq/h..net
<IMG SRC="URLﾘﾝｸ(www.nitroplus.co.jp)">

279:いやー
01/09/30 23:44 3EetH5nk.net
PC-9801 NEC Cop
MS-DOS 1987 Ver1.0

A:\>DATE
09-11-1987 11:32

A:\>ECHO Hello!
Hello!

A:\>run word
→あなたは不正な処理をしました。再起動します。

　ゴルァ!(`へ /

280:Oracle
01/10/01 01:17 7ZxH9NKc.net
$ sqlplus system/manager

SQL*Plus: Release 9.0.1.0.0 - Production on 月 Oct 1 01:17:47 2001

(c) Copyright 2001 Oracle Corporation. All rights reserved.

Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Production
に接続されました。
SQL> select 'Hello World' from DUAL ;

'HELLOWORLD
-----------
Hello World

SQL> exit
Oracle9i Enterprise Edition Release 9.0.1.0.0 - Production
With the Partitioning option
JServer Release 9.0.1.0.0 - Productionとの接続が切断されました。
$

281:login:Penguin
01/10/01 01:28 GBmwHvVA.net
%mail mark
Hi, Mark.
I need the "Hello world" program.
Please send immediately.
.
%exit

282:いやー
01/10/01 01:37 iFlw4rCA.net
MSX RAM 64kb Panasonic Cop
MSX-BASIC 1989

LOAD "TEST.DAT"

list[RET]

10 CLS
20 LOCATE 10 10
30 PRINT "Hello!"

He...→メインメモリが不足しております。再起動します。

　ゴルァ!(`へ /

283:login:Penguin
01/10/01 10:12 VCOUIYL2.net
>>272が好き

今、一応全部見たつもりなんですがネットワーク系はまだの気が？

284:login:Penguin
01/10/01 12:24 XVJTd5fU.net
% banner "Hello World"

285:login:Penguin
01/10/01 22:59 VCOUIYL2.net
$host 216.92.108.222

286:login:Penguin
01/10/02 03:10 Q3YDZ.Ck.net
URLﾘﾝｸ(63.240.62.41)

287:海老塩
01/10/06 00:52 Y76.IDO

288:c.net

289:NASM
01/10/06 18:41 ifhTHbDY.net
section .text
global _start

msg db 'hello, world', 0x0A
msglen equ $ - msg

_start:
mov ecx, msg
mov edx, msglen
mov eax, 4
mov ebx, 1
int 0x80
mov eax, 1
mov ebx, 0
int 0x80

290:login:Penguin
01/10/08 21:50 xEU6d7hs.net
あげ

291:login:Penguin
01/10/08 22:54 Pb1MUUyg.net
i=0
for i=1 to 100
i=i+1
print "Hollow"
next i
stop : end

BASICです。

292:login:Penguin
01/10/27 08:01 i+fZmFso.net
age

293:login:Penguin
01/10/27 10:16 xSKauLzE.net
age:$ cat /etc/lilo.conf
delay = 50
vga = extended
message = /boot/msg.txt
image = /vmlinuz
root = /dev/hda3
label = plamo
read-only

age:$ cat /boot/msg.txt
Hello! World

age:$

294:login:Penguin
01/10/27 10:19 xSKauLzE.net
>>287
Hollow Werld
ですか？

295:login:Penguin
01/10/27 16:18 LklSfNVx.net
age

296:課長
01/11/04 07:34 egcekF+k.net
在宅勤務とやら、訳がわからんものが始まったとたんにこれだ。
お前らちゃんとコード書けよ！そのためのネットワークだろが。
ageとくからな。

297:login:Penguin
01/11/05 13:47 xmx282/P.net
(with-temp-buffer
(insert "Uryyb jbeyq!")
(mule-caesar-region (point-min) (point-max))
(message (buffer-string))
)

298:login:Penguin
01/11/16 05:01 L78f4K5Y.net
hello!

299:各無しさん＠Ｅｍａｃｓ
01/11/16 05:22 lb+o8fJv.net
#!/bin/nice sh

TBL='Hello World00112233'
TRL='abcdefghijklmnopqrs'
COL=80; SPD=0; OFF=0

RANDOM=$(date +%s)
LEN=$( echo -n "$TBL" | wc -c | sed 's/ //g' )
ROW=$( I=0; while [ $I -lt $COL ]; do
echo -n $TRL; let I+=$LEN; done | cut -b1-$COL )

STATUS=0; while [ $STATUS -eq 0 ]; do

RND=$[$RANDOM&7]
if [ $RND -eq 0 ]; then let SPD-=1
elif [ $RND -eq 7 ]; then let SPD+=1; fi
if [ $SPD -lt -3 ]; then SPD=-3
elif [ $SPD -gt 3 ]; then SPD=3; fi

let OFF+=$SPD
while [ $OFF -lt 0 ]; do let OFF=+$LEN; done
if [ $OFF -gt $LEN ]; then let OFF=$OFF%$LEN; fi

echo -n $ROW | tr $TRL "$(
echo -n "$TBL$TBL" | cut -b$[$OFF+1]-$[$OFF+$LEN])" |
(if [ $SPD -gt 0 ]; then tr 0-$[$SPD-1] '!'
elif [ $SPD -lt 0 ]; then tr $[4+$SPD]-3 '!'
else cat ;fi) | tr 0-3 ' ' || STATUS=1
echo -ne "\r"

done

300:login:Penguin
01/11/16 17:18 fWh4bGWW.net
10 cls 3
20 moji$="Hello World" '全角で書け
30 for i=1 to klen(moji$)
40 put@(16*i,0),,val("&h"+kanji(kmid$(moji$,i,1)))
50 next

N88-BASICで実行すれば多分表示される...と思う。
put@使うの久しぶりだからなー

301:login:Penguin
01/11/16 23:29 1+GjOyGd.net
<<< hello.txt for MS-DOS ( use ish ) [ 8 lines ] >>>
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
!!C%!!gR!2"DRo-@S'=o!s$o^2;K!'"H:2elC3CD}a!4Hy2o'n!!!!!!!!!!!!!!!!!!!!!!!!m0G=
"C7<Ez+la<0c6(PV:)$o$,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![;I\
aC^I\u/l@Lu|=,Psr8{T!d!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!rjn!
c_cAz84M3e1MF=Ac:AnQoM/x_DO+w/HiYar"}^M;iT>QKI[-8OvZGBexre,w{fnNr@{4m'}W{u9LLG
--- hello.txt (8/8) ---

302:login:Penguin
01/11/17 03:39 YquQPBDI.net
CASIO ポケコン FX-702P BASIC です

10 PRN "HELLO WORLD":END

303:login:Penguin
01/11/19 12:43 ctHVVaXo.net
% cat hello
#!/bin/sh
echo Hello World!
% tcpserver 0 10000 ./hello &
% telnet localhost 10000
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hello World!
Connection closed by foreign host.

304:login:Penguin
01/11/19 20:07 5iJ+kKF0.net
msgbox "Hello World!"

305:login:Penguin
01/11/19 20:33 Va57rtBm.net
#include">>1"

306:な
01/11/19 22:19 FPRstUm9.net
<h1>Hello World!<h1>

307:login:Penguin
01/11/19 23:25 JFqR1Kqd.net
こんにちは、世界。
アンニョンハセヨ、世界。
とかは既出？

308:login:Penguin
01/11/20 20:59 WPoPbZ0O.net
//D言語

import stdio;
int main()
{
　　printf ("Hello, world\n") ;
　　return 0;
}

詳しくはこちら
URLﾘﾝｸ(www.digitalmars.com)
参考スレ
ｽﾚﾘﾝｸ(tech板)

309:K Compiler
01/11/21 01:11 b65FJIzg.net
"Hello World"

310:REXX
01/11/27 23:57 gaJcOLrL.net

say　'Hello, world'

311:jsp
01/11/28 10:05 gAGkcKBA.net
<%
out.println("Hello World");
%>

312:(._.)
01/11/28 13:52 lwwLdjVm.net
#!/bin/sh
for I in H e l l o , W o r l d
do
echo $I
done

313:login:Penguin
01/11/28 18:22 eDaFsgCR.net
echo 'Hello World!' | shutdown - -h now

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

314:login:Penguin
01/11/28 19:33 BBVjytiG.net
>>308

echo -n $l

315:login:Penguin
01/11/28 23:50 67Nw4XZo.net
英語 Hello World
日本語こんにちは、世界
フランス語 Bonjour Monde
ドイツ語 Guten Tag Welt
イタリア語 Ciao Mondo
ポルトガル語 Oi Mundo
スペイン語 Hola mundo
韓国語？？？？？？

316:311
01/11/28 23:51 67Nw4XZo.net
まさか化けるとはおもわなんだ

317:(._.)
01/11/29 13:07 24qXGkxe.net
-n わすれた。
縦になるのぅ。
訂正さんくす。

318:login:Penguin
01/12/25 23:32 OgTGhrCp.net
on openStack
　answer "Hello World"
　doMenu "Quit HyperCard"
end openStack

on closeStack
　doMenu "Compact Stack"
end closeStack

319:login:Penguin
01/12/26 01:08 ofP8X4WD.net
Xdialog --msgbox "Hello World" 0 0

とか

dialog --msgbox "Hello World" 20 40

とか

echo "Hello World" |banner -w 40

とかは既出でしょうか？

320:Matlab
02/01/02 20:54 y8Rz3rZS.net
function hello
disp('hello world');

321:login:Penguin
02/01/05 01:48 DkBsTvKK.net
AfxMessageBox("Hello, World.",MB_OK|MB_APPLMODAL|MB_ICONINFORMATION);

322:login:Penguin
02/01/14 13:01 nsG1/69+.net
age

323:TeX でプレゼン
02/01/14 21:58 WVzuP52R.net
\documentclass[12pt]{jsarticle}
\usepackage[dvipdfm]{color}
\pagestyle{empty

324:} \special{pdf: pagesize width 8in height 4.6in} \special{pdf: docview << /ViewerPreferences << /HideToolbar false /HideMenubar false /FitWindow true /CenterWindow true >> >> } \special{pdf: bgcolor [1.0,1.0,0.0]}% \begin{center} Hello,World! \end{center} 以上をfoobarbaz.tex として保存し、 platex foobarbaz dvipdfm foobarbaz して、Acroread で見るだけ。うまくいくかなぁ。

325:login:Penguin
02/01/22 13:03 zY6sexL/.net
#include <iostream.h>
int main()
{
cout << "Hello World";
}

326:login:Penguin
02/01/22 13:10 3TJZdmGT.net
gdialog --msgbox "Hello World" 10 10

327:login:Penguin
02/01/22 13:16 SE2qe6hO.net
% 既出？
/Times-Roman findfont
20 scalefont
serfont
25 800 moveto
(Hello World) show
showpage

328:login:Penguin
02/01/27 15:04 NqY9tsrh.net
Windows 2000 のコマンドプロンプトで
net send 相手のIP Hello World
てどうよ？

329:login:Penguin
02/01/27 15:16 /sf6+BWm.net
echo Hello world

330:あってるっけ?
02/01/27 19:11 sdTtdx52.net
DATA HELLO;
INPUT H $ W $;
CARDS;
Hello World
;

PROC PRINT;
RUN;

331:login:Penguin
02/02/03 03:48 WoHWeH7s.net
#include <iostream>
using namespace std;
int main(int argc, char **argv)
{
cout << "ハロー！モーニング。" << endl;
return 0;
}

332:login:Guest
02/02/03 04:23 ag4A7Str.net
お前ら、詰まらん事書いてないで、先人のページ見ろ。
URLﾘﾝｸ(www2.latech.edu)
分ったか。こんなことで、サーバー重くすんのよせよな。

★★★★★★★★★★★★終了★★★★★★★★★★★

333:login:Penguin
02/02/03 04:29 TnaT6RWa.net
>327
なんかすごくえらくなった気分？

334:クワサワ先生
02/02/03 04:40 qmGuOBGY.net
　　　　　　　　　　,一-、
　　　　　　　　　 /￣　l |　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　■■-っ　＜　　オーイ、これ貼っといてー。
　　　　　　　　　´∀｀/ 　　　＼URLﾘﾝｸ(www.puchiwara.com)
　∋8ノハ8∈＠ノノヽ＠ヽ　　　＼＿＿＿＿＿＿＿＿＿＿
　　（´ⅴ｀　) （‘д‘__）　|
　　　 ∪∪∋∪∈|＿_ノ|
　　　　　　∪∪ ∪∪

335:login:Penguin
02/02/03 14:31 UszX6bbX.net
>>327のページのBrainf*ckすごすぎ。

336:login:Penguin
02/02/03 15:01 Q/R4jG2G.net
main = do putStrLn "hellowold"

337:login:Penguin
02/02/18 00:13 Dn9ir7dH.net
echo HelloWorld > hw.txt
nkf -j hw.txt | Mail -s hello hoge@vinnakinkyrooligt.ne.jp
telnet pop.vinnakinkyrooligt.ne.jp 110
user hogeyarou
pass jorojoro
retr 1

HelloWorld

338:login:Penguin
02/02/18 00:26 2TCMrTnx.net
create table HelloWorld (
hello varchar2(100)
)
tablespace users
pctused 70 pctfree 20
storage (
init 1M
next 1M
pctincrease 0
)
/
insert into Hello values ("Hello World");
commit;

select * from Hello;

-------------
Hello World
-------------

339:333
02/02/18 00:27 2TCMrTnx.net
× HelloWorld
○ Hello
まちがった･･･

340:333
02/02/18 00:29 2TCMrTnx.net
× insert into Hello values ("Hello World");
○ insert into Hello values ('Hello World');

もう一つ間違い･･･鬱

341:CASL2
02/02/18 00:54 pGL9N72U.net
PROGRAM START
　　　　OUT STR,LEN
　　　　RET
STR 　　DC 'Hello World'
LEN 　　DC 11
　　　　END

342:login:Penguin
02/02/18 00:58 qtFdtCKH.net
>>327
PERLの項見た？
while(1)って…涙も止まらねえよ…

343:login:Penguin
02/02/18 01:02 bmTyVCHj.net
>>327
G,K,W,Y,Zの項目がねーな
うめなきゃ！

344:login:Penguin
02/02/18 01:24 qtFdtCKH.net
>>358
すまん、それらの頭文字の言語、どんなのがある？
Gは(少々苦しいが)Gawkあたりでお茶を濁すとしてもだ、
YやZは辛そうだ。

345:login:Penguin
02/02/18 01:26 eZJVtozR.net
>>339
プロフェッショナルC言語(だっけな？)ってお気楽プログラミング本に、
AからZまでかいてあったはず。今手もとにないんだけど、
だれかフォロープリーズ

346:仕様書無しさん
02/02/18 01:41 FnoFtR7N.net
#VRML V1.0 ascii

AsciiText {
string "Hello, world !"
justification LEFT
}

347:login:Penguin
02/02/18 01:41 pGL9N72U.net
>>339
yacc (無理か)
ZPL
漏れは厨なので、どんな言語かは知らない

348:仕様書無しさん
02/02/18 01:41 FnoFtR7N.net
HELLO: PROCEDURE OPTIONS (MAIN);

/* A PROGRAM TO OUTPUT HELLO WORLD */
FLAG = 0;

LOOP: DO WHILE (FLAG = 0);
PUT SKIP DATA('HELLO WORLD!');
END LOOP;

END HELLO;

349:login:Penguin
02/02/18 01:42 pGL9N72U.net
Gはguileがあるな

350:login:Penguin
02/02/18 05:45 LRxUYhjM.net
import java.io.*;
import javax.servlet.*;
import javax.servlet.http.*;

public class HelloWorld extends HttpServlet {
public void doGet(HttpServletRequest request,HttpServletResponse response)
throws IOException,ServletException{
response.setContentType("text/html");
PrintWriter out = response.getWriter();
out.println("<html><body>");
out.println("hello world");
out.println("</body></html>");
}
}

351:名無しさん@emacs21.1
02/02/18 17:03 j+/v6B5h.net

(defrule sine
(initial-fact)
=>
(printout t "Hello World" crlf))

このげんごなんだかわかる？

352:login:Penguin
02/02/18 22:11 TZRZOfTS.net
>>346
CLIPS? その言語見た事無かったのでちょこっと調べた。
検索したら NASA とか出て来て微妙にビビったよ。

353:login:Penguin
02/02/19 15:41 Kn+9Dg2U.net
>>347
ピンポーン。
授業の関係で勉強しています。LISPに少し似ています。

URLﾘﾝｸ(www.ghg.net)

354:login:Penguin
02/02/19 15:49 Kn+9Dg2U.net
ガイシュツ？

「こんにちは」と、言え。
おわり。

355:login:Penguin
02/02/19 23:02 dykjZ8yG.net
echo "Good bye world" | rm -rf /

356:login:Penguin
02/02/20 01:41 7yoTfaQH.net
-- Hello world program for april

program
{
run () {
"Hello world\n" >> stdout;
};

main () {
h = spawn run () as handle%%"run";
waitfor (h);
}
} execute main;

357:login:Penguin
02/02/20 01:48 7yoTfaQH.net
dnl hello world program for m4
divert(-1)
changequote([, ])
define([h], [Hello World!])
divert(0)dnl
h

358:login:Penguin
02/02/20 01:58 7yoTfaQH.net
(* Hello world program for ocaml *)

let main () =
let rec loop = function
[] -> print_newline()
| x::xs -> print_char (Char.chr x); loop xs
in loop [72; 101; 108; 108; 111; 32; 87; 111; 114; 108; 100; 33]
let _ = Printexc.catch main ()

359:n88
02/02/20 02:18 Qudlp95E.net
10　print

360: "Hello World!"

361:login:Penguin
02/02/20 02:20 7yoTfaQH.net
/* Hello world for yacc */
%token HELLO

%%
hello: HELLO
{ printf ("Hello world!\n"); }

%%
int yylex ()
{
static int count = 0;
return count++ ? 0 : HELLO;
}

void yyerror (char* s) {}

int main ()
{
yyparse ();
}

362:login:Penguin
02/02/20 12:29 x5arlsuF.net
コンパイルできないのがいくつもあるよ・・・

363:login:Penguin
02/02/23 11:09 hMtg8TsV.net
echo Hello World! > con

364:login:Penguin
02/03/30 16:50 SuvdSrW1.net
たまにはageるか。

365:login:Penguin
02/05/10 21:48 MCd92ODc.net
detukushitaka?

366:login:Penguin
02/05/14 00:57 aan3BIH4.net
echo もうだめぽ > /etc/motd

367:maruken
02/07/19 16:20 M1moR91w.net
plain TeX

\message{Hello world}
\bye

368:login:Penguin
02/11/29 22:35 lVN8Qxy2.net
01 MOJI PIC X(11) 'Hello world'.
DISPLAY MOJI.

369:login:Penguin
02/11/30 23:18 KQgAWRWV.net
>>79 ぐらいのヒネリがもっとほしいもんだ…

370:login:Penguin
02/12/01 02:42 WUceu8gu.net
>>327
Macro Languagesのemacsが埋まってないのが意外だ。
だれか面白いのが作れたら送ってみるヨロシ。

あと、Motifがある割りにXlibが無いとか。
まぁ、コレはコードが大きくなりすぎるからかな。

371: ◆mVeUbtZCI.
02/12/08 16:33 Mt/zzK5r.net
#include <stdio.h>

int main(zoid)
{
printf("h3lL0 W0rLd\n");
return 0;
}

372:login:Penguin
02/12/08 16:46 z1WJginy.net
std::cerr<<"はい、こんにちわ"<<std::endl;

373:login:Penguin
02/12/08 18:49 yKnIyaBL.net
PROC main:
dINIT "Hello World"
dBUTTONS "Hello World", 13
DIALOG
ENDP

何の言語か分かったら
・・・・・・・・・・

374:biosmania ◆ZqBiosoUXU
02/12/08 21:20 52Ky2Gm2.net
mov ah,09
mov dx,offset message
int 21h
message db 'Hello World',0Dh,0Ah,24h

ガイシュツだったらスマソ

375:biosmania ◆ZqBiosoUXU
02/12/08 21:23 52Ky2Gm2.net
>>367
Palmの言語だっけ？

376:login:Penguin
02/12/11 00:44 XL+Ay2dp.net
URLﾘﾝｸ(www.google.co.jp)

377:login:Penguin
02/12/11 06:22 lgN/OS8v.net
val _ = print "Hello, World!\n";

378:login:Penguin
02/12/14 11:18 mFaiuyOo.net

「あー、もしもし。
『はろーわーるど』っていうプログラムかいてくれ。
たのんだよ」

379:login:Penguin
02/12/15 18:24 zapqDAhU.net
ポケベルで、01134 と打って、
逆さにして読むと hEllO

380:login:Penguin
02/12/26 02:38 rYxVtj9+.net
C:\Documents and Settings\hage>HelloWorld
'HelloWorld' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチファイルとして認識されていません。

381:login:Penguin
03/01/08 02:37 AoseKHTq.net
　　　PROGRAM HELWLD
　　　REAL*4 STR(3)
　　　DATA STR/4HHELL,4HO WO,4HRLD /
　　　CALL OFLOW('HELWLD')
　　　WRITE(6,100)
　　　WRITE(6,200) STR
　100 FORMAT(1H+)
　200 FORMAT(1H ,1X,3A4)
　　　STOP
　　　END

382:biosmania ◆ZqBiosoUXU
03/01/08 12:40 phGae/92.net
$ed
a
Hello World
.
1p

383:IP記録実験
03/01/08 21:21 1aQvEFST.net
IP記録実験
ｽﾚﾘﾝｸ(accuse板)

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

384:login:Penguin
03/01/09 02:35 fO3EDHlc.net
ひろゆきのﾚｲﾌﾟ予告したらIP晒されちゃうかな？

385:login:Penguin
03/01/09 03:19 I0ACnG/A.net
ｼｽｵﾍﾟさんも大変だ

386:login:Penguin
03/01/09 04:09 mK/aEqnH.net
2chもそう長くは存続できまい。
ここにくるだけ無駄だってことがわかった。
皆も早くほかのことに興味を持とうな。

では、さようなら

387:山崎渉
03/01/15 11:42 /OP2L6bf.net
（＾＾）

388:山崎渉
03/03/13 17:32 52vAtNh8.net
（＾＾）

389:login:Penguin
03/03/23 00:07 D3mf7Rql.net
The World

390:山崎渉
03/04/17 12:16 PWISM87M.net
（＾＾）

391:山崎渉
03/04/20 06:06 X64WTq1+.net
　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

392:　
03/05/14 01:17 R8NiI9/Q.net
515言語
URLﾘﾝｸ(99-bottles-of-beer.ls-la.net)

393:login:Penguin
03/05/19 09:29 DT+Qwixv.net
label .l -text "Hello world"

394:login:Penguin
03/05/19 09:29 DT+Qwixv.net
pack .l

395:login:Penguin
03/05/19 09:42 6by1Z4wB.net
#include <stdio.h>
void main (void)
{
printf("\aHello World\n");
getchar();
}
音をつけてみました

396:山崎渉
03/05/22 01:53 VfjbtMwi.net
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

397:login:Penguin
03/07/12 01:14 W3kT2Ez7.net
*M
90 ^\ "Hello World"
?. &m("Hello World")
.
*

398:login:Penguin
03/07/12 01:18 W3kT2Ez7.net
$ WRITE SYS$OUTPUT "Hello World"

399:山崎渉
03/07/15 11:36 2JhhXBQM.net

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

400:ぼるじょあ ◆yBEncckFOU
03/08/02 05:22 +QUfMouI.net
　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎―――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

401:login:Penguin
03/08/14 22:15 mY4Mg9W+.net
10 PRINT "Hello, World!"
20 GO TO 10

402:login:Penguin
03/08/15 12:15 v1ALGsj2.net
GO TO HELL

403:無意味な機能を追加するテスト
03/08/15 12:18 fF3umBuo.net
#!/bin/sh
for char in H e l l o . _ W o r l d \!
do
if test ${char} = _
then
echo -n ' '
else
echo -n ${char}
fi
sleep 1s
done
echo ''
exit $?

404:397
03/08/15 12:22 fF3umBuo.net
行頭の半角スペースは無視されるんだった…
インデントした意味無し。
槍田子嚢(-_-)

405:無意味なぬるぽを追加するテスト ◆FCIHX.z9Sc
03/08/15 19:12 xbRxYhwt.net
#include <stdio.h>

typedef signed char c_t;
c_t hw_tbl[] =
{
　　*"ぬるぽ"/-*"ぬるぽ", 111, 4,　8, -1, 79, 6, -1,55, 7, -1, 43, 5, -1, 57, 1, -1,
　　101, 13, -1, 100, 11,-1, 54, 12, -1, 62, 2, 3, 10, -1, 36, 0, -1, 42, 9, -1, -1
};

int main()
{
　　c_t s = -1, c_i = 0, *tbl_p = hw_tbl, ps[128];
　　while(*tbl_p + *(tbl_p+1) >= *"ぬるぽ" /-* "ぬるぽ" ? *"ぬるぽ" : (tbl_p = "ぬるぽ", NULL))
　　　　ps[*((*tbl_p == -1 ? &(c_i += *(tbl_p +=(s=s-s*2)*s)*s):"ぬるぽ", ("ぬるぽ"? tbl_p:tbl_p = "ぬるぽ"))++)] = c_i;
　　printf("%s", ps);
}

406:山崎渉
03/08/15 22:15 dil3w4kp.net
　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

407:山崎渉
03/08/15 22:30 dil3w4kp.net
　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

408:login:Penguin
03/08/15 22:34 TKrXKPTq.net
echo Hello World! > /dev/null

409:login:Penguin
03/08/16 19:31 4XBWpn55.net
#include <stdio.h>

int main()
{
a: printf("Hello, world.");
goto a;
}

410:login:Penguin
03/08/16 20:25 bHYJgYaQ.net
MsgBox("hello world", msgboxstyle.okonly, "hello world")

411:login:Penguin
03/08/29 18:57 CHKIrubT.net
$ cat hello,
echo $0 $1
$ sh hello, world

412:login:Penguin
03/08/30 00:55 kCUalFoc.net
$ cat Makefile
hello, world:
　　　　: $@
$ make hello, world

413:login:Penguin
03/09/09 10:57 NvtwqI0H.net
#include<stdio.h>

main()
{
char str[]={0x48,0x65,0x6c,0x6c,0x6f,0x2c,0x57,0x6f,0x72,0x6c,0x64,0x2e,0x00};

puts(str);
}

414:login:Penguin
03/10/14 18:09 RQcErSFV.net
[　書き込む　] 名前： [ login:Penguin　　　　　　] E-mail (省略可) : [ sage　　　　　　　　]
+-----------------------------------------------------------------------+
| Hello World　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|
|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|
|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|
|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|
|　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|
+-----------------------------------------------------------------------+

415:login:Penguin
03/10/14 18:17 RQcErSFV.net
; PC-9801限定あなたのテキストVRAMちょ～くげきよ
PUSH CS
POP DS
MOV AX,0A000H
MOV ES,AX
MOV SI,offset MSG
XOR DI,DI
MOV CX,12
REP MOVSB
IRET

MSG DB 'Hello,World.'

416:login:Penguin
03/10/14 18:24 RQcErSFV.net
Perlならこういう書き方もできる。

print<<'Z';
Hello,World.
Z

417:login:Penguin
03/10/14 18:39 RQcErSFV.net
英語 Hello,World!
中文ｲ尓好,世界
日本語 (なんて訳すのかわからん)

418:login:Penguin
03/10/14 21:01 6navAVqt.net
～略～
glTranslatef(0.0f, 0.0f, 0.0f);
glListBase(gIndex);
glCallLists(11, GL_UNSIGNED_BYTE, (GLubyte *)"Hello World");
～略～

419:login:Penguin
03/10/17 12:40 LW8b2pZy.net
10 CLEAR:CLS:DIM C$(7,5):READ P$
20 FOR H=0 TO 6:READ D0$
30 D1=VAL("&H"+LEFT$(D0$,4)):IF D1<0 THEN D1=65536+D1
40 D1$=RIGHT$(STR$(D1),LEN(STR$(D1))-1)
50 D2=VAL("&H"+RIGHT$(D0$,5)):IF D2<0 THEN D2=65536+D2
60 D2$=RIGHT$(STR$(D2),LEN(STR$(D2))-1)
70 IF LEN(D1$)=4 THEN D1$="0"+D1$
80 IF LEN(D2$)=4 THEN D2$="0"+D2$
90 D$=D1$+D2$
100 FOR I=0 TO 4:E=VAL(MID$(D$,2*I+1,2))
110 FOR J=1 TO 5:F=INT(E/2):G=E-F*2
120 IF G=1 THEN C$(H,I)=C$(H,I)+"■" ELSE C$(H,I)=C$(H,I)+"　"
130 E=F:NEXT J:NEXT I:NEXT H
140 FOR H=1 TO 10:P=VAL(MID$(P$,H,1))
150 IF H<6 THEN X=(H-1)*12:Y=0 ELSE X=(H-1)*12-38:Y=6
160 FOR I=0 TO 4:LOCATE X,Y+I:PRINT C$(P,I):NEXT I:NEXT H:END
170 DATA 0122343526,431502DC5,792502793

420:,03F202793,375B11822,433C02F4E,3B430C54D,3B4311823

421:login:Penguin
03/10/17 13:57 35jeoD/8.net
>run
Hello World!
>

422:login:Penguin
03/10/17 15:00 E2Vu7W9W.net
10 PRINT"■　 ■　 ■■■　 ■　　　 ■　　　 ■■■　　　 ■　　　 ■　 ■■■　 ■■■　 ■　　　 ■■　 "
20 PRINT"■　 ■　 ■　　　 ■　　　 ■　　　 ■　 ■　　　 ■　　　 ■　 ■　 ■　 ■　 ■　 ■　　　 ■　 ■"
30 PRINT"■■■　 ■■■　 ■　　　 ■　　　 ■　 ■　　　 ■　 ■　 ■　 ■　 ■　 ■■　　 ■　　　 ■　 ■"
40 PRINT"■　 ■　 ■　　　 ■　　　 ■　　　 ■　 ■　　　 ■　 ■　 ■　 ■　 ■　 ■　 ■　 ■　　　 ■　 ■"
50 PRINT"■　 ■　 ■■■　 ■■■　 ■■■　 ■■■　 ■　 ■■　 ■■　 ■■■　 ■　 ■　 ■■■　 ■■　 "

423:login:Penguin
03/10/19 12:37 f8wthzLX.net
'Hello World' displayAt: Sensor waitButton.

424:login:Penguin
03/10/28 21:15 F90M6H5l.net
「HelloWorld」と言う。

425:login:Penguin
03/10/30 01:04 Wg1fJgBn.net
CだけどRT-Linuxで。
#include <rtl.h>
int init_module(void)
{
　　rtl_printf("Hello, ");
}
void cleanup_module(void)
{
　　rtl_printf("World");
}

426:湯にバック
03/12/03 04:43 cnWON4tU.net
MSG,W Hello World

427:login:Penguin
03/12/03 05:01 Mmy5MH8S.net
>>48
>これからもっとも人口の多い言語になるC#です。
ならない。なるのはD言語！

MATLAB( URLﾘﾝｸ(www.cybernet.co.jp) )だ

> a = 'Hello, world!'
これだけでHello, world!が表示されるのだ。

> disp("Hello, world!")

これだけでもHello, world!が表示されるのだ。

428:login:Penguin
03/12/04 11:26 EVZi/JaB.net
mflr r0
lwz r3,@msg
stw r0,8(SP)
stwu SP,-64(SP)
bl .printf
nop
li r3,0
lwz r0,72(SP)
addi SP,SP,64
mtlr r0
blr

429:login:Penguin
03/12/09 22:51 AWCNSXXS.net
#!/usr/bin/perl

use strict;

my @Array = ('H','e','l','l','o','w','o','r','l','d');
my $char = undef;
my $count = undef;

for ($count = 0; $count <= $#Array; $count++) {

　print "$Array[$count]";

　if ($count == 4) {
　　print "," . " ";
　}
}

print "!";
print "\n";

exit;

430:login:Penguin
03/12/09 23:36 0e05UupD.net
波浪

431:いつでもどこでも名無しさん
03/12/10 02:09 uQxGThXB.net
declare @s varchar(255)
set @a = 'HELLO WORLD!'

select @world

432:login:Penguin
03/12/10 04:42 eOBlgg5L.net
#include <stdio.h>

int main(){
char hello[]={'G','D','K','K','N','V','N','Q','K','C'};
int i;

for(i=0;hello[i]!=NULL;i++){
printf("%c",++hello[i]);
}
printf("\n");
return 0;
}

433:425
03/12/10 04:53 eOBlgg5L.net
#!/usr/local/bin/perl -w

use strict;

my $hello="gdkknvnqkc";

$hello=~tr/[a-z]/[b-za]/;

print "$hello\n";

今度はperlで

次ページ