いろんな言語で「Hello World」だ。ゴラァ
at LINUX
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドのURL
■項目テキスト
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
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
291日前に更新/193 KB
担当:undef