MSX2+ YJK Colors | MSX-BASIC 3.0+ (MSX2+/turbo R) https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/yjk-%E8%A1%A8%E7%A4%BA/

yjkcolor.bas

' MSX2+ YJK colors (MSX JAPAN top page program 3 Jun, 2019) | MSX-BASIC
' Copyright (c) 2019 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
100 DEFINT A-Z
110 C=15*8:'Y*8
120 SCREEN 12
130 COLOR 255,0,0
140 FOR J=-32 TO 31
150 X=128+J*256/64
160 LINE(X+2,0)-(X+2,211),C+(J AND 7)
170 LINE(X+3,0)-(X+3,211),C+(J AND 58)/8
180 NEXT J
190 FOR K=-32 TO 31
200 Y=106+K*212/64
210 FOR X=0 TO 255 STEP 4
220 LINE(X  ,Y)-(X  ,Y+3),C+(K AND 7)
230 LINE(X+1,Y)-(X+1,Y+3),C+(K AND 56)/8
240 NEXT X
250 NEXT K
260 GOTO 260