PC-98の下線
2024/4/9(火)
PC-98の下線
PC-98の下線
PC-98の下線が4dotズレている理由
縦線とで枠を書く為だと思いますので書いてみました
下記リストをコピー(100～220+1行(改行)までを選んでCtrl+c)し
NL-BASICの画面でペースト(Alt+v)します
画面クリアしてLISTで表示
RUNで動きます
100 ' PC-98の下線が4dotズレているので縦線とで枠を書いてみました
110 ' Alt+shift+eでbeep最大音量,Alt+F1でリセットで起動音
120 ' メモ帳のリストをCtrl+cでコピーし、Alt+vでぺーストしました
130 def fna(x, y) = (x + y*80)*2: def fnc(c, a) = c*32 + a
140 def seg=&ha200: out &h68,0
150 x1 = 1: y1 = 0: x2 = 15: y2 = 3: cl = 5
160 for x=x1 to x2-1
170 poke fna(x, y1), fnc(cl, &h09): poke fna(x, y2), fnc(cl, &h09)
180 next
190 for y=y1+1 to y2-1:
200 poke fna(x1, y), fnc(cl, &h11): poke fna(x2, y), fnc(cl, &h11)
210 next
220 poke fna(x1, y2), fnc(cl, &h19): poke fna(x2, y2), fnc(cl, &h11)
N88-BASIC互換VL,NL,XL-BASICは
以下のリンクからダウンロードできます
https://ulprojectmail.blogspot.com
Readme.txtを読んで遊んで下さい
縦線とで枠を書く為だと思いますので書いてみました
下記リストをコピー(100～220+1行(改行)までを選んでCtrl+c)し
NL-BASICの画面でペースト(Alt+v)します
画面クリアしてLISTで表示
RUNで動きます
100 ' PC-98の下線が4dotズレているので縦線とで枠を書いてみました
110 ' Alt+shift+eでbeep最大音量,Alt+F1でリセットで起動音
120 ' メモ帳のリストをCtrl+cでコピーし、Alt+vでぺーストしました
130 def fna(x, y) = (x + y*80)*2: def fnc(c, a) = c*32 + a
140 def seg=&ha200: out &h68,0
150 x1 = 1: y1 = 0: x2 = 15: y2 = 3: cl = 5
160 for x=x1 to x2-1
170 poke fna(x, y1), fnc(cl, &h09): poke fna(x, y2), fnc(cl, &h09)
180 next
190 for y=y1+1 to y2-1:
200 poke fna(x1, y), fnc(cl, &h11): poke fna(x2, y), fnc(cl, &h11)
210 next
220 poke fna(x1, y2), fnc(cl, &h19): poke fna(x2, y2), fnc(cl, &h11)
N88-BASIC互換VL,NL,XL-BASICは
以下のリンクからダウンロードできます
https://ulprojectmail.blogspot.com
Readme.txtを読んで遊んで下さい
