- Transfer to WonderSwan Color development kit

- Add colormode, palette, color statement, hardarch system variable - Add a digression to the document Version 0.06 - from wonbe006.lzh
- Hirotaka JOE Ohkubo's difference (0.04j4) can be merged with play statement (sound.il required)
2001-01-29 12:00:00 +09:00 · 2000-12-10 12:00:00 +09:00 · 2000-11-12 12:00:00 +09:00 · 2000-11-07 17:00:00 +09:00 · 2000-11-07 12:00:00 +09:00
21 changed files with 2921 additions and 309 deletions
--- a/Makefile.tcpp10
+++ b/Makefile.tcpp10
@@ -0,0 +1,32 @@
+# Makefile for Wonbe 0.04j4
+# with GNUmake and gcc / Turbo C++ 1.0
+# Hirotaka JOE Ohkubo 2000/12/04
+
+INCLUDE = C:/WWitch/include
+C0WW = C:\\WWitch\\lib\\c0wwjpn1.obj
+LIBS = C:\\WWitch\\lib\\libww.lib C:\\WWitch\\lsic86ww\\lib\\s\\runtime.lib
+
+COPTS = -1 -j1 -d -O -Z -ms! -zPCGROUP -zSDGROUP -zGDGROUP
+CFLAGS = -DWW
+
+all: wonbe.fx wonbe32.exe
+
+wonbe.fx: wonbe.bin
+	mkfent wonbe.cf
+
+wonbe.bin: wonbe.obj
+	tlink /m /c $(C0WW) wonbe.obj, wonbe, wonbe, $(LIBS)
+	exe2fbin wonbe.exe wonbe.bin
+	rm wonbe.exe
+
+wonbe.obj: wonbe.c keywords.h
+	tcc -I$(INCLUDE) $(COPTS) $(CFLAGS) -c wonbe.c
+
+wonbe32.exe: wonbe.o win32text.o
+	gcc -o wonbe32.exe wonbe.o win32text.o -lgdi32
+
+wonbe.o: wonbe.c keywords.h
+	gcc -c -DWIN32 -DCYGWIN wonbe.c
+
+win32text.o: win32text.c win32text.h
+
--- a/colordemo.wb
+++ b/colordemo.wb
@@ -0,0 +1,11 @@
+100 rem draw random characters
+110 if hardarch = 0 then print "Try in WonerSwanColor":a=wait:end
+120 colormode 128
+200 for i=0 to 1000
+300 locate rnd(28), rnd(17):color rnd(4), rnd(4):print chr(rnd(256));
+400 next
+450 locate 0,0:color 3,0:print "Push START to exit...."
+500 rem palette random
+600 palette rnd(4), rnd(16), rnd(16), rnd(16)
+700 waitvb 30
+800 goto 500
--- a/ctb.wb
+++ b/ctb.wb
@@ -0,0 +1,290 @@
+10 goto 10000
+
+1000 ' 駒表示
+1001 ' X,Y : センター座標, A : 駒データ位置, B : 0x20 で消去, 0x81A1 で '■'
+1002 y = Y : if y >= 0 then locate X,y : print chr(B);
+1003 for i=A to A+4 step 2
+1004 y = Y + @(i+1) : if y >= 0 then locate X + @(i),y : print chr(B);
+1005 next
+1006 return
+
+1100 ' 移動できるかチェック
+1101 ' U,V : センター座標, W : 駒データ位置, F : 0 OK / 1 NG
+1110 F = 1 : @(P) = 1 'ぶず
+1111 if @(1+U+V*12) then goto 1116
+1112 if @(1+U+@(W  )+(V+@(W+1))*12) then goto 1116
+1113 if @(1+U+@(W+2)+(V+@(W+3))*12) then goto 1116
+1114 if @(1+U+@(W+4)+(V+@(W+5))*12) then goto 1116
+1115 F = 0
+1116 @(P)=0 : return
+
+1200 ' スコア表示
+1210 locate 21,11
+1220 if S < 10000 then print " ";
+1230 if S <  1000 then print " ";
+1240 if S <   100 then print " ";
+1250 if S <    10 then print " ";
+1260 print S;
+1270 return
+
+1300 ' ブズ回転
+1310 O = rnd(4)+0x81A8 : locate Q+8,R-4 : print chr(O);
+1320 T = tick + 66
+1330 return
+
+1400 ' データと画面をスクロールダウン
+1401 ' Y : 消えるライン xy座標系
+1410 for i=Y*12+10 to 13 step -1 : @(i)=@(i-12) : next
+1420 for i=1 to 10 : @(i)=0 : next
+1430 for i=Y to 4 step -1 : for j=1 to 10
+1440 locate j+8,i-4 : k=@(i*12+j)
+1450 if k=1 then print "■"; : goto 1460
+1451 if k=2 then print chr(2); : goto 1460
+1452 print " ";
+1460 next : next
+1470 return
+
+3000 ' メインループ
+3010 if T < tick then gosub 1300 ' ブズ回転
+3020 if t < tick then goto 3500 ' 落とす
+
+3100 ' キースキャン
+3110 U = x : V = y : W = a
+3120 k = scan : if k and l then goto 3150 ' 一度手を離せ。
+3130 if k and scan_a  then W = @(W+6) : l = scan_a  : goto 3200
+3131 if k and scan_x2 then U = U + 1  : l = scan_x2 : goto 3200
+3132 if k and scan_x3 then V = V + 1  : l = scan_x3 : goto 3200
+3133 if k and scan_x4 then U = U - 1  : l = scan_x4 : goto 3200
+3140 l = 0 ' 何も押されていない
+3150 waitvb 1
+3160 goto 3000
+
+3200 ' キーによる駒移動
+3210 gosub 1100 ' 移動できるかチェック
+3220 if F then if l = scan_x3 then goto 3600 ' 押し込み
+3230 if F then goto 3000 ' 動かせない。おしまい。
+3240 ' 動かせる。実行。
+3250 if l = scan_x3 then l = 0 ' : t = tick + w ' 下向きだけはリピート可能
+3260 X = x+9 : Y = y-4 : A = a : B = 32 : gosub 1000 ' 今のを消す
+3270 x = U : y = V : a = W
+3280 X = x+9 : Y = y-4 : A = a : B = 0x81A1 : gosub 1000 ' 移動後を表示
+3290 goto 3000
+3299 ' メインループ終わり
+
+3500 ' 時間切れ。一つ下がる
+3510 U = x : V = y + 1 : W = a : gosub 1100
+3520 if F then goto 3600 ' 下がれない。
+3530 X = x+9 : Y = y-4 : A = a : B = 32 : gosub 1000 ' 今のを消す
+3540 y = V : Y = y-4 : B = 0x81A1 : gosub 1000 ' 移動後を表示
+3550 t = tick + w
+3560 play "o1a16" ' 落下音
+3570 goto 3000
+
+3600 ' 着底
+3610 ' 埋まったラインを消す
+3615 play "o1g8"
+3620 @(P)=1
+3621 @(1+x+y*12)=1
+3622 @(1+x+@(a  )+(y+@(a+1))*12)=1
+3623 @(1+x+@(a+2)+(y+@(a+3))*12)=1
+3624 @(1+x+@(a+4)+(y+@(a+5))*12)=1
+3630 for i=y+@(a+1) to y+@(a+5)
+3640 f=0 : @(P)=1
+3650 for j=1+i*12 to 10+i*12
+3660 if @(j)=0 then f=1
+3670 next
+3680 @(P)=0
+3690 if f then goto 3920 ' このラインは消せない。次。
+3710 if i <> R then goto 3780
+3720 ' ブズ抹消!
+3730 locate Q+8,R-4 : print chr(2);
+3740 S=S+50 : gosub 1200 : play "o4e8~c0"
+3760 P=1 : R=22 ' ブズ死亡状態
+3770 goto 3800
+3780 ' ラインだけ消去
+3790 S=S+1 : gosub 1200 : play "g16"
+3800 ' データと画面をスクロールダウン
+3810 Y=i : gosub 1400
+3870 ' ブズ復元
+3880 if P=1 then goto 3920
+3890 ' ブズが落ちてきたブロックに殴られたか?
+3900 if @(P) then P=P+12 : R=R+1 : S=S+75 : gosub 1200 : play "g16c16"
+3910 locate Q+8,R-4 : print chr(O);
+3920 next ' MAX4ブロック分ループ終了。
+
+4000 ' ブズの移動フェーズ
+4010 if P=1 then goto 4300 
+4020 locate Q+8,R-4 : print " "; : c = 4
+4030 goto 4040 + (O and 1) * 4 + (O and 2) '時計回りの苦肉の策
+4040 if @(P+1)=0 then P=P+1 : Q=Q+1 : goto 4050              ' 0x81A8 右 00
+4041 c=c-1 : if c=0 then goto 4080
+4042 if @(P-12)=0 and R>1 then P=P-12 : R=R-1 : goto 4050    ' 0x81AA 上 10
+4043 c=c-1 : if c=0 then goto 4080
+4044 if @(P-1)=0 then P=P-1 : Q=Q-1 : goto 4050              ' 0x81A9 左 01
+4045 c=c-1 : if c=0 then goto 4080
+4046 if @(P+12)=0 then P=P+12 : R=R+1 : goto 4050            ' 0x81AB 下 11
+4047 c=c-1 : if c=0 then goto 4080
+4048 goto 4040
+4050 ' 動けた! 「ぷふぁ」
+4051 ' ぶずが画面上に抜けたらゲームオーバー
+4052 if R < 4 then locate Q+8,R-3 : print chr(1);: goto 4400
+4060 gosub 1300
+4070 goto 4300
+4080 ' ぶずは囲まれた! 「ぎゃう」
+4090 S = S + 100 : gosub 1200 : play "e8~>c0" ': play "o6#0c8#1e8#2g8"
+4100 locate Q+8,R-4 : print chr(2);
+4110 @(P) = 2 : P=1 : Y=R : R=22
+4120 ' この死体でこのラインが埋まるか?
+4130 f=0
+4140 for i=Y*12+1 to Y*12+10
+4150 if @(i)=0 then f=1
+4160 next
+4170 if f then goto 4300
+4180 waitvb 7 : play "g16" : gosub 1400
+4190 S=S+1 : gosub 1200
+
+4300 ' 絶対不可侵領域を塗りつぶしてないか→ゲームオーバー
+4310 f=1
+4320 for i=1+3*12 to 10+3*12
+4330 if @(i) then f=0
+4340 next
+4350 if f then goto 5000 ' 詰まってはいない。
+4400 ' GAME OVER
+4410 play "o3edc"
+4420 locate 10, 9 : print "G A M E";
+4430 locate 10,11 : print "O V E R";
+4440 k=wait
+4450 if scan then goto 4450 ' 手を離せ。
+4455 for i=0 to 17: locate 9,i : print "          ";:next
+4460 goto 10050 ' スタート画面へ。
+
+5000 ' ブズ生成 *スタート時突入ポイント*
+5010 if P<>1 then goto 5100
+5020 Q=rnd(10)+1
+5030 R=16+rnd(7)-rnd(7) : if R = 22 then R=20
+5040 P=Q+R*12 : if @(P) then goto 5020
+5050 gosub 1300
+
+5100 ' 次の駒生成
+5110 for j=4 to 7: locate 22,j : print "    "; : next
+5120 a = b : b = rnd(19)*7+K
+5130 X = 24 : Y = 6 : B = 0x8E9F : A = b : gosub 1000
+5140 x = 5 : y = 2 ' 駒の初期位置
+5150 t = tick + w ' 次のタイムアウト
+5160 l = scan_x3 ' 下が続けて入ってしまうのを避けるため
+5170 goto 3000
+
+9999 end
+
+10000 ' いろいろ準備ちゅう...
+10010 randomize tick
+10020 gosub 20000 ' 表示初期化
+10030 play "cego6c2rco5gec2" ' テーマ音楽、でもない。
+10040 gosub 30000 '駒データ準備
+10049 ' ここから再開
+10050 locate 10, 9 : print "P U S H";
+10051 locate 10,11 : print " K E Y ";
+10060 k = wait
+10070 play "#0c#1e#2g"
+10080 for i=0 to 17: locate 9,i : print "          ";:next
+
+11000 ' ゲーム準備
+11010 b = rnd(19)*7+K ' 最初に落とす駒を準備
+11020 w = 90
+11030 for i=0 to K-1: @(i) = 0 : next
+11040 for i=0 to K-1 step 12 : @(i) = 1 : @(i+11) = 1 : next ' ばんぺいくん
+11050 for i=12*22+1 to K-1 : @(i) = 1 : next ' これもばんぺいくん(昇圧回路不要)
+11060 l = 0
+11070 P = 1 ' ぶず
+11080 S = 0 : gosub 1200 ' score
+11090 goto 5000 ' メインループ
+
+20000 ' 画面初期化
+20010 cls
+20020 for i=0 to 17: locate 8,i: print "左";: locate 19,i:print "右";: next
+20030 locate 2,3 : print "きゃっち";
+20040 locate 4,4 : print "ざ";
+20050 locate 2,5 : print "Buzz";
+20060 locate 2,7 : print "by";
+20070 locate 2,8 : print "流れ星の";
+20080 locate 3,9 : print "ジョヲ";
+20090 locate 22,2 : print "NEXT";
+20100 locate 21,3 : print "┏━━━━┓";
+20110 locate 21,4 : print "┃　　　　┃";
+20111 locate 21,5 : print "┃　　　　┃";
+20112 locate 21,6 : print "┃　　　　┃";
+20113 locate 21,7 : print "┃　　　　┃";
+20120 locate 21,8 : print "┗━━━━┛";
+20130 locate 21,10 : print "SCORE";
+29999 return
+
+30000 ' 駒の形
+30001 ' read - data 文も欲しくなる...
+30002 '   データ形式 (7 words/駒)
+30003 '   (センター座標からの x offset, y offset) × 3, 回転先駒データ位置
+30004 K = 23 * 12 : ' フィールド記憶領域の次に駒データを入れるベース位置
+30005 k = K
+30006 ' 縦棒 ID = 0
+30007 @(k  ) =  0 : @(k+1) = -2 : @(k+2) =  0 : @(k+3) = -1
+30008 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30009 ' 横棒 ID = 1
+30010 @(k  ) = -1 : @(k+1) =  0 : @(k+2) = -2 : @(k+3) =  0
+30011 @(k+4) =  1 : @(k+5) =  0 : @(k+6) = k-7: k = k + 7
+30012 ' 佐渡島 ID = 2
+30013 @(k  ) =  1 : @(k+1) =  0 : @(k+2) =  0 : @(k+3) =  1
+30014 @(k+4) = -1 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30015 ' 立ち佐渡島 ID = 3
+30016 @(k  ) = -1 : @(k+1) = -1 : @(k+2) = -1 : @(k+3) =  0
+30017 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k-7: k = k + 7
+30018 ' 逆佐渡島 ID = 4
+30019 @(k  ) = -1 : @(k+1) =  0 : @(k+2) =  0 : @(k+3) =  1
+30020 @(k+4) =  1 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30021 ' 立ち逆佐渡島 ID = 5
+30022 @(k  ) =  1 : @(k+1) = -1 : @(k+2) =  1 : @(k+3) =  0
+30023 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k-7: k = k + 7
+30024 ' L ID=6
+30025 @(k  ) =  0 : @(k+1) = -1 : @(k+2) =  0 : @(k+3) =  1
+30026 @(k+4) =  1 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30027 ' L+1 ID=7
+30028 @(k  ) =  1 : @(k+1) = -1 : @(k+2) =  1 : @(k+3) =  0
+30029 @(k+4) = -1 : @(k+5) =  0 : @(k+6) = k+7: k = k + 7
+30030 ' L+2 ID=8
+30031 @(k  ) = -1 : @(k+1) = -1 : @(k+2) =  0 : @(k+3) = -1
+30032 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30033 ' L+3 ID=9
+30034 @(k  ) =  1 : @(k+1) =  0 : @(k+2) = -1 : @(k+3) =  0
+30035 @(k+4) = -1 : @(k+5) =  1 : @(k+6) = k-21: k = k + 7
+30036 ' 逆L ID=10
+30037 @(k  ) =  0 : @(k+1) = -1 : @(k+2) =  0 : @(k+3) =  1
+30038 @(k+4) = -1 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30039 ' 逆L+1 ID=11
+30040 @(k  ) = -1 : @(k+1) =  0 : @(k+2) =  1 : @(k+3) =  0
+30041 @(k+4) =  1 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30042 ' 逆L+2 ID=12
+30043 @(k  ) =  1 : @(k+1) = -1 : @(k+2) =  0 : @(k+3) = -1
+30044 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30045 ' 逆L+3 ID=13
+30046 @(k  ) = -1 : @(k+1) = -1 : @(k+2) = -1 : @(k+3) =  0
+30047 @(k+4) =  1 : @(k+5) =  0 : @(k+6) = k-21: k = k + 7
+30048 ' 凸 ID=14
+30049 @(k  ) =  0 : @(k+1) = -1 : @(k+2) = -1 : @(k+3) =  0
+30050 @(k+4) =  1 : @(k+5) =  0 : @(k+6) = k+7: k = k + 7
+30051 ' 左凸 ID=15
+30052 @(k  ) =  0 : @(k+1) = -1 : @(k+2) = -1 : @(k+3) =  0
+30053 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30054 ' Ｔ ID=16
+30055 @(k  ) =  1 : @(k+1) =  0 : @(k+2) = -1 : @(k+3) =  0
+30056 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k+7: k = k + 7
+30057 ' ト ID=17
+30058 @(k  ) =  1 : @(k+1) =  0 : @(k+2) =  0 : @(k+3) = -1
+30059 @(k+4) =  0 : @(k+5) =  1 : @(k+6) = k-21: k = k + 7
+30060 ' 田 ID=18
+30061 @(k  ) =  0 : @(k+1) = -1 : @(k+2) = -1 : @(k+3) = -1
+30062 @(k+4) = -1 : @(k+5) =  0 : @(k+6) = k  : k = k + 7
+31000 return
+
+32764 ' 結局仕様書をまとめないとコーディングはできないね。
+32765 ' そう単純じゃなかった。
+32766 ' Catch the Buzz - original on Macintosh
+32767 ' reproduced with WONBE by Hirotaka JOE Ohkubo, 2000/12/07
+
--- a/janken.wb
+++ b/janken.wb
@@ -0,0 +1,95 @@
+100 rem じゃんけんゲーム for ワンべぇ
+110 rem     Nov.6,2000 by autumn
+200 T=40 'waitvbする長さ
+900 randomize tick
+1000 cls
+1010 print "　■　　■　　　　　　　　　　　　　　■"
+1020 print "　■　■　■　　　　　　　　　　　　　■"
+1030 print "　■　　■　　　　　　　　　　　　　　■"
+1040 print "　■　　■■　　　■　■■　　　　　■"
+1050 print "　■　　　　　　　■　■　　　　　　■"
+1060 print "　■　　　　　　　■　■■■　　　　■"
+1070 print "　■　　　　　　　■■　　　■　　■　■　　■"
+1080 print "　■　　　　　　■■　　　　■　　■■■　　　■"
+1090 print "　■　　　　　　■■　　　　■　　■　■　　　■"
+1100 print "　■　　　　■　　　■　■■　　■　　■　　　■"
+1110 print "　■　　　　■　　　■■■　　　■　　　■　■■"
+1120 print "　■　　　■■　　　■　　　　　■　　　■　■"
+1130 print "　■■■■■　　　　■　　　　■　　　　■■■"
+1140 print "　　　■■　　　　　　■　　　　　　　　■"
+1200 waitvb T
+2000 cls
+2010 print "　　　　　　　■　　　　　　　　■"
+2020 print "　　■　　　　■　　　　　　　　■"
+2030 print "　　■　　　　■　　　　　　　■"
+2040 print "　■■　　　　■　　　　　　　■"
+2050 print "　■　　■■■■■■■　　　　■"
+2060 print "　■　　■■■■　　　　　　■"
+2070 print "　■　　　　　■　　　　　　■■■　　　■"
+2080 print "　■　　　　　■　　　　　■■■■　　　　■"
+2090 print "　■　　　　　■　　　　　■　　■　　　　■"
+2100 print "　■　　　　　■　　　　　■　　■■　　■"
+2110 print "　■　　　　　■　　　　■　　　　■　　■"
+2120 print "　　■　　　　■　　　　■　　　　■　■■"
+2130 print "　■　　　　■■　　　　■　　　　■■■"
+2140 print "　　　　　　■　　　　　　　　　　　■"
+2200 waitvb T
+3000 a=rnd(3)
+3010 goto 4000+(a*1000)
+4000 cls
+4010 print "　　　　　　　　　　　　　　■"
+4020 print "　　　　　　■　■　　　　　■■■■■■"
+4030 print "　　　　　■■　　■　　　　　　■■■■"
+4040 print "　　　　■■　■　　■"
+4050 print "　　　■■　　　■"
+4060 print "　　　■　　　　　■　　　　　■■■■■"
+4070 print "　　■　　　　　　　　　　■■■■■■■"
+4080 print "　■■　　　　　　　　　　■　　　　　■■"
+4090 print "　■■　　　　　　　　　　　　　　　　■■"
+4100 print "　　■■　　　　　　　　　　　　　　　■■"
+4110 print "　　　■■　　　　　　　　　　　　　　■■"
+4120 print "　　　　■　　　　　　　　　　　　　　■"
+4130 print "　　　　■■　　　　　　　　　　　　■■"
+4140 print "　　　　　■■　　　　　　　　　■■■"
+4150 print "　　　　　　■■　　　　　　　■■■"
+4160 print "　　　　　　　　　　　　　　　■"
+4200 goto 7000
+5000 cls
+5010 print "　　　　　　　　　　　　　　　　　■"
+5020 print "　　■　　　　　　　　　　　　　　■"
+5030 print "　■　　　　　　　　　　　　　　　■　　■"
+5040 print "　■　■■　　　　　　　　　　■■■■■■"
+5050 print "■■■■■　　　　　■　　　　■■　■"
+5060 print "　■　　　　　　　　■　　　　　　　■　■■"
+5070 print "　■　　　　　　　　■　　　　■■■■■■"
+5080 print "　■　　　　　　　　■■■　　■■　　■"
+5090 print "　■■■■■　　　　■　　　　　　　　■"
+5100 print "　■■　　■　　　　■　　　　　■■■■■"
+5110 print "■■　　　　■　　　■　　　　■■　　　■"
+5120 print "■　　　　　■　■■■■　　　■"
+5130 print "　　　　　■　　■　■■■　　■"
+5140 print "　　　■■■　　■　■　　■　■■"
+5150 print "　　■■■　　　■■　　　　　　■■■■"
+5160 print "　　　　　　　　　　　　　　　　　■■■"
+5200 goto 7000
+6000 cls
+6010 print "　　　　　　　　　■■■　　　　■"
+6020 print "　■　　　　　■■■　■　　　　■"
+6030 print "　　■　　　　■　■　■　　　　■"
+6040 print "　　■　　　　　■　■　　■■■■■■■"
+6050 print "　　■　■■■■■■■　　■■■　　　　■"
+6060 print "　■■　■■■■■　　　　　　■　　■"
+6070 print "　■　　　　　　■　　　　　　■■■■■"
+6080 print "　■　　　　　　■　　　　　　■■■■■■"
+6090 print "　■　　　　　　■　　　　　■■　　■　　■"
+6100 print "　■　　　　　　■　　　　■■　■　■　　■"
+6110 print "　■　　　■■■■　　　　■　　■■　　　■"
+6120 print "　■　　■■　　■■　　　■　　■■　　　■"
+6130 print "　■　　■　　　■■■　　■　　■　　　　■"
+6140 print "　■■　　■■■　　■　　■　■■■　　■■"
+6150 print "　　　　　■■　　　　　　　■■　　■■■"
+6160 print "　　　　　　　　　　　　　　　　　　■"
+7000 locate 0,16:print "   **PUSH START TO EXIT**";
+7010 locate 0,17:print "**ANOTHER BUTTON TO AGAIN**";
+7100 d=wait
+7200 goto 1000
--- a/keywords.h
+++ b/keywords.h
@@ -1,6 +1,8 @@
 /* WONBE predefined keyword IDs */
-/* First Created: Nov.3,2000 by Nashiko */
-/* Copyright 2000 (c) by Pie Dey Co.,Ltd. */
+/* First Created: Nov.3,2000 by Pie Dey Co.,Ltd. */
+
+/* This source code is distributed under GNU General Public License (GPL) */
+/* see http://www.gnu.org/ about GPL */

 #define	KEYWORD_IF		0x80
 #define	KEYWORD_PRINT		0x81
@@ -26,15 +28,33 @@
 #define	KEYWORD_DEBUG		0x95
 #define	KEYWORD_WAITVB		0x96
 #define	KEYWORD_FILES		0x97
-#define	KEYWORD_AND		0xa0
-#define	KEYWORD_OR		0xa1
-#define	KEYWORD_XOR		0xa2
-#define	KEYWORD_NOT		0xb0
+#define	KEYWORD_PLAY		0x98
+#define	KEYWORD_POKE		0x99
+#define	KEYWORD_CALL		0x9a
+#define	KEYWORD_INT			0x9b
+#define	KEYWORD_TRON		0x9c
+#define	KEYWORD_TROFF		0x9d
+#define KEYWORD_COLORMODE	0x9e
+#define KEYWORD_PALETTE		0x9f
+#define KEYWORD_COLOR		0xa0
+
+#define	KEYWORD_AND			0xb0
+#define	KEYWORD_OR			0xb1
+#define	KEYWORD_XOR			0xb2
+
+#define	KEYWORD_NOT			0xb8
 #define	KEYWORD_SCAN		0xc0
 #define	KEYWORD_WAIT		0xc1
 #define	KEYWORD_RND			0xc2
 #define	KEYWORD_ABS			0xc3
 #define	KEYWORD_TICK		0xc4
+#define	KEYWORD_VARPTR		0xc5
+#define	KEYWORD_VARSEG		0xc6
+#define	KEYWORD_DSEG		0xc7
+#define	KEYWORD_CSEG		0xc8
+#define	KEYWORD_SSEG		0xc9
+#define	KEYWORD_PEEK		0xca
+
 #define	KEYWORD_SCAN_A		0xd0
 #define	KEYWORD_SCAN_B		0xd1
 #define	KEYWORD_SCAN_X1		0xd2
@@ -45,15 +65,60 @@
 #define	KEYWORD_SCAN_Y2		0xd7
 #define	KEYWORD_SCAN_Y3		0xd8
 #define	KEYWORD_SCAN_Y4		0xd9
+#define KEYWORD_HARDARCH	0xda
+
+#define	KEYWORD_AX			0xe0
+#define	KEYWORD_BX			0xe1
+#define	KEYWORD_CX			0xe2
+#define	KEYWORD_DX			0xe3
+#define	KEYWORD_SI			0xe4
+#define	KEYWORD_DI			0xe5
+#define	KEYWORD_DS			0xe6
+#define	KEYWORD_ES			0xe7
+#define	KEYWORD_DEFSEG		0xe8
+
 #define	KEYWORD_THEN		0xf0
 #define	KEYWORD_CHR			0xf1
 #define	KEYWORD_TO			0xf2
 #define	KEYWORD_STEP		0xf3

 #define KEYWORDS_STATEMENT_FROM 0x80
-#define KEYWORDS_STATEMENT_TO 0x97
-#define KEYWORDS_2OP_FROM 0xa0
-#define KEYWORDS_2OP_TO 0xa2
+#define KEYWORDS_STATEMENT_TO 0xa0
+#define KEYWORDS_2OP_FROM 0xb0
+#define KEYWORDS_2OP_TO 0xb2

+/*
+WONBE 中間言語フォーマット
+
+　中間言語は1行を単位として構築される
+
+　プログラムの終わりは0x00 0x00でターミネートされる
+
+　1行の構造
+
+WORD 行番号 (1-32767)
+WORD 行の長さ
+任意の中間コードの列
+BYTE 0x0d 行末ターミネータ
+
+　0x01～0x03を除けば0x0dを単純検索するだけで行末が発見できる
+
+中間コード
+0x00		(予約)
+0x01		次にあるのは10進2バイト整数
+0x02		次にあるのは16進2バイト整数
+0x03		次にあるのは可変長文字列 0x00でターミネート
+0x09		TAB
+0x0d		行末ターミネータ
+0x20～0x2f	そのコードの記号
+0x30～0x39	?
+0x3a～0x3f	そのコードの記号
+0x40		@
+0x41～0x5a	A～Z その名前の変数を示すシンボル
+0x5b～0x60	?
+0x61～0x7A	a～z その名前の変数を示すシンボル
+0x7b～0x7f	?
+0x80～0xff	キーワードの中間言語表現
+*/

 /* end of keywords.h */
--- a/31
+++ b/31
@@ -1,23 +1,34 @@
+INCLUDE=C:\vshare\ww\dev\WWitch\include
+LIB=..\COMMON

-# start up routine
-C0WW_JAPANESE2=..\common\c0wwjpn2.obj
+LIBS=libww.lib libwwc.lib runtime.lib

-C0WW=$(C0WW_JAPANESE2)
+LINKER=..\..\vc15\bin\link
+CC=..\..\vc15\bin\cl
+ASM=..\..\vc15\bin\masm

-LIBWW=@..\common\libww.rsp
-
-CFLAGS=-DWW -ms -zPCGROUP -zSDGROUP -zGDGROUP
+CFLAGS=/ASw /O /Gs /DWW /DVC15
+AFLAGS=-Mx -DDISPLAY_MODE_JAPANESE1
+LFLAGS=/NOD /NOI /MAP

 all:	wonbe.fx

 wonbe.fx:	wonbe.bin
 	mkfent wonbe.cf

-wonbe.bin:	wonbe.obj
-	tlink /m /c $(C0WW) wonbe, wonbe, wonbe, $(LIBWW)
-	exe2fbin wonbe.exe wonbe.bin
+wonbe.bin:	wonbe.obj vc15_rt.obj
+	$(LINKER) @<<
+$(LFLAGS) vc15_rt.obj wonbe.obj,wonbe.sss,wonbe.map,$(LIBS);
+<<
+	echo 0000 >0000.sss
+	exe2bin wonbe.sss wonbe.bin <0000.sss
+	echo remove temp file
+	del 0000.sss
+	del wonbe.sss

 wonbe.obj:	wonbe.c
-	tcc -c $(CFLAGS) $(DEFINES) -IC:\vshare\ww\dev\WWitch\include wonbe.c
+	$(CC) -c $(CFLAGS) wonbe.c

+vc15_rt.obj: vc15_rt.asm
+	$(ASM) $(AFLAGS) vc15_rt.asm;

--- a/makefile.tc
+++ b/makefile.tc
@@ -0,0 +1,23 @@
+
+# start up routine
+C0WW_JAPANESE2=..\common\c0wwjpn2.obj
+
+C0WW=$(C0WW_JAPANESE2)
+
+LIBWW=@..\common\libww.rsp
+
+CFLAGS=-DWW -ms -zPCGROUP -zSDGROUP -zGDGROUP
+
+all:	wonbe.fx
+
+wonbe.fx:	wonbe.bin
+	mkfent wonbe.cf
+
+wonbe.bin:	wonbe.obj
+	tlink /m /c $(C0WW) wonbe, wonbe, wonbe, $(LIBWW)
+	exe2fbin wonbe.exe wonbe.bin
+
+wonbe.obj:	wonbe.c
+	tcc -c $(CFLAGS) $(DEFINES) -IC:\vshare\ww\dev\WWitch\include wonbe.c
+
+
--- a/shoot.wb
+++ b/shoot.wb
@@ -0,0 +1,78 @@
+1000 rem シューティング by ワンべぇ
+1005 rem    Nov.7,2000 by autumn
+1010 rem a,b 自機座標
+1020 rem c,d 自ミサイル座標
+1030 rem e,f 敵座標
+1040 rem @(n*2*0),@(n*2+1) 敵ミサイル座標(nは0～7)
+1050 rem g ミサイル生成カウンタ
+1060 rem h ミサイル生成タイミングカウンタ
+2000 rem 座標の初期化
+2010 a=14:b=16
+2020 c=-1:d=-1
+2030 e=15:f=2
+2040 for i=0 to 7:@(i*2)=-1:@(i*2+1)=-1:next
+2050 g=0:h=0
+3000 rem 開始を待つ
+3010 cls
+3020 locate 3,6:print "PUSH BUTTON TO START"
+3030 locate 3,10:print " (NOT START BUTTON)"
+3040 z=wait
+3050 cls:locate 10,8:print "GO!";
+3060 waitvb 30
+4000 rem 表示を更新
+4010 cls
+4020 locate a,b:print "▲";
+4030 locate e,f:print "▼";
+4040 if c>=0 then locate c,d:print "|";
+4050 for i=0 to 7
+4060 if @(i*2)>=0 then locate @(i*2),@(i*2+1):print "*"
+4070 next
+5000 rem 当たり判定
+5010 if (c=e)and(d=f) then goto 8000 '自ミサイルが命中・勝利
+5020 for i=0 to 7
+5030 if (a=@(i*2))and(b=@(i*2+1)) then goto 9000 '敵ミサイルが命中・敗北
+5040 next
+6000 rem 敵移動処理
+6010 r=rnd(2)
+6020 if (r=0)and(e<26) then e=e+1
+6030 if (r<>0)and(e>0) then e=e-1
+6100 rem 敵ミサイル移動処理
+6110 for i=0 to 7
+6120 @(i*2+1)=@(i*2+1)+1
+6130 if @(i*2+1)>16 then @(i*2)=-1:@(i*2+1)=-1
+6140 next
+6200 rem 敵ミサイル生成処理
+6210 h=h+1
+6220 if h>3 then h=0
+6230 if h<>0 then goto 6300
+6240 @(g*2)=e:@(g*2+1)=f+1 '新しいミサイル
+6250 g=g+1:if g>7 then g=0
+6300 rem 自機移動処理
+6310 s=scan
+6320 if s and scan_x2 then if a<26 then a=a+1
+6330 if s and scan_x4 then if a>0 then a=a-1
+6400 rem 自ミサイル移動処理
+6410 if c>=0 then d=d-1:if d<0 then c=-1:d=-1
+6500 rem 自ミサイル発射処理
+6510 if s and scan_a then if c<0 then c=a:d=b-1
+6800 waitvb 3
+6900 goto 4000
+8000 rem 勝利
+8010 X=e:Y=f:gosub 10000
+8020 locate 10,10:print "YOU WIN!"
+8030 goto 9500
+9000 rem 敗北
+9010 X=a:Y=b:gosub 10000
+9020 locate 10,10:print "YOU LOSE..."
+9500 locate 0,12:print "PUSH START BUTTON TO EXIT"
+9510 locate 0,13:print "    ANOTHER IS AGAIN"
+9520 z=wait
+9900 goto 2000
+10000 rem 爆発表現
+10010 for i=0 to 9
+10020 locate X,Y:print "+";
+10030 waitvb 10
+10040 locate X,Y:print "×";
+10050 waitvb 10
+10060 next
+10090 return
--- a/star.txt
+++ b/star.txt
@@ -0,0 +1,133 @@
+STAR WITCH ～ゴブリン帝国の野望～
+
+★★★ 準備 ★★★
+　WonderSwan本体とWonderWitchを用意してください。
+　wonbe.fxとstar.wbをWonderWitchに転送してください。
+　Freya OSから「ワンべぇ」を選んでスタートさせてください。
+　star.wbを選択してAボタンを押してください。
+　読み込みが完了するまでしばらく待ちます。
+
+★★★ 目的 ★★★
+　プレイヤーは、最強の宇宙戦艦WITCH号の艦長となって、ゴブリン帝国の宇宙戦艦を撃滅します。
+　宇宙空間はエリアと呼ばれる単位で区切られています。
+　一つのエリアに侵入したゴブリン戦艦をすべて撃滅すると、次のエリアに進むことができます。
+　10個のエリアからゴブリン戦艦を駆逐すると、プレイヤーの勝利となります。
+　逆に、戦闘途上で、WITCH号のエネルギー量がゼロになると、プレイヤーの敗北となります。
+
+★★★ シンボル ★★★
+　エリアマップ上では以下のシンボルで表示されます。
+
+WITCH号            Wマーク
+ゴブリン戦艦       Gマーク
+輸送船             Tマーク
+小惑星             *マーク
+
+★★★ 基本操作 ★★★
+　Aボタンで確定
+　Bボタンでキャンセル
+　X1～4ボタンで上下左右
+
+　Win32版のワンべぇでプレイする場合は以下のようになります。
+　スペースバーで確定
+　ESCキーでキャンセル
+　方向キーで上下左右
+
+★★★ 移動 ★★★
+　WITCH号には、エリア間を移動する「ジャンプ」の機能と、エリア内を移動する「バーニア」の機能があります。「ジャンプ」は、エリア内のすべてのゴブリン戦艦を撃沈しない限り使用できません。「バーニア」はいつでも使用できます。
+　エリアは8×8の升目に区切られています。バーニアで移動中にこれから入ろうとする升目に小惑星や敵艦がいると、そこで緊急停止させられます。
+　「ジャンプ」する場合には、ジャンプ先の候補が3つ提示されますので、戦略をよく考えて選択します。
+　「バーニア」を使う場合は、方向と距離を数字で指定します。方向は0から360までの角度で指定します。右が0、上が90、左が180、下が270になります。5度単位で微妙な数値を指定することができます。距離は実際に動く升目の数を指定します。
+
+★★★ 戦闘 ★★★
+　ゴブリン戦艦のいるエリアにWITCH号が入ると、ゴブリン戦艦は情け容赦なく攻撃を加えてきます。
+　ゴブリン戦艦の使用する武器は、指向性ウェーブ兵器です。これは、自艦の持つエネルギーを発射して、発射したのと同じ量だけWITCH号にダメージを与える兵器です。
+　これに対して、WITCH号が使用できる武器は2種類あります。
+　一つはウェーブキヤノンと呼ばれる無指向性ウェーブ兵器です。これは、1回の攻撃で、エリア全体を攻撃できる広域兵器です。しかし、敵艦以外にもエネルギーが収束してしまうという欠点があります。たとえば、ゴブリン戦艦が2隻、小惑星が3個、輸送船が1隻いるとします。ここで、600のエネルギーをウェーブキヤノンで発射すると、それぞれの標的にエネルギーが均等に分かれ、ゴブリン戦艦はそれぞれ100のダメージを受けます。ウェーブキヤノンで使用した分のエネルギーは、WITCH号のエネルギーから差し引かれますので、敵の攻撃を受け止めたり、移動するためのエネルギーは残しておかねばなりません。
+　ゴブリン戦艦は、艦内のエネルギーがゼロになると防御シールドが消えて破壊できます。ウェーブキヤノンで小惑星を破壊することはできません。輸送船はウェーブ吸収装置が取り付けられているので、ウェーブキヤノンでダメージを受けることはありません。
+　もう一つの武器は、反応弾頭ミサイルです。これは、一度に1発しか発射できませんが、ゴブリン戦艦を一撃で確実にしとめることができる強力兵器です。また、小惑星や、輸送船も破壊することができます。ミサイルを発射するにあたってエネルギーは消費しません。WITCH号は最大で10発までこのミサイルを搭載することができます。ミサイルを発射する場合には、発射する方向を指定します。指定方法は「バーニア」による移動と同じです。
+
+★★★ 補給 ★★★
+　輸送船と上下左右の4カ所のいずれかで隣接すると、輸送船よりエネルギーとミサイルの補給を受けることができます。隣接し続ける限り、毎ターンの最初にエネルギーとミサイルが満タンになります。
+　輸送船はステルス機能があるため、ゴブリン戦艦の攻撃を受けることはありませんが、そのかわり、一切の攻撃兵器を持っておらず、戦闘の手助けはできません。
+
+★★★ ステータス値 ★★★
+　上部左右中央部に表示される数値の意味は以下の通りです。
+ENERGY   WITCH号の残りエネルギー量
+MISSILE  WITCH号の残りミサイル数
+LEFT     あとクリアすべきエリアの数
+DAY      経過日数
+
+★★★ 目指せ名艦長 ★★★
+　このゲームでは、ただ単に勝利するだけなら難しくありません。
+　クリア最短日数や、最多敵艦撃破などの条件を設定して、トライしてください。
+
+★★★ 攻略のヒント ★★★
+
+以
+下
+は
+ど
+う
+し
+て
+も
+ク
+リ
+ア
+で
+き
+な
+い
+人
+だ
+け
+が
+読
+ん
+で
+下
+さ
+い
+。
+
+・輸送船とランデブーして大逆転
+　輸送船と接触すれば、事実上エネルギーもミサイルも使い放題です。使っても次のターンの開始時に回復されるので、どーんとウェーブキヤノンで大量のエネルギーを叩き付けてゴブリン戦艦を全滅させてしまいましょう。
+
+・ウェーブキヤノンとミサイルどちらが得か?
+　ミサイルは1隻ずつしか攻撃できませんが、ウェーブキヤノンはすべての敵を同時攻撃できます。敵に囲まれたときに、少ないダメージで敵を倒すには、一見、ウェーブキヤノンが有利に見えます。しかし、ウェーブキヤノンは敵以外にもエネルギーを消費してしまうという弱点があるため、エネルギーの無駄遣いになりがちです。
+　もし、ウェーブキヤノンで敵を仕留める場合は、敵にどんどん攻撃させ、敵艦のエネルギーが底をついたところで、少量のエネルギーでウェーブキヤノンを使うと無駄が少なくて済みます。
+　しかし、何と言ってもエネルギーを使わないで敵を仕留めるミサイルを使うのが最もエネルギーの効率が良いのは言うまでもありません。エリアマップから正しい発射角度を瞬時に判断できるようになってこそ、名艦長と言えるでしょう。
+
+・ウェーブキヤノンとミサイルの使い分けの判断は?
+　ミサイルで1隻ずつ沈めるのが基本です。ウェーブキヤノンを使うのは例外的な状況と考えるべきです。以下が代表的な状況です。
+　→輸送船とランデブーしているとき
+　→補給直後でエネルギーがたっぷりあるとき
+　→小惑星などが邪魔をしてミサイル攻撃しにくいとき
+　→小惑星などが少なく、効率よくエネルギーを敵に叩き込めるとき
+　→ミサイルの残りがゼロのとき
+　→敵の残りエネルギーが極めて少ないとき
+
+・輸送船を破壊するな
+　ミサイルの方向を間違えて輸送船に命中してしまうと、ペナルティとして、輸送船の乗組員の救助のために10日間の日数が加算されます。最短日数クリアを目指す場合は、注意してください。
+
+・常に輸送船のいるエリアを目指すべきか?
+　エネルギーが満タンであれば、そう簡単にやられることはありません。輸送船がいるエリアよりも敵が多いエリアを選んでジャンプしましょう。最多敵艦撃破を目指す場合は、残りエネルギーが十分かどうか特に注意して判断しましょう。
+
+・小惑星はただの飾りか?
+　小惑星の多い少ないは、戦い方に大きな影響を及ぼします。小惑星が多いと、いろいろな問題が起きます。
+　→輸送船とランデブーする邪魔になる
+　→ミサイル攻撃の邪魔になる
+　→ウェーブキヤノンのエネルギーに無駄が増える
+　ですので、他の条件が同じであれば、小惑星の少ないエリアにジャンプする方が有利と言えます。
+
+・小惑星を破壊せよ
+　輸送船とランデブーしたいのに小惑星が邪魔だ、というときは、ミサイルで小惑星を破壊してしまいましょう。2回に分けて迂回して移動すると日数が余計に掛かります。最短日数クリアを目指す場合は、注意してください。
+
+・ゴブリン戦艦残りエネルギー量を正確に知りたいとき
+　ウェーブキヤノンで攻撃すると、ゴブリン戦艦に与えたダメージの他に、各艦の残りエネルギー量も表示されます。少ないエネルギー量で軽くウェーブキヤノンで攻撃してみると良いでしょう。
+
+・ゴブリン戦艦の戦術
+　ゴブリン戦艦は敵を発見すると、ひたすら指向性ウェーブ兵器で攻撃を繰り返します。その際、自艦の持つエネルギーのうち、どの程度のエネルギー量を叩き付けてくるかは一定しません。また、最初にどの程度のエネルギー量を持っているかも一定しません。だいたい初期エネルギー量は500前後で、1回の攻撃では所持エネルギーの半分程度で攻撃してきますが、それは平均値でしかありません。
+　しかし、エネルギーがゼロに近づいた場合には、艦の自滅を回避するために攻撃を取りやめます。存在するのに攻撃を仕掛けてこないゴブリン戦艦がある場合は、エネルギーがゼロに近いので、わずかなエネルギーをウェーブキヤノンで叩き付けるだけで撃沈できます。
+　ゴブリン戦艦は命じられた場所を文字通り死守するので、戦闘中に移動することはありません。
+
--- a/star.wb
+++ b/star.wb
@@ -0,0 +1,501 @@
+cls:print"Ｌｏａｄｉｎｇ　ＳＴＡＲ　ＷＩＴＣＨ．．．"
+locate 10,10:print "○○○○";
+100 cls:gosub 17000 'オープニング
+1000 cls
+1010 print "┏━━━━━━━━━┳━━━━━━━┳━━━━━━━━┓";
+1020 print "┃　１２３４５６７８┃　　　　　　　┃　　　　　　　　┃";
+1030 print "┃１　　　　　　　　┃ＥＮＥＲＧＹ　┃　　　ジャンプ　┃";
+1040 print "┃２　　　　　　　　┃　　　　　　　┃　　　　　　　　┃";
+1050 print "┃３　　　　　　　　┃ＭＩＳＳＩＬＥ┃　　　バーニア　┃";
+1060 print "┃４　　　　　　　　┃　　　　　　　┃　　　　　　　　┃";
+1070 print "┃５　　　　　　　　┃ＬＥＦＴ　　　┃　　　ウェーブ　┃";
+1080 print "┃６　　　　　　　　┃　　　　　　　┃　　　　　　　　┃";
+1090 print "┃７　　　　　　　　┃ＤＡＹ　　　　┃　　　ミサイル　┃";
+1100 print "┃８　　　　　　　　┃　　　　　　　┃　　　　　　　　┃";
+1110 print "┣━━━━━━━━━┻━━━━━━━┻━━━━━━━━┫";
+1120 print "┃　　　　　　　　　　　　　　　　　　　　　　　　　　┃";
+1130 print "┃　　　　　　　　　　　　　　　　　　　　　　　　　　┃";
+1140 print "┃　　　　　　　　　　　　　　　　　　　　　　　　　　┃";
+1150 print "┃　　　　　　　　　　　　　　　　　　　　　　　　　　┃";
+1160 print "┃　　　　　　　　　　　　　　　　　　　　　　　　　　┃";
+1170 print "┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛";
+1175 print "　　　ＳＴＡＲ　ＷＩＴＣＨ　～ゴブリン帝国の野望～";
+1180 rem    0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7
+1190 rem
+2000 rem 初期化
+2005 randomize tick
+2010 E=4000 'EはWITCH号のエネルギー
+2020 M=10   'MはWITCH号の所持ミサイル
+2030 L=10   'Lはクリアすべきエリアの残り数
+2040 D=1    'Dは現在の日数 (1アクション1日)
+2042 S=0    'WITCH号のX位置
+2044 T=0    'WITCH号のY位置
+2050 A=0    '@(A)～@A(A+8*8-1)までが現在エリアの内容
+2060        '0:なし -1:小惑星 -2:輸送船
+2061        '正数はゴブリン戦艦でエネルギー量
+2065 W=A+8*8 'ワークエリアに使って良い配列の先頭位置
+2070 B=0    'エリア作成時の輸送船の数
+2080 G=0    'エリア作成時のゴブリン戦艦の数
+2090 S=1+rnd(4)    'エリア作成時の小惑星の数
+2095 H=0    '通算の撃破ゴブリン戦艦数
+2100 P=11   'メッセージエリアのY位置 (良く参照されるので変数に置く)
+2200 rem エリア進入
+2210 gosub 10000
+3000 rem ターン開始
+3010 gosub 25000 'ステータス更新
+3020 gosub 12000 '補給チェックと実行
+3030 gosub 11000 '敵の攻撃
+3100 rem コマンド選択
+3105 gosub 20000:locate 2,P+2:print "艦長、ご指示を";
+3110 c=0
+3120 locate 20, 2+(c*2):print "→";
+3200 s=wait
+3205 locate 20, 2+(c*2):print " ";
+3210 if s and scan_a then goto 4000+(c*1000)
+3220 if s and scan_x1 then c=c-1:if c<0 then c=3
+3230 if s and scan_x3 then c=c+1:if c>3 then c=0
+3290 goto 3120
+4000 '*******ジャンプ*******
+4010 f=0
+4020 for y=0 to 7:for x=0 to 7
+4030 if @(A+x+y*8) > 0 then f=f+1
+4040 next:next
+4050 if f=0 then goto 4200
+4060 gosub 20000
+4070 locate 2,P+1:print "艦長!";
+4080 locate 2,P+3:print "ゴブリン戦艦がまだ";f;"隻もいます!"
+4090 d=wait
+4100 gosub 20000
+4110 goto 3100
+4200 ' 行き先候補
+4210 gosub 20000
+4215 locate 2,P:print "目的地を指示してください"
+4220 for i=0 to 2
+4230 @(W+i*3)=1+rnd(5) 'ゴブリン戦艦1～5隻
+4240 @(W+i*3+1)=0:if rnd(3)=0 then @(W+i*3+1)=1 '輸送船は1/3の確率
+4250 @(W+i*3+2)=1+rnd(4) '小惑星1～5個
+4260 locate 4,P+1+i
+4270 print "ゴブリン";@(W+i*3);
+4280 print "　輸送船";@(W+i*3+1);
+4290 print "　小惑星"@(W+i*3+2);
+4300 next
+4400 rem 候補を選ぶ
+4410 c=0
+4420 locate 2, P+1+c:print "→";
+4500 s=wait
+4505 locate 2, P+1+c:print " ";
+4510 if s and scan_a then goto 4600
+4520 if s and scan_x1 then c=c-1:if c<0 then c=2
+4530 if s and scan_x3 then c=c+1:if c>2 then c=0
+4590 goto 4420
+4600 ' 次のエリアに行く
+4610 B=@(W+c*3+1)
+4620 G=@(W+c*3)
+4630 S=@(W+c*3+2)
+4700 gosub 20000
+4710 locate 2,P+1:print "ハイパースペース・ドライブ";
+4720 locate 2,P+3:print "　　スタンバイＯＫ！"
+4730 d=wait
+4740 gosub 20000
+4750 locate 2,P+2:print "次のエリアにジャンプします";
+4760 d=wait
+4780 gosub 20000
+4785 for y=0 to 7:for x=0 to 7:locate 2+x,2+y:print "※";:next:next
+4790 waitvb 75
+4795 if E>10 then E=E-10:goto 4800
+4796 locate 2,P+1:print "艦長!　エネルギーが足りません!";
+4797 locate 4,P+3:print "通常空間に復帰できません!!";
+4798 d=wait:goto 19000
+4800 locate 2,P+2:print "ジャンプ成功!　レーダー動作します";
+4810 d=wait
+4820 gosub 20000
+4890 D=D+1:L=L-1:goto 2200
+locate 10,10:print "●○○○";
+5000 '******バーニア*******
+5010 gosub 20000
+5020 locate 2,P+1:print "エリア内移動・スタンバイ";
+5030 locate 2,P+3:print "コースは? (0-360)";
+5040 X=21:Y=P:gosub 21000
+5050 if Z<0 then goto 3100 'キャンセルされた
+5060 if Z<=360 then s=Z:goto 5100
+5070 gosub 20000
+5080 locate 2,P+1:print "艦長!";
+5090 locate 2,P+3:print "コースは0から360までです!";
+5095 d=wait:goto 5010
+5100 gosub 20000
+5110 locate 2,P+1:print "エリア内移動・スタンバイ";
+5120 locate 2,P+3:print "距離は? (1-12)";
+5130 X=21:Y=P:gosub 21000
+5140 if Z<0 then goto 5010 'キャンセルされた
+5145 if Z>E+1 then goto 5190
+5150 if Z>=1 and Z<=12 then l=Z:E=E-l:goto 5200
+5155 gosub 20000
+5160 locate 2,P+1:print "艦長!";
+5170 locate 2,P+3:print "距離は1から12までです!";
+5180 d=wait:goto 5100
+5190 gosub 20000
+5192 locate 2,P+1:print "艦長!";
+5194 locate 2,P+3:print "エネルギーが足りません!";
+5198 d=wait:goto 5100
+5200 '移動アニメーション
+5210 gosub 20000
+5215 'locate 2+S,2+T:print "　";
+5220 X=s:gosub 23000:a=Y
+5230 X=s:gosub 22000:b=-Y '反時計回りにしたいのでマイナス
+5235 c=S:d=T '最後に有効であった座標を持つ
+5240 i=1:j=0 'iは本当の移動距離。jは見かけ上の移動距離
+5250 x=S+a*i/100
+5260 y=T+b*i/100
+5261 'debug S,T,x,y,a,b,i,s
+5262 if x<0 or x>7 or y<0 or y>7 then goto 5400
+5264 if @(A+x+y*8)=0 then goto 5270
+5266 gosub 20000:locate 2,P+2:print "衝突回避!　緊急停止!";d=wait
+5268 goto 5400 'ループを強制終了させる
+5270 if c=x and d=y then goto 5300 '見かけ上の移動が起きていない
+5272 j=j+1
+5275 locate 2+x,2+y:print "Ｗ";
+5280 locate 2+c,2+d:print "　";:c=x:d=y
+6285 D=D+1:gosub 25000
+5290 waitvb 75
+5300 i=i+1:if j<l then goto 5250
+5400 S=c:T=d
+5410 locate 2+S,2+T:print "Ｗ";
+5500 goto 3000
+6000 '*****ウェーブ*****
+6010 gosub 20000
+6020 locate 2,P+1:print "ウェーブキヤノン・スタンバイ";
+6030 locate 2,P+3:print "　エネルギー量は? (1-";E-1;")";
+6040 X=21:Y=P:gosub 21000
+6050 if Z<0 then goto 3100 'キャンセルされた
+6060 if Z>=1 and Z<=E-1 then s=Z:goto 6100
+6070 gosub 20000
+6080 locate 2,P+1:print "艦長!";
+6090 locate 2,P+3:print "　エネルギー量は1から";E-1;"までです!";
+6095 d=wait:goto 6010
+6100 gosub 20000
+6110 ' 存在するオブジェクト数を数える
+6120 f=0
+6130 for y=0 to 7:for x=0 to 7
+6140 if @(A+x+y*8) <> 0 then f=f+1
+6150 next:next
+6160 e=s/f:if e<1 then e=1 'eは1標的あたりの攻撃量
+6170 gosub 20000
+6180 locate 2,P+2:print "ウェーブキヤノン・発射!";
+6190 d=wait
+6200 for y=0 to 7:for x=0 to 7
+6210 if @(A+x+y*8) <= 0 then goto 6400
+6220 gosub 20000
+6230 locate 2,P+1:print "(";x+1;",";y+1;")のゴブリン戦艦にダメージ";e;
+6240 @(A+x+y*8)=@(A+x+y*8)-e:if @(A+x+y*8)<=0 then @(A+x+y*8)=0:goto 6300
+6245 locate 4,P+3:print "(残りエネルギー";@(A+x+y*8);")";
+6250 d=wait
+6290 goto 6400
+6300 locate 4,P+3:print "ゴブリン戦艦、撃沈!";:H=H+1
+6350 X=x:Y=y:gosub 24000 '爆発
+6400 next:next
+6900 E=E-s:
+6910 if L=0 then gosub 26000:if Y=0 then goto 18000
+6920 D=D+1:goto 3000
+locate 10,10:print "●●○○";
+7000 '******ミサイル******
+7010 if M>0 then goto 7100
+7020 gosub 20000
+7030 locate 2,P+1:print "艦長!";
+7040 locate 2,P+3:print "ミサイルの残弾はゼロです!";
+7050 d=wait
+7090 goto 3100
+7100 gosub 20000
+7110 locate 2,P+1:print "ミサイル・スタンバイ";
+7120 locate 2,P+3:print "コースは? (0-360)";
+7130 X=21:Y=P:gosub 21000
+7140 if Z<0 then goto 3100 'キャンセルされた
+7150 if Z<=360 then s=Z:goto 7200
+7160 gosub 20000
+7170 locate 2,P+1:print "艦長!";
+7180 locate 2,P+3:print "コースは0から360までです!";
+7190 d=wait:goto 7100
+7200 '移動アニメーション
+7205 M=M-1:gosub 25000
+7210 gosub 20000
+7220 X=s:gosub 23000:a=Y
+7230 X=s:gosub 22000:b=-Y '反時計回りにしたいのでマイナス
+7235 i=1
+7240 c=S:d=T '最後に有効であった座標を持つ
+7250 x=S+a*i/100
+7260 y=T+b*i/100
+7270 'debug S,T,x,y,a,b,i,s
+7280 if x<0 or x>7 or y<0 or y>7 then goto 7500
+7290 if @(A+x+y*8)<>0 then goto 7600
+7320 if c=x and d=y then goto 7370 '見かけ上の移動が起きていない
+7340 locate 2+x,2+y:print "Ｍ";
+7350 waitvb 75
+7360 locate 2+x,2+y:print "　";:c=x:d=y
+7370 i=i+1:goto 7250
+7400 goto 3000
+7500 'はずれ!
+7510 gosub 20000
+7515 locate 2,P+1:print "艦長!";
+7520 locate 4,P+3:print "攻撃は失敗です!";
+7530 d=wait
+7590 D=D+1:goto 3000
+7600 'あたり!
+7610 gosub 20000
+7620 locate 2,P+1:print "艦長!";
+7630 locate 4,P+3
+7640 if @(A+x+y*8)=-1 then print "小惑星に命中しました!";
+7650 if @(A+x+y*8)=-2 then print "輸送船に命中しました!";
+7660 if @(A+x+y*8)>0 then print "ゴブリン戦艦に命中しました!";
+7670 X=x:Y=y:gosub 24000 '爆発
+7680 'd=wait
+7690 gosub 20000
+7700 locate 4,P+2
+7710 if @(A+x+y*8)=-1 then print "小惑星の消滅を確認!";
+7720 if @(A+x+y*8)=-2 then print "輸送船乗組員の救助のため10日必要です";:D=D+1
+7730 if @(A+x+y*8)>0 then print "ゴブリン戦艦を撃沈!";:H=H+1
+7740 @(A+x+y*8)=0 'そこにはもう何もない
+7750 d=wait
+7760 if L=0 then gosub 26000:if Y=0 then goto 18000
+7790 D=D+1:goto 3000
+
+10000 rem エリア作成
+10005 for y=0 to 7:for x=0 to 7:@(A+x+y*8)=0:next:next
+10010 if B=0 then goto 10100
+10020 for i=0 to B-1
+10030 x=rnd(8):y=rnd(8)
+10040 if @(A+x+y*8) <> 0 then goto 10030
+10050 @(A+x+y*8)=-2
+10060 next
+10100 if G=0 then goto 10200
+10105 for i=0 to G-1
+10110 x=rnd(8):y=rnd(8)
+10120 if @(A+x+y*8) <> 0 then goto 10110
+10130 @(A+x+y*8)=400+rnd(200) 'ゴブリン戦艦のエネルギー初期値
+10140 next
+10200 for i=0 to S-1
+10210 x=rnd(8):y=rnd(8)
+10220 if @(A+x+y*8) <> 0 then goto 10210
+10230 @(A+x+y*8)=-1
+10240 next
+10250 'WITCH号の位置を確定
+10260 S=rnd(7):T=rnd(7)
+10270 if @(A+S+T*8) <> 0 then goto 10260
+10300 gosub 10500
+10400 return
+10500 'レーダー作動
+10510 for y=0 to 7:for x=0 to 7
+10520 locate x+2,y+2
+10530 t=@(A+x+y*8)
+10540 if t=0 then print "　";
+10550 if t=-1 then print "＊";
+10560 if t=-2 then print "Ｔ";
+10570 if t>0 then print "Ｇ";
+10580 next:next
+10590 locate S+2,T+2:print "Ｗ";
+10600 return
+
+11000 '*****敵の攻撃*****
+11010 for y=0 to 7:for x=0 to 7
+11020 if @(A+x+y*8) <= 2 then goto 11900
+11025 n=@(A+x+y*8)/4+rnd(@(A+x+y*8)/2):if n<1 then 11900
+11030 gosub 20000
+11040 locate 2,P+1:print "(";x+1;",";y+1;")のゴブリン戦艦よりの攻撃!";
+11050 d=wait
+11070 locate 4,P+3:print "WITCH号に";n;"のダメージ!";
+11075 @(A+x+y*8)=@(A+x+y*8)-n
+11080 E=E-n:if E<0 then E=0
+11090 gosub 25000
+11100 d=wait
+11110 if E>0 then goto 11900
+11120 gosub 20000
+11130 locate 2,P+1:print "艦長!";
+11130 locate 4,P+3:print "エネルギーがもうありません!";
+11140 gosub 20000
+11150 locate 2,P+1:print "防御バリア機能停止";
+11160 locate 4,P+3:print "WITCH号の船体が砕けます!";
+11170 X=S:Y=T:gosub 24000 '爆発
+11180 gosub 20000
+11190 goto 19000 'BAD ENDING
+11900 next:next
+11910 return
+
+locate 10,10:print "●●●○";
+
+12000 '補給チェックと実行
+12020 f=0
+12030 if S>0 then if @(A+(S-1)+T*8)=-2 then f=1
+12040 if S<7 then if @(A+(S+1)+T*8)=-2 then f=1
+12050 if T>0 then if @(A+S+(T-1)*8)=-2 then f=1
+12060 if T<7 then if @(A+S+(T+1)*8)=-2 then f=1
+12070 if f=0 then return
+12080 gosub 20000
+12090 locate 2,P+1:print "艦長!";
+12100 locate 4,P+3:print "輸送船から補給を受けます。";
+12110 d=wait
+12120 E=4000:M=10
+12130 gosub 25000 'ステータス更新
+12190 return
+
+17000 'OPENING
+17010 cls
+17020 for i=0 to 1
+17030 locate 2,2:print "緊急指令!"
+17040 waitvb 30
+17050 locate 2,2:print "　　　　　"
+17060 waitvb 30
+17070 next
+17100 locate 2,2:print "緊急指令!"
+17110 cls:print
+17120 waitvb 30:print "  かねてより":print
+17130 waitvb 30:print "  我が地球連邦政府に敵対していた":print
+17140 waitvb 30:print "  凶悪なゴブリン帝国が":print
+17150 waitvb 30:print "  多数の宇宙戦艦で侵攻してきた":print
+17155 print
+17160 waitvb 30:print "  連邦艦隊ナンバーワン艦長の君に命じる":print
+17170 waitvb 30:print "  最新鋭戦艦WITCH号を指揮し":print
+17180 waitvb 30:print "  侵入したゴブリン戦艦を撃破せよ"
+17190 d=wait
+
+17200 cls
+17210 for i=0 to 4
+17220 if i=4 then locate 2, 2:print"　　■■■　■■■■■　　■　　　　■■■■"
+17230 if i=3 then locate 2, 3:print"　■　　　　　　■　　　■　■　　　■　　　■"
+17240 if i=2 then locate 2, 4:print"　　■■■　　　■　　　■■■　　　■■■■"
+17250 if i=1 then locate 2, 5:print"　　　　　■　　■　　■　　　■　　■　　■"
+17260 if i=0 then locate 2, 6:print"　　■■■　　　■　■　　　　　■　■　　　■"
+17270 if i=0 then locate 2, 9:print"■　　■　　■　■　■■■　　■■■　　　■　　■"
+17280 if i=1 then locate 2,10:print"■　■　■　■　■　　■　　■　　　■　　■　　■"
+17290 if i=2 then locate 2,11:print"■　■　■　■　■　　■　　■　　　　　　■■■■"
+17300 if i=3 then locate 2,12:print"■　■　■　■　■　　■　　■　　　■　　■　　■"
+17310 if i=4 then locate 2,13:print"　■　　　■　　■　　■　　　■■■　　　■　　■"
+17320 waitvb 30:next
+17330 locate 9,15:print "～ゴブリン帝国の野望～";
+17340 d=wait
+17400 cls
+17410 print " ***WITCH号の最新装備を紹介する***":print
+17420 waitvb 30:print " 量子レーダー:"
+17430 print " 　Ｗ←ＷＩＴＣＨ号　＊←小惑星"
+17440 print " 　Ｇ←ゴブリン戦艦　Ｔ←輸送船":print
+17450 waitvb 30:print " 超空間ジャンプドライブ:"
+17460 print " 　エリア内の敵を全滅させたら次のエリアに進める。":print
+17470 waitvb 30:print " バーニア:"
+17480 print " 　エリア内を移動できる。":print
+17490 waitvb 30:print " ウェーブキヤノン:"
+17500 print " 　エリア内のすべての敵を同時攻撃":print
+17510 waitvb 30:print " 反応弾頭ミサイル:"
+17520 print " 　敵艦も小惑星も一撃で粉砕する"
+17590 d=wait
+17600 cls
+17610 locate 8,8:print "それでは健闘を祈る!"
+17690 d=wait
+17700 cls
+17710 locate 5,8:print "艦長!　WITCH号、出港します!"
+17790 d=wait
+17900 return
+
+18000 'GOOD ENDING
+18010 cls:print
+18020 waitvb 75:print " 作戦開始後";D;"日":print
+18030 waitvb 75:print " ";H;"隻の戦艦を失った":print
+18032 waitvb 75:print " ゴブリン帝国は、全面降伏した":print
+18035 waitvb 75:print " 宇宙の平和は守られたのだ":print
+18040 waitvb 75:print " WITCH号ならびに艦長の活躍をたたえ":print
+18050 waitvb 75:print " 全人類から感謝の言葉をおくる":print
+18060 waitvb 75:locate 10,14:print "ありがとう!"
+18070 waitvb 75:locate 10,16:print "CONGRATURATIONS!";
+18080 d=wait
+18090 end
+
+locate 10,10:print "●●●●";
+
+19000 'BAD ENDING
+19010 cls:print
+19020 waitvb 75:print " 作戦開始後";D;"日":print
+19030 waitvb 75:print " WITCH号、宇宙の藻屑と消える":print
+19040 waitvb 75:print " この日、地球連邦政府は、ゴブリン帝国に降伏":print
+19050 waitvb 75:print " 地球人はゴブリン帝国の奴隷となった":print
+19060 waitvb 75:locate 17,16:print "GAME OVER!";
+19080 d=wait
+19090 end
+20000 ' clear message
+20010 for i=11 to 15:locate 1,i
+20020 print "　　　　　　　　　　　　　　　　　　　　　　　　　　";
+20030 next
+20040 return
+21000 ' 数値入力
+21010 locate X,Y+0:print "┏━━━━┓";
+21020 locate X,Y+1:print "┃　　　　┃";
+21030 locate X,Y+2:print "┃００００┃";
+21040 locate X,Y+3:print "┃　　　　┃";
+21050 locate X,Y+4:print "┗━━━━┛";
+21100 for i=0 to 3:@(W+i)=0:next
+21110 v=3 '桁位置
+21200 locate X+v+1,Y+1:print "↑";
+21210 locate X+v+1,Y+3:print "↓";
+21220 for i=0 to 3:locate X+i+1,Y+2:print @(W+i);:next
+21300 s=wait
+21310 locate X+v+1,Y+1:print "　";
+21320 locate X+v+1,Y+3:print "　";
+21330 if s and scan_x3 then @(W+v)=@(W+v)-1:if @(W+v)<0 then @(W+v)=9
+21340 if s and scan_x1 then @(W+v)=@(W+v)+1:if @(W+v)>9 then @(W+v)=0
+21350 if s and scan_x2 then v=v+1:if v>3 then v=0
+21360 if s and scan_x4 then v=v-1:if v<0 then v=3
+21365 if s and scan_a then goto 21400
+21370 if s and scan_b then Z=-1:return
+21380 goto 21200
+21400 Z=@(W+0)*1000+@(W+1)*100+@(W+2)*10+@(W+3)
+21410 return
+
+22000 ' 疑似三角関数(Y=sin(X)) Y=-100...100 X=0-360
+22010 X=X/5
+22020 if X<=18 then gosub 22100:return
+22030 if X<=36 then X=36-X:gosub 22100:return
+22040 if X<=54 then X=X-36:gosub 22100:Y=-Y:return
+22050 if X<=72 then X=72-X:gosub 22100:Y=-Y:return
+22060 X=X-72:goto 22020
+22100 if X=0  then Y=0
+22110 if X=1  then Y=8
+22120 if X=2  then Y=17
+22130 if X=3  then Y=25
+22140 if X=4  then Y=34
+22150 if X=5  then Y=42
+22160 if X=6  then Y=49
+22170 if X=7  then Y=57
+22180 if X=8  then Y=64
+22190 if X=9  then Y=70
+22200 if X=10 then Y=76
+22210 if X=11 then Y=81
+22220 if X=12 then Y=86
+22230 if X=13 then Y=90
+22240 if X=14 then Y=93
+22250 if X=15 then Y=96
+22260 if X=16 then Y=98
+22270 if X=17 then Y=99
+22280 if X=18 then Y=99
+22290 return
+23000 ' 疑似三角関数(cos)
+23010 X=X+90:gosub 22000:return
+24000 ' 爆発アニメーション
+24005 locate 2+X,2+Y:print "・";:waitvb 30
+24010 locate 2+X,2+Y:print "●";:waitvb 30
+24020 locate 2+X,2+Y:print "※";:waitvb 30
+24030 locate 2+X,2+Y:print "　";
+24040 d=wait
+24090 return
+25000 '******ステータス表示更新*****
+25010 locate 11,3:print "　　　　　　　";
+25020 locate 14,3:print E;
+25030 locate 11,5:print "　　　　　　　";
+25040 locate 14,5:print M;
+25050 locate 11,7:print "　　　　　　　";
+25060 locate 14,7:print L;
+25070 locate 11,9:print "　　　　　　　";
+25080 locate 14,9:print D;
+25090 return
+26000 ' エリア内残り敵戦艦を数えてYに返す
+26010 Y=0
+26020 for y=0 to 7:for x=0 to 7
+26030 if @(A+x+y*8)>0 then Y=Y+1
+26040 next:next
+26090 return
+
+cls:print"Ｌｏａｄｉｎｇ　Ｃｏｍｐｌｅｔｅｄ"
--- a/testcall.wb
+++ b/testcall.wb
@@ -0,0 +1,20 @@
+100 ' test machine language call
+110 A=varptr(@(0))
+115 gosub 1000
+120 ax=1:bx=2:cx=3:dx=4:si=-1:di=-2
+130 call A
+140 if ax <> 2 then debug "axの値が期待と違います":end
+150 if bx <> 3 then debug "bxの値が期待と違います":end
+160 if cx <> 4 then debug "cxの値が期待と違います":end
+170 if dx <> 5 then debug "dxの値が期待と違います":end
+180 if si <> 0 then debug "siの値が期待と違います":end
+190 if di <> -1 then debug "diの値が期待と違います":end
+900 debug "正常終了":end
+1000 poke A+0,0x40 'inc	ax
+1010 poke A+1,0x43 'inc	bx
+1020 poke A+2,0x41 'inc	cx
+1030 poke A+3,0x42 'inc	dx
+1040 poke A+4,0x46 'inc	si
+1050 poke A+5,0x47 'inc	di
+1060 poke A+6,0xCB 'ret (FAR)
+1090 return
--- a/testint.wb
+++ b/testint.wb
@@ -0,0 +1,26 @@
+100 cx=22
+110 ds=varseg(@(0))
+120 dx=varptr(@(0))
+125 ax=10*256
+130 int 0x17
+140 if ax<>0 then debug "BIOS‚ªƒGƒ‰<C692>[‚ð•Ô‚µ‚Ü‚µ‚½":end
+150 debug "name dump:";
+160 for i=0 to 15:debug peek(varptr(@(0))+i);",";:next:debug
+162 debug "name char:";
+165 for i=0 to 15:debug chr(peek(varptr(@(0))+i));:next:debug
+170 debug
+180 debug "birth_year:";@(8)
+190 debug "birth_month:";peek(varptr(@(0))+18)
+200 debug "birth_day:";peek(varptr(@(0))+19)
+210 debug "sex:";
+220 s = peek(varptr(@(0))+20)
+230 if s=0 then debug "?"
+240 if s=1 then debug "male"
+250 if s=2 then debug "female"
+260 debug "bloodtype:";
+270 b = peek(varptr(@(0))+21)
+280 if b=0 then debug "?"
+290 if b=1 then debug "A"
+300 if b=2 then debug "B"
+310 if b=3 then debug "O"
+320 if b=4 then debug "AB"
--- a/testpeekpoke.wb
+++ b/testpeekpoke.wb
@@ -0,0 +1,11 @@
+100 a=varptr(A)
+110 s=varseg(A)
+120 debug "変数Aはオフセット";a;",セグメント";s
+130 A=0x1234
+140 defseg=s
+150 if peek(a) <> 0x34 then debug "peekが異常です(!)":end
+160 if peek(a+1) <> 0x12 then  debug "peekが異常です(2)":end
+170 poke a,0xfe
+180 poke a+1,0xdc
+190 if A <> 0xdcfe then debug "pokeが異常です":end
+900 debug "テスト完了"
--- a/vc15_rt.asm
+++ b/vc15_rt.asm
@@ -0,0 +1,310 @@
+;***
+;vc15_rt.asm: Wonder Witch Start-up code for Visual C++ 1.5x
+;
+
+SRAM_SEG		equ	1000h
+
+MAXPATHLEN		equ	64
+
+INT_EXIT		equ	10h
+INT_DISP		equ	12h
+INT_TEXT		equ	13h
+
+DISPLAY_CONTROL		equ	00h
+SPRITE_SET_RANGE	equ	0bh
+SCREEN_SET_SCROLL	equ	13h
+SCREEN2_SET_WINDOW	equ	15h
+SPRITE_SET_WINDOW	equ	17h
+SCREEN_SET_VRAM		equ	21h
+SPRITE_SET_VRAM		equ	22h
+
+TEXT_SCREEN_INIT	equ	00h
+TEXT_SET_MODE		equ	02h
+TEXT_SET_SCREEN		equ	0eh
+
+TEXT_MODE_ANK		equ	0
+TEXT_MODE_ANK_SJIS	equ	1
+TEXT_MODE_SJIS		equ	2
+
+SCREEN1			equ	0
+SCREEN2			equ	1
+
+DCM_SCR1		equ	1
+DCM_SCR2		equ	2
+
+V_SPRITE_START		equ	0
+V_SPRITE_COUNT		equ	0
+
+ifdef DISPLAY_MODE_JAPANESE1
+V_DISPLAY_CONTROL	equ	DCM_SCR2
+V_TEXT_SCREEN		equ	SCREEN2
+V_TEXT_MODE		equ	TEXT_MODE_ANK_SJIS
+V_SCREEN1_VRAM		equ	3		; duplicated with screen2
+V_SCREEN2_VRAM		equ	3
+V_SPRITE_VRAM		equ	11
+V_STACK_TOP		equ	01600h
+endif
+
+ifdef DISPLAY_MODE_JAPANESE2
+V_DISPLAY_CONTROL	equ	DCM_SCR1 + DCM_SCR2
+V_TEXT_SCREEN		equ	SCREEN2
+V_TEXT_MODE		equ	TEXT_MODE_ANK_SJIS
+V_SCREEN1_VRAM		equ	2
+V_SCREEN2_VRAM		equ	3
+V_SPRITE_VRAM		equ	7
+V_STACK_TOP		equ	00e00h
+endif
+
+ifdef DISPLAY_MODE_ASCII1
+V_DISPLAY_CONTROL	equ	DCM_SCR2
+V_TEXT_SCREEN		equ	SCREEN2
+V_TEXT_MODE		equ	TEXT_MODE_ANK
+V_SCREEN1_VRAM		equ	6		; duplicated with screen2
+V_SCREEN2_VRAM		equ	6
+V_SPRITE_VRAM		equ	23
+V_STACK_TOP		equ	02e00h
+endif
+
+ifdef DISPLAY_MODE_ASCII2
+V_DISPLAY_CONTROL	equ	DCM_SCR1 + DCM_SCR2
+V_TEXT_SCREEN		equ	SCREEN2
+V_TEXT_MODE		equ	TEXT_MODE_ANK
+V_SCREEN1_VRAM		equ	6
+V_SCREEN2_VRAM		equ	5
+V_SPRITE_VRAM		equ	19
+V_STACK_TOP		equ	02600h
+endif
+
+_TEXT		segment byte public 'CODE'
+_TEXT		ends
+
+TEXT		segment byte public 'CODE'
+TEXT		ends
+
+_DATA		segment para public 'DATA'
+dseg_start	proc	far
+dseg_start	endp
+_DATA		ends
+
+DATA		segment para public 'DATA'
+DATA		ends
+
+CONST		segment para public 'CONST'
+CONST		ends
+
+_BSS		segment word public 'BSS'
+bss_start	proc	far
+bss_start	endp
+_BSS		ends
+
+BSS		segment word public 'BSS'
+BSS		ends
+
+c_common		segment word public 'BSS'
+c_common		ends
+
+_HEAP		segment para public 'HEAP'
+heap_start	proc	far
+heap_start	endp
+_HEAP		ends
+
+CGROUP		group   _TEXT, TEXT
+DGROUP		group   _DATA, DATA, CONST, _BSS, BSS, c_common, _HEAP
+
+     		assume  cs:CGROUP, ds:DGROUP, es:DGROUP
+
+_TEXT		segment byte public 'CODE'
+		extrn	_main	:near
+		public	_load0
+		public	_run0
+		public	_exit0
+
+_load0		proc	far
+		push	ds
+
+		push	di
+		push	si
+		push	cx
+		push	bx
+
+; calcurate initialized data size
+		mov	cx, offset DGROUP:bss_start
+		shr	cx, 1		; word alignmented
+
+; copy initialized data into user ds
+		mov	ax, cs
+		sub	ax, CGROUP
+;		add	ax, seg dseg_start
+		add	ax, DGROUP
+		mov	ds, ax
+		mov	ax, SRAM_SEG
+		mov	es, ax
+		mov	si, offset DGROUP:dseg_start
+		mov	di, si
+	rep	movsw
+
+; clear bss
+		mov	cx, offset DGROUP:heap_start
+		push	cx
+		mov	di, offset DGROUP:bss_start
+		sub	cx, di
+		shr	cx, 1
+		xor	ax, ax
+	rep	stosw
+
+; calcurate heap start position
+; set argv starting position at heap start
+		pop	es:[__argv]
+
+		mov	dx, cs
+		mov	ax, offset _run0
+
+		pop	bx
+		pop	cx
+		pop	si
+		pop	di
+
+		pop	ds
+		ret
+_load0		endp
+
+_run0		proc	far ;C, argc :word, argv :near ptr
+		push	bp
+		mov	bp,sp
+		push	ds
+		mov	dx, SRAM_SEG
+		mov	es, dx
+		mov	ds, dx
+;		mov	ax, sp
+;		mov	word ptr ds:[__sp], ax
+;		mov	ax, ss
+;		mov	word ptr ds:[__sp + 2], ax
+
+;; setup SP according to the display modes
+
+;;	display_control(0);
+		mov	bx, 0
+		mov	ah, DISPLAY_CONTROL
+		int	INT_DISP
+
+;;	screen_set_scroll(SCREEN1, 0, 0);
+		mov	bx, 00000h
+		mov	al, SCREEN1
+		mov	ah, SCREEN_SET_SCROLL
+		int	INT_DISP
+
+;;	screen_set_scroll(SCREEN2, 0, 0);
+		mov	bx, 00000h
+		mov	al, SCREEN2
+		mov	ah, SCREEN_SET_SCROLL
+		int	INT_DISP
+
+;;	screen2_set_window(0, 0, 255, 255)
+		mov	cx, 0ffffh
+		mov	bx, 00000h
+		mov	ah, SCREEN2_SET_WINDOW
+		int	INT_DISP
+
+;;	sprite_set_window(0, 0, 255, 255)
+		mov	cx, 0ffffh
+		mov	bx, 00000h
+		mov	ah, SPRITE_SET_WINDOW
+		int	INT_DISP
+
+;;	text_set_screen(V_TEXT_SCREEN);
+		mov	al, V_TEXT_SCREEN
+		mov	ah, TEXT_SET_SCREEN
+		int	INT_TEXT
+
+;;	text_set_mode(V_TEXT_MODE);
+		mov	bx, V_TEXT_MODE
+		mov	ah, TEXT_SET_MODE
+		int	INT_TEXT
+
+;;	screen_set_vram(SCREEN1, V_SCREEN1_VRAM)
+		mov	bx, V_SCREEN1_VRAM
+		mov	al, SCREEN1
+		mov	ah, SCREEN_SET_VRAM
+		int	INT_DISP
+
+;;	screen_set_vram(SCREEN2, V_SCREEN2_VRAM)
+		mov	bx, V_SCREEN2_VRAM
+		mov	al, SCREEN2
+		mov	ah, SCREEN_SET_VRAM
+		int	INT_DISP
+
+;;	sprite_set_vram(SCREEN2, V_SCREEN2_VRAM)
+		mov	bx, V_SPRITE_VRAM
+		mov	ah, SPRITE_SET_VRAM
+		int	INT_DISP
+
+;;	sprite_set_range(V_SPRITE_START, V_SPRITE_COUNT)
+		mov	cx, V_SPRITE_COUNT
+		mov	bx, V_SPRITE_START
+		mov	ah, SPRITE_SET_RANGE
+		int	INT_DISP
+
+;;	display_control(V_DISPLAY_CONTROL);
+		mov	bx, V_DISPLAY_CONTROL
+		mov	ah, DISPLAY_CONTROL
+		int	INT_DISP
+
+		MOV	CX, [BP + 8]	; for argv	; mov	bx, argc
+		MOV	BX, [BP + 6]	; for argc	; mov	cx, argv
+
+		mov	ax, V_STACK_TOP
+		mov	sp, ax
+		push	cx	; argv
+		push	bx	; argc
+		call	_main
+_exit00:
+_exit0:
+		int	INT_EXIT
+		;mov	sp,bp
+		;pop	bp
+		;ret
+_run0		endp
+
+;_exit0:
+;		mov	ax, SRAM_SEG
+;		mov	es, ax
+;		les	ax, dword ptr es:[__sp]
+;		mov	sp, ax
+;		mov	ax, es
+;		mov	ss, ax
+;		jmp	_exit00
+_TEXT		ends
+
+_DATA		segment para public 'DATA'
+
+public	__acrtused		; trick to force in startup
+	__acrtused = 9876h	; funny value not easily matched in SYMDEB
+
+		public __id
+		public __pid
+		public __ppid
+		public __pcbid
+		public __ppcbid
+		public __ilib
+		public __proc
+		public __cwfs
+		public __currentdir
+		public __argv
+		public __heap
+;dseg_start:
+__id		db	'TCC', 0
+__pid		dw	?
+__ppid		dw	?
+__pcbid		dw	?
+__ppcbid	dw	?
+__ilib		dd	?
+__proc		dd	?
+__cwfs		dd	?
+__currentdir	db	MAXPATHLEN dup (?)
+__argv		dw	?
+__resource	dd	?
+__heap		dw	?
+_DATA		ends
+
+		end
+
--- a/win32text.c
+++ b/win32text.c
@@ -1,15 +1,19 @@
 // wonbe Win32 text emulation
-// First Created: Nov.4,2000 by Nashiko
-// Copyright 2000 (c) by Pie Dey Co.,Ltd.
+/* First Created: Nov.4,2000 by Pie Dey Co.,Ltd. */
+
+/* This source code is distributed under GNU General Public License (GPL) */
+/* see http://www.gnu.org/ about GPL */

 #include <windows.h>
+#include <stdio.h>
 #include "win32text.h"

 #define SCREEN_SIZE_X (224/8)
 #define SCREEN_SIZE_Y (144/8)
 static WORD screen[SCREEN_SIZE_X][SCREEN_SIZE_Y];

-static WORD lastChar;
+//static WORD lastChar;
+static UINT lastVKey;

 static HWND hwnd;

@@ -22,6 +26,7 @@ static void wmPaint( HWND hWnd, HDC hdc )

 	GetClientRect( hWnd, &rect );

+	SelectObject( hdc, GetStockObject( SYSTEM_FIXED_FONT ) );
 	GetTextMetrics( hdc, &tm );

 	xArea = SCREEN_SIZE_X * tm.tmMaxCharWidth;
@@ -47,6 +52,13 @@ static void wmPaint( HWND hWnd, HDC hdc )
 					rectDraw.left+x*tm.tmMaxCharWidth,
 					rectDraw.top+y*tm.tmHeight,
 					str, 2 );
+			} else {
+				static char table[] = "　！”＃＄％＆’（）＊＋，－．／０１２３４５６７８９：；＜＝＞？＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿｀ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝￣";
+				if( val >= 0x20 && val <= 0x7e ) {
+					TextOut( hdc,
+						rectDraw.left+x*tm.tmMaxCharWidth,
+						rectDraw.top+y*tm.tmHeight,
+						&table[(val-0x20)*2], 2 );
 				} else {
 					str[0] = (BYTE)val;
 					TextOut( hdc,
@@ -57,6 +69,7 @@ static void wmPaint( HWND hWnd, HDC hdc )
 			}
 		}
 	}
+}

 LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
 {
@@ -70,10 +83,14 @@ LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
 		EndPaint(hWnd, &ps);
 		break;

-	case WM_CHAR:
-		lastChar = (WORD)wParam;
+	case WM_KEYDOWN:
+		lastVKey = (WORD)wParam;
 		break;

+	//case WM_CHAR:
+	//	lastChar = (WORD)wParam;
+	//	break;
+
 	case WM_CLOSE:
 		return 0;	// 閉じちゃ駄目

@@ -166,7 +183,8 @@ int createText()
    DWORD dwThreadId, dwThrdParam = 1; 
    HANDLE hThread; 

-	lastChar = 0;
+	//lastChar = 0;
+	lastVKey = 0;
    hThread = CreateThread( 
        NULL,                        // no security attributes 
        0,                           // use default stack size  
@@ -179,42 +197,37 @@ int createText()

 unsigned short win32_wait()
 {
-	WORD t;
+	UINT t;
 	while( TRUE ) {
 		// 以下の2行は本当はマルチスレッド的にNGなんだけど
 		// テスト用環境だから大目に見る
-		t = lastChar;
-		lastChar = 0;
+		t = lastVKey;
+		lastVKey = 0;
 		switch( t ) {
-		case 'p':
 		case 'P':
 			return 0x02;	// START BUTTON
-		case ' ':
+		case VK_SPACE:
 			return 0x04;	//KEYWORD_SCAN_A;
-		case 0x1b:
+		case VK_ESCAPE:
 			return 0x08;	//KEYWORD_SCAN_B;
-		case 'e':
+		case VK_UP:
 		case 'E':
 			return 0x10;	//KEYWORD_SCAN_X1;
-		case 'd':
+		case VK_RIGHT:
 		case 'D':
 			return 0x20;	//KEYWORD_SCAN_X2;
-		case 'x':
+		case VK_DOWN:
 		case 'X':
 			return 0x40;	//KEYWORD_SCAN_X3;
-		case 's':
+		case VK_LEFT:
 		case 'S':
 			return 0x80;	//KEYWORD_SCAN_X4;
-		case 't':
 		case 'T':
 			return 0x100;	//KEYWORD_SCAN_Y1;
-		case 'g':
 		case 'G':
 			return 0x200;	//KEYWORD_SCAN_Y2;
-		case 'v':
 		case 'V':
 			return 0x400;	//KEYWORD_SCAN_Y3;
-		case 'f':
 		case 'F':
 			return 0x800;	//KEYWORD_SCAN_Y4;
 		}
@@ -272,4 +285,104 @@ void win32_sys_wait( unsigned int val )
 	Sleep( val*10 );
 }

+
+static BOOL bPlayingMIDI = FALSE;
+static UINT wDeviceID;
+
+DWORD stopMIDIFile(HWND hwnd)
+{
+	if( bPlayingMIDI ) {
+		mciSendCommand(MCI_ALL_DEVICE_ID, MCI_CLOSE, MCI_WAIT, (DWORD)NULL);
+    	bPlayingMIDI = FALSE;
+	}
+	return 0;
+}
+
+DWORD playMIDIFile(HWND hWndNotify, LPSTR lpszMIDIFileName)
+{
+    DWORD dwReturn;
+	MCI_OPEN_PARMS mciOpenParms;
+    MCI_PLAY_PARMS mciPlayParms;
+    MCI_STATUS_PARMS mciStatusParms;
+	//MCI_SEQ_SET_PARMS mciSeqSetParms;
+
+    // Open the device by specifying the device and filename.
+    // MCI will attempt to choose the MIDI mapper as the output port.
+    mciOpenParms.lpstrDeviceType = "sequencer";
+    mciOpenParms.lpstrElementName = lpszMIDIFileName;
+    if (dwReturn = mciSendCommand((MCIDEVICEID)NULL, MCI_OPEN,
+        MCI_OPEN_TYPE | MCI_OPEN_ELEMENT,
+        (DWORD)(LPVOID) &mciOpenParms))
+    {
+        // Failed to open device. Don't close it; just return error.
+        return (dwReturn);
+    }
+
+    // The device opened successfully; get the device ID.
+    wDeviceID = mciOpenParms.wDeviceID;
+
+	bPlayingMIDI = TRUE;
+
+    // Check if the output port is the MIDI mapper.
+    mciStatusParms.dwItem = MCI_SEQ_STATUS_PORT;
+    if (dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, 
+        MCI_STATUS_ITEM, (DWORD)(LPVOID) &mciStatusParms))
+    {
+        mciSendCommand(wDeviceID, MCI_CLOSE, 0, (DWORD)NULL);
+        return (dwReturn);
+    }
+
+    // The output port is not the MIDI mapper. 
+    // Ask if the user wants to continue.
+    if (LOWORD(mciStatusParms.dwReturn) != MIDI_MAPPER)
+    {
+		//printf("Warning: The MIDI mapper is not available.\n");
+    }
+
+    // Begin playback. The window procedure function for the parent 
+    // window will be notified with an MM_MCINOTIFY message when 
+    // playback is complete. At this time, the window procedure closes 
+    // the device.
+    mciPlayParms.dwCallback = (DWORD) hWndNotify;
+    if (dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_NOTIFY, 
+        (DWORD)(LPVOID) &mciPlayParms))
+    {
+        mciSendCommand(wDeviceID, MCI_CLOSE, 0, (DWORD)NULL);
+        return (dwReturn);
+    }
+
+    return (0L);
+}
+
+// "テキスト音楽「サクラ」"に含まれるdsakura.dllを用いてMMLを再生します
+// サクラは以下より入手できます http://www.text2music.com/
+// dsakura.dllが無ければ音が出ないだけで、エラーにはなりません。
+void win32_play_mml( const char * mml )
+{
+	static BOOL initialized = FALSE;
+	static HMODULE hmod = NULL;
+	static FARPROC pMMLtoMIDI = NULL;
+	if( !initialized ) {
+		HMODULE hmod = LoadLibrary("dsakura");
+		if( hmod != NULL ) {
+			pMMLtoMIDI = GetProcAddress( hmod, "MMLtoMIDI" );
+		} else {
+			printf("LoadLibrary(\"dsakura\") failed\n");
+		}
+		initialized = TRUE;
+	}
+	if( pMMLtoMIDI != NULL ) {
+		char errmsg[256];
+		BOOL b;
+		stopMIDIFile(hwnd);
+		b = (*pMMLtoMIDI)(mml,"$$$.mid",errmsg);
+		if( b == FALSE ) {
+			printf("dsakura: %s\n",errmsg);
+		}
+		playMIDIFile(hwnd, "$$$.mid");
+	} else {
+		printf("play: %s\n", mml );
+	}
+}
+
 // end of win32text.c
--- a/win32text.h
+++ b/win32text.h
@@ -1,6 +1,8 @@
 // wonbe Win32 text emulation
-// First Created: Nov.4,2000 by Nashiko
-// Copyright 2000 (c) by Pie Dey Co.,Ltd.
+/* First Created: Nov.3,2000 by Pie Dey Co.,Ltd. */
+
+/* This source code is distributed under GNU General Public License (GPL) */
+/* see http://www.gnu.org/ about GPL */

 int createText();
 void clearText();
@@ -11,5 +13,6 @@ unsigned short win32_wait();
 unsigned short win32_scan();
 unsigned int win32_get_tick_count();
 void win32_sys_wait( unsigned int val );
+void win32_play_mml( const char * mml );

 // end of win32text.h
--- a/wonbe.c
+++ b/wonbe.c
--- a/wonbe.dsp
+++ b/wonbe.dsp
@@ -39,6 +39,7 @@ RSC=rc.exe
 # PROP Use_Debug_Libraries 0
 # PROP Output_Dir "Release"
 # PROP Intermediate_Dir "Release"
+# PROP Ignore_Export_Lib 0
 # PROP Target_Dir ""
 # ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
 # ADD CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /c
@@ -49,7 +50,7 @@ BSC32=bscmake.exe
 # ADD BSC32 /nologo
 LINK32=link.exe
 # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib Winmm.lib /nologo /subsystem:console /machine:I386

 !ELSEIF  "$(CFG)" == "wonbe - Win32 Debug"

@@ -62,6 +63,7 @@ LINK32=link.exe
 # PROP Use_Debug_Libraries 1
 # PROP Output_Dir "Debug"
 # PROP Intermediate_Dir "Debug"
+# PROP Ignore_Export_Lib 0
 # PROP Target_Dir ""
 # ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
 # ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /GZ /c
@@ -72,7 +74,7 @@ BSC32=bscmake.exe
 # ADD BSC32 /nologo
 LINK32=link.exe
 # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib Winmm.lib /nologo /subsystem:console /debug /machine:I386

 !ENDIF 

--- a/wonbe.exe
+++ b/wonbe.exe
--- a/wonbe.fx
+++ b/wonbe.fx
--- a/wonbe.txt
+++ b/wonbe.txt
@@ -1,15 +1,17 @@
 ワンべぇ: WONBE, WonderWitch BASIC Environment
-                                               暫定マニュアル Ver 0.01
-                                                         2000年11月6日
+                                               暫定マニュアル Ver 0.06
+                                                         2001年1月29日
                                                      株式会社ピーデー
                                                              川俣　晶
-                                 Copyright 2000 (c) by Pie Dey Co.Ltd.
+         This software is distributed under GNU General Public License

 ●これは何か?
 　ワンべぇは、WonderWitch上で使用できる小型BASICインタプリタです。
 　WonderWitch上ですべての機能が稼働し、シリアルケーブル経由で接続された一般の通信ソフトで操作します。デバッグ済みのプログラムを実行する場合は、シリアルケーブルも通信ソフトも必要ありません。
 　WonderWitchのテキスト画面を扱う最小限度のステートメント(cls,locate,print)と、最小限度のボタン入力機能(wait,scan)を持ち、簡易なミニゲームが書けます。
+　WonderSwan Color使用時には4色カラーモードが可能です。
 　動作テスト用にWin32上で動くバイナリーもありますが、これは、BASIC本体の動作確認用と割り切ってください。
+　ドキュメントは、ちょっと見難いかもしれませんが、有志が見やすいものを作ってくれることを期待します。

 ●必要なもの
 ・開発時
@@ -44,12 +46,12 @@
 　ごく軽いBASIC言語です。
 　昔あったTiny BASICに近い構文を持っています。
 　データ型は、符号付き16bit整数だけです。
-　定数は、-32768～32767の10進数か、0x0000～0xffffの16進数で記述できます。
+　定数は、-32767～32767の10進数か、0x0000～0xffffの16進数で記述できます。-32768は変数には記憶できますが、ソースには書けません。(-32767-1のように書いてください)
 　変数は、グローバル変数として、A～Zのアルファベット大文字1文字のものが26個あります。
-　ローカル変数として、a～zのアルファベット子文字1文字のものが26個あります。ローカル変数はgosubステートメントを実行したときに新しい領域が割り当てられ、returnステートメントを実行したときにgosubする前の領域が戻ってきます。
+　ローカル変数として、a～zのアルファベット小文字1文字のものが26個あります。ローカル変数はgosubステートメントを実行したときに新しい領域が割り当てられ、returnステートメントを実行したときにgosubする前の領域が戻ってきます。
 　配列変数は@(インデックス)という形式の1次元配列だけが使用できます。使用可能なサイズは、プログラム記憶領域(48Kバイト)の残りサイズに等しくなります。インデックスは0から始まります。(例: for i=0 to 9:print @(i):next)
-　演算子の優先順位はありません。(1+2*3は9になります)
-　計算順序は、括弧()を使って明示的にコントロールしてください。
+　演算子の優先順位は「単項演算子 > */ > +- > 比較演算子 > and,or,xor」となります。(比較演算子は、<と>と=で記述する演算子すべて)
+　計算順序は、括弧()を使って明示的に変更できます。
 　オーバーフロー、アンダーフローのチェックはありません。溢れは無視されます。ただしゼロ除算はエラーになります。
 　ステートメントなどのキーワードはすべてアルファベット小文字で入力します。大文字を使っても小文字になります。

@@ -96,7 +98,7 @@ return
 for 変数=式 to 式
 for 変数=式 to 式 step 式
 　変数の値を変化させながらnextまで繰り返します。
-　終了値は厳密であることに注意が必要です。for i=1 to 2 step 2:nextは、無限ループになります。なぜなら変数iは永遠に2にならないからです。このような仕様にしておかないと、終了値を超えたら終わるという判定だと、ループの終値が32767のときに機能しないためです。
+　最後の変数の値が終値に一致せず、終値+ステップ値がオーバーフローする場合は無限ループする可能性があります。そのような値は指定しないように注意してください。
 例: for i=0 to 10 step 2

 next
@@ -163,6 +165,48 @@ waitvb
 files
 　カレントディレクトリのファイル一覧をシリアルポートに送ります。単体で実行する場合には使えないデバッグ専用の機能です。

+play 文字列
+　引数の文字列をMMLとして再生します。使用可能にするには「●　playステートメントを有効にする方法」を参照してください。
+例: play "cde"
+
+poke 式,式
+　最初の式をオフセット、2番目の式を値と見なし、システム変数defsegのセグメントに1バイトのメモリ書き込みを行います。
+　Win32版では機能しません。
+　注意:csegのセグメントはフラッシュメモリなのでpokeでは書き込めません。
+
+call 式
+　式をオフセットと見なし、システム変数defsegのセグメントにマシン語レベルのサブルーチンコール(FAR)を行います。コールする前にシステム変数AX,BX,CX,DX,SI,DI,DS,ESがそれぞれのレジスタに設定されます。リターン後のレジスタ状態はシステム変数AX,BX,CX,DX,SI,DI,ESに保存されます。(注:DSは戻りません)
+　Win32版では機能しません。
+
+int 式
+　式を割り込み番号と見なし、マシン語レベルのシステム割り込み(int)を行います。WonderWitchのBIOSを呼び出すことができます。コールする前にシステム変数AX,BX,CX,DX,SI,DI,DS,ESがそれぞれのレジスタに設定されます。リターン後のレジスタ状態はシステム変数AX,BX,CX,DX,SI,DI,ESに保存されます。(注:DSは戻りません)
+　Win32版では機能しません。
+
+tron
+　トレースモードをオンにします。トレースモードに入ると、新しい行の実行始めるごとに、行番号をデバッグコンソールに送信します。
+
+troff
+　トレースモードをオフにします。
+
+colormode 式
+　カラーモードを設定します。WonderSwan Colorでのみ使用できます。
+　式の値は以下の通りです。
+0x00  モノクロモード
+0x80  4色モード
+0xC0  16色モード (設定できますがワンべぇの機能からは描画できません)
+0xE0  16色PACKEDモード (設定できますがワンべぇの機能からは描画できません)
+　Win32版では機能しません。
+
+color 式,式
+　描画する文字の色を指定します。最初の式が前景色のインデックス、2番目の式が背景色のインデックスです。それぞれ、0～3のみ指定できます。
+　実行開始時の初期状態はcolor 3,0に相当する状態です。
+　Win32版では機能しません。
+
+palette 式,式,式,式
+　パレットを指定します。最初の式が設定するパレットのインデックス(0～3)を指定します。2番目から4番目の式が、それぞれ、R,G,Bの値を示します。R,G,Bの値はそれぞれ0～15の範囲内です。
+　Win32版では機能しません。
+例: palette 0,15,0,0
+
 ●　2項演算子
 　+ - * / < > = <= >= <> and or xor

@@ -177,6 +221,26 @@ rnd(
 abs(式)
 　式の絶対値を返します。

+varptr(変数)
+　指定した変数のオフセットを返します。
+　Win32版では機能しません。
+
+varseg(変数)
+　指定した変数のセグメントを返します。
+　Win32版では機能しません。
+
+peek(式)
+　式をオフセットと見なし、システム変数defsegのセグメントから1バイトのメモリ読み出しを行います。
+　Win32版では機能しません。
+
+●　システム変数 (読み書き可能)
+
+ax,bx,cx,dx,si,di,ds,es
+　callおよびintステートメントを使用する際にレジスタの値を指定したり、リターン後のレジスタの値を保存するために使用します。
+
+defseg
+　peek関数、poke,callステートメントで使用されるセグメント値を保持します。初期値はdsegの値となります。
+
 ●　システム変数 (読み出しのみ)

 scan
@@ -202,22 +266,104 @@ scan_y4
 tick
 　システムタイマーのtickを返します。ただし、本来のtick値は符号無し32bit整数であり、ここで得られるのは16bit符号あり整数であることに注意が必要です。はみ出たbitは捨てられます。

+dseg
+　実行中のDSセグメントレジスタの値を返します。変数やワンべぇプログラムの中間言語コードはすべてこのセグメントにあります。
+　Win32版では機能しません。
+
+cseg
+　実行中のCSセグメントレジスタの値を返します。ワンべぇのプログラム本体がこのセグメントにあります。
+　Win32版では機能しません。
+
+sseg
+　実行中のSSセグメントレジスタの値を返します。マシン語スタックがこのセグメントにあります。
+　Win32版では機能しません。
+
+hardarch
+　現在実行中のWonderSwanがColorモデルかどうかを返します。モノクロWonderSwanなら0。WonderSwan Colorなら1になります。
+　Win32版では機能しません。
+
 ●　ファイル保存時の拡張子
-　一応、ワンべぇのソースフィルは、".wb"で終わるファイル名にしておいて下さい。現在エントランスメニューには全ファイルが見えていますが、".wb"で終わるファイル名だけに限定しようかと考えています。
+　ワンべぇのソースフィルは、".wb"で終わるファイル名にしておいて下さい。loadなどのコマンドでは拡張子に関係なく読み込めますが、エントランスメニューに表示されるのは".wb"で終わるファイル名だけです。
+
+●　playステートメントを有効にする方法
+　sound.ilを、/rom0に転送しておいてください。このファイルが無いとplayステートメントを使用しても音が出ません。sound.ilが無ければ音が出ないだけで、プログラムは実行されます。
+　Win32版では、クジラ飛行机さん作の"テキスト音楽「サクラ」"に含まれるdsakura.dllを用いてMMLを再生することができます。このソフトは、http://www.text2music.com/より入手できます。dsakura.dllは環境変数pathの通ったディレクトリならどこに置いても構いません。必要ファイルはこのDLLのみです。dsakura.dllが無ければ音が出ないだけで、プログラムは実行されます。ただし、MMLの仕様が完全に同じではないことに注意してください。なお、Win32版ではplayステートメント実行時にカレントディレクトリに$$$.midというファイルを生成します。実行終了後には削除して構いません。

 ●　配布規則
-　現バージョンは品質が不明のテスト版です。
-　ですので、以下のように扱ってください。
-　(正規版でどうするかは未定です)
+　このバージョンより、本ソフトは、GNU General Public License (GPL)に従うものとしました。詳細はhttp://www.gnu.org/にあります。
+　要するに、誰でも、どんな目的にも使用して良いということです。ただし、本ソフトを売ってはいけません。また、ソースコードは必ず公開しなければなりません。商品の中に収録することは可ですが、本ソフトを利用者が自由にコピーして配布することを妨げてはなりません。
+　2000年12月現在、ソースコードは株式会社ピーデーの川俣晶(autumn@piedey.co.jp)が管理しています。有益なソースコードの修正をフィードバックしてくれれば、こちらのソースツリーに反映します。

-・転載
-　未完成品ですので、Internetやパソコン通信などへの転載は不可です。必ずhttp://www.piedey.co.jp/のサイトから入手するようにしてください。
-・雑誌掲載等
-　ご相談下さい。
-・商業利用
-　ご相談下さい。
-・自作ソフトの実行手段としてのワンべぇの添付
-　自作ソフトを配布するためにwonbe.fxを一緒に渡すことを許可します。アーカイブへの同梱、CD-Rメディアなどへの焼き込み、通信ケーブルによる転送、どれも可です。ただし、ワンべぇの動作に関しては何も保証はできませんので、リスクは自分で負ってください。利用にあたっては、ロイヤリティなどはありませんので、報告も送金も必要ありません。
+●　余談
+　ワンべぇは、私こと川俣が、20世紀への感謝と決別の気持ちで作ったものです。つまり、私にとって、マイコン/パソコンに出会ったという事件こそが、20世紀最大のイベントであり、そこで大きな役割を果たした超小型インタプリタ言語達、Tiny BASIC、VTL、GAME、TL/1は大きな印象を私の中に残したのです。そして、当時、私はプログラム言語を自分で作りたくて、一生懸命研究を重ねていたのも、また事実です。結局、いくつものトイ言語を開発しました。必要とあれば実用言語も作りました。ENIXのTOKYOナンパストリートをFM-7からPC-8801に移植するときにはメモリ効率を上げるために整数型の小型インタプリタを作ったりもしました。しかし、最終的に構造化アセンブラの匂いを微かに含んだ自作のZ-80用アセンブラ開発システムAZASをもって自作言語の世界は終着駅を迎えたわけです。この時点で、明らかに、Tiny BASICのような言語を開発する意味がなかったのです。必要な性能を得るためには、アセンブラレベルの開発が不可欠だったためです。作ることはできたけれど、作る意味は既に無かったのです。そして、時代が16bitの時代に移ると共に、私も自作言語を使うのはやめて、出来の良い既存の処理系を使うようになりました。MASM　1.27～, Turbo Pascal 3.0, Turbo C 1.5～2.0, MS-C 6.0～, Visual BASIC 1.0～, JDK 1.02～などなど。しかし、ふと20世紀も終わる頃に振り返ると、右も左も分からない少年時代に憧れたあのシンプルなTiny BASICが思い出されたわけです。だから、これこそが私にとっての20世紀そのもの、という気持ちを込めて作ったのです。
+　そのような訳で、これにはある種の世代性があります。BASICでゲームを作るというと、MSXとかベーマガという世代もいるようですが、はっきり言って、この世代にはワンべぇは理解できないと思います。MSXに搭載されたBASICは、超高機能巨大BASICであって、Tiny BASICとはまったく世代が違うのです。PC-8801やFM-7まで遡れる世代でも、まだ分からないでしょう。結局のところ、これが分かるためには、パソコンがパソコンと呼ばれる前、マイコンと呼ばれ、ケースに収まっておらず基板が剥き出しの状態で売られていた時代まで遡る必要があります。つまりは、そういう時代、何かを得ようとすれば手作りの要素が入り込んで当たり前の時代のロマンへ捧げるものが、このワンべぇと言うことになります。そして、そのロマンを再現するにふさわしい土台として、WonderWitchという製品がこの時代に登場したことも、不思議な縁だと思います。
+　というわけで、私がワンべぇ利用者に言いたいことは一つです。このロマンを分かち合ってくれ。つまり、気に入らないところは、どんどん改造してくれ。好き勝手に改造して使えることを保証するために、ソースはGPLにしてあります。
+
+●　同梱ワンべぇプログラム
+▼デモ
+colordemo.wb
+　カラー機能のデモ (これのみWonderSwanColor用)
+▼ゲーム
+ctb.wb
+　落ち物ゲーム
+janken.wb
+　ジャンケンゲーム
+shoot.wb
+　シューティングゲーム
+star.wb
+　STAR TREK風ゲーム"STAR WITCH" (同梱star.txt参照)
+　プログラムの書き方の参考にどうぞ
+▼テスト
+test.wb
+　簡単なインタプリタの動作テスト
+testcall.wb
+　callステートメントの動作テスト
+testcont.wb
+　contステートメントの動作テスト
+testfor.wb
+　forステートメントの動作テスト
+testgosub.wb
+　gosubステートメントの動作テスト
+testif.wb
+　ifステートメントの動作テスト
+testint.wb
+　intステートメントの動作テスト
+testlocate.wb
+　locateステートメントの動作テスト
+testlongloop.wb
+　STARTキーによる中断のテスト
+testpeekpoke.wb
+　peek関数pokeステートメントのテスト
+
+●　変更履歴
+
+2001年1月29日 Ver 0.06
+・WonderSwan Colorの開発キットに移行
+・colormode, palette, colorステートメント、hardarchシステム変数を追加
+・ドキュメントに余談を追加
+
+2000年12月10日 Ver 0.05
+・Hirotaka JOE Ohkuboさんの差分(0.04j4)をマージ play文が使用可能に (要sound.il)
+・?をキーワードdebugと見なす
+・then直後が10進整数値ならgotoの省略を許す
+・マシン語関連機能の追加
+・tron/troffコマンドの追加(実行行番号の表示)
+
+2000年11月12日 Ver 0.04
+・13など0x0dを含む行番号を削除しようとするとプログラムが壊れたバグを取った
+・処理系をTurbo C2.0からVisual C++ 1.51に変更
+・ロード速度を大幅に改善
+・エントランスメニューは.wbのみ表示
+・サンプルゲームSTAR WITCH(star.wb, star.txt)を添付
+
+2000年11月7日 Ver 0.03
+・演算子の優先順位 単項演算子 > */ > +- > 比較演算子 > and,or,xor
+・比較演算子成立時の値を1から-1に変更
+・プロンプトをOKに変更
+・print/debugで負数が正数として出力されていたバグを解消
+・forの終値がピッタリ一致しなくてもnextでループ脱出するように変更
+2000年11月7日 Ver 0.02 scan_XXが機能しないバグを取った
+2000年11月6日 Ver 0.01 最初のバージョン

 ●　問い合わせ先
 株式会社ピーデー http://www.piedey.co.jp/
Author	SHA1	Message	Date
Kawamata Akira	7d4a34e405	- Transfer to WonderSwan Color development kit - Add colormode, palette, color statement, hardarch system variable - Add a digression to the document Version 0.06 - from wonbe006.lzh	2001-01-29 12:00:00 +09:00
Kawamata Akira	b906d49ca1	- Hirotaka JOE Ohkubo's difference (0.04j4) can be merged with play statement (sound.il required) - Consider? As the keyword debug - Allow goto to be omitted if immediately after it is a decimal integer value - Addition of machine language related functions - Add tron / troff command (display execution line number) Version 0.05 - from wonbe005.lzh	2000-12-10 12:00:00 +09:00
Kawamata Akira	3bc39a53f1	- When trying to delete a line number including 0x0d such as 13, the program took a broken bug - Change processing system from Turbo C2.0 to Visual C ++ 1.51 - Significantly improved loading speed - Only the .wb entrance menu is displayed - Sample game STAR WITCH (star.wb, star.txt) attached Version 0.04 - from wonbe004.lzh	2000-11-12 12:00:00 +09:00
Kawamata Akira	3a44094757	- Operator precedence order Unary operator> * /> + -> Comparison operator> and, or, xor - Change the value when the comparison operator is established from 1 to -1 - Change prompt to OK - Fixed a bug that negative numbers were output as positive numbers by print / debug - Changed so that loop can escape in next even if for closing price does not match exactly Version 0.03 - from wonbe003.lzh	2000-11-07 17:00:00 +09:00
Kawamata Akira	ee82c35364	scan_XX took a bug that does not work Version 0.02 - from wonbe002.lzh	2000-11-07 12:00:00 +09:00