としきさん

http://27-138-85-108.rev.home.ne.jp:9801/othell.bas	;(A)
　不思議。

firefoxでは、
27-138-85-108.rev.home.ne.jp:9801/othell.bas		
　に (A) が化けて、飛ばないです。
　Ｖｚにコピベすると、http:// が復活しますね。ブラウザ依存？

---------------------------------------
Hi, Welcome to Toshiki's HOME!

This page exhibits my handmade freewares and about the OASYS Pocket3
↓
These pages exhibit my handmade freewares and provide information about the OASYS Pocket3
(or This site ???)

I received the opinion and demand from you, and think 
that I want to make it reflect in future making contents. 
↓
I welcome comments and requests from you.
I will reflect them in my future contents. 

　お、英語！　ご参考までに。
　サイトも掲示板も見れてます。

> firefoxでは、
> 27-138-85-108.rev.home.ne.jp:9801/othell.bas		
> 　に (A) が化けて、飛ばないです。

私のところだと、Edgeでは、ほとんど（全て？）のURLで、なぜか頭の「http://」
が消えますが、でもきちんとアクセスできていますので、これはこのブラウザの仕様
なんだと割り切っています。
逆に、firefoxだとそういったこともなく普通にアクセスできる。
ただ、普通といっても画面表示するわけではなく、拡張子が.basの場合はファイル
のダウンロードになってしまうのですが。

英語のアドバイスはありがとうございます。
おそらく２年以内にはアドバイスを反映できると思います。

#12179　文太さん
> firefoxでは、
> 27-138-85-108.rev.home.ne.jp:9801/othell.bas		
> 　に (A) が化けて、飛ばないです。

#12185　としきさん
> Edgeでは、ほとんど（全て？）のURLで、なぜか頭の「http://」が消えます

お二人の言っている「化ける」「消える」の意味は？

アドレスバーとかステータスバーに「表示」されているものですか？
だとしたら，単に「スキーム省略」という表示上の仕様なのでは？
（例えば，トップドメイン？の末尾のスラッシュを「表示」しないのと同じ）

なお，上記 URI の場合は，……設定によるのかもしれませんが……
(ア) いきなりダウンロード（Firefox，Opera）
(イ) ダウンロードの可否を確認（Chrome，Edge）
……というわけで，スクリーンに表示することはありませんでした。
.txt や .htm などのテキストでなく実行ファイルとして認識されたのかな。

としきさん

>ループは、for型かwhile型、またはrepeat until型で必ず構成する、
>と自分に強制す〔る〕　　（#12165 より）
　ってことですよね。

　おお、こういうのは初めてみた。
-----------------------------------
2920               'ENDIF
2930           'ENDIF
2940       'ENDIF
2950    NEXT
2960 NEXT
-----------------------------------
　美しくて綺麗です！

　ごめんなさい、お付き合いくださっていることに常々感謝しているの
ですが、１スレッド１画面に収まるようにさせていただきたいのです。
　で、以下、続きは、下の、スレッドが比較的すなおに左上から右下へ
ながれる形でいきましょうよ。
　１画面すんだら、適当なタイトルで新スレッドにする。
　ぼくがしまーす。

> 私も昔、BASICのオセロを移植したことがあります。
> 移植元はPC-8001mkII用。ベーマガ1983年８月号に掲載されたものです。

おお、先輩！

> ん、でもおかしいな、この記事では４月号掲載のPC-6001用のオセロを参考にしたと
> あるけど、その４月号にはPC-6001用オセロは載っていない気がする。
> 見落としたのか、機種が違うのか、それとも何月号という部分が間違っているのか。

私のメモによると82年の3月のようです。
1982-03-P39	PC6001 	othello.bas	ot60-1.bas
参考資料　「 月刊 マ イコ ン 」82 年 1 月 号 大 島 理 夫 氏 「 オ セロ ・ゲー ム
月刊 マ イコ ンが元ネタなのかはうろおぼえ。

> なお、移植に当たっては、としき的なBASICの書き方にしました。
> 記念に、期間限定で公開。
> ttp://27-138-85-108.rev.home.ne.jp:9801/othell.bas

おお！　記念に落とさせてもらいました。＼(^^)／ 

> これをさらに、LSI-Cに移植してポケ３で動くようにしたい、という野望があったの
> ですが、あえなく挫折。野ざらし言#5230にちょっとだけ書きました。

ちょっと興味があります。そういえばVZマクロでもオセロが２つありましたよね。
それらはとしきさんのところでは動きませんか？
12行環境のシグ２などで動けばポケ3でもいけそうな。(^^;

> ただ、としき的なBASICの書き方だと、ある程度までは一括変換が可能。
> b2c.sedという、３０行程度のスクリプトで、バサッと変換をかましました。
> そのあとはちまちまとＣ言語化していきましたけどね。

これもちょっと興味ありますが、今はBASICで手いっぱいで。(^^;

お二方へ（ほぼ独り言ですが）

１　移植元：PC-8001mkII用。ベーマガ1983年８月号に掲載
２　移植先：PC-8801。（としきのオセロ）
３　１の移植元は、４月号掲載のPC-6001用

　たしかに、『べーまが』（1983/08）p.124に、
---------------------------------
参考作品
4月号PC-6001用コンピュータ・オセロ
---------------------------------
　とある。

---------------------------------
>Ygrep "オセロ" c:\0bmg

東芝 PASOPIA(T)
c:\0bmg\1982.bmg      211:ウルトラ・オセロ	... オセロもここまで来た

エプソン HC-20
c:\0bmg\1982.bmg      322:コンピュータ・オセロ	... グラフィックがきれいですね

NEC PC-8001mkII
c:\0bmg\1983.bmg      741:コンピュータ・オセロ	... 〔チットレ〕キミはパソコンに勝てる？

NEC PC-8201	★これは次なる派生形。1984では「チットレ」さんのあと。
c:\0bmg\1984.bmg     1216:オセロ・ゲーム	... おなじみのゲームですが、また楽し！

富士通 FM-7/77/8
c:\0bmg\1984.bmg     1899:3Dオセロ・ゲーム	... 立体オセロです。おもしろさ3倍！
---------------------------------
　上は、もちろん手作り（！）です。
　sedで、こんなグレップが作れないわけでもありませんが。

>私のメモによると82年の3月のようです。《これは『べーまが』ではない》
>1982-03-P39	PC6001 	othello.bas	ot60-1.bas
>参考資料「月刊マイコン」82年1月号大島理夫氏「オセロ・ゲーム
>月刊マイコンが元ネタなのかはうろおぼえ。

　上からは辿れず。
　「月刊マイコン」82年1月号には、
「最新マイコン情報＆移植」という「特別企画」があり、
--------------------------------------------
 PC-8001 <--> PC-6001, JR-100, ZX-81		p.215
　マイコン移植教室
--------------------------------------------
　というのがありました。
　「大島理夫」のお名前は、目次ページにあるにはある。
　この号、広告にページ数がはいってないみたいだけど、Acrobatが
あばれるくらいに厚い雑誌のようです。待たされてうんざり。

　結果なにもなしでしたぁ！
　これだけの時間で、としきさんのソースを１回は眺められたろう。
　こういう、せこい人生が嫌なのよねぇ。


>あれ、でもおかしいな。
>#11996にもあるとおり、ベーマガの創刊は1982年7月。
>ということは、ラ製別冊付録の時代か。
>さすがにその時代のものまでは私は持っていない。

　これは、archive.org では見つけられず。

>月刊マイコンならその時代、39ページ目は高い確率で広告ページだと思う。

　ページナンバリングの仕組みがよく分からず。はい、厚いです、広告。

　７６年から８４年まで。
　８タブでそのまま上げてみます。
　悲惨だったら、何か加工はします。
　以下の作者はSHARP にぞっこんな人なので、「妄想MZ-2000」なんてのを
以下の資料から書きました。原典は、アーカイブのどっかから「ＭＺの部屋」をキーに
探してください。
　このまま見せて！　だから、テキストファイルでこういうのは無理があるのよ。

		SHARP		NEC		Fujitsu		others
--------------------------------------------------------------------------------------
1976（昭和51） 	　 		(8)TK-80
--------------------------------------------------------------------------------------
1977（昭和52） 	　 		(11)TK-80BS 	(5)L-KIT 8
--------------------------------------------------------------------------------------
1978（昭和53） 	(12)MZ-80K 		　 	　 		BASICマスター（日立）
								PET2001（コモドール）
								M100 8K BASIC （ソード）
--------------------------------------------------------------------------------------
1979（昭和54） 			(4)COMPO-BS			6809展示（モトローラ）
				(5)PC-8001 			BASICマスターExtra（日立）
		(10)MZ-80C					M100ACE（ソード）
								CBMシリーズ（コモドール）
--------------------------------------------------------------------------------------
1980（昭和55） 	(3)PC-1210					BASICマスターL3（日立）
		(5)PC-3100	(5)TK-85			↑初の6809マシン
		(6)MZ-80K2					if-800（沖）
								FX-9000P（カシオ）
--------------------------------------------------------------------------------------
1981（昭和56） 	(4)MZ-80B					TRS-80カラー（タンディ）
		(11)MZ-80K2E 	(9)PC-6001			VIC-1000（コモドール）
				(9)PC-8801 	(5)FM-8		16ビット機
								（三菱、東芝、パナファコム）
--------------------------------------------------------------------------------------
1982（昭和57） 	(5)MZ-2000					JR-200（松下）
		(6)MZ-1200	(9)PC-2001			HC-20（信州精器<エプソン>）
		(10)MZ-700	(10)PC-9801 	(11)FM-7	MB-16001
		(10)X1 				(11)FM-11 	COMMODORE-64
--------------------------------------------------------------------------------------
1983（昭和58） 	(5)MZ-2200	(1)PC-8201	(11)FM-X 	パソピア-7（東芝）
		(9)MZ-5500	(10)PC-100			マルチ-8（三菱）
		(9)X1C，D 	(11)PC-6601			BASICマスターL3mkV（日立）
--------------------------------------------------------------------------------------
				(58)mkIIシリーズ
				(58)98FEシリーズ
--------------------------------------------------------------------------------------
1984（昭和59） 	(5)MZ-1500					パソピア1600
		(5)MZ-6500
		X1Cs，Ck 			(2)FM-11 AD，BS
						(5)FM-NEW7	各社MSX（サンヨー、東芝、
						(5)FM-77 	ソニー、三菱）とその周辺機器
--------------------------------------------------------------------------------------

　７６年から８４年まで。
　８タブです。

		SHARP		NEC		Fujitsu		others
--------------------------------------------------------------------------------------
1976（昭和51） 	　 		(8)TK-80
--------------------------------------------------------------------------------------
1977（昭和52） 	　 		(11)TK-80BS 	(5)L-KIT 8
--------------------------------------------------------------------------------------
1978（昭和53） 	(12)MZ-80K 		　 	　 		BASICマスター（日立）
								PET2001（コモドール）
								M100 8K BASIC（SORD）
--------------------------------------------------------------------------------------
1979（昭和54） 			(4)COMPO-BS			6809展示（モトローラ）
				(5)PC-8001 			BASICマスターExtra（日立）
		(10)MZ-80C					M100ACE（SORD）
								CBMシリーズ（コモドール）
--------------------------------------------------------------------------------------
1980（昭和55） 	(3)PC-1210					BASICマスターL3（日立）
		(5)PC-3100	(5)TK-85			↑初の6809マシン
		(6)MZ-80K2					if-800（沖）
								FX-9000P（CASIO）
--------------------------------------------------------------------------------------
1981（昭和56） 	(4)MZ-80B					TRS-80カラー（タンディ）
		(11)MZ-80K2E 	(9)PC-6001			VIC-1000（コモドール）
				(9)PC-8801 	(5)FM-8		16ビット機
								（三菱、東芝、パナファコム）
								JR-100（松下）
--------------------------------------------------------------------------------------
1982（昭和57） 	(5)MZ-2000					JR-200（松下）
		(6)MZ-1200	(9)PC-2001			HC-20（信州精器<エプソン>）
		(10)MZ-700	(10)PC-9801 	(11)FM-7	MB-16001
		(10)X1 				(11)FM-11 	COMMODORE-64
								M5（SORD）
								FP-1000/1100（CASIO）
--------------------------------------------------------------------------------------
1983（昭和58） 	(5)MZ-2200	(1)PC-8201	(11)FM-X 	パソピア-7（東芝）
		(9)MZ-5500	(10)PC-100			マルチ-8（三菱）
		(9)X1C，D 	(11)PC-6601			BASICマスターL3mkV（日立）
--------------------------------------------------------------------------------------
				(58)mkIIシリーズ
				(58)98FEシリーズ
--------------------------------------------------------------------------------------
1984（昭和59） 	(5)MZ-1500					パソピア1600（東芝）
		(5)MZ-6500			(2)FM-11 AD，BS
		X1Cs，Ck 			(5)FM-NEW7	各社MSX（サンヨー、東芝
						(5)FM-77 	ソニー、三菱）
--------------------------------------------------------------------------------------

文太さん

> 　「月刊マイコン」82年1月号には、
> 「最新マイコン情報＆移植」という「特別企画」があり、
> 　「大島理夫」のお名前は、目次ページにあるにはある。
> 　結果なにもなしでしたぁ！

これは、オセロプログラムのページを見つけられなかったということですか。
おかしいなぁ。私は見つけました。ついでに画像保存もしました。＼(^^)／ 


マイコン1月号 電波新聞社 1982 Printed in Japan/編集発行人:平山秀雄


FX-9000P ファンに贈る   FX7 オセロゲーム   大島理夫…………………170
※低解像度にしました。


> >ということは、ラ製別冊付録の時代か。
> >さすがにその時代のものまでは私は持っていない。
> 　これは、archive.org では見つけられず。

これのことでしょうか。

IBM Personal Computer
Hardware Reference Library
          BASIC
Second Edition (May 1982)

　というマニュアルがありまして、その割と冒頭に

The STRIG function for Advanced BASIC now
reads four joystick buttons. This is useful if you
happen to have four one-dimensional paddles.

　なんて記述がありました。1982年に４つのボタンの
ジョイスティックが存在していたことになりますね。
　81年がＩＢＭ・ＰＣ（16 bit, 8088, ＭＳ伝説の始まり）
の発売なので、１年後ぐらいには、４つボタン対応に。

　ま、１６ビットの前の８ビットマイコンの話を、我々は
このところしているわけですが。

追伸：Shooting Trigger でもいいんですけど、QuickBasic
by MS の最後ヴァージョンでは、Stick Trigger でしたけどね。
　まず、BASIC で、やがてＯＳで、世界制覇をしたのですよねぇ。
　いや、すぐ LINUX の時代？　うーん？？？

　むふふふ。ブチ切れた文太です。

　まだ動かせませんが。
　３時間かかりました。途中で１５分寝落ちしましたが。
　けっこう楽しかった。分かっていく喜び。
　まだ、「1」「l」「I」とか残ってると思います。
　いくつか、こんなの知らない、というのがあります。


'  === Computer Othello ===
' by Masao Kimura 1982 03 Game Collection
'  (Basic Magazine Special) pp.39-42
' for PC-6001
' vars' list: CO, YO = Comp/Player points;  HC, HY = best score
'  KK = 0:pass (cannot put); 1:put successfully
'  PB,P = Comp/Player remaining pass(es);  X,Y = matrix (yoko,tate)
'  A(I,J) = 0:none, 1:comp's tile exists, -1: player's exists
'  C,D = comp's next spot/matrix, yoko,tate (DATA READ)
'  SYM; Player O, Comp X
'  KEYS; F01(next try), F02(pass), STOP>F03>F04 to finish
'  Space = play again

   3 REM --- Init ---
   4 HC=0 : HY=0 : GOTO 1500		'TITLE
   5 KK=8 : P=5 : PB=S
   6 FOR I=0 TO 7 : FOR J=0 TO 7 : A(I,J)=0 : NEXT J, I
  10 SCREEN 1,1,1,1 : LOCATE 0, 15 : CLS : CONSOLE 0, 15, 0 : CLS
'
  11 REM --- Window Setting ---
  12 LOCATE 10, 1 : PRINT "Computer Othello"
  13 PRINT "If there is no place to put your tile in"
  14 LOCATE 1, 7  : PRINT "Hit [F02]"
  15 LOCATE 1, 9  : PRINT "But 5 times only."
  16 LOCATE 1, 10 : PRINT "With 6 times, you lose."
  17 KEY 1, "pn"+CHR$(13) : KEY 2, "py"+CHR$(13)
  18 LOCATE 21, 3 : PRINT "[F01] = Not PASS"
  19 LOCATE 21, 4 : PRINT "[F02] = PASS"
  20 LOCATE 12, 4 : PRINT "01234567"
  30 FOR I=0 TO 7
  31 	LOCATE 10, 5+I : PRINT I; "++++++++" : NEXT
  32 LOCATE 15, 8 : PRINT "OX" : A(3,3)=-1 : A(4,3)= 1
  34 LOCATE 15, 9 : PRINT "XO" : A(3,4)= 1 : A(4,4)=-1
  35 LOCATE 20, 6 : PRINT "Your PASS"
  36 LOCATE 21, 7 : PRINT "You = ";P
  37 LOCATE 21, 8 : PRINT "Computer = ";PB
  38 LOCATE 20, 10: PRINT "When you want to finish the game, Hit [STOP]"
  39 LOCATE 22, 11: PRINT "and [F03], [F04]"
'
  40 KEY 3, "cls"+CHR$(13)+"go" : KEY 4, "to 1100"+CHR$(13)
'
  44 REM --- Player Input ---
  45 CONSOLE 13, 4 : CLS
  50 INPUT "         yoko where?         ";X
  51 IF X<0 OR X>7  THEN 56
  52 INPUT "         tate where?         ";Y
  53 IF Y<0 OR Y>7  THEN 56
  54 IF A(X,Y) <> 0 THEN 56
  55 GOTO 100
'
  56 CONSOLE 13, 4 : CLS : PLAY "o4l16CDCD"
  57 INPUT "Cannot go!  Think again = [F01]  or  PASS = [F02]";PP$
  58 IF PP$ <> "py" AND PP$ <> "pn" THEN 57
  59 IF PP$ =  "py" THEN GOSUB 900 : GOTO 115	'P pass, C input
  60 IF PP$ =  "pn" THEN 40
'
 100 KX=X : KY=Y : KK=0 : C$="O" : K=-1 : GOSUB 300
 110 IF KK=0 THEN 56
'
 114 REM --- Computer Input ---
 115 CONSOLE 13, 4 : CLS : PRINT
 116 PRINT " Now Computer is thinking .... "
'
 118 RESTORE 800
 120 READ C, D : IF C=9 AND D=9 THEN GOSUB 850 : GOTO 40
 122 IF A(C,D) <> 0 THEN 120
 123 KX=C : KY=D
 125 KK=0 : K=1 : C$="X" : GOSUB 300		'moving forward
 130 IF KK=0 THEN GOTO 120			'READ
'
 140 CONSOLE 13, 4 : CLS : PLAY "o4l4c" : PRINT
 141 PRINT "Now, finished thinking!"
 152 FOR I=0 TO 300 : NEXT : GOTO 40
'
' --- SUBROUTINES ---
'
 290 REM --- Moving Forward ? ---
 300 FOR AX=-1 TO 1 : FOR AY=-1 TO 1
 302 	IF AX=0 AND AY=13 THEN 390			'out/again
 304 	N=2
 305 	A=KX+AX*N : B=KY+AY*N
 306 	IF A<0 OR A>7 THEN 390				'ditto
 307 	IF B<0 OR B>7 THEN 390				'ditto
 308 	IF KX+AX < 0 OR KX+AX > 7 THEN 390		'ditto
 309 	IF KY+AY < 0 OR KY+AY > 7 THEN 390		'ditto
 310 	IF A(KX+AX*(N-1), KY+AY*(N-1)) <> -K THEN 390	'ditto
 330 	IF A(A,B)=K THEN 390				'ditto
 335 	N=N+1 : GOTO 305			''
 336 	LOCATE 0, 8 : PRINT N; A; B
 350 	LOCATE KX+12, KY+5 : COLOR 3 : PRINT " "
 351 	FOR I=0 TO 200 : NEXT I
 352 	COLOR 1 : KK=1
 380 	FOR I=0 TO N
 381 		LOCATE KX+AX+I+12, KY+AY*I+5
 385 		PRINT C$ : A(KX+AX*I,KY+AY*I)=K
 386 	NEXT
 387 	LOCATE X+12, KY+5 : PRINT C$
 390 NEXT AY, AX
 391 RETURN
'
 790 REM --- Data for Computer's decision ---
 800 DATA 0, 7, 7, 0, 0, 0, 7, 7, 2, 2, 5, 2
 802 DATA 2, 5, 5, 5, 3, 2, 4, 5, 5, 4, 2, 3
 804 DATA 5, 3, 4, 2, 2, 4, 3, 5, 2, 0, 3, 0
 806 DATA 4, 0, 5, 0, 0, 2, 0, 3, 0, 4, 0, 5
 808 DATA 7, 2, 7, 3, 7, 4, 2, 7, 3, 7, 5, 7
 810 DATA 2, 1, 3, 1, 4, 1, 5, 1, 2, 6, 3, 6
 812 DATA 4, 6, 5, 6, 1, 2, 1, 3, 1, 4, 6, 2
 814 DATA 6, 3, 6, 4, 6, 5, 1, 1, 6, 6, 6, 1
 816 DATA 1, 6, 0, 1, 1, 0, 6, 0, 7, 1, 0, 6
 818 DATA 1, 7, 6, 7, 7, 6, 9, 9
'
 845 REM --- Computer PASS ---
 850 PB=PB-1
 851 CONSOLE 13, 4 : PRINT " Computer will PASS "
 852 FOR I=0 TO 500 : NEXT
 852 LOCATE 21, 8 : PRINT "Computer = "; PB
 854 IF PB<O THEN N$="You" : GOTO 1000		'GameOver
 855 RETURN
'
 895 REM --- Player PASS ---
 900 P=P-1
 902 LOCATE 21, 7 : PRINT "You = ";P
 930 IF P<O THEN N$="Computer" : GOTO 1000	'GameOver
 940 RETURN

990 REM --- Game Over ---
1000 SCREEN 3,2,2 : COLOR 4,2,1 : CONSOLE 0,15,0 : CLS : CONSOLE 15,1
1001 LOCATE 2, 1 : PRINT "Game Over"
1010 LOCATE 1, 3 : PRINT N$;"is the winner!"
1020 LOCATE 2, 4 : PRINT "POINTS"
1030 LOCATE 3, 5 : PRINT "You =  ";YO
1040 LOCATE 3, 6 : PRINT "Computer =  ";CO
1042 LOCATE 2, 8 : PRINT "The best scores are"
1043 LOCATE 3, 9 : PRINT "You      =";HY
1044 LOCATE 3, 18: PRINT "Computer =";HC
1045 LOCATE 1, 12: PRINT "Play again?  Then, Hit SPACE KEY."
1046 GOTO 1641					'MUSIC

1090 REM --- Calc of points ---
1100 CO=0 : YO=0
1101 FOR I=0 TO 7 : FOR J=0 TO 7
1110 	IF A(I,J)= 1 THEN CO=CO+1 : GOTO 1120	'out/again
1115 	IF A(I,J)=-1 THEN YO=YO+1
1120 NEXT J, I
1121 IF CO>HC  THEN HC=CO
1122 IF YO>HY  THEN HY=YO
1130 IF CO<=YO THEN N$="You"      : GOTO 1000	'GameOver
1140 		    N$="Computer" : GOTO 1000	'ditto
'
1499 REM --- TITLE ---
1500 SCREEN 3, 2, 2 : CONSOLE 0, 15 : COLOR 1, 2, 2 : CLS
1510 LOCATE 2, 2 : PRINT "COMPUTER OTHELLO"
1520 LOCATE 1, 5 : PRINT "Hey! You! .."
1530 LOCATE 2, 7 : PRINT "Can you beat Computer?"
1540 COLOR 4
1541 LOCATE 1, 1 : PRINT "To start, Hit the Space KEY"
1600  IF STRIG(0)=0 THEN 1600
1610 GOTO 5
'
1630 REM --- MUSIC ---		'line nums changed from the original
1641 PLAY "s13o5l2cd-l4c. l2o4b-r8l8b-b-b-l4b-o5l8oo4l2a-"	'
1642 GOSUB 1700
1643 PLAY "o4l2a-b-l4a-. l2gr818gggl4gl8a-l2fr2"
1644 GOSUB 1700
1645 PLAY "o418ca-gl2a-r4l8a-gfgfel4dl8a-l2a-"		'1643(org)
1646 GOSUB 1700
1647 PLAY "r418ga-gfeo3bo4l4cl8e14c.l8co3l4bo4l8dl2c"	'1644(org)
1648 GOSUB 1700
1649 PLAY "o418oa-gl2a-r418fga-gfel4d.l2a-r4"		'1645(org)
1650 GOSUB 1700					'1646 below(org)
1651 PLAY "l8o4ga-gfeo3b-o4ccecl4c. l8co3l4b-o4l8dl4cgl2fr2r2"
1652 GOTO 1641						'MUSIC r.
1700  IF STRIG(0)=0 THEN RETURN
1710 GOTO 5

> 　むふふふ。ブチ切れた文太です。

むむむむ。ブチ切れた文太さんは怖い。(-_-;)

> 　まだ動かせませんが。
> 　３時間かかりました。途中で１５分寝落ちしましたが。
> 　けっこう楽しかった。分かっていく喜び。

1982年03月の PC-6001 Othello のソースリストですか。
お疲れ様です。m(__)m

> 　まだ、「1」「l」「I」とか残ってると思います。

ソースの冒頭だけでも
>    5 KK=8 : P=5 : PB=S
          ↓          ↓
     5 KK=0 : P=5 : PB=5
違うようです。変数の値があてにならないのが厄介なんですよね。(>_<)
私のも初期画面までは動いたんですが、コマが置けなくて挫折してます。(>_<)
どこかの変数の数値とかが違ってるんでしょうね。
Turbo BASICです。

文太さんのソースは CONSOLE文の行を REM にすれば Turbo BASICで
コンパイル通ります。でも動かない。(>_<)

konnoさん

>ソースの冒頭だけでも
>          ↓          ↓
>     5 KK=0 : P=5 : PB=5

　文太、ぜんぜん甘々だな。

>文太さんのソースは CONSOLE文の行を REM にすれば Turbo BASICで
>コンパイル通ります。でも動かない。(>_<)

　文太、ぜんぜん怖くないな。

http://p6ers.net/hashi/furoku1.html

>N66-BASICとN60-BASICの違いはPC-6601とPC-6001のハードウェア上
>の違いと大いに関係があります。 

　Ｎ６６とＮ６０も違う、と。深いのぉ。

> http://p6ers.net/hashi/furoku1.html
> 　Ｎ６６とＮ６０も違う、と。深いのぉ。

ファンサイトですか。良いですね、PC-6シリーズ愛が感じられます。

> 				PC-6601		PC-6001
> 1 スクリーン構成　SCREEN1	40文字×20行	32文字×16行
> 2 グラフィックス機能┌2      	80×40ドット  	64×48ドット
> 		SCREEN┤3	160×200ドット	128×192ドット
> 		      └4	320×200ドット	256×192ドット
> (CIRCLE)(PUT[@]),(GET[@])

これを見て、画面がちっちぇ〜、、と思いましたが
PC-8001は テキスト80桁×25行、グラフィック160×100ドット8色
テキストはいいとして、グラフィックはもっとちっちぇ〜 ！！ 
まあ、マイコンキットの組み立て済みみたいなものだしなぁ・・・
(CIRCLE)などの機能も当初は削除されてたとか、ユーザーのことを考えてない。

さて、甘々で怖くない人むけに、PC-8001オセロのQB移植ソースでも出すかな。
としきさんのが完成形なので、デザインを参考にもうちょいお直しして。(^^;