【ｼｬｰﾌﾟ】ポケコン 10:PRINT "SHARP"

1 ：2012/02/12 〜 最終レス ：2012/12/29

またーりといきましょ
ザウルスは専用スレがあるからそちらで
厳密な名称問題をやり出すときりがないからそこそこに
前スレ
【ｼｬｰﾌﾟ】ポケコン 10:PRINT "SHARP"【ｻﾞｳﾙｽ以外】
http://ikura.2ch.net/test/read.cgi/i4004/1150512902/
スレタイ長すぎるって怒られちゃった
後ろ削りました

2 ：

>>1
乙

3 ：

スレナンバーは付けないの？
シャープスレだから #2　とか

4 ：

>前スレ997さん

前スレの999だけど、、、
ｺﾞﾒﾝ！見間違えた！
GOTO 2-(I<1)であっている！
短縮一文字おめでとう☆〜
1 A$="":INPUT I
2 I=I/2:A$=CHR$ (48.5+I-INT I)+A$:GOTO 2-(I<1)
3 PRINT A$

じゃぁ、さらに、、、
これでどう！？
1 INPUT I:A$="
2 I=I/2:A$=CHR$ (48.5+I-INT I)+A$:GOTO 2-(I<1)
3 PRINT A$
１文字短縮！2012

5 ：

さらなる短縮をがんばってくれたまえ

6 ：

1 INPUT I,A$
RUNで開始して、INPUT A$の部分では未入力で！
かなりムリがあるなぁ。。。2012

7 ：

連投ｺﾞﾒﾝ！
PC-E500でRUNで開始することを条件とするならば…
1 INPUT I
…で、いいよね！ 2012

8 ：

ザウルスなんてとっくに滅びただろと思っていたら、
まだまだ健在でﾜﾛﾀ
http://ezaurus.com/

9 ：

バレンタインチョコが貰える数　診断プログラム
10 CLEAR:INPUT "YOUR NAME=";N$
20 FOR I=1 TO LEN N$
30 A=A+ASC MID$ (N$,I,1)
40 NEXT
50 B=RND -A
60 FOR I=450 TO 499
70 C=C+RND 3-1
80 NEXT
90 PRINT "YOU GET”;C

10 ：

60行訂正
60 FOR I=450 TO RND 499

最大100個、最低0個

11 ：

>9
RNDの書式ってどの機種でも同じなの？2012

12 ：

違うと思う

13 ：

>12
是非ともあの診断をやってみたいと思ってるのに、移植が出来ない人とかいると可哀相やな〜って思ったんだぁ… (ノД｀)
で、、、話しはかわるけど、ひとつ大きな問題が見付かったんだけど…
御神籤〔おみくじ〕とかなら良いんだけども、あれって診断プログラムだよね！？
機種を変えるたびに違った結果が出て来るのは如何なものかと。。。
そこら辺の改良を希望！
まだまだ運命の日まで、時間はあるYo! 2012

14 ：

線形合同法を使った疑似乱数を作ればいいのだけど
せっかくN88BASICｍｐRANDOMIZE(引数)と同じような機能があるのに
使わないのは勿体ないし、そういった機能を使うことによって
逆算するというズルができないというメリットもある。
確かに移植する側としては困るけどそれはトレードオフだろう。

15 ：

６０行目のRNDの使い方、、、勉強になります (*＾v＾*)ﾉ

16 ：

みんなでバレンタインをテーマにしたプログラムを作ろう

17 ：

【概要】
面白いのが思い付かなくて、ほぼマネですけれど…
今年のYear 2012
　　　と
誕生日を入力して…
貰えるﾁｮｺの数を占います。

【解説】
・３０行は簡易的な擬似乱数計算です。
・６０〜７０行は基準日(0/1/1)からの日数計算です。

【ＢＡＳＩＣ】
10 PRINT "This Year":INPUT "Year=";Y:M=2:D=14:GOSUB 60:L1=L
20 PRINT "Your Birthday":INPUT "Year=";Y:INPUT "Month=";M:INPUT "Day=";D:GOSUB 60
30 X=5*(L-L1)+15:C=X-INT (X/11)*11
40 PRINT C;"ﾁｮｺ"
50 END
60 J=Y:K=M-3:IF K<0 THEN J=J-1:K=K+12
70 L=INT (365.25*J)-INT (J/100)+INT (J/400)+INT (30.6*K+59.5)+D
80 RETURN

以上です。2012

18 ：

やったーチョコを7つももらった・・・

19 ：

PC-1211+4色プロッタプリンタがあるけど、もう動かない。
叩けば動くようになるかな？

20 ：

斜め45度から叩けば大抵直る
ウチのTVはそれで何度も直した

21 ：

チョコ
占い通りだった。
…３人から！

…まとめてひとつだけもらった。
粒の数的には診断プログラムに近いかな。

貴重なチョコ…2012

22 ：

10 PRINT "ﾊﾞﾚﾝﾀｲﾝﾃﾞｰ"
20 INPUT "ﾓﾗｯﾀ ﾁｮｺﾚｰﾄﾉ ｶｽﾞ=";P
30 IF P PRINT "ﾖｶｯﾀﾈ!" ELSE PRINT "ﾊﾞﾚﾝﾀｲﾝ ﾅﾝﾃ ﾀﾝﾅﾙ ｲﾍﾞﾝﾄ ｻｧ･･･"
40 END

23 ：

knifeってホントいいモニタだな
エミュでもE以外は快適に打ち込めるし素敵

24 ：

リロチャンモニタがお気に入りだっけな。
今ではダンプなんか打ち込む事なんて無くなってしまったが…

25 ：

俺は最近打ち込みっぱなしだ
PJ2年分のデータをサルベージしてるからな
HEAVY METAL miniとDIADEMシリーズと
COSMIC EXPLORERのダンプリストが欲しいです
国会図書館に行けば手に入るかしら？

26 ：

HEAVI METAL miniなんて懐かし過ぎるよ。
結局、クリアできなかったけれどさ orz...

27 ：

PJ買い始めたのが94年No.6からなのでそれ以前のゲームをやったことがない
バックナンバーも当時94年No.1までしか取り寄せられなかった
USBケーブルが出てきて保存環境が整ったから再燃してるけどあまりにも遅すぎた

28 ：

PJって100号で廃刊になったんだっけ

29 ：

一ヶ月、間があいて分厚いのが出て終わった。

30 ：

廃刊になった後も数年間は１８日になるとソワソワしてました。。。2012

31 ：

プログラムが掲載されて郵便ポストにPJが届くのが楽しみだった
発売日に届かなかったら今月はボツということが分かって落胆したけどｗ

32 ：

ポケコンもPJも捨てなければよかったなｗｗ
かといってまた買うほど使い道もないし

33 ：

ＰＪですかぁ、、、
当時はまんだ◆0ifOH8taNkなんて存在してなかったんだよねぇ =^･･^=
一度ぐらいは掲載されたかったよぉ。。。�ﾓ

34 ：

ちょっと気になって調べてみたらE500の機械語って独自のものなんだね

35 ：

SC62015

36 ：

>>33
当時は雑誌掲載するしか不特定多数への公開は難しかったけど
今はネットがあるから公開は簡単にできるので
それほど固執する必要はないと思う。
単純に載ってうれしいというのもあるけど。

37 ：

なんていうのかなぁ…
公開したいというよりかは、認めてもらいたかったんだよねぇ。
プログラミング覚えたてな時期だったし。

ネットで公開出来るようになった今…気付いたことがひとつ…
作りたいものが思い浮かばない。。。

38 ：

ポケコンでエロゲーを作ろう

39 ：

思春期をとうに過ぎた今、当時の様に萌える(死語？)のだろうか？

40 ：

PJが存在していた頃はどんなエロゲーが流行ってたっけ？
KanonやAIRはそれよりもずっと後だよな・・・。

41 ：

ときメモとか

42 ：

ランス３とかだなぁあの頃は

43 ：

マイロリータとかロリータシンドロームとか

・・・は、PJではなくPioの時代だっけ

44 ：

10 CLS :CLEAR :DIM A(3)
20 PRINT "バレンタインゲーム"
30 INPUT "アナタノ ナマエ=";N$
40 FOR I=0TO 3:A=RND -(ASC N$)/(I+1)):A(I)=RND 6+9:NEXT
50 T=A(2):FOR I=4TO 14STEP 0.5:H=INT I
60 CLS :PRINT H+(H>12)*12;"ガツ ";(I-H)*2+1
70 PRINT USING "チリョク### タイリョク###/### ヨウシ###";A(1);T;A(2);A(3)
80 PRINT "1:ベンキョウ 2:ウンドウ 3:オシャレ 0:ヤスム"
90 INPUT "ドウスル?(0-3)";C
100 IF T<SGN C OR C>3OR C<0PAUSE "ソレハ デキマセン!":GOTO 60
110 IF C=0THEN T=A(2)ELSE X=INT (RND -(A(0)*I)*7)+1:T=T-X-RND 7:A(C)=A(C)+X
120 IF T<1PAUSE "アナタハ ビョウキニナッタ":A(2)=INT (A(2)*0.8)+1:T=0
130 NEXT
140 PAUSE :PAUSE :PAUSE :PAUSE
150 Z=INT ((SQU A(1)*2+CUB A(2)/30+A(3)*20)*A(3)/9999)
160 PAUSE "2/14 バレンタインデー トウジツ"
170 PRINT "アナタハ チョコヲ ";Z;"コ モラッタ!"

45 ：

>44 おや？どこかで見た記憶が…2012

46 ：

バグ発見。
40 FOR I=0TO 3:A=RND -(ASC N$)/(I+1)):A(I)=RND 6+9:NEXT

47 ：

もうバレンタインデーは終わりだぞ
ホワイトデーのお返しのことを考えないと

48 ：

魁メモリアル？

49 ：

ホワイトデーゲームを作ろう

50 ：

バレンタインん時と違って、たっぷり期間があるから念入りに作れそうだね。

51 ：

2月号の付録はバレンタインゲームかw

52 ：

ゲームデザイン館「バレンタイン」

53 ：

>52 『ゲームデザイン館』…いいですねぇ！
ゲームの内容というか、方向性！？を書いてくれると作りやすくなるんですけども。。。 2012

54 ：

52です。各自自由な発想で作ってもらっておｋ
>>44みたいに当日までどうするかをゲームにするもよし
当日クラスの女子にさりげなくアプローチするようなのでもいい
自分が当時作ったゲームは女の子視点でこんな感じでした(もう16年か・・・

いよいよ今日はバレンタイン。ちょっと気になるあの人にチョコを渡して
告白・・・っていきたいけどあたしってば極度のあがり性。ちゃんと
「すきです」って言えるかな・・・
チョコを渡すシーン表示→女の子の吹き出しのなかでスロットが回りだす
→「ス」「キ」「デ」「ス」で止めれたら告白成功
失敗すると「ツキデス」や「スキダス」になったり10パターンくらい作ったと思う
方眼紙でグラフィック作ったりしてけっこう力作だったのにリストがないのが
悔やまれる

55 ：

締め切りがないと完成しないｗ

56 ：

スキトキメキトキス

57 ：

スキ…ときめき…と…キス (*´ε｀*)ノ

58 ：

【ｼｬｰﾌﾟ】ポケコン 10:PRINT "SHARP"
の、行番号の「１０」って、スレナンバーじゃなかったのか…

59 ：

で、通算何番？

60 ：

シャープスレとしては2スレ目
ポケコン総合スレは過去に12スレある
ちなみにカシオスレは現在3スレ目

61 ：

>60ども！
意外と少ないんだなぁ…
最近の発言頻度みてたら、もっといっぱいあるかと思た。

62 ：

前スレは埋まるまで5年半かかってるからなｗ

63 ：

このスレも年月かけてまったりとしてみますか？ 2012

64 ：

ｶｾｯﾄ･ｲﾝﾀｰﾌｪｰｽCE-124が壊れてもぉた。
修理もきかないらしい…
オークションとかで手に入れてはどうかと店員に言われたけれど、今までﾔﾌｵｸでは見た記憶がない。。。
どうにかならんもんかねぇ。

65 ：

そこで自作ですよ

66 ：

E500系なら高松でUSBケーブル買ってPLINKCでパソコンに保存できるよ
あるいは同じ所でピンだけ買えるからイヤホンから取ったケーブルくっつければいい
ピンアサインはググれば出てくるはず

67 ：

>>67
ピンにケーブルくっつけるだけじゃなくて抵抗もいるよ
詳しくは失念したけどググれば以下略

68 ：

G8XX系なら抵抗どころかピンすら要らないんだけどな
そういえばCE-124も加工すればG8XX系で使えたっけ

69 ：

>>56
恋の呪文か

70 ：

ｱﾒﾌﾞﾛのブログにJavaScriptを貼付けようとしても出来なかった。
ポケコンのBASICプログラムも貼付けられないのかな？

71 ：

>64
うちのノートPCパーツ＆PDAゴミ引き取ってくれるなら･･･
ポケコンゴミ＆CE-124をやるぞ。

72 ：

>71様ありがとう。でも自作でガンバってみるさ！

73 ：

御茶目様が…すでに３日も更新してないんですけれども…
何かあったんでしょうか。。。 φ(′▽∩☆)... 2012

74 ：

詳細はCMの後で！

75 ：

CMはまだか・・・

76 ：

長〜ぃＣＭであります………

77 ：

CMの間にトイレに行ってこよう

78 ：

そうこうしてるうちに番組終わっちまったぜぇ。

79 ：

Rしている間にポケコンでプログラムをしていたら
トイレの中で1時間なんてあっという間だからな。

80 ：

PC-G850VSのマニュアルが欲しかったので問い合わせたら
1350円で取り寄せれるらしい

81 ：

ESPRITってもう公開してないのかな？
PJ'94 2月号のPSYCORO COROLITHのコンパイルができなくて難儀してます
VOGUEでコンパイルすると重くなるって書いてあったけど処理が重くなるのか
ファイルサイズが大きくなるという意味なのかどっちなんだろう？
ゲームメインでアーカイブ作ってるけど今のところ自己満足でしかないので
需要があったり気が向いたらこっそりあげるかもしれません

82 ：

>>81
ここにいる連中には需要無いんじゃないか？過去のPJを持ってるなり
データ保存くらい普通にしてるだろ
でも本音を言うとリストは欲しいです。自分で頑張って打ち込むので
E500版のGREAT FORCEうｐしてくださいいいい

83 ：

GREAT FORCE って G8xx系の移植だよね
物足りない気もしたけどかなり遊んだ

84 ：

新作ポケコンゲームを作っている人っている？

85 ：

新作つくるどころか、ﾊﾞﾚﾝﾀｲﾝ以降はポケコンに触れてすらいないし。。。2012

86 ：

新作は作ってるよ

87 ：

今日はネコの日だからネコゲームを作ろうぜ

88 ：

>>82
とりま動いたのでうｐ
ttp://www1.axfc.net/uploader/Sc/so/321873
キーワードヒント CPU
解凍パスヒント かなはにりいと

89 ：

>>89
中ボス倒した後敵出てこないからちょっと確認したらダンプミスあったぞ
&BE69Ah 17>07
お詫びとして何かもう一つくらいupするようにw

90 ：

>>88
うわあ、すいません
拾った方は該当箇所を修正してから起動してください
修正済みのファイルは後日(といってもだいぶ先)PJ'95年8月の
アーカイブをうｐしますのでそれまでお待ちを

91 ：

>>88
横からだけどありがとう。解凍パスが最初意味分からなくてもだもだした
1面中ボス倒した後ちょろっと雑魚倒した後は孤独な宇宙空間を延々
無限ループという愉快な体験もさせてもらいましたｗ
ほかに何か上げて頂けるならRAZOR-EDGE2がいいなあ

92 ：

>>88
全然判らん
もっとヒントくれよ

93 ：

あれ？すぐわかった俺がおかしいのか？
答え書いちゃうのも何か悪いので俺からもヒント
キーワード　E500系のゲームをUPしてヒントがCPUって事は・・・？
解凍パス　大体みんなローマ字入力だよな？かなにして普段どおり
「はにりいと」って打ってごらん。ちゃんとコピペしろよ？
で、俺からもRAZOR-EDGE2希望

94 ：

キーワードはすぐにわかったけれど…携帯で見たらわけの分からん文字がダダダダダ〜と出て来て断念。。。

95 ：

みかか方式かと思って、パスはFILESと勘違いしてたｗ

96 ：

一見さんはほとんどいないわけだし元々狭いコミュニティなんだから
このスレで普通にパス公開すればいいんじゃない？

97 ：

>>96
88です。言われてみれば確かに、ここの住人以外の人がDLして解凍しても
何がなにやら訳分からないと思うし、今後は以下の通りに統一します
キーワード　SC62015
解凍パス　CALL &FFFD8
いずれも半角大文字、完全一致が条件です
他の方がうｐされる場合も上記パスで統一してくれると助かります

98 ：

うｐする時は下記の方法でうｐしてくれるとありがたいです。
�@　パスは出来るだけ付けないで下さい。どうしてもと言う場合は私が指定したパスでお願いします。解凍パスは絶対に付けないで下さい。（解凍できずに1年以上HDDに放置してるソフトがあるので）
�A　うｐしたファイルの詳細は必ず書いてください。ソフトの内容は勿論ですが、対応機種、必要メモリ、ロード方法、操作方法、攻略法などもお願いします。
�B　直ぐに流れてしまうロダは絶対に避けて下さい。出来たらうｐする前に聞いてくれれば、私がロダ指定します。
�C　打ち込み終了後、24時間スレを監視してください。私が「うｐお願いします！」と言ったタイミングでうｐお願いします（取り逃した事が何度かあるので）

贅沢な要求かも知れませんが、皆さんで共有するためにも是非お願いしますm(_ _)m

99 ：

>>98
お前これ本気で言ってるなら傲慢極まりないぞ？
スレの流れも遅いし斧なら滅多にログ流れないからスレ遡ればまず拾える
解凍パスはともかくキーワードはいるだろうよ。俺は>>97のフォーマットで
「気が向いたら」(←ここ超重要)UPするわ

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

とりあえずﾊｧﾊｧ! (201)
とりあえずﾊｧﾊｧ! (201)
i386で３２ビットＯＳを使っていた人のスレ (379)
「「「「「APPLE�U」」」」」 (962)
「プログラムポシェット」まだ持ってるヤツいるか (512)
＼●／ ＜ ワイデス参上、＃３！ (269)
--log9.info------------------
　　坂本英一が3着をとったらageるスレ 　 (423)
競輪の売上向上を思案するスレ (339)
競輪中継美人キャスターNO．1は誰！七人目？ (518)
【未だ一冠】 深谷知広　16擁護　【打倒脇本】 (861)
−▲競輪のナイターって(ﾟ�听)イラネ▲− (408)
【追走】ｺﾃﾊﾝｼﾞｼﾞｲの集うｽﾚ･9番手【一杯】 (257)
【平井堅？】金子貴志だ！【カバちゃん？】 (425)
【魂の先行】村上義弘／村上博幸【這いよる番手】 (370)
【三重SS班】浅井康太 愛人６人目【嫁妄想癖】 (782)
大垣競輪をみんなで盛り上げよう (770)
川崎競輪場 (529)
佐々木健司・・・ (501)
【新城】青森競輪場【合浦】 (216)
【禿】　吉　岡　禿　真　総　合　ス　レ　【禿】 (677)
【スプリント日本王者】渡邉一成【自分だけ捲り】 (770)
【池田牧人】函館競輪３【手書きフリップ】 (504)
--log55.com------------------
あの頃欲しかった物を書き出すスレ
７０〜８０年代の少年時代を語ろう
☆処女★はじめてのあの時・・・の思い出★童貞★
絶対嫌だった学校行事
坂井と井上パート2
小学生の頃の服装　２着目
ミニ四駆
「科学」と「学習」の付録について語れ！