2024/4/9(火) 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-BASI Cは 以下のリンクからダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい