BASIC̏
BASICvŐLq́AsԍAxA̍A̕@ł\
܂BȉAdlɂďqׂ܂B

p\ȕϐ^
płϐ̌^́A32rbgt(-2147483648 ȏ +2147483647 
)ƁA^̂QނłB̖[ɂ0x00t܂B

A-ẐQU̐^ϐp\łBƂĈꍇA$̂悤ɋL
q܂BAAi^jA$i^j𓯎Ɏgp邱Ƃ͏o
B

^̒萔́APOi@ŋLq܂BPUi@gꍇAu$1200v̂悤
ɁAɁu$vt邩Au0x1200v̗lɕ\LĉB

^̒萔́Au"vň͂ċLqĂBu"vgpꍇ́A
uCHR$($22)v̂悤ɋLq邱Ƃo܂B

߁
ȉAx, y, z͐lAx$, y$, z$͕w܂Bxxx, yyy, zzz, 
www͔Cӂ̃Xe[ggw܂B[ ]͏ȗ\ł鎖܂B

ߓmu:vŋ؂邱ƂɂAsŕ̃R}h邱
o܂B

BGCOLOR r,g,b
	wiFwB
CLEAR
	ׂĂ̕^ϐƐ^zjAlOƂB܂A
	PCG̎gp߁A\LN^[ZbgB
CLS
	XN[B
COLOR x
	eLXgFwB
CURSOR x,y
	J[\ʒuwB
DATA x[,y[,z[...]]]
	f[^[𐮐lŎw肷B
DIM xxx [, yyy [, zzz [, ... ]]]
	^̈ꎟz蓖ĂB
	xxx,yyy,zzźAႦ΁uA(10)v̂悤ɋLqB̏ꍇAA(0)
	A(10)܂ł̂PP̐^ϐmۂB
DRAWCOUNT
	DRAWCOUNTlw肷BDRAWCOUNTlɕtẮADRAWCOUNT()֐
	QƁB
END
	BASICvO~B
EXEC x[,y[,z[...]]]
	@BsBAx,y,z32rbglB
FOR x=yyy TO zzz [ STEP www ]
NEXT
	yyyŎꂽvZʂxɑAx̒lzzzɂȂ܂ŎNEXT
	܂ł̃Xe[ggAJԂsBJԂ̂сAx̒l
	wwwiȗꂽꍇ͂PjBuNEXTv̎ɉLq
	ȂƂɒӁB
GOSUB xxx
	݂̎sʒuLAxxxs(̓x)ɈړB
GOTO xxx
	xxxs(̓x)ɈړB
IF x THEN yyy [ ELSE zzz ]
	xOȊÔƂAyyyAÔƂzzzs
LABEL xxx
	GOTO/GOSUB̃Wvo^Bxxx́ApUȓ̕B
[LET] x=yyy
	yŎꂽvZʂAxɑBuLETv͏ȗB
[LET] x$=yyy
	yyyŎꂽi͘A;AZq́u+vjAx$
	BuLETv͏ȗB
MUSIC x$
	BGMtBڍׂ́AL<MUSIC>̍QƁB
PALETTE n,r,g,b
	pbgwB
PCG x,y,z
	ASCIIR[hx̕̕\LN^[ύXBy,źALN
	^[f[^[Bڍׂ́AL<PCG>̍QƁB
POKE x,y
	xŎ镨IAhXɁAyŎl(PoCgl)ށB
PRINT [ x܂x$ [ ,܂; [ y܂y$ [ ... ]]]]
	fBXvCɁAl܂͕\Bu;vgp
	A̕\čsBu,vgpꍇAPO
	ɋ؂ĕ\BǂgpȂꍇA̕\͍sς
	čsB
REM xxx
	sȂ
RESTORE xxx
	DATAǂݏoJnʒuwBxxx͍sԍ̓xB
RETURN
	ŌɎsꂽGOSUB̎̃Xe[ggɈړB߂lw
	肷邱ƂłB̏ꍇ̖߂lGOSUB()֐ɂĎ擾\B
SCROLL x,y
	ʂA͏c(΂߂)ɓBƑ傫
	́Ax, yłꂼÄړxAc̈ړxƂĎw肷B
SOUND xxx
	ʉĐBڍׂ́AL<SOUND>̍QƁBxxx͍sԍ
	̓xB
USEPCG [x]
	PCGgpA͎gp~Bx=0Ŏgp~Ax=1ŎgpAx=2
	LN^[ZbgĎgpBxȗꍇ́Ax=1ƓB

WAIT x
	xŎꂽԁAvO̎s~Bx60̏ꍇAPb
	~B

֐
ȉAx, y, z͐lAx$, y$, z$͕w܂B[ ]͏ȗ\ł鎖
܂B

ABS(x)
	x̐ΒlԂB
ASC(x$)
	̍ŏ̈ꕶ́AAXL[R[hԂB
DRAWCOUNT()
	DRAWCOUNTl𓾂BDRAWCOUNT͂PUrbglŁA1/60bƂɂP
	B
GOSUB(xxx)
	GOSUB߂ƓA߂l(RETURNQ)𓾂邱ƂoBxxx́A
	x͍sԍB
INKEY([x])
	xw肵ȂꍇA݉ĂL[ASCIIlԂBĂ
	ꍇ́AOBASCIIlxw肵ꍇÃL[Ă邩ǂ
	ԂB
KEYS([x])
	L[͂𓾂Bx̒l͈ȉ̒ʂBxw肵Ȃꍇ́Ax=63ƓB
		KEYUP:    1
		KEYDOWN:  2
		KEYLEFT:  4
		KEYRIGHT: 8
		KEYSTART: 16
		KEYFIRE:  32
LEN(x$)
	̒ԂB
MUSIC()
	BGM̉t̎c萔ԂB
NOT(x)
	x=0̏ꍇɂPAłȂꍇɂOԂB
PEEK(x)
	xŎ镨AhXPoCgǂݎAԂB
READ()
	DATǍォAf[^[iljǂݏoB
RND()
	032767܂ł̋[ԂB
SGN(x)
	x̕(-1, 0, ܂1)ԂB
STRNCMP(x$,y$,z)
	Q̂̕zrAʂԂB̏ꍇ͂OB
TVRAM([x])
	rfIRAMxԖڂ̓eAoCglŕԂBxȗꍇArfI
	RAM̊Jnʒu̕AhXԂB
VAL(x$)
	POi͂PUiƂĂx$̒lAlŕԂB
A$(x [,y])Ȃ
	x̒lȌꍇAŜԂB
	x̒l̏ꍇAxŎʒuE̕ԂB
	x̒l̂ƂẢExԂB
	yw肳ꂽꍇAy̕ԂB
CHR$(x)
	xAXL[R[hƂ镶ԂB
DEC$(x)
	x̒lAPOi̕ƂĕԂB
HEX$(x [,y])
	x̒lAPUi̕ƂĕԂByw肳ꂽꍇAyoCg
	ɂȂB
INPUT$()
	͏ԂɂȂA͂I(Enter)ԂB

Zq
-x
	𔽓]
x + y
	Z
x - y
	Z
x * y
	Z
x / y
	Z
x % y
	]
x = y
	Q̐lꍇɂPAłȂƂɂO
x != y
	Q̐lꍇɂOAłȂƂɂP
x < y
	xy菬ꍇɂPAłȂƂɂO
x <= y
	xy菬ꍇɂPAłȂƂɂO
x > y
	xy葽ꍇɂPAłȂƂɂO
x >= y
	xy葽ꍇɂPAłȂƂɂO
x AND y
	xy̒l̃rbgƂ ANDi_ςłȂƂɒӁj
x OR y
	xy̒l̃rbgƂ OR
x XOR y
	xy̒l̃rbgƂ XOR
x$ + y$
	̘A

ȂAZq̗D揇ʂ́ADx̂ȉ̏łB

+ - (PZq)
* / %
+ - (ZEZ)
< <= > >=
= !=
XOR
AND
OR

MUSIC
MUSIC߂ł́ABGMp̃f[^[𕶎Ŏw肵܂B̏́AABC 
notationɏĂ܂BAׂĂ̋L@g킯ł͂܂B
ȂAL[⑬xȂǂ̃ftHgݒl͈ȉ̒ʂłB

Q: 1/4=90
L: 1/8
K: C

BGMtɈxɐݒł鉹̐́A31łB𒴂ĉyĐ
ꍇ́AMUSIC()֐̖߂l𒲂ׁA̒l\ȂĂAMUSIC
߂s悤ɂ܂B

Ytmusic.basɁAgɊւTv܂̂ŁAQlɂĉB

SOUND
SOUND߂ł́ADATÃf[^[Asԍ̓xŎw肵܂BSOUND
߂ɂʉĐ́ABGM͍Đ܂B܂AǑʉIOɎ
SOUND߂sƁAǑʉ̍Đ͒~AVʉɍĐ
܂B

DATAł́ARQrbglƂāA\܂B̐l̉ʂPU
rbg͎g̎włB2048440Hz(̉)ɑΉ܂Bl傫Ȃ
ǁAႢo܂BʂPUrbǵA̒łB1A1/60bɑ
܂BŌɁA65535ȉ̒lŁAʉ̌JԂ񐔂w肵܂B̃f[
^[̐́A32𒴂Ȃ悤ɂĉB

Ytsound.basɁAgɊւTv܂̂ŁAQlɂĉB

PCG
PCG(Programmable Character Generator)pƁAASCIIR[hƂɃtHg
w肵āA^OtBbNXƂĕ\邱Ƃo܂Bgpꍇ
́A܂

USEPCG

Ƃ܂BtHg̕ύX́APCGXe[ggpāA

PCG 0x80,0x80402010,0x08040201

̗lɐݒ肵܂B̗ł́AASCIIR[h0x80̃̕tHgݒ肵Ă
āAobNXbV̗lȋL(ォEɌ΂ߐ)\悤
ɂȂ܂BPCG̗p~AIWĩtHgɖ߂ꍇ́A

USEPCG 0

Ƃ܂BēxPCGgpꍇ́A

USEPCG

ƂĉBɐݒ肵tHgf[^[A܂BȂAɐݒ肵
tHgf[^[jPCG̎gpn߂ꍇ́A

USEPCG 2

ƂĉB

qg
FORł́ATOXe[gg̎ɏꂽlɍvꍇił͂Ȃj
ɁA[v甲dlłB܂AFOR-NEXT[v̓rŁAGOTOŃ[v
Oɔ񂾂ARETURNs肷ƁA\ʌʁi@̃Zbgj
N܂BAGOSUBŃTu[`Ă񂾂AʂFOR-NEXTlX
gĎg͉\łB

ON GOTOON GOSUB̓T|[gĂ܂BAႦΎ̂悤ɋLq
邱ƂŁAl̓邱Ƃ͉\łB
 GOSUB 10000+A
 ....
 10000 PRINT "A=0" : RETURN
 10001 PRINT "A=1" : RETURN
 10002 PRINT "A=2" : RETURN

sŘAĕƁA"String too complexed"ƂG[łāA
~邱Ƃ܂B̏ꍇ́A߂Ɨs邩A
֘ẢZ̃XebvɕāAꂼPs̋LqɂĎ
Ă݂ĉB

o[W
EKM-1120 2016N2JB
@PDPCG@\ǉB
@QDSCROLL߂ǉB
@RDWAIT߂ǉB
@SDuCtrl+BreakvL[ɂs~ɑΉB
@TDFORNEXTsꍇAGOSUBRETURNsꍇɃG[
@@@\Ē~悤ɂB

EVer 1.1.0 (KM-1110) 2015N12JB
@PD2015N1121ɕύXꂽPIC32TVGS̎dlɑΉB
@QDPS/2L[{[hɑΉB
@RDINKEY() INPUT$() VAL() DEC$() ̂S̊֐ǉB
@SDTVRAM() ASC() PEEK()A0x80-0xFF̒lɊւĕ̐ԂĂs
@@@CB
@TDDIMXe[ggɂz`ہAׂĂ̗vf[ɂȂ悤
@@@ɂB
@UDPZqAu-vu+vǉB
@VDLABEL`ĂȂѐGOTOƃZbgsCB
@WDLABEL𕡐gpĂꍇɁARpCG[o悤ɏC
@@@B
@XDȂPRINTɑΉB

EVer 1.0.5 (KM-1100) ŏ̐KJo[WB
