提交: bd66c43bffc7c0c952f99d2a505216c05ec182d0 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• 修訂: bd66c43bffc7c0c952f99d2a505216c05ec182d0 (tree)
• 時間: 2019-02-28 07:52:34
• 作者: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

GPrint right most character.

Change Summary

• modified: mips/classes/CKNJ12/CKNJ12.BAS
• modified: mips/classes/CKNJ16/CKNJ16.BAS

差異

--- a/mips/classes/CKNJ12/CKNJ12.BAS
+++ b/mips/classes/CKNJ12/CKNJ12.BAS
@@ -1,4 +1,4 @@
-REM CKNJ16.BAS ver 0.1
+REM CKNJ12.BAS ver 0.1
 REM Class CKNJ12 for MachiKania Type Z/M
 REM using Shinonome 12x12 font
 
@@ -79,7 +79,7 @@ LABEL GPRTCH
   x=SYSTEM(28)
   y=SYSTEM(29)
   putbmp x,y,12,12,BMPF
-  if x+24<SYSTEM(22) then
+  if x+24<=SYSTEM(22) then
     x=x+12
   else
     x=0

--- a/mips/classes/CKNJ16/CKNJ16.BAS
+++ b/mips/classes/CKNJ16/CKNJ16.BAS
@@ -64,7 +64,7 @@ LABEL GPRTCH
   x=SYSTEM(28)
   y=SYSTEM(29)
   putbmp x,y,16,16,BMPF
-  if x+32<SYSTEM(22) then
+  if x+32<=SYSTEM(22) then
     x=x+16
   else
     x=0