ひたすら何かのソースコードを公開するスレ (157ﾚｽ)

ひたすら何かのソースコードを公開するスレ http://mevius.5ch.net/test/read.cgi/unix/1057999285/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

17: 名無しさん＠お腹いっぱい。 [sage] 03/07/12 21:49 350 *C 360 BEEP 1,71,9 370 IF P<0 OR P>16 OR Q<0 OR Q>5 GOTO *D 380 SWITCH M(P,Q) 390 CASE 1:IF H=0 LET U=1:V=0 ELSE IF H=1 LET U=-1:V=0 ELSE F=1 400 CASE 2:IF H=2 LET U=0:V=-1 ELSE IF H=3 LET U=0:V=1 ELSE F=1 410 CASE 3:IF H=1 LET U=0:V=1:H=3 ELSE IF H=2 LET U=1:V=0:H=0 ELSE F=1 420 CASE 4:IF H=0 LET U=0:V=1:H=3 ELSE IF H=2 LET U=-1:V=0:H=1 ELSE F=1 430 CASE 5:IF H=1 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=1:V=0:H=0 ELSE F=1 440 CASE 6:IF H=0 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=-1:V=0:H=1 ELSE F=1 450 DEFAULT :F=1 460 ENDSWITCH 470 IF F=1 GOTO *D 480 M(P,Q)=M(P,Q)+6 490 LOCATE P,Q:PRINT G$(M(P,Q)) 500 P=P+U:Q=Q+V:S=S+1 510 LOCATE 20,4:PRINT STR$ S 520 RETURN 530 *D 540 LOCATE 18,1:PRINT "-GAME-" 550 LOCATE 18,2:PRINT "-OVER-" http://mevius.5ch.net/test/read.cgi/unix/1057999285/17

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 140 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.004s