1 名前:名無しさん@お腹いっぱい。 [2001/04/11(水) 18:24.net] それじゃ俺が知っている C からだ。 皆も知ってる言語・スクリプトで続けてくれ! #include <stdio.h> int main() { printf("Hello World\n"); return (0); }
201 名前:login:Penguin [2001/06/20(水) 01:25.net] >>194 case sensitiveで頼む
202 名前:よ。 [] [ここ壊れてます]
203 名前:zilog inside [2001/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 [2001/06/20(水) 04:11.net] しまった。 >>29 で激しくガイシュツであった… しかも system-reset で CP/M に戻ってるし。
205 名前:login:Penguin [2001/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 [2001/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 [2001/06/20(水) 13:56.net] (q - (q = 0)) は Sgn(q + 1) * q にすることも可。 >>203 の (q = 6) は (-Int(q / 6)) にすることも可。 比較演算子っていんちきくさいじゃん。なんとなく。 スレ違いかも。
208 名前:194=183 mailto:sage [2001/06/20(水) 15:20.net] >>200 ムチャゆーな。 そういうキミには >>183 を英語で出力するよう修正願おう。
209 名前:login:Penguin [2001/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 [2001/06/20(水) 21:53.net] スマソ。LINUX板だった。
211 名前:いいんじゃねぇ〜の mailto:sage [2001/06/20(水) 22:02.net] >>208 いいんじゃね〜の 10 print "Hello World" 20 goto 20 っていうのも出てるし(藁
212 名前:login:Penguin [2001/06/20(水) 23:50.net] >>207 だせっ、バグバグじゃん。そのプログラムは何番地に格納されんだよ。 LDIRぐらい使えよ。
213 名前:ルーク、forthだ、forthを使え mailto:sage [2001/06/20(水) 23:55.net] : MAIN "Hello World" SPRINT ;
214 名前:login:Penguin mailto:sage [2001/06/20(水) 23:57.net] hello:-write('Hello World'),nl.
215 名前:login:Penguin [2001/06/21(木) 01:03.net] >>212 そのProlog、おもいっきりガイシュツです
216 名前:login:Penguin [2001/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 [2001/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 [2001/06/21(木) 02:01.net] >>209 それっておもいっきりLinuxねた。 "Just for Fun "(P.31)
219 名前:login:Penguin [2001/06/21(木) 02:02.net] >>215 おーい、だからさ >>210 氏が指摘してるようにブロック転送命令使えってばよぅ。
220 名前:217 [2001/06/21(木) 02:06.net] あ、すまん、使ってたな。しかも不定長に対応だな 一滴マス
221 名前:210 [2001/06/21(木) 02:20.net] >>218 いやいや、不定長つうたって文字列なら結局は固定長でしょ。 で、何も文字列の最後にターミネタ(0)じゃなくとも、文字列の頭に文字数でもいいわけでさ。 PASCALなんてそうだっけ?(オレはターパスしかしらんけど) で、文字数があればちゃんとLDIRが使えるわけ。 Z80なんて速度遅いわメモリ少ないわで、さまざまなノウハウがあるわけよ。 ま、>>207 は何よりBレジが痛いんだけどね。 全然LINUX板ネタじゃないんで、もう逝くよ。
222 名前:218 [2001/06/21(木) 02:43.net] かえってきました >>219 あ、なるほど。PASCAL文字列なら(そう、それはPASCAL文字列です)、文字数をBCに入 れてLDIRでおしまい、ですね。 誰か自己書き換えとかスタックポインタいじるとかして処理してーん(とかいってみる)。 また一滴マス。
223 名前:名無し [2001/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 [2001/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 [2001/06/21(木) 15:07.net] >>222 これPASCAL?
226 名前:login:Penguin [2001/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 [2001/06/21(木) 15:37.net] >>218 同じようなことを N88-BASIC の DRAW 命令でやろうとしたけどリファレンスが なくて断念。ダセッ<俺。
228 名前:login:Penguin [2001/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 mailto:sage [2001/06/21(木) 15:50.net] 間違えた,スマソ。 >218 は >214 が正解。
230 名前:login:Penguin [2001/06/22(金) 13:53.net] >>223 おそらくAdaではないかと思われ。 ロートル国防省からの刺客?
231 名前:login:Penguin mailto:sage [2001/06/22(金) 14:19.net] dialog "Hello world",0,"hogehoge"
232 名前:login:Penguin [2001/06/22(金) 18:21.net] Basic09 きぼーーんぬ
233 名前:名無しさん@お腹いっぱい。 [2001/06/22(金) 22:58.net] アセンブラでお願いします
234 名前:login:Penguin [2001/06/23(土) 00:07.net] >>231 既に出ているが、何か?
235 名前:login:Penguin [2001/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 [2001/06/23(土) 01:00.net] 10 "Hellow world" / 20 #=10
237 名前:login:Penguin [2001/06/23(土) 02:43.net] $ cat Hello\ World echo $0 色々問題があるが
238 名前:。 [] [ここ壊れてます]
239 名前:Modula-2 [2001/06/24(日) 00:04.net] MODULE Hello; FROM InOut IMPORT WriteString, WriteLn; BEGIN WriteString('Hello, world.'); WriteLn(); END Hello.
240 名前:Basic-09 >>230 [2001/06/24(日) 00:14.net] PROCEDURE Hello (* This is a sample of Basic09 *) (* usage: RunB("Hello") *) print #1, "Hello, world" end
241 名前:hello.tcl [2001/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 mailto:sage [2001/06/24(日) 15:37.net] module main(); initial begin $display("Hello,world"); $finish; end endmodule
243 名前:login:Penguin [2001/07/19(木) 05:42.net] 倉庫入りしそうじゃねーか、ゴルァ age
244 名前:login:Penguin mailto:sage [2001/07/19(木) 05:44.net] 倉庫入りは下げでレスしても阻止できるぞ
245 名前:login:Penguin [2001/08/10(金) 04:11.net] age
246 名前:login:Penguin [2001/08/10(金) 06:18.net] >>11 これのどこがまずいの?
247 名前:login:Penguin [2001/08/10(金) 10:06.net] program Project2; {$APPTYPE CONSOLE} uses SysUtils; begin write('Hello,World!'); end.
248 名前:login:Penguin [2001/08/10(金) 14:08.net] <HTML> <B>Hello,world</B> </HTML>
249 名前:login:Penguin [2001/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 mailto:age [01/08/28 12:50 ID:1oArpc0c.net] age
251 名前:login:Penguin mailto:sage [01/08/28 16:13 ID:jaPRCAI6.net] ぼんじゅーる。るもんど。
252 名前:login:Penguin [01/08/29 01:24 ID: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 ID:ZjU6i9ug.net] (setq msg "Hello World") (message msg) echo "既出だったらごめんね"
254 名前:login:Penguin mailto: [01/08/29 07:02 ID:uBl.KZOo.net] 48 65 6C 6C 6F 20 57 6F 72 6C 64 これじゃ駄目?
255 名前:既出か? [01/08/29 07:27 ID:c59II4ig.net] \documentstyle[a4j]{jarticle} \begin{document} \noindent Hello World. \end{document}
256 名前:login:Penguin [01/08/29 12:31 ID: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 ID:fnFRaVHc.net] SNDBRKMSG MSG('HELLO WORLD') TOMSGQ(*ALLWS)
258 名前:login:Penguin [01/08/29 13:53 ID:SmuEce8k.net] int init_module(void) { printk("<1>Hello World\n"); return 0; }
259 名前:コブラ [01/08/31 01:33 ID:Ihpm/akI.net] (defun hw(msg) (if (null msg) 'nil (princ msg))) (hw '(Hello World)) (defun hw2() (princ '(Hello World))) (hw2)
260 名前: mailto: [01/08/31 01:44 ID:p7lv3A8E.net] これはもう出た? Makefile -------------- all:Hello Hello: echo "HelloWorld" ------------- make
261 名前:login:Penguin [01/08/31 02:28 ID:kzmx.r22.net] module hello; initial $display("Hello, World!!"); endmodule
262 名前:日本語 mailto:sage [01/08/31 03:21 ID:k4XBpcQ6.net] こんにちは世界
263 名前:ひまわり mailto:sage [01/08/31 06:00 ID:ZltyaOwY.net] ヒネリが無いぞ >>259 「こんにちは世界」と、言う。
264 名前:既出ならすんまそん。 [01/08/31 06:43 ID:200uXQHQ.net] DECLARE /*オラクルのPL/SQLだ。*/ BEGIN DBMS_OUTPUT.PUTLINE("Hello World !!"); END; /
265 名前:各無しさん@Emacs [01/09/01 00:36 ID:/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 名前:各無しさん@Emacs [01/09/02 23:05 ID: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 ID:jDGRRFRM.net] cat <<EOF | mail -s 脅迫 tarou@fxxxtv.co.jp あのことは誰にもいいません。そのかわり、わがままかも しれませんが、お願いがあるのです。本番中に3回まわって、 「Hello World」 と絶叫していただきたいのです。今月中に実行してください。 ご無理なようでしたら結構です。奥様にすべて打ち明ける 覚悟はしております。 かしこ。 EOF
268 名前:login:Penguin [01/09/03 10:21 ID: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 mailto:sage [01/09/14 12:45 ID:kahe/Yro.net] age
273 名前:login:Penguin [01/09/14 12:47 ID:hpMFThis.net] sageてもうた。今度こそage
274 名前:デフォルトの名無しさん [01/09/14 12:54 ID:RxM/qzyg.net] >>40 showpageが抜けとるの
275 名前:login:Penguin mailto:sage [01/09/14 21:38 ID:DnAyJxV2.net] $ yes "Hello World"
276 名前:login:Penguin [01/09/23 23:52 ID:akzhrDq6.net] >>77 今更だが、>>76 は"ALL YOUR BASE ARE BELONG TO US."でウケを狙ったのでは ないだろーか? ってゆーか、このネタを知っている人は多いのだろうか? hattenやwasabiよりは少ないような気がする。
277 名前:Smalltalk-72 mailto:sage [01/09/24 12:01 ID:R4t.M4XY.net] 'Hello World'! ってSmalltalk-80以降も同じか (藁
278 名前:login:Penguin mailto:age [01/09/30 21:55 ID:Ymabq/h..net] <IMG SRC="www.nitroplus.co.jp/pc/hello_world/hello_new01.jpg ">
279 名前:いやー mailto:sage [01/09/30 23:44 ID: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 ID: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 ID:GBmwHvVA.net] %mail mark Hi, Mark. I need the "Hello world" program. Please send immediately. . %exit
282 名前:いやー mailto:sage [01/10/01 01:37 ID: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 ID:VCOUIYL2.net] >>272 が好き 今、一応全部見たつもりなんですがネットワーク系はまだの気が?
284 名前:login:Penguin [01/10/01 12:24 ID:XVJTd5fU.net] % banner "Hello World"
285 名前:login:Penguin [01/10/01 22:59 ID:VCOUIYL2.net] $host 216.92.108.222
286 名前:login:Penguin mailto:sage [01/10/02 03:10 ID:Q3YDZ.Ck.net] 63.240.62.41/
287 名前:海老塩 [01/10/06 00:52 ID:Y76.IDO
] [ここ壊れてます]
288 名前:c.net mailto: 「Hello World」と、表示 byひまわり 簡単で悪かったな。でもこれで出来るんだよ。 日本語だぜ。日本人だもん。 [] [ここ壊れてます]
289 名前:NASM mailto:sage [01/10/06 18:41 ID: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 ID:xEU6d7hs.net] あげ
291 名前:login:Penguin mailto:sage [01/10/08 22:54 ID: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 ID:i+fZmFso.net] age
293 名前:login:Penguin [01/10/27 10:16 ID: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 ID:xSKauLzE.net] >>287 Hollow Werld ですか?
295 名前:login:Penguin [01/10/27 16:18 ID:LklSfNVx.net] age
296 名前:課長 [01/11/04 07:34 ID:egcekF+k.net] 在宅勤務とやら、訳がわからんものが始まったとたんにこれだ。 お前らちゃんとコード書けよ! そのためのネットワークだろが。 ageとくからな。
297 名前:login:Penguin mailto:sage [01/11/05 13:47 ID:xmx282/P.net] (with-temp-buffer (insert "Uryyb jbeyq!") (mule-caesar-region (point-min) (point-max)) (message (buffer-string)) )
298 名前:login:Penguin mailto:sage [01/11/16 05:01 ID:L78f4K5Y.net] hello!
299 名前:各無しさん@Emacs mailto:sage [01/11/16 05:22 ID: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 ID: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@使うの久しぶりだからなー