トップページ⇒tech
114コメント27KB

ポケコンで・・・

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
シャープのpc-g850sです。学校で買わされて、basicでもc-言語
でもいいので、なにか凄いプログラムを教えてください！
0080デフォルトの名無しさんNGNG
しかしポケコンって壊れやすいよな。
0081デフォルトの名無しさんNGNG
PC-E650が最強だ。
ったらいいのに。
0082デフォルトの名無しさんNGNG
>>79
ほとんどの携帯電話には、電卓が付属していると思われ。
0083デフォルトの名無しさんNGNG
>>82
テスト中に携帯ちょしたら捕まるって
0084デフォルトの名無しさんNGNG
質問です！
ベーシックでキャラクターのスクロールの仕方を教えてください。→のキーを押したときに
Ｘ座標に＋して表示すると前のキャラクターが残っているので消すためにＣＬＳを使ってるんですけど、
そうするとすべての表示が消えてしまうので、そのキャラクターにビームを発射させようとするとビームだけが表示されて（スクロールはできている）
発射したキャラクターが消えてしまいます。
一部を消す関数みたいなのはないのでしょうか？
やりかたを教えてください。
0085デフォルトの名無しさんNGNG
仮想VRAM
0086マリモーマNGNG
ここも　ポケコンスレが　あるが　立てるときに　見てないのか？

http://pc.2ch.net/test/read.cgi/tech/1021219939/
0087デフォルトの名無しさんNGNG
>>86
日付の比較もできないバカﾊｹｰﾝ!!
0088デフォルトの名無しさんNGNG
ポケコンと言えば御茶目菜子さんがすごいよマジで
0089デフォルトの名無しさんNGNG
>88
いや、たかじょだろ？
0090デフォルトの名無しさんNGNG
ポケコンと言えばPatrosystemが一番すごいに決まっているだろ
なんせオペレーティングシステムを作ったんだからな。
0091マリモーマNGNG
いや　僕だったりして
0092デフォルトの名無しさんNGNG
いや、猫妖精ことこたちゃんだろう。
いや、VERTEBRAかも知れん。
もしかしたらMORかも知れないし、
実は島崎犬だったのかも知れない。
009392NGNG
追加
実は佐伯氏かも。
0094デフォルトの名無しさんNGNG
>>93
禿同。あの人すげぇよ。
最後の逸材だったね。
0095デフォルトの名無しさんNGNG
ageage
0096デフォルトの名無しさんNGNG
ポケコンを2chの流行語にした加藤勇喜君には感謝します。
0097かおりん祭り ◇KAORinK6NGNG
∋oノハヽo∈　／￣￣￣￣￣￣￣
　 （　＾▽＾） ＜　新スレおめでとうございま−す♪　
= ⊂ 　　）　　 ＼＿＿＿＿＿＿＿
= (__/"(__)　ﾄﾃﾃﾃ　
0098ポケコンスレageまくり連合NGNG



0099デフォルトの名無しさんNGNG
凄いプログラム？わかった！教えるよ。

10 PRINT"ｽｺﾞｲ!":END
0100デフォルトの名無しさんNGNG
10' [product] operating system << Powers CE >> ver. 5.8 lev. 13 trial version ver. 1.0 lev. 4 [copyright] Patrosystem [programer] Yuki Kato
20CLEAR :CLS :FOR A=0 TO 500:NEXT :LOCATE 7,2:PRINT "Patrosystem":FOR A=0 TO 5000:NEXT :CLS :FOR A=0 TO 1000:NEXT :LINE (132,1)-(7,1):LINE -(7,42):LINE (11,5)-(136,46),B
30LINE (8,2)-(10,4):LINE (8,43)-(10,45):LINE (133,2)-(135,4):LOCATE 3,1:PRINT "operating system":LOCATE 6,2:PRINT "Powers CE 5.8":LOCATE 4,3:PRINT "active 6ic manager":LOCATE 6,4:PRINT "trial version"
40FOR AA=135 TO 12 STEP -.5:PSET (AA,23):PSET (147-AA,15):IF AA<116 LINE (AA+20,23)-(AA+20,23),R:LINE (128-AA,15)-(128-AA,15),R
50FOR A=0 TO 10:NEXT :NEXT :FOR A=0 TO 5000:NEXT :CLS :IF FRE <680 GOSUB *MER:GOTO *EX2 ELSE GOSUB *SETL:ZL=0:GOSUB *SETS:ZA=1:CLS :FOR Y=0 TO 4:READ ZB,ZK:GOSUB *BP:NEXT
60CLS :ZA=3:ZB=20:ZK=0:GOSUB *BP:GOSUB *WINDOW:LOCATE 4,1:PRINT "(^_^)ｺﾉｿﾌﾄﾊﾀｲｹﾝﾊﾞ":LOCATE 4,2:PRINT "ﾝﾃﾞｽ｡ｾｲﾋﾝﾊﾞﾝﾉｲﾝｽﾄ":LOCATE 4,3:INPUT "ｰﾙｦｵｽｽﾒｼﾏｽ｡";N$
70CLEAR :USING :GOSUB *SETL:CLS :DIM J$(10,2),V(5):LOCATE 10,5:PRINT "Powers CE 5.8t":LINE (4,6)-(54,40),B:LINE (64,6)-(138,32),B:LOCATE 10,2:PRINT "> <":LINE (59,14)-(64,24),B:LINE (138,14)-(143,24),B:LINE (64,15)-(138,18),R,B
80LINE (64,20)-(138,23),R,B:S=1:V(1)=1:OUT 4
90SWITCH S
100CASE 1:RESTORE 1220
110CASE 2:RESTORE 1230
120CASE 3:RESTORE 1240
130CASE 4:RESTORE 1250
140CASE 5:RESTORE 1260
150CASE 6:RESTORE 1270
160CASE 7:S=2:P=1:RESTORE 1230
170CASE 11:RESTORE 1280
180ENDSWITCH
190READ Q:FOR K=1 TO 10:READ J$(K,1),J$(K,2):NEXT :K=Q
200FOR L=1 TO 3:LOCATE 11,L:PRINT " ":NEXT :FOR L=0 TO 2:LOCATE 11,L+1:IF K+L>Q THEN O=K-Q ELSE O=K
210PRINT J$(O+L,1);J$(O+L,2):NEXT :WHILE INKEY$ :WEND :Z=0
220M= ASC INKEY$ :IF M=0 THEN Z=Z+1:IF Z= INT C*48 GOSUB *WINDOW:LOCATE 4,1:PRINT "(~o~)ｵｰﾄｻｽﾍﾟﾝﾄﾞｷﾉ":LOCATE 4,2:PRINT "ｳｶﾞﾊﾀﾗｷﾏｼﾀ｡":FOR A=0 TO 3000:NEXT :GOTO *EX3 ELSE ELSE 240
230IF ZL=0 IF INP =4 GOSUB *ICC:GOTO 60 ELSE 220 ELSE IF INP =0 THEN AF=0:WHILE INP =0 AND AF<100:AF=AF+1:WEND :IF AF=100 GOSUB *ICO:GOTO 60 ELSE 220 ELSE 220
240SWITCH M
250CASE D:IF K=1 THEN K=Q+1
260K=K-1:ZA=1:ZB=B+10:ZK=0:GOSUB *BP
270CASE F:IF K=Q THEN K=0
280K=K+1:ZA=1:ZB=B+10:ZK=0:GOSUB *BP
290ENDSWITCH
300IF M=I OR M=G AND P>0 THEN ZA=1:ZB=B+5:ZK=0:GOSUB *BP:LOCATE 1,P:PRINT " ":S=V(P):P=P-1:GOTO 90
0101デフォルトの名無しさんNGNG
悪い！長すぎてＵＰできん
0102デフォルトの名無しさんNGNG
何やってんの？
ていうか人のﾌﾟﾛｸﾞﾗﾑ勝手にUPするのはやめとけ。
法律に触れる。
0103デフォルトの名無しさんNGNG
>>102
100を擁護するわけじゃないが、こんなのをオペレーティングシステムだと言い張り
違うだろといっても全く聞く耳持たずＯＳと言い張るほうが法律に触れると思う。
0104デフォルトの名無しさんNGNG
>>103
それはどうかな。
OSの定義なんてはっきりしてない。
OSについて書いてある本とかも本によってぜんぜん違うこと書いてあるし。
本によってはあのLinuxをOSではないと書いてある本もあった。
誰もやつが作ったPowersを絶対にOSではないとは言い切れないはず。
0105デフォルトの名無しさんNGNG
>>103
Powersを誤解してｲﾝｽﾄｻｰﾋﾞｽを受けることがないようにするために
Patroはわざわざ体験版を配布したのでは？
0106デフォルトの名無しさんNGNG
>>104
http://pc.2ch.net/test/read.cgi/tech/1022685075/550-553
ｶｺﾜﾙｲ
0107デフォルトの名無しさんNGNG
>>105
わざわざ体験版を用意したのは誤解してもらうためだろ。
別に正式版だけでも問題なかったはず。
0108デフォルトの名無しさんNGNG
>>103
パトロの超誇大解釈に誰が付き合うかバーカ
はっきりしていないのは認めるがあれがＯＳでないことははっきりしている。
0109551NGNG
>>106
漏れは551だが、自己弁護はしていない。
たまたま時間が近かったからって誤解すんな。
0110551NGNG
>>103-108
OSなのか違うのかなんてどうでもいいじゃん。
やつが勝手にやってることなんだから放っておけば？
0111デフォルトの名無しさんNGNG
今のHP見る限りそんなに問題ないみたいだしもうほっといてやろうよ。
もっとやばいHPいっぱいあるよ。
そういうのあげた方がオモロイ。
0112デフォルトの名無しさんNGNG
>>111
あえて晒す必要はないだろ。

＞1 ：デフォルトの名無しさん ：01/11/06 17:16
＞シャープのpc-g850sです。学校で買わされて、basicでもc-言語
＞でもいいので、なにか凄いプログラムを教えてください！

ってあるんだから、有意義なサイト紹介の方向性でさ。
0113誘導NGNG
今後はこちらで↓

http://www.2ch2.net/bbs/pokecom/index2.html

よって

　　　　　　　　　　　　ｏ
　　　　　　　　　　　 /　￣￣￣￣￣￣￣￣￣￣ /
　　　　　　　　　　　/　　　このスレは無事に　　/
　　　　　　　　　　 /　　終了いたしました　　　 /
　　　　　　　　　　/　ありがとうございました　 /
　　　　　　　　　 /　　　　　　　　　　　　　　　　/
　　　　　　　　　/　　　モララーより　　　　　 /
　　　　　　　　 /￣￣￣￣￣￣￣￣￣￣￣/
　 ∧＿∧　　/　　　　　　　　　　　　　　　　/∧＿∧
　（　･∀･）　/　　　　　　　　　　　　　　　　/（･∀･　）
　（　　　　）つ　　　　　　　　　　　　　　　⊂（　　　　）
　｜ ｜ ｜　　　　　　　　　　　　　　　　　　 ｜ ｜ ｜
　（_＿）＿）　　　　　　　　　　　　　　　　　　（＿（＿_）





0114＿NGNG
>>113
なぜsageない？
■ このスレッドは過去ログ倉庫に格納されています