NXуo[W
CHRLCD
ver 2.0

t@C
CHRLCD.BAS

CZX
BASt@ĆApubNhCB

Tv
HD44780܂͌݊IC𓋍ڂLN^tW[𐧌䂷邽߂̃NXB
ڑ4rbgppBǂݍ݋@\͖T|[gB

ڑ
DB0-3@@@ Fڑ
RW@@@@@FGNDiŒj
DB4-7/RS/E@FB0-B15,E5-E7̔Cӂ̃|[giRXgN^[Őݒj
@@@@@@iE5-E7̓I[vhĈ߁AgpꍇPULL UPKvj
Vdd@@@@ F+5V

RXgN^[
tRg[̏ƃsATCݒ
NEW(DB4,DB5,DB6,DB7,RS,E)
	ep[^͂ꂼ̃|[gԍi0:B0,1:B1...15:B15,16:E5,17:E6,18:E7j

tpl̏ƃsATCݒB3܂4̈ȉ̏œn

pubNtB[h
Ȃ

pubN\bh
CLR()
	Sʏ

CUR(X,Y [,Type] )
	J[\ʒu(X,Y)ɐݒ
	Typeiȗj J[\`B0:\ȂA1:ubNJ[\_ŁA2:

PUTCHR(Chr)
	J[\ʒuɃLN^[R[hChr1\

PUTSTR(String$)
	J[\ʒuɕString$\

SETCG(Chr,D1,D2)
	CGRAMɃtHg`
	Chr@:ݒ肷LN^[R[hi0-7j
	D1,D2:tHgf[^iv64rbg8oCg1s1oCgŕ\j
	D1̍ŏʃoCgtHg1sځAD2̍ŉʃoCg8sڂƂȂ
	5~c8hbgtHĝ߁AۂɎĝ͊eoCg̉5rbgŁA
	4rbg[A0rbgE[ƂȂ

	Ӂ@SETCG\bhgp̓J[\ʒu̍Đݒ肪Kv

gp၄
USECLASS CHRLCD
L=NEW(CHRLCD,0,1,2,3,4,5)
L.SETCG(0,$10181C1E,$1F1E1C18)
L.SETCG(1,$0103070F,$1F0F0703)
L.CUR(0,0)
L.PUTCHR($00):L.PUTCHR($01)
FOR I=$30 TO $3D:L.PUTCHR(I):NEXT
L.CUR(0,1):L.PUTSTR("ABCDEFGHIJKLMNOP")

XV
2020.12.28@Ver 1.0
Eŏ̃o[W

2021.1.24@Ver 2.0
ER}hAf[^õ͎EFCgƂ߂Ă̂ő啝ɒZk
