Last active
April 19, 2025 02:22
-
-
Save fu-sen/eceef7dbc99a1ad765d84fd1b0002cd4 to your computer and use it in GitHub Desktop.
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/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' MSX2+ YJK colors | MSX-BASIC | |
| ' Copyright (c) 2019-2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024 | |
| 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 LINE(0,Y)-(0,Y+3),C+(K AND 7) | |
| 220 LINE(1,Y)-(1,Y+3),C+(K AND 56)/8 | |
| 230 NEXT K | |
| 240 FOR X=4 TO 255 STEP 4 | |
| 250 COPY(0,0)-(1,211)TO(X,0) | |
| 260 NEXT X | |
| 270 GOTO 270 | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment