トップページ⇒tech
62コメント22KB

★Ｎ−８８　ＢＡＣＩＣ★

■ このスレッドは過去ログ倉庫に格納されています
0001奥さん、名無しです NGNG
懐かしいねぇ。みんな、どんなの作った？
0002奥さん、名無しです NGNG
間違えた！

ＢＡＣＩＣ→ＢＡＳＩＣ
0003名無しさん＠お腹いっぱい。 NGNG
10 motor
20 goto 10
0004名無しさん＠お腹いっぱい。 NGNG
10 new
0005名無しさん＠お腹いっぱい。 NGNG
10 BEEP
0006名無しさん＠お腹いっぱい。 NGNG
ﾊﾆﾘｲﾄ
0007Ｎ６０−ＢＡＳＩＣ出身 NGNG
当時（１８年前）最新式だったＰＣ−６００１を使ってた。

ＢＡＳＩＣよりマシン語の方でプログラム組んでたな
0008名無しさん＠お腹いっぱい。 NGNG
>>6
うちは２ドライブだったので
ﾊﾆﾘｲﾄ ﾌ
なんてのもやりましたな
0009名無しさん＠お腹いっぱい。 NGNG
なんで星がついてるの？
0010名称未設定 NGNG
ＰＣ−６００１ｍｋ２が出たころやった遊び。

10 cls:for i=0 to 100000:next
20 talk "f2（店の名前）tuburero."
30 goto 20

10で空ループしている間にダッシュで逃げる。
0011名無しさん＠お腹いっぱい。 NGNG
>9　板の白痴化が加速してきた証です。
0012名無しさん＠お腹いっぱい。 NGNG
30時間かかる数値計算の最後の集計処理で
syntax error
涙がでた
0013名無しさん＠お腹いっぱい。 NGNG
つーか、BasicをBacicとか打ち間違うなんてフツーじゃないな。
0014名無しさん＠お腹いっぱい。 NGNG
余程同様していたのだろう。
つうか俺も動揺してるか。

俺は LINE と　CIRCLE でビームアニメとか作ったな。阿呆だ。
0015>14 NGNG
キャラクタで描いた町並みの後ろから月がスクロールアップするとかやったよ。
0016名無しさん＠お腹いっぱい。 NGNG
丸や円描いて遊ぶのは、WinでVC++等で出来るけど少し敷居が高いよなあ･･･
0017名無しさん＠お腹いっぱい。 NGNG
キャラの表示だけマシン語にすれば、かなりいろんなゲームが作れる。
中学時代は毎日プログラムしてたなぁ。
って、今でも毎日プログラムしてるか。
0018名無しさん＠お腹いっぱい。 NGNG
LOAD "CAS2:BAKA.BAS"
0019>13 NGNG
おれ最近、debugをdegubと打ち間違えた・・
デバッグポイントを探していて、ないなーと思ったら
タイプミスだった・・ って スレと関係ないね・・・

ってこのスレ自体、板と関係ないね・・・
0020new NGNG
0021名無しさん＠お腹いっぱい。 NGNG

key 5＠｀"NEW"+CHR$(13)
だったかな？

これ、やったことある人いる？
MZ以外はたいてい、Ｆ５キーがRUNだったからねえ。
0022名無しさん＠お腹いっぱい。 NGNG
call afggasd
0023>21 NGNG
んなことできたの？
002421じゃないけど NGNG
できたよ。店の展示品なんかに仕込んだり、仕込まれたりしたよ。
手で打ち込んだプログラムを、「さあ試そう」ってんで [f.5] を
押すと
Ok
ってでてすべてが終わってるの。
0025店用と言えば NGNG
10 cls
20 print "HIT! ANY KEY"
30 if inkey$="" then 30
40 print "ﾊﾞｰｶ! ";
50 goto 40
0026２１ NGNG
＞２４
実はくらった事あります。
でも復活させる方法知ってたんで、事なきを得ました。

ＭＺとかＸ１だと、ＢＡＳＩＣ読ませてない状態で展示されてたりして
いやーんな店もあったな。

シャープはデモプログラムの作り方がよくなかった。
ＮＥＣは上手かったな。
0027名無しさん＠お腹いっぱい。 NGNG
10 time$="00:00:00"
20 for i=0 to 10000
30 print i;
40 next i
50 print time$

ごくごく初期のベンチマークか（ｗ
0028名無しさん＠お腹いっぱい。 NGNG
line(10＠｀10)-(20＠｀20)＠｀1＠｀BF　　　' <- BFってゆーのに哀愁を感じる
0029ＲＥＳＥＴ NGNG
１０　ＤＥＦ　ＵＳＲ（０）＝０
２０　Ａ＝ＵＳＲ（０）

0030>26 NGNG
復活させる方法ｷﾎﾞｰﾝ
0031名無しさん＠お腹いっぱい。 NGNG
mon でモニタに行って p-code 入っている先頭の方の
バイトを変更したりするんじゃないの? あの形式は
PC-8001 とかと似ていたと思うが。どんなだったかなあ。
忘れた。
0032ﾄﾝﾄｶｲﾓ NGNG
は、BASICじゃなかったかな。

「F5で実行」って、Visual C++でも同じだけど、BASICの流れなのだろうか？
003326 NGNG

さすがにもう覚えてないです。
実家の押入れを検索したら、載ってる本が出てくるかも。

Microsoft製BASICを採用してた機種は、Ｆ５がＲＵＮでしたね。
シャープ系はＦ１。ＨｕＢＡＳＩＣはＦ５。
Ｆ３が実行の機種があったような覚えが・・・何だったかなあ。

＃考えてみれば、当時から既にＭＳの独占状態みたいなもんだったわけだなあ。
0034トントカイモ NGNG
>33 MSの独占状態、言われてみればそうだね。
F3ってF-BASICかなあ？ (実は使ってたけど、忘れた。)

トントカイモが気に入ってしまった。

0035名無しさん＠お腹いっぱい。 NGNG
＜ﾄﾝﾄｶｲﾓ
ROM-BASICの時代にはなかったけどね。
0036名無しさん＠お腹いっぱい。 NGNG
NEW ON 2
って何？
確か、98のROM-BASICで実行するとリセットが掛かったような気がするんだけど、
本来は何の命令なのか知らなかった。
0037陰陽 NGNG
Dip SWをソフト的にON/OFFできたんじゃない？
たしか88を8001モードで立ち上げるのにNEW ON 1使ってたような。

あと88で
out 23＠｀0
でキーの入力受付をカットできた。BASICのプログラムで
高速化するのに使ってた。元に戻す番地忘れちゃった。
out 14＠｀0
がフラッシングモードだったけかな？
0038名無しさん＠お腹いっぱい。 NGNG
PEEKとかPOKEとか見ると豚肉を連想してお腹が鳴ったもの
です。（だって食べ盛りだったしね）
0039名無しさん＠お腹いっぱい。 NGNG
10 CLS
20 FOR I=1 to 360 STEP 5
30 PRINT SIN(I)
40 NEXT I

とかやって、計算結果に首を捻っていたおバカな私
SIN(I * 3.14 / 180.0)
ってやればいいことに気付いたのは高校で三角関数ならってから
でした。
0040オセロゲーム作りました−１ NGNG
1 CLS 3
2 COLOR 6 :BEEP :LOCATE ，，0
3 PRINT "1: PLAYER VS COMPUTER 2: PLAYER VS PLAYER 3: COMPUTER VS COMPUTER"
4 N=3:Q$=INPUT$(1):IF Q$="2" THEN N=2 ELSE IF Q$="1" THEN N=1
5 RANDOMIZE VAL (RIGHT$(TIME$，2))
10 COLOR=(2，0)
20 DIM A(10，10)
30 A(4，4)=1:A(5，5)=1:A(4，5)=2:A(5，4)=2:':A(1，1)=1:'A(4，3)=2
40 CONSOLE 0，25，0，1:CLS 3:SCREEN 3
50 LINE (0，0)-(639，399)，7，BF，CHR$(&HAA)+CHR$(0)+CHR$(0)+CHR$(&H55)+CHR$(0)+CHR$(0)
60 C$=CHR$(&H88)+CHR$(0)+CHR$(&HDD)+CHR$(&H22)+CHR$(0)+CHR$(&H77)
70 LINE (140，20)-(500，380)，2，BF，CHR$(&H0)+CHR$(&HFF)+CHR$(&H88)+CHR$(&H0)+CHR$(&HFF)+CHR$(&H22)
80 LINE (158，38)-(482，362)，2，BF
90 LINE (160，40)-(480，360)，2，BF，C$
100 FOR X=0 TO 8
110 LINE (160+X*40，40)-(160+X*40，360)，2
120 NEXT
130 FOR Y=0 TO 8
140 LINE (160，Y*40+40)-(160+40*8，Y*40+40)，2
150 NEXT
160 LINE (58，78)-(100，98)，5，BF :COLOR 0:LOCATE 6，5:PRINT " ２"
170 LINE (58，126)-(100，146)，5，BF :COLOR 0:LOCATE 6，8:PRINT " ２":COLOR 7
180 'CIRCLE (320，200)，2，0，，，，F
185 FOR X=1 TO 8:FOR Y=1 TO 8:Q=A(X，Y)
190 C=7:IF Q=0 THEN 220
200 IF Q=1 THEN C=0
210 CIRCLE (X*40+140，Y*40+20)，15，2，，，，F，C
220 NEXT:NEXT
230 C=1:'OPEN "COM1:N81XN" AS #1
240 X1=1:Y1=1
250 X=1:Y=1
260 CIRCLE(30，88)，20，2，，，，F，0
270 CIRCLE(30，136)，20，2，，，，F，7
280 PAINT (X1*40+122，Y1*40+2)，C$，2
290 PAINT (X*40+122，Y*40+2)，3，2:X1=X:Y1=Y
300 IF INKEY$<>"" THEN 300
310 'IF LOF(1)<256 AND O$="" THEN GOSUB 1090
315 IF PB+PA>63 THEN 10000
320 IF N=3 THEN 330
322 IF N=2 THEN 410
325 IF C MOD 2=1 THEN 410 ' DEMO
330 IF CC=28 THEN X=INT(RND(1)*8+1):Y=INT(RND(1)*7+1):':XB=X:YB=Y
340 IF CC<28 THEN GOSUB 1450:CC=CC+1:GOTO 400
350 CC=CC+1
360 X=X+1:IF X>8 THEN X=1:Y=Y+1 :BEEP 1:BEEP 0
370 IF Y>8 THEN Y=1:X=1
375 IF CC>300 THEN BEEP:C=C+1:GOTO 410
376 IF CC>200 THEN 400
380 Q=X*Y:IF Q=2 OR Q=7 OR Q=16 OR Q=49 THEN 330
390 Q=0:GOSUB 1400:IF Q=1 THEN 330
400 A=13:GOTO 430
410 CC=0:A$=INKEY$:IF A$="" THEN 310
420 A=ASC(A$)
425 IF A=1 THEN BEEP:C=C+1:GOTO 310
430 IF A=28 AND X<8 THEN X=X+1:GOTO 280
440 IF A=29 AND X>1 THEN X=X-1:GOTO 280
450 IF A=30 AND Y>1 THEN Y=Y-1:GOTO 280
460 IF A=31 AND Y<8 THEN Y=Y+1:GOTO 280
470 IF A=13 THEN GOSUB 490:IF SS$<>"" THEN GOSUB 1060 :CC=0
480 GOTO 310
490 IF A(X，Y) THEN RETURN
0041オセロ−２ NGNG
500 S=1:IF C MOD 2=0 THEN S=2
510 S1=3-S
520 FOR Q=1 TO 8:S(Q)=0:NEXT
530 IF A(X-1，Y-1)=S1 THEN S(1)=1
540 IF A(X-0，Y-1)=S1 THEN S(2)=1
550 IF A(X+1，Y-1)=S1 THEN S(3)=1
560 IF A(X-1，Y-0)=S1 THEN S(4)=1
570 IF A(X+1，Y-0)=S1 THEN S(5)=1
580 IF A(X-1，Y+1)=S1 THEN S(6)=1
590 IF A(X-0，Y+1)=S1 THEN S(7)=1
600 IF A(X+1，Y+1)=S1 THEN S(8)=1
610 S$="" :SS$=""
620 IF S(1)=0 THEN 670
630 QX=X:QY=Y
640 QX=QX-1:QY=QY-1:IF QX<1 OR QY<1 THEN 670
650 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 640
660 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
670 S$="":IF S(2)=0 THEN 720
680 QX=X:QY=Y
690 QY=QY-1:IF QX<1 OR QY<1 THEN 720
700 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 690
710 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
720 S$="" :IF S(3)=0 THEN 770
730 QX=X:QY=Y
740 QX=QX+1:QY=QY-1:IF QX>8 OR QY<1 THEN 770
750 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 740
760 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
770 S$="":IF S(4)=0 THEN 820
780 QX=X:QY=Y
790 QX=QX-1:IF QX<1 OR QY<1 THEN 820
800 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 790
810 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
820 S$="":IF S(5)=0 THEN 870
830 QX=X:QY=Y
840 QX=QX+1:IF QX>8 OR QY<1 THEN 870
850 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 840
860 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
870 S$="":IF S(6)=0 THEN 920
880 QX=X:QY=Y
890 QX=QX-1:QY=QY+1:IF QX<1 OR QY>8 THEN 920
900 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 890
910 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
920 S$="":IF S(7)=0 THEN 970
930 QX=X:QY=Y
940 QY=QY+1:IF QX<1 OR QY>8 THEN 970
950 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 940
960 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
970 S$="":IF S(8)=0 THEN 1020
980 QX=X:QY=Y
990 QX=QX+1:QY=QY+1:IF QX>8 OR QY>8 THEN 1020
0042オセロー３ NGNG
1000 IF A(QX，QY)=S1 THEN GOSUB 1050:GOTO 990
1010 IF A(QX，QY)=S THEN SS$=SS$+S$:S$=""
1020 IF SS$="" THEN RETURN
1030 A(X，Y)=S
1040 RETURN
1050 S$=S$+STR$(QX)+(STR$(QY)):RETURN
1060 CO=0:IF C MOD 2=0 THEN CO=7 ELSE XC=X:YC=Y
1070 C=C+1
1080 CIRCLE (X*40+140，Y*40+20)，15，2，，，，F，CO
1090 GOSUB 1250
1100 X$=STR$(X):Y$=STR$(Y):U=LEN(X$):V=LEN(Y$)
1110 W$=X$+STRING$(5-U，"*")+Y$+STRING$(5-V，"*")
1120 'PRINT #1，W$
1130 O$=""
1135 IF C MOD 2=1 THEN X=XC:Y=YC
1140 RETURN
1150 LINE INPUT #1，Q$
1160 X2=VAL(LEFT$(Q$，5))
1170 Y2=VAL(MID$(Q$，6))
1180 CO=0:IF C MOD 2=0 THEN CO=7
1190 CIRCLE (X2*40+140，Y2*40+20)，15，2，，，，F，CO
1200 O$="*"
1210 SWAP X，X2:SWAP Y，Y2
1220 GOSUB 490:C=C+1:IF SS$<>"" THEN GOSUB 1250
1230 SWAP X，X2:SWAP Y，Y2
1240 RETURN
1250 Q1=LEN(SS$)/4
1260 FOR Q=1 TO Q1
1270 QX=VAL(LEFT$(SS$，2)):QY=VAL(MID$(SS$，3，2))
1280 SS$=MID$(SS$，5)
1290 PAINT(QX*40+140，QY*40+20)，CO，2 :A(QX，QY)=S
1300 NEXT
1310 PA=0:PB=0:FOR QX=1 TO 8:FOR QY=1 TO 8
1320 Q=A(QX，QY)
1330 IF Q=2 THEN PB=PB+1
1340 IF Q=1 THEN PA=PA+1
1350 NEXT:NEXT
1360 PA$=AKCNV$(STR$(PA)):PB$=AKCNV$(STR$(PB)):PA$=SPACE$(6-LEN(PA$))+PA$:PB$=SPACE$(6-LEN(PB$))+PB$
1370 COLOR 0:LOCATE 6，5:PRINT PA$
1380 LOCATE 6，8:PRINT PB$:COLOR 7
1390 RETURN
1400 IF X=2 AND Y=2 THEN Q=1:GOTO 1440
1410 IF X=2 AND Y=7 THEN Q=1:GOTO 1440
1420 IF X=7 AND Y=2 THEN Q=1:GOTO 1440
1430 IF X=7 AND Y=7 THEN Q=1:GOTO 1440
1440 RETURN
1450 IF CC=0 THEN X=1:Y=1:GOTO 1490
1451 IF CC=1 THEN X=8:Y=1:GOTO 1490
1452 IF CC=2 THEN X=1:Y=8:GOTO 1490
1453 IF CC=3 THEN X=8:Y=8:GOTO 1490
1454 IF CC=4 THEN GOSUB 2000 :GOTO 1490
1455 IF CC=5 THEN GOSUB 2100 :GOTO 1490
1456 IF CC=6 THEN GOSUB 2200 :GOTO 1490
1457 IF CC=7 THEN GOSUB 2300 :GOTO 1490
1458 IF CC=8 THEN GOSUB 2400 :GOTO 1490
1459 IF CC=9 THEN GOSUB 2500 :GOTO 1490
1460 IF CC=10 THEN GOSUB 2600 :GOTO 1490
1461 IF CC=11 THEN GOSUB 2700 :GOTO 1490
1462 IF CC=12 THEN X=3:Y=1:GOTO 1490
1463 IF CC=13 THEN X=6:Y=1:GOTO 1490
1464 IF CC=14 THEN X=4:Y=1:GOTO 1490
1465 IF CC=15 THEN X=5:Y=1:GOTO 1490
1466 IF CC=16 THEN X=3:Y=8:GOTO 1490
1467 IF CC=17 THEN X=6:Y=8:GOTO 1490
1468 IF CC=18 THEN X=4:Y=8:GOTO 1490
1469 IF CC=19 THEN X=5:Y=8:GOTO 1490
1470 IF CC=20 THEN X=1:Y=3:GOTO 1490
1471 IF CC=21 THEN X=1:Y=6:GOTO 1490
1472 IF CC=22 THEN X=1:Y=4:GOTO 1490
1473 IF CC=23 THEN X=1:Y=5:GOTO 1490
1474 IF CC=24 THEN X=8:Y=3:GOTO 1490
1475 IF CC=25 THEN X=8:Y=6:GOTO 1490
1476 IF CC=26 THEN X=8:Y=4:GOTO 1490
1477 IF CC=27 THEN X=8:Y=5:GOTO 1490
1490 RETURN
0043オセロ−４ NGNG
2000 IF A(1，1)<>2 THEN RETURN
2005 FOR P=2 TO 6
2010 IF A(P，1)=1 THEN NEXT
2020 IF A(P，1)=0 THEN X=P:Y=1 ELSE IF A(P+1，1)=0 THEN X=P+1:Y=1
2030 RETURN
2100 IF A(1，1)<>2 THEN RETURN
2105 FOR P=2 TO 6
2110 IF A(1，P)=1 THEN NEXT
2120 IF A(1，P)=0 THEN Y=P:X=1 ELSE IF A(1，P+1)=0 THEN X=1:Y=P+1
2130 RETURN
2200 IF A(1，8)<>2 THEN RETURN
2205 FOR P=2 TO 6
2210 IF A(P，8)=1 THEN NEXT
2220 IF A(P，8)=0 THEN X=P:Y=8 ELSE IF A(P+1，8)=0 THEN X=P+1:Y=8
2230 RETURN
2300 IF A(8，1)<>2 THEN RETURN
2305 FOR P=2 TO 6
2310 IF A(8，P)=1 THEN NEXT
2320 IF A(8，P)=0 THEN X=8:Y=P ELSE IF A(8，P+1)=0 THEN X=8:Y=P+1
2330 RETURN
2400 IF A(8，1)<>2 THEN RETURN
2405 FOR P=7 TO 3 STEP -1
2410 IF A(P，1)=1 THEN NEXT
2420 IF A(P，1)=0 THEN X=P:Y=1 ELSE IF A(P-1，1)=0 THEN X=P-1:Y=1
2430 RETURN
2500 IF A(1，8)<>2 THEN RETURN
2505 FOR P=7 TO 3 STEP -1
2510 IF A(1，P)=1 THEN NEXT
2520 IF A(1，P)=0 THEN Y=P:X=1 ELSE IF A(1，P-1)=0 THEN X=1:Y=P-1
2530 RETURN
2600 IF A(8，8)<>2 THEN RETURN
2605 FOR P=7 TO 3 STEP -1
2610 IF A(P，8)=1 THEN NEXT
2620 IF A(P，8)=0 THEN X=P:Y=8 ELSE IF A(P-1，8)=0 THEN X=P-1:Y=8
2630 RETURN
2700 IF A(8，8)<>2 THEN RETURN
2705 FOR P=7 TO 3 STEP -1
2710 IF A(8，P)=1 THEN NEXT
2720 IF A(8，P)=0 THEN X=8:Y=P ELSE IF A(8，P-1)=0 THEN X=8:Y=P-1
2730 RETURN
0044オセロ−５ NGNG
10000 LINE (200，8)-(440，40)，0，BF :BEEP :BEEP :BEEP
10100 IF PA<PB THEN LOCATE 30，1:COLOR 7:PRINT "おまえはバカだな。" :GOTO 10200
10110 IF PA=PB THEN LOCATE 30，1:COLOR 7:PRINT "なかよく引き分け。" :GOTO 10200
10150 LOCATE 30，1:COLOR 7:PRINT "あなたの勝ちです。"
10200 GOTO 10200

文字化けするので、半角カンマを全角にしてあります。
気が向いた方は試してみてください。＜環境ないよね、フツー
0045>44 NGNG
Win環境なら、たいていQBasicがc:\windows\commandかWin CD-ROMの
中に入っているから、それに移植するのがいいかもね。
グラフィック関係のルーチンはテキストに置き換えた方がいい。
0046名無しさん＠お腹いっぱい。 NGNG
オレは持ってるぞ　ＰＣ−８８０１ＭＨ
しかも現役で動いてるぞ
0047名無しさん＠お腹いっぱい。 NGNG
まさか2ちゃんねるもそれで巡回してるのでしょうか >>46
0048名無しさん＠お腹いっぱい。 NGNG
PC-8801MHにインターネット接続用のソフトはないのでは？
0049４６ NGNG
＞４７
いえいえそんなことありません。
一応　今は懐かしいＢＡＳＩＣでプログラム組んだり
マシン語やってます。

0050名無しさん＠ぴよこ萌え NGNG
PC-8801mkIIFRにドラクエIIIを移植しようとしてメインマップがRAMに入りきらなかった...(^-^;;
#256x256=64KB（笑
0051名無しさん＠お腹いっぱい。 NGNG
オセロやってみた、意外によく出来ているね
最後はＳＴＯＰじゃないと、終わらないみたいだけど・・

ウチの会社には、なぜかディスクベーシックがあって
ドス窓でちゃんと動いたよ（ＰＣ９８２１Ｌａ１０）

最近のＰＣ９８は、９８のアーキテクチャじゃないから
動かんだろーなーディスクベーシック

じゃ
0052名無しさん＠お腹いっぱい。 NGNG
>>51
ＤＯＳ窓で動くのは、ディスクベーシックではなくて、
MS-DOS版のN88-BASIC(86)って奴じゃ。
ディスクベーシックは、９８２１の初期の頃は動作したが、
その後ＲＯＭ−ＢＡＳＩＣが搭載されなくなって以来、動作せぬ。
今でも９８２１ならば、MS-DOS版のBASICは動作するのじゃ。
ＮＸは知らぬ。
0053５１ NGNG
そうか、そうだったのか勉強になったよ＞５２

いい訳をすると、会社の先輩がそう呼んでいたから・・・
いい訳にならんわな・・・はははｈｈｈ
0054名無しさん＠Ｚ８０ NGNG
>>50
圧縮すれ。
悪くても16KBくらいにはなる。
80年代のチュンソフトはよかったねぇ。中村さんも88ユーザだったみたいだし。
0055ID付き名無しさん＠１周年 NGNG
DOS-BASIC欲しいな
005650 NGNG
>54
当時中学生...
敵の絵データとか自作のドットエディタでもちろんキーボードで
ぽちぽち描いてたのがなつかしい
限界を感じてお年玉はたいてLALFを買ったりしたなぁ
0057おっぱい＞55 NGNG
http://ftpsearch.lycos.com/cgi-bin/search?form=lycosnet&query=n88basic&filetype=All+files
0058名無しさん＠お腹いっぱい。 NGNG
コルーチンを本で読んで、インタプリタの使うスタックポインタを探し出して
　　（メモリに割り付けられていた）
切り替えてみたらまんまと成功。DosBasicになったら動かんかと思ったら、同じアドレス
だったのに驚いた。みんな結構使ってたのかな？
探しかたは再帰しながらメモリをスキャンして定幅変化があった値ってやり方
0059名無しさん＠お腹いっぱい。 NGNG
なにをいうとるのかさっぱりわからんぞ?
0060ID付き名無しさん＠１周年 NGNG
>57
ありがと
0061名無しさん＠お腹いっぱい。 NGNG
ランダムドット立体視でオッパイ作った。
57見て思い出した。
0062これ使えばいいジャンNGNG
http://www.vector.co.jp/soft/win95/prog/se055956.html
■ このスレッドは過去ログ倉庫に格納されています