

====================================
  944BASIC t@X }jA
====================================

          2002/10/13 


  ̃}jÁA944쐬
   2002/2/2Ńt@XA
   2002/9/19ŃR}hꗗ
  Ƃɍ쐬Ă܂B

  ALڎ̌As
  ̕ӂ 
   kaol(kaol@officeww.com)
  ɂ܂B
  Lڎ̌AsAPāA
  Ȃӌ́A
   kaol(kaol@officeww.com)
  ܂łAB

  ȂÃ}jAgp
  ƂŁAȂ鑹Q܂͏Q
  ĂAӔC͈ؕ
  BȐӔCł邱Ƃ𗹉
  ̂ApB

  ܂ATvR[h͎Rɕ
  /ύXĊp邱Ƃł
  ܂Bp̍ۂɁAf菑A
  ͕svłB



         -      -


 ======= S ======= 
 p() d R}h̋L@
 ϐ() d ̒l␔lAi[Ƃ
 z() d ԍ̂ϐ
 }`Xe[gg() d }`Xe[gg(R}hΉ)
 () d Ze폈A܂͐lϐ
 () d f[^
 l() d l
 () d 摜̕\Ɏg3̉
 XvCg() d 摜̐؂oƔzu
 t@C() d t@Cd̉AWs߂̃t@C
 W() d t@CɎgpW킯

 ======= Zq ======= 
 Zq d ̒Ŏgpł鉉Zq

 =======  ======= 
 sԍ d Wv̍sԍw
 * (x) d Wṽxw
 : d }`Xe[gg(R}hΉ)
 REM 944BASIC d vO̒`
 END d vȌI
 IF .. THEN .. ELSE .. d ɂ鐧
 IFBLK .. ELSEIF .. ELSE .. ENDIF d ɂ鐧(ubN\Ή)
 GOTO d wsւ̃Wv
 GOSUB d ꎞIɎwsɃWv
 RETURN d GOSUBs̎sɖ߂
 FOR ϐ=.. TO .. STEP .. d JԂ

 =======  ======= 
 REM d Rg̋L
 LET d ̒lϐɑ
 = d ̒lϐɑ
 DIM d z̒`
 DIM (`ɏl) d z̒`(ɒlݒ)
 SORT d z̗vfבւ
 SHUFFLE d z̗vfsKȏԂɕבւ(Vbt)
 CALC d vZɂl̎Zo
 WAIT d 100msPʂ̏҂
 SYNC d ZAURUS OS֐߂
 FASTTICK d 10msPʂ̊݊Ԋuw
 SYSCNT d VXeJEg̎擾(100msP)
 SCREEN d ʃTCYƈʒu̎w
 MOVEAREA d 풓\tg̈ړ\͈͂w
 EVENT d Cxg݂̗Lw
 EVENTNO d ݃Cxgԍ̎擾
 RUN d BASIC\tg̋N
 INCLUDE d ̃AvP[VɘA
 COMMAND d BASICR}hs
 CPUCLOCK d CPUNbN̐ݒ
 GETCPUCLOCK d CPUNbN[h̎擾(0-3)
 WORKLIST d ϐXg̕\

 ======= \ ======= 
 PRINT d l̕\
 LOCATE d \ʒu(As)̎w
 GCURSOR d \W̎w
 FONT d tHg̎w
 HEADER d wb_[\
 FOOTER d tb^[\

 ======= ` ======= 
 CLS d ʑŜ̃NA
 COLORFG d `F̎w
 COLORBG d wiF̎w
 HSV d HSVlɂF̎w
 LINE d ̕`
 BOX d lp`̕`
 BOXFILL d hԂlp`̕`
 BOXCIRCLE d pێlp`̕`
 CIRCLE d ȉ~̕`
 PSET d _̕`
 PAINT d ͂܂ꂽ͈͂̓hԂ
 POINT d ʎwW̐F擾(16rbgl)

 ======= 摜\ ======= 
 SETPAGE d ʂ̏݃y[Ww
 JPEG d JPEG摜̕\
 BITMAP d rbg}bvt@C̕\
 SAVEBITMAP d rbg}bvt@C̕ۑ
 GCOPY d ʂ\ʂɉ摜]\
 BOXMOVE d \ʏ̓]\
 GETPIXMAP d \ʂ𗠉ʂ֎荞
 SPRITE d XvCg̒`
 REFRESH d XvCg̎\/ʂ̃tbV
 BG d wi摜(BG)̕\
 PATTERN d z񂩂p^[\
 SPSEARCH d XvCǧ
 SPCOLLISION d XvCgՓˌ

 ======= UI ======= 
 INPUT d ̓
 KEYWAIT d CӃL[̓͑҂
 MENU d j[̕\
 MENUNO d j[̍ڔԍ̎擾
 MESSAGE d ̃|bvAbv\
 YESNO d ͂AmF擾
 INKEY d 1L[
 PADA d L[̓
 PADB d tL[̓
 PADC d L[̓
 PADX d EXN[L[̓
 PADY d ㉺XN[L[̓
 PADONA d L[̃I
 PADONB d tL[̃I
 PADONC d L[̃I
 PADONX d EXN[L[̃I
 PADONY d ㉺XN[L[̃I
 PEN d y͂̏Ԃ̎擾
 PENX d y͂XW̎擾
 PENY d y͂YW̎擾
 PENV d y͂̐XW̎擾
 PENW d y͂̐YW̎擾

 =======  ======= 
 DATE d ̓t̎擾
 TIME d ݂̎̎擾
 GETMONTH d w肵ť̓Zo
 GETDATE d w肵tɓ𑝌tZo
 GETDATEDIF d t1Ɠt2̓Zo
 GETWEEK d tɑ΂j擾

 ======= l ======= 
 INT d l𐮐ɕϊ
 SGN d ̎Zo
 HEX d ɑ΂16i̕擾
 HEXTODEC d 16i̕10iɕϊ
 ABS d Βl̎Zo
 RND d l̎擾
 RNDRG d JnI͈͓̔擾
 RANDOMIZE d ̏lݒ
 PI d ~̎擾
 SIN d TCl̎Zo
 COS d RTCl̎Zo
 TAN d ^WFgl̎Zo
 ATAN d A[N^WFgl̎Zo
 ATAN2 d A[N^WFgl̎Zo(Ww)
 SINAG d TCl̎Zo(pxw)
 COSAG d RTCl̎Zo(pxw)
 TANAG d ^WFgl̎Zo(pxw)
 ATANAG d A[N^WFgl̎Zo(pxw)
 ATAN2AG d A[N^WFgl̎Zo(WwApx)
 SQR d (XNGAl)̎Zo

 ======= t@C ======= 
 LOADTEXT d eLXgǍ
 LOADCSV d CSVǍ
 SAVETEXT d eLXgփZ[u
 SAVECSV d CSVփZ[u
 FILESEARCH d p^[Ɉvt@C̎擾
 FILECOPY d t@C̃Rs[
 FILEMOVE d t@C̈ړ
 FILEDELETE d t@C̍폜
 SETDIRECTORY d JgfBNg̐ݒ
 GETDIRECTORY d JgfBNg̎擾
 DIRSEARCH d p^[ɈvfBNg̎擾
 DIRMAKE d fBNg̍쐬
 GETREADCNT d t@CAf[^̎擾

 ======= \tg ======= 
 APL d {̃AvMORE\tg̋N
 SETPEN d ؃(MODE:0-3)
 OUTPUT d ̃\tg֕

 =======  ======= 
 BEEP d r[v̏o
 EFFECT d ʉ̏o
 WAVE d WAVE̍Đ
 WAVESTOP d WAVEĐ̒~
 GETWAVESTATUS d WAVEĐԂ̎擾(0-2)

 ======= @ ======= 
 GETMODELNO d fԍ擾
 GETROMVER d ROMo[W擾
 GETPATCHVER d pb`o[W擾
 GETMODEL d f擾

 ======= d ======= 
 POWEROFF d dؒf
 SETBATOFFCNT d obe[ItJEgݒ(100ms)
 SETACOFFCNT d dItJEgݒ(100ms)
 GETBATTERY d obe[Ԃ擾
 GETACADAPTOR d ACA_v^̐ڑԂ擾
 GETBATOFFCNT d obep[ItԂ̎擾
 GETACOFFCNT d ACA_v^p[ItԂ̎擾

 =======  ======= 
 CHR d ̒lɑ΂镶擾
 ASC d w肵̕R[h擾
 LEN d ̒擾
 STRCMP d ̔r
 STR d IɕƂĈ
 STRCAT d A
 STRING d JԂ擾
 INSTR d 1ɕ2̂ʒu擾
 LEFT d 擾
 MID d r擾
 RIGHT d E擾






  S 





p()
 c R}h̋L@ [S] 


 @@ 
944BASIC̃R}hL@ 

 @@ 
944BASIC̉pR}h́Ap̉p啶(ABC...)ŋLq܂B{̃R}hgpł悤ɂȂ\łA_ł͐T|[gł͂܂B

R}h͒PƂŎsł̂ƁAR}ȟɃp[^w肷̂2ނ܂BR}hƃp[^̊Ԃɂ͔p̃Xy[X1܂Bp[^𕡐włR}hł́A, (J})ŋ؂ċLq܂B
܂Aꕔ̃R}h́AsƒlԂ܂B̂悤ȃR}h֐ƌĂт܂B֐ɂp[^KvȂ̂܂B̏ꍇ́A( ) Ƀp[^w肵܂B̂ƂA֐ ( ) ̊Ԃɂ̓Xy[X󂯂Ȃ悤ɂĂB

s̐擪ɂ́Ap̃Xy[Xŋ󔒂邱Ƃł܂BKȊԊuŎ邱ƂŁAvOǂ݂₷邱Ƃł܂B 
,(J})  : (}`Xe[gg)̑Oɂ́AXy[X邱Ƃł܂BAZq(+A-A*A=Ȃ)̑Oɋ󔒂邱Ƃ͂ł܂B
܂AKXsăvOǂ݂₷邱Ƃł܂B

 ӎ 
{̃R}hgpł悤ɂȂ\łA_ł͐T|[gł͂܂B{R}h́ASpœ͂܂AXy[XɑSpXy[XgƂ͂ł܂B

 ֘A 


 Tv 
REM 944BASIC 'R}h̋L'

REM RgREMȍ~ɋLq

A=1: B=5  : REM RgpƁA1sɕ̃R}h

REM Zq(=*)̑Oɂ̓Xy[XȂ
FOR I=A TO B
  C=C*I   : REM s̐擪ɃXy[XĎ\
NEXT I

PRINT '15̊ḰA';
PRINT C;
PRINT 'łB'

KEYWAIT



ϐ()
 c ̒l␔lAi[Ƃ [S] 


 @@ 
ϐ= 

 @@ 
ϐ́A̒l␔lAi[ƂłB
ϐ=(܂́ALET ϐ=)ƋLq邱ƂŁAϐɕ␔lA̒l܂B

li[ϐƕi[ϐɕ\L̋ʂ͂܂(قBASIĈ悤ɁAϐ$tKv͂܂)Bǂp̉pɂϐgp܂B

AvOł̏AƐl̋ʂ͏dvłB̕ϐƐlϐ͕\L͋ʂłȂ߁AӂĂB

Ɏw肪Ȃ΁Aϐ͐li[Ă̂ƂĈ܂B
Ƃ΁AϐAɕϐB̒lꍇ́AϐBł邱Ƃ𖾎邽߂ɁAA=STR(B)Ƃ܂BA=BƂƁAAɂ0܂B

ϐł̐l̐x͔{xłB

 ӎ 
ϐɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B܂A944BASIC̃R}hƓO̕ϐ͎gpł܂B

ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂BϐɊi[łő啶255(p)łB

 ֘A 
=ALETAAl

 Tv 
REM 944BASIC 'ϐ'
REM ϐ̎gp
A=900
B=44
A=A+B
PRINT A
REM ϐɑ
B='BASIC'
A=STR(A)
REM 
A=STRCAT(A,B)
PRINT A
KEYWAIT



z()
 c ԍ̂ϐ [S] 


 @@ 
DIM ϐ() 

 @@ 
źAϐɔԍ(Y)tāA̕ϐO[v̂悤Ɉ߂̎dg݂łBʓ_֘Âf[^Ǘ₷Ȃ܂B

zɂ͎ƂlA蕡Gȍ\(\\3\\)̃f[^Ǘł܂B944BASIC̔zł́A3܂Ŏgpł܂B

944BASICł2z̃C[W
    0      1      2  
0 (0-0), (1-0), (2-0)
1 (0-1), (1-1), (2-1)
2 (0-2), (1-2), (2-2)

 ӎ 
z̗vf(z\11̕ϐ)́AvOŜōő4096łB
z1vfɊi[łő啶255(p)łB

z񖼂ɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B

\ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂Bz1vfɊi[łő啶255(p)łB

 ֘A 
DIM

 Tv 
REM 944BASIC '2z̑'
REM 2z̑
DIM B(3,3)
REM zɑ
B(0,0)=0,0,0,0
B(0,1)=0,1,2,1
B(0,2)=0,3,1,0
B(0,3)=0,0,0,0
REM z̓e\
FOR I=0 TO 3
 FOR J=0 TO 3
  LOCATE I,J
  PRINT B(I,J)
 NEXT J
NEXT I
KEYWAIT



}`Xe[gg()
 c }`Xe[gg(R}hΉ) [S] 


 @@ 
R}h:R}h 

 @@ 
1sɕ̃R}hLqꍇɎgp܂BIF ... THEN  THEN ȍ~ɕ̕LqꍇAvǑʂ悭ꍇɎgp܂B

A܂葽pƁAvOǂ݂ɂȂ邽߁AӂKvłB

 ӎ 
FOR`NEXTA܂INKEYAMENUȂǂ̓͌ñR}hł́A}`Xe[gggpȂłBs̌ƂȂ܂B

ȊÕR}hłA}`Xe[gǧ㕔ŎgpƁAɎsȂꍇ܂B

 ֘A 
:

 Tv 




()
 c Ze폈A܂͐lϐ [S] 


 @@ 
: A+B
: A
: SIN(A)*20 

 @@ 
̃}jȀŁuvƎĂƂ́AZe폈A܂͐lϐȂǂwĂ܂(ZɌ܂)B

 ӎ 
Zł́AsvȃXy[XgpȂSłB
~ 1 + 2
 1+2
svȃXy[XŁAZʂȂȂ\܂B

 ֘A 


 Tv 




()
 c f[^ [S] 


 @@ 
: A=''
: B=STR(A) 

 @@ 
944BASICł́AϐŕƐlۂɁA]BASICƂ͈قȂzKvłB

ɁAϐ̌ڏAϐƐlϐ̋ʂ܂B
ɁAϐ̑ł́A̓ĂϐłAꕔ̏ĐlƂĈ܂(ȊO̓̕ϐ0ɂȂ܂)B
OɁA񂪐(p)̏ꍇA^ϊsȂĂAlƂĈ܂B

ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂BϐɊi[łő啶255(p)łB
ϐɕϐɂSTRgp邱ƁǍɂSTRCATgp邱ƂɒӂĂB܂A̔rɂ́ASTRCMPgp܂B

 ӎ 
 ' 𕶎ƂāAϐɑɂ́AA="'" ̂悤ɁA" "ň͂ő܂B
 " ̏ꍇ́AA='"' ̂悤ɁA' 'ň͂ő܂B

256ȏ̕ϐɑƁA256ȍ~̕ȂAs\܂B

 ֘A 
ϐ

 Tv 
REM 944BASIC 'lƕ'
A='900'
B='44'

C=A+B
PRINT C : REM 944ƕ\

C=STRCAT(A,B)
PRINT C : REM 90044ƕ\

A='ll'
B=A
PRINT B : REM 0ƕ\

B=STR(A)
PRINT B : REM ll ƕ\

KEYWAIT



l()
 c l [S] 


 @@ 
: A=1234 

 @@ 
944BASICł́Al̉Z{xōsĂ܂Blϐ̐x{xɂȂ܂B

944BASICł́AϐŕƐlۂɁA]BASICƂ͈قȂzKvłB

ɁAϐ̌ڏAϐƐlϐ̋ʂ܂B
ɁAϐ̑ł́A̓ĂϐłAꕔ̏ĐlƂĈ܂(ȊO̓̕ϐ0ɂȂ܂)B
OɁA񂪐(p)̏ꍇA^ϊsȂĂAlƂĈ܂(]BASICVAL֐̂悤ȏ͕svł)B

 ӎ 


 ֘A 
ϐ

 Tv 
REM 944BASIC 'lƕ'
A='900'
B='44'

C=A+B
PRINT C : REM 944ƕ\

C=STRCAT(A,B)
PRINT C : REM 90044ƕ\

A='ll'
B=A
PRINT B : REM 0ƕ\

B=STR(A)
PRINT B : REM ll ƕ\

KEYWAIT



()
 c 摜̕\Ɏg3̉ [S] 


 @@ 
: SETPAGE 2 

 @@ 
944BASICł́A摜̕\`s߂ɁA3ނ̉(y[W)gp܂B

0y[ẂAۂɕ\sʂł(\)B
1y[ẂA\̏s߂̉ʂł()B
2y[ẂAXvCgBGɉH摜(eNX`)ǂݍނ߂́AeNX`ʂłB

y[Ww肷ɂ́A摜\`sR}h̑OŁASETPAGEs܂BSETPAGEgpȂꍇ́AlƂ 0 y[W(\)ɕ`悵܂B

 ӎ 


 ֘A 
SETPAGE

 Tv 




XvCg()
 c 摜̐؂oƔzu [S] 


 @@ 
: SPRITE NO,PNO,X1,Y1,X2,Y2,V,W,MX,MY 

 @@ 
944BASICł́A摜̈ꕔ(܂͑S)؂oẢ摜RȈʒuɕ\邱Ƃł܂B

̂悤ȉ摜ZpA؂o摜̂wāAXvCgƌĂт܂B

XvCgɂ11ɔԍw肵܂BXvCgdȂꍇ́Aԍ̎Ⴂ̂قǎOɕ\܂B
܂A(RGBl 0,0,0)͓FƂĈẢ摜(widȂĂXvCg)ĕ\܂B

 ӎ 
؂ỏ摜eNX`ƌĂт܂BeNX`́AeNX`p̃y[Wɓǂݍނ(SETPAGE 2OɎs)Ap҂̖ڂɐGꂸɉH邱Ƃł܂B

 ֘A 
SPRITEAREFRESH

 Tv 
REM 944BASIC 'SIN Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=SIN(X/20)*120+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT



t@C()
 c t@Cd̉AWs߂̃t@C [S] 


 @@ 
: ABCOSMP0.BAS 

 @@ 
944BASICł́At@C̕tɃ[܂B̃[ɂ́Â悤ȖړI܂B
Et@Cd̉
EW̎U蕪
EJ҂̓
E폜[

t@ĆApp 8+3̌`gpÃ[ɏ]Č肵ĂB
 ABC        O        SMP        1        .BAS 
 JҺ-ެ-Ė-ްޮ-gq

EJ҃R[h
944BASIC̃\tgJɂ́AJ҃R[ho^Kv܂(o^ɂẮA944BASICz[y[WQƂĂ)Bo^ɒʒmꂽp3gp܂B
EW
̃Wɏ]āAAt@xbg1w肵܂BW̏ڍׂɂẮAuW()v̍QƂĂB
E\tg
p3w肵܂B\tg̗LȂǂgāAł邾킩₷OtĂB
Eo[W
{Iɂ́A1w肵܂Bx̏ꍇ0Ał1ȍ~̐ڈɎgpĂB
Egq
.BASgp܂BȊO̊gq͎gpȂłB

 ӎ 
t@C8ɂĂȂƁAt@CɊ֌WR}hȂǂA삵Ȃꍇ܂B

t@CTCÝAő128KB܂łłB

 ֘A 
W

 Tv 




W()
 c t@CɎgpW킯 [S] 


 @@ 
: ABCOSMP0.BAS 

 @@ 
944BASICł͗p\tgI₷悤ɁÂ悤ɃAt@xbgŃW敪Ă܂B

 A - ݹްѤرьn
 B - ޼ȽƖ؁A޼Ƚ°
 C - d줸̤ƌvAvZAP
 D - PIMAްǗްް\
 E - qpAòĤި
 F - ̧٤Ѥݒ
 G - Î~椓椱ҤѰްׁA3D摜A摜Ǘ
 H - ߯ĤڼެA^A
 I - ȯĤҰ
 J - EAn}敨S
 K - ް߁A閧AÍ
 L - w⤌wpԊ
 M - yyyMIDIMP3׵
 N - ǕAG{Aƭ
 O - ײذ٤
 P - ߽٤ð٤ߤԎD
 Q - ޤ肢葊Θb^Q&A
 R - RPGЭڰ
 S - èݸޤڰA߰¹ް
 T - ÷Ĥ÷Ĵި÷ޭ
 U - հèè°٤ذ
 V - ״è߰è
 W - vްǎذݾް
 X - N
 Y (gp)
 Z (gp)

̃W̃At@xbg1At@C4ڂɎw肵Ă (t@C̕tɂẮA"t@C"̍QƂĂ)B

 ӎ 
ẂAύX\܂B

܂AO ̃Tv́AړISɃTv⃉Cułꍇɂ̂ݎgp܂ (ɗ́AeWɐU蕪Ă)B

 ֘A 
t@C

 Tv 







  Zq 





Zq
 c ̒Ŏgpł鉉Zq [Zq] 


 @@ 
( ), * , /, %, +, -, =, <, <=, >, >=, <>
 

 @@ 
e퉉Zs܂B 
  ( :ʂJn܂
  ) :ʂI܂
  * :ώZ(~)A܂ANDZs܂B
  / :Z()s܂B
  + :ZA܂͉Zs܂B
  - :Zs܂B
  % :]߂܂ (A%B sƁA0`B-1 ͈̔͂̒lԂ܂)B
  = :lr܂B
  < :lr܂B
  <=:lȉr܂B
  > :lz邩r܂B
  >=:lȏォr܂B
  <>:lقȂ邩r܂B

 ӎ 
_ł́AANDZqORZq͂܂B
AND(A)*(B)AOR(A)+(B)őpĂB
(AB͕ϐ⎮\܂)

Zł́AsvȃXy[XgpȂSłB
~ 1 + 2
 1+2
svȃXy[XŁAZʂȂȂ\܂B

ZqgāAr邱Ƃ͂ł܂B̔rɂ́ASTRCMPgp܂B

rsZqł́Arꍇ(^̏ꍇ)1Ԃ܂BrȂꍇ(Ȕꍇ)0Ԃ܂B

 ֘A 
STRCMP

 Tv 







   





sԍ
 c Wv̍sԍw [] 


 @@ 
:
 100 A=1
 110 A=A+1
 120 PRINT A
  :
 200 END 

 @@ 
sԍ͍s̐擪ɋLԍŁAGOTOR}hGOSUBR}h̃WvƂĎgpł܂B

sԍɂ́A0`9̐gp܂BԍԂɂȂłȂĂ肠܂B

 ӎ 
944BASICł͒ʏAsԍ͕Kv܂񂪁ABASIĈ悤ɍsԍĂ܂܂B
GOTOGOSUBgpɂ́AWvɍsԍxKvłB

 ֘A 
* (x)AGOTOAGOSUB

 Tv 




* (x)
 c Wṽxw [] 


 @@ 
*x 

 @@ 
GOTOR}hGOSUBR}h̃WvƂȂ郉xw肵܂B
s̐擪 * LA2ڈȍ~͉pgpĂB

 ӎ 
GOTOGOSUBgpɂ́AWvɍsԍxKvłB
xɂ́Ap15܂ł̉pgpĂBA944BASIC̃R}hƓÕx͎gpł܂BxɊւẮA擪ł܂܂B

 ֘A 
sԍAGOTOAGOSUB

 Tv 
(Tv 1)
REM 944BASIC 'LINE/GOSUB Tv'
COLORFG 0,0,0
GOSUB *DRAW
COLORFG 255,255,255
GOSUB *DRAW
KEYWAIT
END

*DRAW
 FOR X=0 TO 200
  Y=SIN(X/20)*120+120
  LINE X,Y,X+40,Y
  SYNC
 NEXT X
RETURN

(Tv 2)
REM 944BASIC 'GOSUBTv'
DIM S(2)='','',''
FOR I=0 TO 2
 GOSUB *FADEIN
NEXT I
END

*FADEIN
FOR J=0 TO 255 STEP 4
 SYNC:WAIT 1
 JJ=255-J:COLORFG JJ,JJ,JJ
 LOCATE 2,2:PRINT S(I)
NEXT J
RETURN



:
 c }`Xe[gg(R}hΉ) [] 


 @@ 
R}h:R}h 

 @@ 
1sɕ̃R}hLqꍇɎgp܂BIF ... THEN  THEN ȍ~ɕ̕LqꍇAvǑʂ悭ꍇɎgp܂B

A܂葽pƁAvOǂ݂ɂȂ邽߁AӂKvłB

 ӎ 
FOR`NEXTA܂INKEYAMENUȂǂ̓͌ñR}hł́A}`Xe[gggpȂłBs̌ƂȂ܂B

ȊÕR}hłA}`Xe[gǧ㕔ŎgpƁAɎsȂꍇ܂B

 ֘A 
}`Xe[gg()

 Tv 




REM 944BASIC
 c vO̒` [] 


 @@ 
REM 944BASIC '' 

 @@ 
擪sɋLqāAvO̒`s܂B񕔕vOƂĈ܂B

 ӎ 
̃R}h̓t@C1sڂɕKLĂB
1sڂɂ̃R}hȂƃvOs܂(9B vO `[ɕ\܂)B

 ֘A 


 Tv 
REM 944BASIC 'TvvO'

MESSAGE 'Hello, World!'
END




END
 c vȌI [] 


 @@ 
END 

 @@ 
BASICvOI܂B

 ӎ 
END̓vOӐ}IɏIꍇɎgp܂BEND̓vOsvȏꍇ́A݂ȂĂ肠܂B
ʏAvO[߂]L[܂[f]L[ŋIł܂B

 ֘A 


 Tv 
REM 944BASIC 'END Tv'
HEADER '[]ŏI'
*LOOP SYNC
 C=C+1
 LOCATE 10,6: PRINT C
 IF PADA THEN END
GOTO *LOOP



IF .. THEN .. ELSE ..
 c ɂ鐧 [] 


 @@ 
IF  THEN R}h ELSE R}h 

 @@ 
𔻒肵āA(̒l0ȊOɂȂ)ꍇɁATHENȍ~̃R}hs܂B
Ȃ(̒l0ɂȂ)ꍇ́AELSEȍ~̃R}hs܂B

KvȂꍇ́AELSEȍ~͏ȗ邱Ƃł܂B

 ӎ 
̃R}hꍇ́ATHEN܂ELSEȍ~Ń}`Xe[gg(:)gp܂B

ɕs̃R}hsɂ́AIFBLKgp܂ (ubN\Ή̏)B

THEN ȍ~̏LqȂŁAELSE ȍ~Lq(: IF I=0 THEN ELSE GOTO *A)AȂ\܂B

 ֘A 
IFBLK

 Tv 
REM 944BASIC 'IF Tv'
REM A1-3̗Zbg
A=(RND+TIME)%3+1
PRINT '1-3̐𓖂ĂĂB'
INPUT B,1,4

IF A=B THEN MES=STRCAT('', A, 'łB哖!!') ELSE MES=STRCAT('', A, 'łBcOEE') 
MESSAGE MES
END



IFBLK .. ELSEIF .. ELSE .. ENDIF
 c ɂ鐧(ubN\Ή) [] 


 @@ 
IFBLK 1
  R}h
     :
ELSEIF 2
  R}h
     :
ELSEIF 3
  R}h
     :
ELSE
  R}h
     :
ENDIF 

 @@ 
ォ珇Ɏ̒l𔻒肵āA̎ꍇɁÃ̕R}h(ubN)s܂B

KvȂꍇ́AELSẼubN͏ȗł܂B

 ӎ 
IFBLK .. ENDIFԂŁAGOTORETURNgpăWv(ENDIF܂œBȂ)A(X^bN)Ɉُ킪āAs̌ƂȂ\܂B

 ֘A 
IF

 Tv 
REM 944BASIC 'IFBLK Tv'
DIM M(2)='','',''
MENU M,3,0
REM Ij[ԍɂĕ\ς
IFBLK MENUNO=0
 PRINT '͂悤܂!'
ELSEIF MENUNO=1
 PRINT 'ɂ!'
ELSEIF MENUNO=2
 PRINT '΂!'
ELSE
 PRINT '??G[??'
ENDIF
KEYWAIT
END



GOTO
 c wsւ̃Wv [] 


 @@ 
GOTO sԍ|*x 

 @@ 
w肵sԍxɃWv܂B

 ӎ 


 ֘A 
GOSUBA* (x)

 Tv 
(Tv1)
REM 944BASIC '͑҂̗'
REM [vœ͂҂
*LOOP
 SYNC
 LOCATE 2,2
 PRINT 'L[͂܂̓y^b`܂ŁAҋ@܂B'
 REM ͂邩ǂ𔻒
 IF (INKEY)+(PEN) THEN CLS: LOCATE 2,2: PRINT 'I܂!': WAIT 2: GOTO *BREAK
GOTO *LOOP
*BREAK
PRINT '悤ȂEEE'
END

(Tv2)
REM 944BASIC 'GOTÖ{'
F=0
*ST
GOTO *L1
*L3
IF F>4 THEN GOTO *FN ELSE GOTO *ST
*L2
IF F=2 THEN GOTO *L1 ELSE GOTO *L3
*L1
IF F=0 THEN PRINT '߹ޯè͂?' ELSE PRINT 'GOTOōs藈JԂAႮɂ܂۸т𑭂ɢ߹ޯèƌĂт܂B'
F=F+1: GOTO *L2
*FN
KEYWAIT
END



GOSUB
 c ꎞIɎwsɃWv [] 


 @@ 
GOSUB sԍ|*x 

 @@ 
w肵sԍxɃWv܂B

WṽTu[`(xȍ~ɋLqȀ)RETURNgpƁAGOSUB̎̍sɐ䂪߂܂B

 ӎ 


 ֘A 
RETURNAGOTOA* (x)

 Tv 
REM 944BASIC 'GOSUBTv'
DIM S(2)='','',''
FOR I=0 TO 2
 GOSUB *FADEIN
NEXT I
END

*FADEIN
FOR J=0 TO 255 STEP 4
 SYNC:WAIT 1
 JJ=255-J:COLORFG JJ,JJ,JJ
 LOCATE 2,2:PRINT S(I)
NEXT J
RETURN



RETURN
 c GOSUBs̎sɖ߂ [] 


 @@ 
RETURN 

 @@ 
GOSUBR}h̎sɐ߂܂B

GOSUBWvTu[`(xȍ~ɋLqȀ)Ŏgp܂B

 ӎ 


 ֘A 
GOSUBA* (x)

 Tv 
REM 944BASIC 'GOSUBTv'
DIM S(2)='','',''
FOR I=0 TO 2
 GOSUB *FADEIN
NEXT I
END

*FADEIN
FOR J=0 TO 255 STEP 4
 SYNC:WAIT 1
 JJ=255-J:COLORFG JJ,JJ,JJ
 LOCATE 2,2:PRINT S(I)
NEXT J
RETURN



FOR ϐ=.. TO .. STEP ..
 c JԂ [] 


 @@ 
FOR ϐ=1 TO 2 STEP 3 

 @@ 
FORNEXT̊ԂɋLqAw肵񐔌JԂ܂B񐔂́A1̒lZĎ2̒lɂȂ܂łłB

JԂтɁA1̒lSTEP̒lZ܂Bϐɂ͂̒lIɑ܂B
1̒l2̒lz_Ń[vI܂B

STEPȍ~͏ȗ\ł(ȗƁASTEP 1ƂĈ܂)B

 ӎ 
FOR͍Œ1͏s܂B

STEPɂ̓vX̒l̐l̂ݎgpĂB}CiX̒l͎gpł܂B

GOTOȂǂFOR`NEXT[v𔲂ƁA(X^bN)Ɉُ킪As̌ƂȂ܂B
FOR[v̓rŃ[v𔲂ꍇ́AJE^ϐ̒lIl(TǑɎw肵l)ɐݒ肷Ȃǂ̕@𗘗pĂ(Tv 2Q)B

FORsł̓}`Xe[gggpł܂B̕s܂B

FOR`NEXTԂɂ́A炩̏LqKv܂BLqȂƁAs\܂B

 ֘A 


 Tv 
(Tv 1)
REM 944BASIC 'FOR NEXT Tv'
COLORBG 0,0,0:COLORFG 0,255,0
FONT 48:CLS
REM q(lXg)\
FOR I=0 TO 31
 A=''
 FOR J=0 TO 59
  REM RNDTIME()𑫂āAsK
  R=RND+TIME%10:R=STR(R)
  A=STRCAT(A,R)
 NEXT J
 PRINT A
NEXT I
KEYWAIT

(Tv 2)
REM 944BASIC 'FOR NEXT Tv2'
REM _V[h - RNDs񐔌JԂāAsK
FOR I=(TIME%60)
  R=RND
NEXT I
R=RND+TIME%20
FOR I=1 TO 20
 PRINT 'FOR ` NEXT ';
 PRINT I;
 PRINT ' '
 REM ϐ I IɏIlɂāA[v𔲂
 IF I=R THEN PRINT 'STOP': I=20
NEXT I
KEYWAIT
END






   





REM
 c Rg̋L [] 


 @@ 
REM  

 @@ 
vOɃRgLꍇɎgp܂B

sREMƋLqƁAEɋLqꂽ͖܂B

 ӎ 
vOɃRgKʋLƁAvO̕iێǗɌʓIłB

 ֘A 


 Tv 




LET
 c ̒lϐɑ [] 


 @@ 
LET ϐ= 

 @@ 
ϐɎ̒l␔lA܂B
擪LET͏ȗł܂B

 ӎ 
ϐɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B܂A944BASIC̃R}hƓO̕ϐ͎gpł܂B

ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂BϐɊi[łő啶255(p)łB

 ֘A 
ϐ()A=

 Tv 
REM 944BASIC 'ϐ̎gp'
REM ϐ̎gp
LET A=900
REM ̂悤LET͏ȗ\
B=44
LET A=A+B
PRINT A
REM ϐɑ
LET B='BASIC'
A=STR(A)
REM 
A=STRCAT(A,B)
PRINT A
KEYWAIT



=
 c ̒lϐɑ [] 


 @@ 
ϐ =  

 @@ 
ϐɎ̒l␔lA܂B
LET ϐ=  LET ȗ`łB

 ӎ 
ϐɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B܂A944BASIC̃R}hƓO̕ϐ͎gpł܂B

ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂BϐɊi[łő啶255(p)łB

 ֘A 
ϐ()ALET

 Tv 
REM 944BASIC 'ϐ'
REM ϐ̎gp
A=900
B=44
A=A+B
PRINT A
REM ϐɑ
B='BASIC'
A=STR(A)
REM 
A=STRCAT(A,B)
PRINT A
KEYWAIT



DIM
 c z̒` [] 


 @@ 
DIM ϐ() 

 @@ 
zϐ`܂B

z̎́A13܂łgpł܂Bϐ`ɂ́A`Ɋe̗vfw肵܂ (̗QƂĂ)B

z̓ÝA0 JEg܂B0`( )Ɏw肵܂(w肵+1)̗vf𗘗pł܂BƂ΁ADIM A(3) sꍇAA(0), A(1), A(2), A(3)  4 ̗vf𗘗pł邱ƂɂȂ܂B

 ӎ 
z̓Y𒴂lgpƃG[ɂȂ܂B

z̗vf(z\11̕ϐ)́AvOŜōő4096łB
z1vfɊi[łő啶255(p)łB

z񖼂ɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B

\ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂Bz1vfɊi[łő啶255(p)łB

 ֘A 
z()ADIM (`ɏl)

 Tv 
REM 944BASIC 'DIM Tv - 2z̑'
REM 2z̑
DIM B(3,3)
REM zɑ
B(0,0)=0,0,0,0
B(0,1)=0,1,2,1
B(0,2)=0,3,1,0
B(0,3)=0,0,0,0
REM z̓e\
FOR I=0 TO 3
 FOR J=0 TO 3
  LOCATE I,J
  PRINT B(I,J)
 NEXT J
NEXT I
KEYWAIT



DIM (`ɏl)
 c z̒`(ɒlݒ) [] 


 @@ 
DIM ϐ()=l1,l2c
 : DIM A(3)=0,1,2,3 

 @@ 
zϐ`Aɏlݒ肵܂B

z̎́A13܂łgpł܂Bϐ`ɂ́A`Ɋe̗vfw肵܂ (̗QƂĂ)B

z̓ÝA0 JEg܂B0`( )Ɏw肵܂(w肵+1)̗vf𗘗pł܂BƂ΁ADIM A(3) sꍇAA(0), A(1), A(2), A(3)  4 ̗vf𗘗pł邱ƂɂȂ܂B

 ӎ 
z̓Y𒴂lgpƃG[ɂȂ܂B

z̗vf(z\11̕ϐ)́AvOŜōő4096łB
z1vfɊi[łő啶255(p)łB

z񖼂ɂ́Ap31܂ł̉pgpĂBA擪̓̕At@xbgŎn߂Kv܂B

\ɂ́A̕ ' ' ܂ " " ň͂ŋLq܂Bz1vfɊi[łő啶255(p)łB

 ֘A 
z()ADIM

 Tv 
REM 944BASIC 'z錾ɑ'
DIM M(4)='j[0','j[1','j[2','j[3','j[4'

MENU M,5,0
S=STRCAT('Î́u',M(MENUNO),'vłB')
MESSAGE S



SORT
 c z̗vfבւ [] 


 @@ 
SORT z,Jn,I,J,
 z: בւz
 Jn: בւ̑ΏۂƂz̊Jnʒu
 I: בւ̑ΏۂƂz̏Iʒu
 J: בւ2z̗vf̔ԍ
 : 0()A1(~) 

 @@ 
z̗vfבւ܂BR}hɎw肵z񂪁Â܂܏܂B

z̗vf̒Aבւ̑ΏۂƂ͈͂wł܂Bz̑Svfבւꍇ́AJn0AIɔz̗vf(=DIMŎw肵l+1)w肵܂B

2z̏ꍇAבւ̊Ƃvfwł܂B

 DIM A(2,2)
 A(0,0)=2,,C
 A(0,1)=3,,A
 A(0,2)=1,,B

Ƃ2zł́A
 SORT A,0,3,0,0 - 1Ԗڂ̗vf()
 SORT A,0,3,1,0 - 2Ԗڂ̗vf(Ђ炪)
 SORT A,0,3,2,0 - 3Ԗڂ̗vf(p)
ŁAꂼבւ邱Ƃł܂B

 ӎ 
R}h̎dlA܂̓t@X̋LړeAύX\܂B(2002.10.12)

vfȉ̃p[^͏ȗł܂Bȗꍇ́Aבւ̑Ώۂ͊Jnʒuȍ~̑SvfAJ1ԖځA0()ɂȂ܂B

 ֘A 
SHUFFLE

 Tv 
(Tv 1)
REM 944BASIC '\[giבւjTv'
DIM A(5)
A(0)=8,6,0,2,4,7
PRINT '8,6,0,2,4,7̐^6,0,2,4\[g'
SORT A,1,5
FOR I=0 TO 5
 PRINT A(I)
NEXT I
A(0)='','','','','',''
PRINT ',,,,,̑Ŝ\[g'
SORT A,0,6
FOR I=0 TO 5
 PRINT A(I)
NEXT I
KEYWAIT

(Tv 2)
REM 944BASIC 'z̃\[g'
DIM A(2,2)
A(0,0)=3,'B',''
A(0,1)=1,'A',''
A(0,2)=2,'C',''
FOR I=0 TO 2
 SORT A,0,2,I,0: REM IŃ\[g
 M=STRCAT('z',I,'ڂŃ\[g')
 PRINT M
 FOR J=0 TO 2
  FOR K=0 TO 2
   PRINT A(K,J);: PRINT '-';
  NEXT K
  PRINT ' '
 NEXT J
NEXT I
KEYWAIT



SHUFFLE
 c z̗vfsKȏԂɕבւ(Vbt) [] 


 @@ 
SHUFFLE z,Jn,vf
 z: בւz
 Jn: בւ̑ΏۂƂz̊Jnʒu
 vf: Jnʒu̗vf 

 @@ 
z̗vfsKȏɕבւ܂(Vbt)BR}hɎw肵z񂪁Â܂܏܂B

z̗vf̒AVbt̑ΏۂƂ͈͂wł܂Bz̑SvfVbtꍇ́AJn0AIɔz̗vf(=DIMŎw肵l+1)w肵܂B

 ӎ 
R}h̎dlA܂̓t@X̋LړeAύX\܂B(2002.10.12)

݂̂ƂAvfɊJnʒu菬Ȑw肷ƁA삵܂B

Jnʒuȉ̃p[^͏ȗł܂Bȗꍇ́AVbt̑Ώۂ͑SvfɂȂ܂B

 ֘A 
SORT

 Tv 
REM 944BASIC 'SHUFFLE Tv'
DIM A(9)=0,1,2,3,4,5,6,7,8,9
PRINT '̔z2`7𼬯ق܂'
REM ̔z\
GOSUB *PRN
KEYWAIT
REM zVbt
SHUFFLE A,2,4
REM Vbtꂽz\
GOSUB *PRN
KEYWAIT
END
*PRN
 FOR I=0 TO 9
  LOCATE 2,I+2:  PRINT A(I)
 NEXT I
 PRINT 'PUSH KEY'
RETURN



CALC
 c vZɂl̎Zo [] 


 @@ 
CALC 
 : l␔\A܂͕ϐ 

 @@ 
܂͕ϐɎw肳ꂽe𐔎ƂĉZA\܂B

vZʂCALCsɂ̂܂ܕ\APRINTȂǂgpKv͂܂B\ʒúALOCATE܂GCURSORŎw肷邱Ƃł܂B

 ӎ 
ʏ̎lẐقɁA944BASIC̊֐gpł܂ (: CALC 'SQR(2)')B

 ֘A 
LOCATEAGCURSOR

 Tv 
REM 944BASIC 'CALCTv'
PRINT 'vZ͂Ă (40܂ŁA֐)B'
INPUT A, 40, 4
CALC A
KEYWAIT
END



WAIT
 c 100msPʂ̏҂ [] 


 @@ 
WAIT 
 : l 

 @@ 
w肵҂ԁAvȌ~܂B҂Ԃ100ms(1/10b)PʂŎw肵܂ (WAIT 10ł́A1bԒ~܂)B

 ӎ 
̃R}h̎sZaurusOSɐ䂪߂܂ (L[yɂ͂FłȂȂAIłȂȂ邨ꂪ܂)B̂߁AԂw肷ꍇ͒ӂKvłB
莞ԁA~ɂSYSCNTȂǂp邱Ƃł܂B

 ֘A 
SYSCNT

 Tv 
REM 944BASIC 'WAIT Tv'
FONT 128
FOR I=0 TO 5
 C=5-I
 LOCATE 8,4:PRINT C
 WAIT 10
NEXT I
S='WAIT SAMPLE'
FOR I=1 TO LEN(S)
 L=LEFT(S,I)
 LOCATE 4,8: PRINT L
 WAIT 4
NEXT I
PRINT 'PUSH KEY'
KEYWAIT



SYNC
 c ZAURUS OS֐߂ [] 


 @@ 
SYNC 

 @@ 
BASIC狭IZAURUS OS֐߂܂By͂L[͂Ȃǂ̃CxgFɂ́AOSYNCsĂKv܂B

 ӎ 
y͌nAeL[͌ñR}h́ASYNCsȂƓ͂󂯕tꂸA͓e𐳂󂯎܂B

ʏA\[v̐擪ɂ́ASYNCĂB[vł̃R}hsĂȂƐ䂪BASICɊSɈڂĂ܂AyL[ɂ鐧䂪łȂȂ邨ꂪ܂B

 ֘A 
FASTTICK

 Tv 
REM 944BASIC 'SYNCTv'
*LOOP SYNC
 LOCATE 0,10
 PRINT '[vSYNCƁA'
 PRINT 'L[y͂𐳂m܂B'
 PRINT 'Ȃ΁A[v̍ŒɁA܂ɖڔz肷R}hłˁBB'
 PRINT 'y^b`邩[]ƏI'
 IF (PADA)+(PEN) THEN END
GOTO *LOOP



FASTTICK
 c 10msPʂ̊݊Ԋuw [] 


 @@ 
FASTTICK Ԋu
 Ԋu: lŊ荞݊Ԋuw(10msP) 

 @@ 
ZAURUS OS̊荞݂󂯓Ԋuw肵܂B

 ӎ 
Ԋuw肷قǁA荞݂ԉȂAʂƂďɎԂ悤ɂȂ܂B SYNCȂǁAZAURUS OSƓR}hƕpăEFCg̑pɂ(=ׂ)Ƃł܂B

 ֘A 
SYNC

 Tv 
REM 944BASIC 'FASTTICKTv'
FASTTICK 3
HEADER 'FASTTICK 3'
GOSUB *COUNT
CLS
REM 쑬x̕ωɒ
FASTTICK 30
HEADER 'FASTTICK 30'
GOSUB *COUNT
KEYWAIT

*COUNT
 FOR I=1 TO 100
  SYNC
  LOCATE 10,10
  PRINT I
 NEXT I
RETURN



SYSCNT
 c VXeJEg̎擾(100msP) [(֐)] 


 @@ 
SYSCNT 

 @@ 
VXeJEg 100 ms PʂŎ擾܂B
VXeJEǵAZAURUS̃XgbvEHb`̂悤ȑ݂ŁAZbg_̌oߎ(1/10b)\Ă܂(Tv1QƂĂ)B

 ӎ 
SYSCNTƃ[vgݍ킹邱ƂŁAނːmɃvOҋ@邱Ƃł܂BWAITƈقȂA[vSYNCs邱ƂŁAҋ@ɃL[y͂󂯕t邱Ƃł܂(Tv2QƂĂ)B

 ֘A 
FASTTICKATIME

 Tv 
(Tv1)
REM 944BASIC 'SYSCNT Tv1'
*LOOP SYNC
 S=SYSCNT
 LOCATE 5,5:PRINT '        '
 LOCATE 5,5:PRINT S
GOTO *LOOP

(Tv2)
REM 944BASIC 'SYSCNT Tv2'
PRINT 'PUSH KEY'
KEYWAIT
S=SYSCNT
*LOOP1 SYNC
 IF SYSCNT-S>=30 THEN GOTO *EXIT
GOTO *LOOP1
*EXIT
PRINT '3bo߁I'
KEYWAIT



SCREEN
 c ʃTCYƈʒu̎w [] 


 @@ 
SCREEN X,Y,V,W
 X: \ʂXW
 Y: \ʂYW
 V: ʃTCỶ
 W: ʃTCY̏c 

 @@ 
SʂgpKvȂꍇɁAEBhẼTCYw肵܂B풓\tg(Aʂ̃AvP[VƓɎgpł\tg)쐬ł܂B

X,YŃEBhE̍̐΍Ww肵AV,WŃEBhẼTCYw肵܂B

EBhE̍[yŃhbOƁAEBhERȈʒuɈړł܂BMOVEAREAsƁAyňړł͈͂wł܂B

 ӎ 
풓\tg쐬ꍇ́A`惋[`[vāA`悪s悤ɂĂB

ʂ̃\tgƏ풓\tg݂Ɏgp悤ȏꍇɂ́AEVENTsāA풓\tgCxg(y͂L[͂Ȃ)󂯎悤ɂKv܂B

 ֘A 
MOVEAREAAEVENT

 Tv 
(Tv 1)
REM 944BASIC '풓EBhE'
EVENT 100,999,1
SCREEN 100,100,124,32
COLORBG 192,192,160:CLS
*LOOP SYNC
 GCURSOR 0,10
 PRINT '풓EBhEyX'
GOTO *LOOP

(Tv 2)
REM 944BASIC '풓av'
SCREEN 220,160,16,80
EVENT 100,999,1: FONT 48
DIM D(5)
DIM K(9)='Z','','','O','l','','Z','','',''
*LOOP SYNC
 BOX 0,0,15,79:BOX 1,1,14,78
 T=TIME
 D(0)=INT(T/100000),INT(T/10000)%10,'',INT(T/1000)%10,INT(T/100)%10,''
 FOR I=0 TO 5
  GCURSOR 4,3+12*I
  IF (I=2)+(I=5) THEN PRINT D(I) ELSE  PRINT K(D(I))
 NEXT I
GOTO *LOOP



MOVEAREA
 c 풓\tg̈ړ\͈͂w [] 


 @@ 
MOVEAREA X,Y,V,W
 X: ړ͈͍XW
 Y: ړ͈͍YW
 V: ړ͈͂̉
 W: ړ͈͂̏c 

 @@ 
SCREENō쐬풓EBhËړ͈͂w肵܂B

 ӎ 
MOVEAREA 0,0,0,0sƁA풓EBhEŒł܂(yňړłȂȂ܂)B

 ֘A 
SCREEN

 Tv 
REM 944BASIC '풓EBhE (Œ)'
EVENT 100,999,1
SCREEN 100,100,124,32
MOVEAREA 0,0,0,0
COLORBG 192,192,160:CLS
*LOOP SYNC
 GCURSOR 0,10
 PRINT '풓EBhE(Œ)'
GOTO *LOOP



EVENT
 c Cxg݂̗Lw [] 


 @@ 
EVENT Jnԍ,Iԍ,MODE
 Jnԍ: Cxgԍ(Jn)
 Iԍ: Cxgԍ(I)
 MODE: 荞݂𖳎(0)/(1) 

 @@ 
BASIC\tgsɎ󂯎(܂͖)荞݃Cxg(yAL[{[hA^C}[Ȃ)ԍŎw肵܂BCxgԍ́A100  999 ܂ł͈̔͂wł܂B


 ӎ 
풓\tg쐬ꍇ́Aʂ̃\tg̎gpɃCxg󂯎悤ɂKv܂ (: EVENT 100,999,1)B̃R}hgpāÃCxg𖳎邱Ƃł܂B

CxgԍEVENTNO֐gpƎ擾ł܂B

 ֘A 
SCREENAEVENTNO

 Tv 
REM 944BASIC 'EVENT TEST'
EVENT 100,999,1
*LOOP SYNC
 EV=EVENTNO
 LOCATE 10,10
 PRINT EV
 WAIT 3
GOTO *LOOP



EVENTNO
 c ݃Cxgԍ̎擾 [(֐)] 


 @@ 
EVENTNO 

 @@ 
ݎɎ擾ꂽCxgԍԂ܂B

 ӎ 


 ֘A 
EVENT

 Tv 
REM 944BASIC 'EVENT TEST'
EVENT 100,999,1
*LOOP SYNC
 EV=EVENTNO
 LOCATE 10,10
 PRINT EV
 WAIT 3
GOTO *LOOP



RUN
 c BASIC\tg̋N [] 


 @@ 
RUN t@C
 t@C: BASICt@C 

 @@ 
944BASIC\tgs܂B

 ӎ 
ÑvÓÃR}hsɒ~܂B

RUNŋNvOIĂABASICvOɂ͐䂪߂܂B

 ֘A 
APLAINCLUDE

 Tv 
REM 944BASIC 'FILESEARCH/RUNTv'
DIM FILE(512)
SETDIRECTORY 'F1:\944BASIC\'
REM ̊gq.BAS̃t@CAzFILEɊi[
FILESEARCH '*.BAS',FILE
REM t@CGETREADCNT
C=GETREADCNT
REM zFILE\[g
SORT FILE,0,C-1
REM j[\
MENU FILE,C,0
REM Iꂽ.BASt@Cs
RUN FILE(MENUNO)



INCLUDE
 c ̃AvP[VɘA [] 


 @@ 
INCLUDE t@C
 t@C: BASICt@C 

 @@ 
OBASICt@CAvOt@C̈ԍŌɘA܂B

 ӎ 
INCLUDEt@C`ɋLqĂÄʒuɃt@C͓ǂݍ܂܂BɁAt@C̍ŌɘA܂B

 ֘A 
RUN

 Tv 




COMMAND
 c BASICR}hs [] 


 @@ 
COMMAND R}h
 R}h: (BASICR}h) 

 @@ 
w肵 BASIC R}hs܂B

 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'COMMAND Tv'
PRINT 'BASIC R}h͂ĂB'
PRINT ' (: CIRCLE 100,100,80,80)B'

REM INPUTŃR}h͂COMMANDŎs
*LOOP SYNC
  INPUT S,50,3
  COMMAND S
GOTO *LOOP



CPUCLOCK
 c CPUNbN̐ݒ [] 


 @@ 
CPUCLOCK MODE
 MODE: NbN̎w(1-3) 

 @@ 
MI-E21ȍ~̋@ł́A\tgEFAɂCPŨNbNݒł܂B

MODEɂ͎̒lw肵܂B
 1: MI-E21̕WNbN(96MH)
 2: MI-E211.5{NbN(144MH)
 3: MI-E212{NbN(192MH)

 ӎ 
̃R}hMI-E21ȍ~̋@ȊOł0Ԃ܂B
MI-E21ȍ~̋@1.5{A2{[hgpۂ̕sȀA[dȑՓȂȂ鎖ۂɂӔC͕܂̂ŁAB
(ȂAMI-E21ł́A[r[̍ĐCPUNbN1.5{[hgpĂ܂)

 ֘A 
GETCPUCLOCK

 Tv 
REM 944BASIC 'CPUCLOCK Tv'
SCREEN 20,20,96,24:EVENT 100,999,1
IF GETCPUCLOCK=0 THEN MESSAGE 'MI-E21ȍ~łȂƗpł܂':END
CL=1
DIM M(2)='1  ','1.5','2  '
*LOOP SYNC
 LOCATE 1,0:PRINT ' CPUCLOCK '
 CLOLD=CL:CL=CL+PADX
 IF (CL<1) THEN CL=1
 IF (CL>3) THEN CL=3
 IF CLOLD<>CL THEN CPUCLOCK CL
 LOCATE 1,1: PRINT 'CLOCK E';
 PRINT M(CL-1)
 WAIT 1
GOTO *LOOP



GETCPUCLOCK
 c CPUNbN[h̎擾(0-3) [(֐)] 


 @@ 
GETCPUCLOCK 

 @@ 
CPŨNbN[hԂ܂B
 0: MI-E21ȊŐ@
 1: MI-E21̕WNbN(96MH)
 2: MI-E211.5{NbN(144MH)
 3: MI-E212{NbN(192MH)

 ӎ 
̃R}hMI-E21ȍ~̋@ȊOł0Ԃ܂B
MI-E21ȍ~̋@1.5{A2{[hgpۂ̕sȀA[dȑՓȂȂ鎖ۂɂӔC͕܂̂ŁAB
(ȂAMI-E211.5{[h̓[r[̍ĐŎgpĂ܂)

 ֘A 
CPUCLOCK

 Tv 
REM 944BASIC 'CPUCLOCK Tv'
SCREEN 20,20,96,24:EVENT 100,999,1
IF GETCPUCLOCK=0 THEN MESSAGE 'MI-E21ȍ~łȂƗpł܂':END
CL=1
DIM M(2)='1  ','1.5','2  '
*LOOP SYNC
 LOCATE 1,0:PRINT ' CPUCLOCK '
 CLOLD=CL:CL=CL+PADX
 IF (CL<1) THEN CL=1
 IF (CL>3) THEN CL=3
 IF CLOLD<>CL THEN CPUCLOCK CL
 LOCATE 1,1: PRINT 'CLOCK E';
 PRINT M(CL-1)
 WAIT 1
GOTO *LOOP



WORKLIST
 c ϐXg̕\ [] 


 @@ 
WORKLIST 

 @@ 
ʂɕϐ̃Xg\܂B

 ӎ 
J̃fobNɎgp܂B\͍̂Œ̓ełB
WORKLISTsɁAtHg̃TCY͍ŏɐݒ肳܂BWORKLIST̎sPRINTȂǂgpꍇ́AFONTsătHgTCYɖ߂Ȃǂ̒ӂKvłB

 ֘A 


 Tv 
REM 944BASIC 'WORKLIST Tv'
REM WORKLISTs̫Ļނς邱ƂقłB
A=900
B=44
PRINT A
KEYWAIT
WORKLIST
KEYWAIT
CLS
A=A+B
PRINT A: REM ̫Ļނɒ
KEYWAIT
WORKLIST
KEYWAIT
END






  \ 





PRINT
 c l̕\ [\] 


 @@ 
PRINT 
 : ܂͕ϐ 

 @@ 
ʂɕϐ̒l╶\܂B

FONTŎw肵TCYgpāACOLORFGŎw肵FƁACOLORBGŎw肵wiFŕ\܂B

PRINTsƒʏ́A\e̒ŎIɉs܂B
O\e̒ɑĕ\ɂ́A܂͕ϐ̒ ; t܂(LOCATEAGCURSORgpĕ\ʒu𒼐ڎw肷邱Ƃł܂)B

 ӎ 
PRINTɉZ𒼐ڋL邱Ƃ͂ł܂BZʂOɕϐɑĂB

 ֘A 
FONTACOLORFGACOLORBGALOCATEAGCURSOR

 Tv 
REM 944BASIC 'PRINTTv'
PRINT '1+1Ă?'
KEYWAIT
A=1+1
PRINT '';
PRINT A;
PRINT 'łB'
KEYWAIT
END



LOCATE
 c \ʒu(As)̎w [\] 


 @@ 
LOCATE X,Y
 X: ʍ̉
 Y: ʏォ̏c 

 @@ 
̕\ʒuAʍp̕P(As)Ŏw肵܂B

ʒúA0n܂(p0,0)ApŃJEgŎw肵܂B

 ӎ 
̑傫ɂāAʓ̕\ʒu͕ς܂ (ʓɕ\ł镶̌Asς邽)B

ʂ̐Έʒuw肷ꍇ́AGCURSORōWw肵ĂB

 ֘A 
FONTAGCURSORAPRINTAMENUAINPUTACALC

 Tv 
REM 944BASIC 'LOCATE Tv'
FONT 64
FOR I=1 TO 20
 LOCATE 14,I
 PRINT 'ɂ́I'
NEXT I
KEYWAIT
CLS: FONT 96
FOR I=1 TO 20
 LOCATE 14,I
 PRINT 'ɂ́I'
NEXT I
KEYWAIT
END



GCURSOR
 c \W̎w [\] 


 @@ 
GCURSOR X,Y
 X: ʍ̉hbg
 Y: ʏォ̏chbg 

 @@ 
̕\ʒuAʍp̃hbgPʂŎw肵܂B

p̍W0,0ɂȂ܂B

 ӎ 
P(As)ŕ\ʒuw肷ꍇLOCATEgp܂B

 ֘A 
FONTALOCATEAPRINTAMENUAINPUTACALC

 Tv 
(Tv 1)
REM 944BASIC 'GCURSOR Tv'
CLS: FONT 64
FOR I=1 TO 240 STEP 20
 GCURSOR 84,I
 PRINT 'ɂ́I'
NEXT I
KEYWAIT
CLS: FONT 96
FOR I=1 TO 240 STEP 20
 GCURSOR 84,I
 PRINT 'ɂ́I'
NEXT I
KEYWAIT
END

(Tv 2)
REM 944BASIC 'GCURSORTv2'
FONT 96:CLS
FOR I=0 TO 216
 SYNC
 COLORBG 96,96,255:COLORFG 255,32,32
 GCURSOR I,36: PRINT ' '
 COLORBG 0,0,0:COLORFG 160,192,96
 GCURSOR 216-I,36: PRINT ' '
NEXT I
KEYWAIT



FONT
 c tHg̎w [\] 


 @@ 
FONT 
 :  

 @@ 
`⃁j[\ɎgptHg̃TCY⑮w肵܂B

TCÝA16̔{Ŏw肵܂B
  0: \܂B
 16: \܂B
 32: 8~16hbgtHg
 48: 4~10hbgtHg
 64: 6~12hbgtHg(ʏtHg)
 80: 6~12hbgtHg
 96: 8~16hbgtHg
112: 12~24hbgtHg
128: 16~32hbgtHg

̐lɁA̐lZƕ\wł܂B
`FCOLORFGŎw肵FAwiFCOLORBGŎw肵FӖ܂B
0: FBSET - `FƔwiFƂɕ`悵܂B
1: FSET - `F݂̂ŕ`悵܂(wi)B
2: BSET - wiF̂ݕ`悵܂(A)B
3: FBEX - `FwiFɔ]ĕ`悵܂B

 ӎ 
tHgZAURUS̋@ɂTCYtHgނႤƂ܂B

 ֘A 
PRINTAMENU

 Tv 
(Tv 1)
REM 944BASIC 'FONT Tv'
S='abCDEG'
FOR I=0 TO 12
 CLS
 SZ=192-(I*16)
 SS=STR(SZ):SH=STRCAT('FONT ',SS)
 HEADER SH
 FONT SZ:GCURSOR 2,24:PRINT S
 KEYWAIT
NEXT I
KEYWAIT

(Tv 2)
REM 944BASIC 'FONT Tv2'
S='abCDEG'
FOR I=0 TO 3
 CLS:COLORFG 192,64,128
 IF I<>3 THEN BOXFILL 1,20,238,40 ELSE COLORFG 0,0,0:BOXFILL 0,0,239,239
 COLORFG 0,0,0:COLORBG 255,255,255
 SH=STRCAT('FONT 64+',IA' `F=AwiF=')
 HEADER SH
 FONT 64+I:GCURSOR 12,24:PRINT S
 KEYWAIT
 SH=STRCAT(SH,' 1ޯĉE')
 HEADER SH
 FONT 64+I:GCURSOR 13,24:PRINT S
 KEYWAIT
NEXT I



HEADER
 c wb_[\ [\] 


 @@ 
HEADER 
 : \镶 

 @@ 
ʂ̍ŏ㕔ɕ\܂B

 ӎ 


 ֘A 
FOOTER

 Tv 
REM 944BASIC 'HEADERTv'
HEADER 'HEADERTv - PUSH KEY'
KEYWAIT
FOR I=0 TO 20
 S='Tv'
 REM SPɘAXy[X
 SP=STRING(' ',21-I)
 S=STRCAT(SP,S)
 HEADER S
 WAIT 1
NEXT I
KEYWAIT



FOOTER
 c tb^[\ [\] 


 @@ 
FOOTER 
 : \镶 

 @@ 
ʂ̍ŉɕ\܂B

 ӎ 
G[́AFOOTERɃG[̓e\܂B

^@ł͐\Ȃ\܂B

 ֘A 
HEADER

 Tv 
REM 944BASIC 'FOOTERTv'
MESSAGE '^@ł͐sȂ\܂B'
FOOTER 'FOOTERTv - PUSH KEY'
KEYWAIT
FOR I=0 TO 20
 S='Tv'
 REM SPɘAXy[X
 SP=STRING(' ',21-I)
 S=STRCAT(SP,S)
 FOOTER S
 WAIT 1
NEXT I
KEYWAIT






  ` 





CLS
 c ʑŜ̃NA [`] 


 @@ 
CLS 

 @@ 
ʂwiFŃNA܂(Sʓhׂ)BA摜Ɋւ炸Sʂ܂B

 ӎ 
̐FŉʂNAꍇ́ACOLORBGŔwiFOɎw肵ĂKv܂B

 ֘A 
COLORBG

 Tv 
REM 944BASIC 'CLS/COLORBG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2:BITMAP '9B_REF.BMP',0,0
COLORBG 128,96,192:CLS
LOCATE 2,8:PRINT 'CLS Tv - PUSH KEY'
KEYWAIT
CLS
SPRITE 1,1,1, 80,80, 0,16, 48,48
REFRESH 0,0,0,0,240,320
HEADER 'CLS Tv'
FOOTER 'CLS Tv'
LOCATE 2,4:PRINT 'HEADER摜܂ - PUSH KEY'
KEYWAIT
COLORBG 64,192,128: CLS
LOCATE 2,4:PRINT 'COLORBGŎw肵FœhԂ܂ - PUSH KEY'
KEYWAIT



COLORFG
 c `F̎w [`] 


 @@ 
COLORFG R,G,B
 R: ԐF(0`255)
 G: ΐF(0`255)
 B: F(0`255) 

 @@ 
PRINTł̕\LINEȂǐ}`̕`ɎgpFARGBlŎw肵܂B
w肷鐔l傫قǁAF͖邭Ȃ܂B0,0,0ł͏A255,255,255ŏɂȂ܂B

 ӎ 
̎w@ł24rbg1677Fgpł܂AZaurus̎ۂ̕F16rbg65FɂȂ܂B

 ֘A 
COLORBGAPRINTALINEABOXABOXFILLABOXCIRCLEACIRCLEAPAINTAPSETAHSV

 Tv 
REM 944BASIC 'COLORFG/BOXFILL Tv'
COLORBG 64,192,128: CLS
LOCATE 2,8:PRINT 'COLORFG/BOXFILL Tv - PUSH KEY'
KEYWAIT
FOR I=0 TO 192 STEP 16
 COLORFG 63+I,16+I,16+I
 BOXFILL 0+I,0+I,64+I,64+I
 COLORFG 16+I,16+I,63+I
 BOXFILL 239-I,0+I,239-64-I,64+I
 WAIT 1
NEXT I
KEYWAIT



COLORBG
 c wiF̎w [`] 


 @@ 
COLORBG R,G,B
 R: ԐF(0`255)
 G: ΐF(0`255)
 B: F(0`255) 

 @@ 
CLSA܂͕XvCg̕`ŎgpwiFRGBlŎw肵܂B
w肷鐔l傫قǁAF͖邭Ȃ܂B0,0,0ł͏A255,255,255ŏɂȂ܂B

 ӎ 
̎w@ł24rbg1677Fgpł܂AZaurus̎ۂ̕F16rbg65FɂȂ܂B

 ֘A 
COLORFGAHSVACLS

 Tv 
REM 944BASIC 'CLS/COLORBG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2:BITMAP '9B_REF.BMP',0,0
COLORBG 128,96,192:CLS
LOCATE 2,8:PRINT 'CLS Tv - PUSH KEY'
KEYWAIT
CLS
SPRITE 1,1,1, 80,80, 0,16, 48,48
REFRESH 0,0,0,0,240,320
HEADER 'CLS Tv'
FOOTER 'CLS Tv'
LOCATE 2,4:PRINT 'HEADER摜܂ - PUSH KEY'
KEYWAIT
COLORBG 64,192,128: CLS
LOCATE 2,4:PRINT 'COLORBGŎw肵FœhԂ܂ - PUSH KEY'
KEYWAIT



HSV
 c HSVlɂF̎w [`] 


 @@ 
HSV H,S,V
 H: F(0`360)
 S: ʓx(0-255)
 V: x(0-255) 

 @@ 
HSVlŐFw肵܂B

HSV(HSBƌĂԂƂ܂)́A
 Hue (FAF)
 Saturation (ʓxA₩)
 Value (xA邳(Brightness))
\A芴oIɂ킩₷ŐFwł܂B

 ӎ 
R}h̎dlA܂̓t@X̋LړeAύX\܂B(2002.10.12)

 ֘A 
COLORFGACOLORBG

 Tv 
(Tv 1)
REM 944BASIC 'HSV Tv1'
GCURSOR 76,88:PRINT 'F@'
FOR H=0 TO 360 STEP 10
 X=88+SINAG(H)*80
 Y=96-(COSAG(H))*80
 HSV H,128,128: BOXFILL X,Y,X+8,Y+8
NEXT H
X=184:Y=20:GCURSOR 184,6:PRINT ''
FOR S=0 TO 255 STEP 8
 HSV 0,S,128: BOXFILL X,Y,X+8,Y+4
 Y=Y+5
NEXT S
X=218:Y=20:GCURSOR 216,6:PRINT ''
FOR V=0 TO 255 STEP 8
 HSV 0,0,255-V: BOXFILL X,Y,X+8,Y+4
 Y=Y+5
NEXT V
KEYWAIT
END

(Tv 2)
REM 944BASIC 'HSV Tv2'
X=0:Y=0
FOR H=0 TO 360 STEP 18
 FOR S=0 TO 255 STEP 16
  FOR V=0 TO 255 STEP 16
   HSV H,S,V: BOXFILL X,Y,X+2,Y+2
   X=X+3
   IF X>239 THEN X=0:Y=Y+3
  NEXT V
 NEXT S
NEXT H
KEYWAIT



LINE
 c ̕` [`] 


 @@ 
LINE X1,Y1,X2,Y2
 X1: n_XW
 Y1: n_YW
 X2: I_XW
 Y2: I_YW 

 @@ 
X1,Y1̍WX2,Y2̍Wɒ`悵܂BW̓EBhE̍p 0,0 łB

̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVABOXABOXFILLABOXCIRCLEACIRCLEAPSETAPAINT

 Tv 
(Tv 1)
REM 944BASIC 'LINE/GOSUB Tv'
COLORFG 0,0,0
GOSUB *DRAW
COLORFG 255,255,255
GOSUB *DRAW
KEYWAIT
END

*DRAW
 FOR X=0 TO 200
  Y=SIN(X/20)*120+120
  LINE X,Y,X+40,Y
  SYNC
 NEXT X
RETURN

(Tv 2)
REM 944BASIC 'LINE Tv'
COLORBG 255,255,255: CLS
C=64
FOR X1=0 TO 239 STEP 2
 SYNC
 FOR Y1=0 TO 239 STEP 2
  COLORFG C+32,C+32,C
  LINE X1,Y1,239-X1,239-Y1
  C=C+16
  IF C>223 THEN C=0
 NEXT Y1
NEXT X1
KEYWAIT



BOX
 c lp`̕` [`] 


 @@ 
BOX X1,Y1,X2,Y2
 X1: n_XW
 Y1: n_YW
 X2: I_XW
 Y2: I_YW 

 @@ 
X1,Y1̍WX2,Y2̍WɎlp``悵܂BW̓EBhE̍p 0,0 łB

lp`̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVALINEABOXFILLABOXCIRCLEACIRCLEAPSETAPAINT

 Tv 
REM 944BASIC 'BOX/PAINT Tv'
CLS: BOX 0,0,239,239
X=0: Y=0: L=120
FOR I=0 TO 8
 X=X+20: Y=Y+20: L=L-10: WAIT 2
 BOX X,Y,X+L,Y+L
 BOX X,Y+L+10,X+10,230
 BOX X+L+10,Y,230,Y+10
NEXT I
DIM TMP(4)
*LOOP SYNC
 FOR I=0 TO 4
  TMP(I)=(RND+TIME)%239
 NEXT I
 COLORFG TMP(0),TMP(1),TMP(2)
 PAINT TMP(3),TMP(4)
GOTO *LOOP



BOXFILL
 c hԂlp`̕` [`] 


 @@ 
BOXFILL X1,Y1,X2,Y2
 X1: n_XW
 Y1: n_YW
 X2: I_XW
 Y2: I_YW 

 @@ 
X1,Y1̍WX2,Y2̍WɓhԂlp``悵܂BW̓EBhE̍p 0,0 łB

hԂ̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVALINEABOXABOXCIRCLEACIRCLEAPSETAPAINT

 Tv 
REM 944BASIC 'COLORFG/BOXFILL Tv'
COLORBG 64,192,128: CLS
LOCATE 2,8:PRINT 'COLORFG/BOXFILL Tv - PUSH KEY'
KEYWAIT
FOR I=0 TO 192 STEP 16
 COLORFG 63+I,16+I,16+I
 BOXFILL 0+I,0+I,64+I,64+I
 COLORFG 16+I,16+I,63+I
 BOXFILL 239-I,0+I,239-64-I,64+I
 WAIT 1
NEXT I
KEYWAIT



BOXCIRCLE
 c pێlp`̕` [`] 


 @@ 
BOXCIRCLE X1,Y1,X2,Y2
 X1: n_XW
 Y1: n_YW
 X2: I_XW
 Y2: I_YW 

 @@ 
X1,Y1̍WX2,Y2̍WɊpێlp``悵܂BW̓EBhE̍p 0,0 łB

lp`̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVALINEABOXABOXFILLACIRCLEAPSETAPAINT

 Tv 
REM 944BASIC 'BOXCIRCLE Tv'
COLORFG 0,0,0:CLS
BOXCIRCLE 20,40,80,160
BOXCIRCLE 40,70,43,76: PAINT 41,71
BOXCIRCLE 70,70,73,76: PAINT 71,71
BOXCIRCLE 55,90,59,94
BOXCIRCLE 52,120,64,124
BOXCIRCLE 88,76,230,122
PSET 87,122:PSET 86,122:PSET 85,122
PSET 84,122:PSET 87,121:PSET 88,122
COLORFG 255,255,255: PSET 88,121
COLORFG 0,0,0
GCURSOR 96,84:PRINT 'Hello,'
GCURSOR 96,104:PRINT "How's 9B programming?"
KEYWAIT



CIRCLE
 c ȉ~̕` [`] 


 @@ 
CIRCLE X1,Y1,V,W
 X1: n_XW
 Y1: n_YW
 V: a
 W: ca 

 @@ 
X1,Y1̍W𒆐SɂāAVhbgAcWhbg̑傫̑ȉ~`悵܂BVWꍇ͐~ɂȂ܂BW̓EBhE̍p 0,0 łB

~̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
_ł́A`摬x̂߁A60p`Ƃđȉ~`悵Ă܂B
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVALINEABOXABOXFILLABOXCIRCLEAPSETAPAINT

 Tv 
REM 944BASIC 'CIRCLE Tv'
COLORFG 0,0,0:CLS
CIRCLE 40,100,8,30:  PAINT 40,100
CIRCLE 108,100,8,30: PAINT 108,100
CIRCLE 75,200,40,5:  PAINT 75,200
COLORFG 255,255,255
CIRCLE 75,197,40,5:  PAINT 75,197
COLORFG 0,0,0
CIRCLE 130,64,4,4
CIRCLE 150,50,20,6
CIRCLE 164,20,56,18
GCURSOR 128,14:FONT 64+1
PRINT 'Good grief!'
KEYWAIT



PSET
 c _̕` [`] 


 @@ 
PSET X,Y
 X: \ʂXW
 Y: \ʂYW 

 @@ 
\ʂXWYẄʒu1hbg`悵܂BW̓EBhE̍p 0,0 łB

_̐Fɂ́ACOLORFGŎw肵`Fgp܂B

 ӎ 
ʊO̍Wwł܂Aۂɕ`悳͈͂́AIȔ͈͂̉ʂ݂̂ƂȂ܂B

 ֘A 
COLORFGAHSVALINEABOXABOXFILLABOXCIRCLEACIRCLEAPAINT

 Tv 
REM 944BASIC 'PSETTv(STAR?)' 
COLORBG 0,0,0: CLS
FOR I=0 TO 64
 SYNC
 X=(RND+TIME)%239:Y=(RND+TIME)%239
 COLORFG 211,192,236: PSET X,Y
 FOR J=1 TO 2
  COLORFG 211-J*64,192-J*64,236-J*64
  PSET X-J,Y-J:PSET X+J,Y+J
  PSET X+J,Y-J:PSET X-J,Y+J
  PSET X,Y-J:PSET X,Y+J
  PSET X+J,Y:PSET X-J,Y
 NEXT J
 WAIT 3
NEXT I
LOCATE 5,10: PRINT 'PUSH KEY'
KEYWAIT



PAINT
 c ͂܂ꂽ͈͂̓hԂ [`] 


 @@ 
PAINT X,Y
 X: \ʂXW
 Y: \ʂYW 

 @@ 
XWYẄʒuƓFAĂ͈͂ACOLORFGŎw肵`FœhԂ܂BW̓EBhE̍p 0,0 łB

 ӎ 
̏ł́A\ʂxʂɎ荞݁AʏPAINTsĂA\ʂɉ摜]Ă܂B̂߁Aʂ̓e͕\ʂƓeɕύX܂B

 ֘A 
COLORFGAHSVALINEABOXABOXFILLABOXCIRCLEACIRCLEAPSET

 Tv 
REM 944BASIC 'BOX/PAINT Tv'
CLS: BOX 0,0,239,239
X=0: Y=0: L=120
FOR I=0 TO 8
 X=X+20: Y=Y+20: L=L-10: WAIT 2
 BOX X,Y,X+L,Y+L
 BOX X,Y+L+10,X+10,230
 BOX X+L+10,Y,230,Y+10
NEXT I
DIM TMP(4)
*LOOP SYNC
 FOR I=0 TO 4
  TMP(I)=(RND+TIME)%239
 NEXT I
 COLORFG TMP(0),TMP(1),TMP(2)
 PAINT TMP(3),TMP(4)
GOTO *LOOP



POINT
 c ʎwW̐F擾(16rbgl) [`(֐)] 


 @@ 
POINT(X,Y)
 X: F擾XW
 Y: F擾YW 

 @@ 
w肵W̐FA16rbglŕԂ܂B

 ӎ 
COLORFGACOLORBGł24rbg1677Fgpł܂AԂl16rbglŁA0`65535ɂȂ܂B

POINTŕԂꂽlARGBlɕύX@ɂẮATv 2QlɂĂB

 ֘A 


 Tv 
(Tv 1)
REM 944BASIC 'POINTPATTERN'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORFG 0,0,0:COLORBG 255,255,255
CLS: FONT 64
DIM B(11,11)
A=''
LOCATE 0,0:PRINT A
FOR I=0 TO 11
 FOR J=0 TO 11
  IF POINT(J,I)=65535 THEN B(J,I)=3 ELSE B(J,I)=0
 NEXT J
NEXT I
PATTERN B,24,24,0,16,16,0
KEYWAIT

(Tv 2)
REM 944BASIC 'POINTRGBl'
COLORFG (RND+TIME)%140,(RND+TIME)%140,(RND+TIME)%140
BOXFILL 40,40,200,200
HEADER 'ӂ𖾂邭'
*LOOP SYNC
 IFBLK (PEN=2)
  X=PENX: Y=PENY: C=POINT(X,Y)
  R=INT(C/2048)*8
  G=(INT(C/64)%32)*8
  B=(INT(C)%32)*8
  IFBLK (R<239)*(G<239)*(B<239)
   COLORFG R+16,G+16,B+16
   BOXFILL X-1,Y-1,X+1,Y+1
  ENDIF
 ENDIF
GOTO *LOOP






  摜\ 





SETPAGE
 c ʂ̏݃y[Ww [摜\] 


 @@ 
SETPAGE y[Wԍ
 y[Wԍ: y[Wԍ 

 @@ 
摜\A܂͓ǂݍރy[Ww肵܂B
y[Wԍɂ́A̐lw肵܂B
 0: \
 1: 
 2: eNX`

摜ǂݍ(JPEGȂ)`(LINEȂ)sR}h̑OSETPAGEsƁÃy[Wɕ`悵܂BSETPAGEgpȂꍇ́AlƂ 0 y[W(\)ɕ`悵܂B

 ӎ 
944BASICł́A摜̕\3 ނ̃y[Wgp܂B
0y[ẂAۂɕ\sʂł(\)B
1y[ẂA\̏s߂̉ʂł()B
2y[ẂAXvCgBGɉH摜(eNX`)ǂݍނ߂́AeNX`ʂłB

 ֘A 
JPEGABITMAP

 Tv 
(Tv 1)
REM 944BASIC 'SETPAGE/GCOPYTv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 0:PRINT '\'
KEYWAIT
SETPAGE 1:BITMAP '9B_REF.BMP',0,0
REM ʂ̈ꕔ\ʂɃRs[
GCOPY 160,48, 48,16, 48,48
PRINT 'ʂ\'
KEYWAIT
SETPAGE 2:BITMAP '9B_REF.BMP',0,0
REM eNX`𗠉ʂɃZbg(SPRITE)
SPRITE 1,1,1, 40,40,0,16,48,48
PRINT 'øʂ痠(ω)'
KEYWAIT
REM ʂ\ʂɕ\
REFRESH 20,20,20,20,80,80
PRINT 'ʂ\'
KEYWAIT

(Tv 2)
REM 944BASIC 'SETPAGE `Tv'
REM eNX`ʂɕ`
SETPAGE 2: CLS
COLORFG 32,96,96:BOXFILL 8,32,88,128
COLORFG 8,8,8
BOXFILL 24,48,28,52
BOXFILL 76,48,80,52
BOXFILL 24,100,80,104
SETPAGE 0
HEADER 'eNX`ʂɕ`悵܂ - PUSH KEY'
KEYWAIT
REM SPRITEŃeNX`
SPRITE 1,1,1, 0,0, 0,0, 240,240
REFRESH 0,0,0,0,240,240
HEADER 'REFRESHŗ\'
KEYWAIT



JPEG
 c JPEG摜̕\ [摜\] 


 @@ 
JPEG t@C,X1,Y1,X2,Y2
 t@C: t@C
 X1: n_XW
 Y1: n_YW
 X2: I_XW
 Y2: I_YW 

 @@ 
w肵t@CJPEG摜ʂɕ\܂B
X1,Y1̍W摜\܂(X1,Y1ɉ摜̍p\)B

 ӎ 
eNX`ʂɉ摜ǂݍޏꍇ́ASETPAGE 2sĂJPEG܂BITMAPsĂB
OSETPAGEsȂꍇ́A0y[W(\)ɉ摜ǂݍ݂܂(SETPAGE 0sĂAJPEG܂BITMAPŝƓʂɂȂ܂)B

_ł́AX2,Y2͏AĂ܂B

t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

SPRITEBG̃eNX`ƂĎgpł摜̍őTCÝA1024x768 hbgłB

 ֘A 
SETPAGEABITMAP

 Tv 
REM 944BASIC 'JPEG Tv'
MESSAGE ': ̃Tv9B_REF.JPGƂ摜pӂȂƁAɎs܂BC[Wm肽ꍇ́ABITMAP̃TvsĂB'
SETDIRECTORY 'F1:\944BASIC\'
JPEG '9B_REF.JPG',0,0
KEYWAIT
JPEG '9B_REF.JPG'',40,40
KEYWAIT
JPEG '9B_REF.JPG',80,80
KEYWAIT




BITMAP
 c rbg}bvt@C̕\ [摜\] 


 @@ 
BITMAP t@C,X1,Y1
 t@C: t@C
 X1: XW
 Y1: YW
 

 @@ 
w肵t@C̃rbg}bv摜ʂɕ\܂B
X1,Y1̍W摜\܂(X1,Y1ɉ摜̍p\)B

 ӎ 
eNX`ʂɉ摜ǂݍޏꍇ́ASETPAGE 2sĂJPEG܂BITMAPsĂB
OSETPAGEsȂꍇ́A0y[W(\)ɉ摜ǂݍ݂܂(SETPAGE 0sĂAJPEG܂BITMAPŝƓʂɂȂ܂)B

t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

SPRITEBG̃eNX`ƂĎgpł摜̍őTCÝA1024x768 hbgłB

 ֘A 
SETPAGEAJPEG

 Tv 
REM 944BASIC 'BITMAP Tv'
SETDIRECTORY 'F1:\944BASIC\'
BITMAP '9B_REF.BMP',0,0
KEYWAIT
BITMAP '9B_REF.BMP',40,40
KEYWAIT
BITMAP '9B_REF.BMP',80,80
KEYWAIT



SAVEBITMAP
 c rbg}bvt@C̕ۑ [摜\] 


 @@ 
SAVEBITMAP t@C,X,Y,V,W,M
 t@C: t@C
 X: n_XW
 Y: n_YW
 V: 摜̉
 W: 摜̍
 M: F̃[h(16,24 Ȃ) 

 @@ 
\ʂɕ\ĂAWŎw肵͈͓rbg}bv`̉摜Ƃĕۑ܂B

 ӎ 


 ֘A 
BITMAPAJPEG

 Tv 
̃Tvł́A9B_TMP.BMP Ƃt@C쐬܂BTvsÃt@C͍폜Ă܂܂B

REM 944BASIC 'SAVEBITMAP Tv'
SETDIRECTORY 'F1:\944BASIC\'
YN=YESNO('9BTMP.BMP Ƃt@C쐬܂B낵łH')
IF YN=0 THEN END
COLORFG 0,0,0:CLS
CIRCLE 20,22,4,8: PAINT 20,22
CIRCLE 40,22,4,8: PAINT 40,22
BOXFILL 15,49,45,50
BOXCIRCLE 6,4,56,68
SAVEBITMAP '9BTMP.BMP',0,0,60,70,16
CLS: WAIT 10
FOR I=1 TO 20
 X=(RND+TIME)%180:Y=(RND+TIME)%170
 BITMAP '9BTMP.BMP',X,Y
NEXT I
KEYWAIT



GCOPY
 c ʂ\ʂɉ摜]\ [摜\] 


 @@ 
GCOPY X1,Y1,X2,Y2,V,W
 X1: \ʂXW(])
 Y1: \ʂYW(])
 X2: ʂXW(])
 Y2: ʂYW(])
  V: 摜̉
  W: 摜̏c 

 @@ 
ʂeNX`ʂ\ʂɉ摜]\܂B

 ӎ 
944BASICł́A摜̕\3 ނ̃y[Wgp܂B
0y[ẂAۂɕ\sʂł(\)B
1y[ẂA\̏s߂̉ʂł()B
2y[ẂAXvCgBGɉH摜(eNX`)ǂݍނ߂́AeNX`ʂłB

 ֘A 
BOXMOVEAGETPIXMAP

 Tv 
REM 944BASIC 'SETPAGE/GCOPYTv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 0:PRINT '\'
KEYWAIT
SETPAGE 1:BITMAP '9B_REF.BMP',0,0
REM ʂ̈ꕔ\ʂɃRs[
GCOPY 160,48, 48,16, 48,48
PRINT 'ʂ\'
KEYWAIT
SETPAGE 2:BITMAP '9B_REF.BMP',0,0
REM eNX`𗠉ʂɃZbg(SPRITE)
SPRITE 1,1,1, 40,40,0,16,48,48
PRINT 'øʂ痠(ω)'
KEYWAIT
REM ʂ\ʂɕ\
REFRESH 20,20,20,20,80,80
PRINT 'ʂ\'
KEYWAIT



BOXMOVE
 c \ʏ̓]\ [摜\] 


 @@ 
BOXMOVE X1,Y1,X2,Y2,V,W
 X1: \ʂXW(])
 Y1: \ʂYW(])
 X2: \ʂXW(])
 Y2: \ʂYW(])
  V: 摜̉
  W: 摜̏c 

 @@ 
\ʓŉ摜̈ꕔ]\܂B]\ł͈͂́AV,W Ŏw肵͈͓łB

 ӎ 
944BASICł́A摜̕\3 ނ̃y[Wgp܂B
0y[ẂAۂɕ\sʂł(\)B
1y[ẂA\̏s߂̉ʂł()B
2y[ẂAXvCgBGɉH摜(eNX`)ǂݍނ߂́AeNX`ʂłB

 ֘A 
GCOPYAGETPIXMAP

 Tv 
(Tv 1)
REM 944BASIC 'BOXMOVE Tv'
COLORFG 0,0,0:CLS
CIRCLE 20,22,4,8:  PAINT 20,22
CIRCLE 40,22,4,8:  PAINT 40,22
CIRCLE 30,50,16,4: PAINT 30,50
COLORFG 255,255,255
CIRCLE 30,48,16,4: PAINT 30,48
COLORFG 0,0,0: BOXCIRCLE 6,4,56,68
X=0:Y=0:W=239:H=239:MV=5
*LOOP SYNC
 XX=X+MV: YY=Y+MV
 BOXMOVE XX,YY,X,Y,W,H
 X=XX:Y=YY:MVA=ABS(MV)
 IF (X>180)+(Y>160) THEN MV=MV*(-1)
 IF (X<MVA)+(Y<MVA) THEN MV=MV*(-1)
GOTO *LOOP

(Tv 2)
REM 944BASIC 'BOXMOVE Tv2'
GCURSOR 0,192:
PRINT 'RHoȂAlB'
PRINT 'qɓΊpBɞΗBӒnʂ΋B'
PRINT '-- Ėڟ΁wx'
X=0:Y=0:W=239:H=239:MV=5
*LOOP SYNC
 BOXMOVE X,Y-MV,X,Y,W,H
 Y=Y-MV
 IF ABS(Y)>H THEN GOTO *FIN
 WAIT 2
GOTO *LOOP
*FIN
PRINT 'PUSH ANY KEY'
KEYWAIT



GETPIXMAP
 c \ʂ𗠉ʂ֎荞 [摜\] 


 @@ 
GETPIXMAP 

 @@ 
\ʂ̓e𗠉ʂɎ荞݂܂B

 ӎ 
_ł͓s
944BASICł́A摜̕\3 ނ̃y[Wgp܂B
0y[ẂAۂɕ\sʂł(\)B
1y[ẂA\̏s߂̉ʂł()B
2y[ẂAXvCgBGɉH摜(eNX`)ǂݍނ߂́AeNX`ʂłB

 ֘A 
BOXMOVEAGCOPY

 Tv 




SPRITE
 c XvCg̒` [摜\] 


 @@ 
SPRITE NO,PNO,MODE, X1,Y1, X2,Y2, V,W, MX,MY
  NO: XvCgԍ(1-255)
  PNO: eXvCgԍ(1-255)
  MODE: 0-ʔ\A1-ʕ\A5-gk/][h
  X1: ʂXW
      (\ʒu)
  Y1: ʂYW
      (\ʒu)
  X2: eNX`ʂXW
      (摜؂Jnʒu)
  Y2: eNX`ʂYW
      (摜؂Jnʒu)
   V: eNX`ʂ̃XvCg
      (摜؂蕝)
   W: eNX`ʂ̃XvCgc
      (摜؂荂)
  MX: g嗦
      (0`1-kA1ȏ-gA
       }CiX̐l-])
  MY: cg嗦
      (0`1-kA1ȏ-gA
       }CiX̐l-]) 

 @@ 
XvCg`܂BXvCǵAeNX`摜摜̈ꕔ؂ARȈʒuŕ\@\łB
XvCgɂ11ɔԍĂ܂BXvCgdȂĂꍇ́Aԍ̎Ⴂ̂قǎOɕ\܂B
܂A(RGBl 0,0,0)͓FƂĈẢ摜(widȂĂXvCg)ĕ\܂B

x`ĺAl܂ŕۑ܂BύX̂Ȃp[^͏ȗƁA܂B

SPRITEs邾ł́Aۂ̉(\)ɂ͕\܂BSẴXvCg`IĂREFRESHsƁAXvCg\܂B

XvCg摜̕\ł́A
 1. eNX`ʂɉ摜ǂݍ(SETPAGEAJPEG/BITMAP)A
 2. SPRITEŐ؂oāAʂɔzuA
 3. REFRESHŕ\ʂɕ\
ƂsĂ܂B

  (eNX`)
 SPRITE
  ()
 REFRESH
  (\)

 ӎ 
̃R}hł́AXvCg͕\܂BREFRESH̎sAۂ(\ʂ)\܂B
ʏ͑SẴXvCgzuĂREFRESHsĂ(XvCg̏dȂ菈𐳂s)B

eXvCgԍɎ̔ԍݒ肷ƁAʏ̕@ŏ܂BႤXvCgԍݒ肷ƁAeXvCg̍W̑΍Wŕ\܂B

\ʒu (X1,Y1) ́AXvCg̍p̈ʒu\܂BAgk[h(MODE5w)̏ꍇAXvCg̒S_̈ʒu\܂B

g嗦́A0`1ŏkA1ȏŊgwł܂B}CiX̒lw肷ƁA摜𔽓]Ŋg嗦KpA\܂B

eNX`ƂĎgpł摜̍őTCÝA1024x768 hbgłB

 ֘A 
REFRESHASETPAGEABITMAPAJPEGASPSEARCHASPCOLLISION

 Tv 
REM 944BASIC 'SPRITE Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2
BITMAP "9B_REF.BMP",0,0
CLS

SPRITE 1,1,1, 110,150,0,16,48,48
REFRESH 20,60,20,60,200,200
KEYWAIT
SPRITE 1,1,1, 150,110
REFRESH 20,60,20,60,200,200
KEYWAIT



REFRESH
 c XvCg̎\/ʂ̃tbV [摜\] 


 @@ 
REFRESH X1,Y1,X2,Y2,V,W
  X1: \ʂXW
  Y1: \ʂYW
  X2: ʂXW
  Y2: ʂYW
   V: ݃GẢ
   W: ݃GȀc 

 @@ 
XvCg`摜BG(wip^[)Aۂ̕\ʂɏ݂܂B

944BASICł́A摜̕\ 3 ނ̉ʂgpĂ܂B
\ (y[W 0) ́Aۂɕ\sʂłB
 (y[W 1) ́A\̏s߂̉ʂłB
eNX`` (y[W 2) ́AXvCgBGɉH摜(eNX`)ǂݍނ߂̉ʂłB

XvCg摜̕\ł́A
 1. eNX`ʂɉ摜ǂݍ(SETPAGEAJPEG/BITMAP)A
 2. SPRITEŐ؂oāAʂɔzuA
 3. REFRESHŕ\ʂɕ\
ƂsĂ܂B

  (eNX`)
 SPRITE/BG
  ()
 REFRESH
  (\)

 ӎ 
ʏ́AX1X2AY1Y2ɂ͓lgp܂B
\̃CAEgύXA1ʂɕ̕\GAȂǂ̏ꍇ͈Ⴄlw肵܂B
܂\GA傫قǏݎԂ܂B
\GAƏXs[h́A\tgƂɍœKȃoXɒ߂ĂBőTCY240~320łB

 ֘A 
SPRITEABG

 Tv 
REM 944BASIC SPRITE/REFRESH Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2
BITMAP "9B_REF.BMP",0,0
CLS

SPRITE 1,1,1, 110,150,0,16,48,48
REFRESH 20,60,20,60,200,200
KEYWAIT



BG
 c wi摜(BG)̕\ [摜\] 


 @@ 
BG z, X,Y, V,W, SX,SY, PV,PW, TX,TY, TV,TW
 z:
  X: XW
  Y: YW
  V: \͈͂̉
  W: \͈͂̏c
 SX: XN[XW
 SY: XN[YW

 (PVȍ~͏ȗ)
 PV: BG̃p^[1̉
     (ȗ16)
 PW: BG̃p^[1̏c
     (ȗ16)
 TX: eNX`ʂ̍XW
     (ȗ0)
 TY: eNX`ʂ̍YW
     (ȗ0)
 TV: eNX`ʏ̃p^[i[S̉
     (ȗ240)
 TW: eNX`ʏ̃p^[i[S̏c
     (ȗ320) 

 @@ 
eNX`ʂwip^[̍\vf؂oAzɎw肳ꂽp^[ɏ]ĕ\܂B
zɎw肵p^[́Ap^[[v`ŌJԂ܂B܂AXN[ɂΉĂ܂B

BGsł͉ʂɕ\܂BBGsAREFRESHsKv܂B

(eNX`)

 
(z)
0,0,1
0,2,3
1,0,0
 
(BG)
c
c
c
c
c
c
      :

 ӎ 
̃R}hł́ABG͕\܂BREFRESH̎sAۂɕ\܂B

XvCggpA\ɂȂ܂B

p^[̍\vf́AeNX`ʂɓǂݍ񂾉摜TX,TYʒu(ȗ͍p)؂o܂B؂óAPV,PW Ɏw肵cōs܂B\vfɂ́Ap0ƂāAԂɔԍӂA摜̉E[܂œB1iɉĐ؂o𑱍s܂B

PVȍ~̃p[^ȗ邩A0w肷ƁAftHglݒ肳܂B

XN[KvȂꍇAIɉ摜ꍇ́APATTERNgp邱Ƃł܂B

eNX`ƂĎgpł摜̍őTCÝA1024x768 hbgłB

 ֘A 
SETPAGEASPRITEAPATTERNABITMAPAJPEG

 Tv 
REM 944BASIC 'BG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP "9B_REF.BMP",0,0
COLORBG 0,0,0: CLS
REM p^[̔z
DIM B(3,3)
B(0,0)=0,0,0,0
B(0,1)=0,1,0,1
B(0,2)=0,0,1,0
B(0,3)=0,2,0,0
REM XN[pϐ
M=16:MX=0:MY=0
*LOOP SYNC
 MX=MX+M*PADX:MY=MY+M*PADY
 BG B, 40,80, 160,160, MX,MY, 48,48, 0,16, 144,48
 REFRESH 40,80, 40,80, 160,160
 WAIT 1
GOTO *LOOP



PATTERN
 c z񂩂p^[\ [摜\] 


 @@ 
PATTERN z,X1,Y1,PAGE,V,W,MODE
 z: 2̔z̖Ow
 X1: \ʂXW
 Y1: \ʂYW
 PAGE: `悷y[W(ʏ0)
  V: p^[̉
  W: p^[̏c
 MODE: ʑS̏(0),ʕύX(1) 

 @@ 
eNX`ʂɓǂݍ񂾉摜p^[̍\vf؂oA2z̒lƂɉʂɃp^[\܂B
MODE1ɂƁAIɑO񂩂̕ύXӏ̂ݏ邽߁Aʂ݂̏Ȃ܂B

(eNX`)
E[ɓB

1iĐ؂o
  
(z)
1,1,1,1
1,0,1,3
1,2,5,1
4,0,1,4
  
(p^[)





 ӎ 
p^[̍\vf́AeNX`ʂɓǂݍ񂾉摜̍p؂o܂B؂óAV,W Ɏw肵cōs܂B\vfɂ́Ap0ƂāAԂɔԍӂA摜̉E[܂œB1iɉĐ؂o𑱍s܂B

摜𕔕IɏKvȂꍇAXN[sꍇ́ABGgp܂B

PATTERNsƁÂ܂܃p^[摜\܂BREFRESHsKv͂܂B

 ֘A 
BITMAPAJPEGABGASETPAGE

 Tv 
(Tv 1)
REM 944BASIC 'p^[Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP "9B_REF.BMP",0,0
CLS
DIM B(9,9)

REM p^[ŕ\
PATTERN B,0,0,0,16,16,0
KEYWAIT
REM 2zɒl
B(2,2)=2
B(5,5)=3
B(8,8)=4
REM ύX\ďI
PATTERN B,0,0,0,16,16,1
KEYWAIT
END

(Tv 2)
REM 944BASIC 'POINTPATTERN'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP 'F1:\944BASIC\9B_REF.BMP',0,0
COLORFG 0,0,0:COLORBG 255,255,255
CLS: FONT 64
DIM B(11,11)
A=''
LOCATE 0,0:PRINT A
FOR I=0 TO 11
 FOR J=0 TO 11
  IF POINT(J,I)=65535 THEN B(J,I)=3 ELSE B(J,I)=0
 NEXT J
NEXT I
PATTERN B,24,24,0,16,16,0
KEYWAIT



SPSEARCH
 c XvCǧ [摜\(֐)] 


 @@ 
SPSEARCH(X,Y,Jn,I)
 X: XvCg擾XW
 Y: XvCg擾YW
 Jn: XvCgԍ̊Jn͈
 I: XvCgԍ̏I͈ 

 @@ 
w肵W (X,Y) ɑ݂XvCgԍĕԂ܂B
XvCgԍ͈̔͂w肷ɂ́AJnAIɃXvCgԍw肵܂B

 ӎ 
w肵WʒuɃXvCg݂Ȃꍇ́A-1Ԃ܂B

w肵Wʒuɕ̃XvCgdȂĂꍇ́AԏXvCgԍԂ܂B

 ֘A 
SPRITEASPCOLLISION

 Tv 
REM 944BASIC 'SPSEARCH Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
X=RNDRG(50,190):Y=RNDRG(50,190)
SPRITE 1,1,1, X,Y, 0,16, 48,48, 1,1
COLORBG 0,0,0: CLS
REFRESH 0,0,0,0,240,240
MESSAGE '^b`!'
*LOOP SYNC
IFBLK SPSEARCH(PENX,PENY,1,1)=1
 FOR I=1 TO 20
  R=1-I/20: IF I%2 THEN R=R*(-1)
  SPRITE 1,1,5, X+24,Y+24, 0,16,48,48,R,1-I/20:REM ײĂ̒S=\ʒu
  REFRESH 0,0,0,0,240,240
 NEXT I
 MESSAGE 'k/]̉p':END
ENDIF
GOTO *LOOP



SPCOLLISION
 c XvCgՓˌ [摜\(֐)] 


 @@ 
SPCOLLISION(茳,Jn,I)
 茳: Փ˂Ă邩ǂ𔻒肷XvCg̔ԍ
 Jn: Փ˂𔻒肷XvCgԍ̊Jn͈
 I: Փ˂𔻒肷XvCgԍ̏I͈ 

 @@ 
茳̃XvCgɏdȂĂXvCgԍԂ܂BdȂĂȂꍇ́A-1Ԃ܂B
Jn`IɎw肵͈͂̃XvCgԍɑ΂Ĕs܂B

 ӎ 
茳̃XvCgɕ̃XvCgdȂĂꍇ́AԏXvCgԍԂ܂B

 ֘A 
SPRITEASPSEARCH

 Tv 
REM 944BASIC 'SPCOLLISION Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP'
COLORBG 0,0,0:CLS
FOR I=100 TO 160
 X=(RND+TIME)%220:Y=(RND+TIME)%220
 N=(RND+TIME)%6
 SPRITE I,I,1, X,Y, N*16,0, 16,16
NEXT I
MESSAGE 'y𓮂Ă'
FONT 48+1:COLORFG 255,255,255
*LOOP SYNC
 X=PENX:Y=PENY
 SPRITE 1,1,1,X-12,Y-12,96,3,16,10
 IF SPCOLLISION(1,100,160)<>(-1) THEN GCURSOR X-36,Y-24: PRINT 'Ooops!'
 REFRESH 0,0,0,0,240,240
GOTO *LOOP






  UI 





INPUT
 c ̓ [UI] 


 @@ 
INPUT ϐ,,^Cv
 ϐ: ͓eϐ
 : ͉\ȕ()
 ^Cv: L[{[h̎() 

 @@ 
L[{[h當͂A̕ϐɊi[܂B
ɂ͔pŃJEglw肵܂B
^Cv0`7̐lw肷ƁAL[{[h̕wł܂B
 0: 
 1: Ђ炪
 2: J^Ji
 3: p
 4: 
 5: SpL
 6: pL
 7: GL
0()w肷ƁAL[{[h͑̕O̐ݒp܂B

͈ʒuɂ͐ԂJ[\\A[]L[ƂŃL[{[hőł񂾕ϐɑ܂BJ[\̕\ʒúALOCATEAGCURSORŎwł܂B

INPUTŎgpϐɂłɒlĂꍇ́A̒l͈ʒuɕ\܂B͈ʒuɉ\Ȃ悤ɂɂ́AOɂ̕ϐ(󕶎 '' Ȃ)Kv܂B

 ӎ 
͂񂪁AINPUTɎw肵𒴂ꍇAȍ~͐̕؂̂Ă܂B

͌ñR}h́AƂāA}`Xe[ggł͎gpł܂B

 ֘A 


 Tv 
REM 944BASIC 'INPUTTv'
INPUT A,10,1
MESSAGE A

INPUT A,10,1 : REM O͂ec
MESSAGE A

A=''  : REM ϐ
INPUT A,10,1 : REM ܂ȏԂœ
MESSAGE A
END



KEYWAIT
 c CӃL[̓͑҂ [UI] 


 @@ 
KEYWAIT 

 @@ 
Cӂ̃L[܂ŃvO~܂B

vOIɉʂȂ悤ɑҋ@ꍇAfobOɃvOꎞ~ꍇȂǂɎgpł܂B

 ӎ 
͌ñR}h́AƂāA}`Xe[ggł͎gpł܂B

 ֘A 


 Tv 
REM 944BASIC 'KEYWAITTv'
A='ɂ́I (EEEL[Ă)'
PRINT A
KEYWAIT
A='Aɂ́I'
PRINT A
KEYWAIT
END



MENU
 c j[̕\ [UI] 


 @@ 
MENU z,ڐ,ڔԍ
 z: 1z̕ϐ̂
 ڐ: j[̍ڐ
 ڔԍ: \̍ڔԍ 

 @@ 
1z̓eA[U[L[y͂Őł郁j[\AʂMENUNOɃZbg܂B

j[̕\ʒúALOCATEAGCURSORŎwł܂B

 ӎ 
ڔԍ́Aԏォ0JnԍƂȂ܂B
܂MENUNOɃZbgl0ƂȂ܂B

͌ñR}h́AƂāA}`Xe[ggł͎gpł܂B

 ֘A 
MENUNO

 Tv 
REM 944BASIC 'MENU Tv'
DIM M(1)='0:͂','1:'
MENU M,2,0
NO=MENUNO
PRINT NO
KEYWAIT



MENUNO
 c j[̍ڔԍ̎擾 [UI(֐)] 


 @@ 
MENUNO 

 @@ 
MENUsɁAIꂽڔԍԂ܂

 ӎ 
MENUNOɃZbgl͏ォ0ƂȂ܂B

͌ñR}h́AƂāA}`Xe[ggł͎gpł܂B

 ֘A 
MENU

 Tv 
REM 944BASIC 'MENU Tv'
DIM M(1)='0:͂','1:'
MENU M,2,0
NO=MENUNO
PRINT NO
KEYWAIT



MESSAGE
 c ̃|bvAbv\ [UI] 


 @@ 
MESSAGE 
 : \郁bZ[W 

 @@ 
ʏɃ|bvAbvŕ\܂B

 ӎ 
ZAURUSSZAB̐ɂA\ƃZbgv\܂B
܂A\镶񂪒ZꍇA{^\Ȃ\܂B

bZ[W\ĂԂł́A[߂]L[A[f]L[ŃvOI邱Ƃł܂B

 ֘A 
YESNO

 Tv 
REM 944BASIC 'MESSAGE Tv'
MESSAGE 'MESSAGÉAbZ[W\̂͂łA'
MESSAGE 'ꎞIɏ̗~߂A'
MESSAGE 'ϐ̒l\肷邱ƂŁAfobO̖ɂ܂B'
MESSAGE 'Ƃ΁AA=(RND+TIME)%7̒lmF΁AvO̓r MESSAGE AƂ悢킯łˁB'
A=(RND+TIME)%7
MESSAGE A
MESSAGE 'EEEȕɕ\킯łBA[v̓rŉɎgƃvO𒆒fłȂȂ̂ŒӂKvłB       [I]'
END



YESNO
 c ͂AmF擾 [UI(֐)] 


 @@ 
YESNO()
 : \郁bZ[W
 

 @@ 
w肵ƁA[͂]A[]2̃{^\A[g{bNX\܂B[͂]ƁA1 Ԃ܂B[]ƁA0Ԃ܂B

 ӎ 


 ֘A 
MESSAGE

 Tv 
REM 944BASIC 'YESNO Tv'
YN=YESNO('vOJn܂B낵łH')
IF YN=0 THEN END
*START
FOR I=0 TO 255
 SYNC
 C=255-I
 COLORFG C,C,C
 FONT 96+1
 GCURSOR 80,40: PRINT ''
 GCURSOR 81,40: PRINT ''
NEXT I
YN=YESNO('񌩂܂H')
IF YN THEN GOTO *START
PRINT 'PUSH KEY'
KEYWAIT
END



INKEY
 c 1L[ [UI(֐)] 


 @@ 
INKEY 

 @@ 
1̃L[͒l擾܂B

l10ilŕԂ܂BL[͂̂ȂԂł́A0Ԃ܂B

 ӎ 
̊֐͎̒Ŏgp܂Bϐ̂悤ɒl͑ł܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADY

 Tv 
(Tv 1)
REM 944BASIC 'L[͒l̒l\'
*LOOP
 SYNC
 K=INKEY
 LOCATE 3,10
 PRINT '     '
 LOCATE 3,10
 PRINT K
 WAIT 3
GOTO *LOOP

(Tv 2)
REM 944BASIC 'INKEY Tv2'
HEADER 'INKEY Tv - PUSH KEY'
DIM A(25)
B='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FOR I=0 TO 25
 A(I)=MID(B,I+1,1)
NEXT I
Y=2:LOCATE 0,Y
*LOOP SYNC
 K=INKEY
 IF (K>=65)*(K<=25+65) THEN PRINT A(K-65);
 IF (K=13) THEN Y=Y+1:LOCATE 0,Y
GOTO *LOOP



PADA
 c L[̓ [UI(֐)] 


 @@ 
PADA 

 @@ 
L[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
Ăꍇ1Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADBAPADCAPADXAPADYAPADONAAPADONBAPADONCAPADONXAPADONY

 Tv 
REM 944BASIC 'L[̓͏ԕ\(PADA)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADA THEN PRINT 'ON ' ELSE PRINT 'OFF'
GOTO *LOOP



PADB
 c tL[̓ [UI(֐)] 


 @@ 
PADB 

 @@ 
tL[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
Ăꍇ1Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

tL[̂Ȃꕔ̋@ł́ÃR}h͎gpł܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADCAPADXAPADYAPADONAAPADONBAPADONCAPADONXAPADONY

 Tv 
REM 944BASIC 'tL[̓͏ԕ\(PADB)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADB THEN PRINT 'ON ' ELSE PRINT 'OFF'
GOTO *LOOP



PADC
 c L[̓ [UI(֐)] 


 @@ 
PADC 

 @@ 
L[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
Ăꍇ1Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

L[̂Ȃꕔ̋@ł́ÃR}h͎gpł܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADXAPADYAPADONAAPADONBAPADONCAPADONXAPADONY

 Tv 
REM 944BASIC 'L[̓͏ԕ\(PADC)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADC THEN PRINT 'ON ' ELSE PRINT 'OFF'
GOTO *LOOP



PADX
 c EXN[L[̓ [UI(֐)] 


 @@ 
PADX 

 @@ 
EL[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
EL[Ăꍇ1Ԃ܂B
L[Ăꍇ-1Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADYAPADONAAPADONBAPADONCAPADONXAPADONY

 Tv 
(Tv 1)
REM 944BASIC 'EL[̓͏ԕ\(PADX)'
X=0
*LOOP
  SYNC
  X=X+PADX
  LOCATE 0,0
  PRINT X;
  PRINT '  '
GOTO *LOOP

(Tv 2)
REM 944BASIC 'L[̐'
X=14:Y=6
*LOOP SYNC
  LOCATE X,Y-1:PRINT ''
  LOCATE X-2,Y:PRINT '@'
  LOCATE X,Y+1:PRINT ''
  LOCATE X,Y:PRINT ''
  IF PADX THEN LOCATE X+PADX*2,Y:PRINT '': LOCATE X,Y: PRINT '@'
  IF PADY THEN LOCATE X,Y+PADY:PRINT '': LOCATE X,Y: PRINT '@'
  WAIT 1
GOTO *LOOP



PADY
 c ㉺XN[L[̓ [UI(֐)] 


 @@ 
PADY 

 @@ 
㉺L[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
L[Ăꍇ1Ԃ܂B
L[Ăꍇ-1Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADONAAPADONBAPADONCAPADONXAPADONY

 Tv 
(Tv 1)
REM 944BASIC '㉺L[̓͏ԕ\(PADY)'
Y=0
*LOOP
  SYNC
  Y=Y+PADY
  LOCATE 0,0
  PRINT Y;
  PRINT '  '
GOTO *LOOP

(Tv 2)
REM 944BASIC 'L[̐'
X=14:Y=6
*LOOP SYNC
  LOCATE X,Y-1:PRINT ''
  LOCATE X-2,Y:PRINT '@'
  LOCATE X,Y+1:PRINT ''
  LOCATE X,Y:PRINT ''
  IF PADX THEN LOCATE X+PADX*2,Y:PRINT '': LOCATE X,Y: PRINT '@'
  IF PADY THEN LOCATE X,Y+PADY:PRINT '': LOCATE X,Y: PRINT '@'
  WAIT 1
GOTO *LOOP



PADONA
 c L[̃I [UI(֐)] 


 @@ 
PADONA 

 @@ 
L[̃I͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
ꂽ1Ԃ܂B
ꍇ0Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADYAPADONBAPADONCAPADONXAPADONY

 Tv 
REM 944BASIC 'L[̃I͏ԕ\(PADONA)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADONA THEN PRINT 'ON ' ELSE PRINT OFF'
GOTO *LOOP



PADONB
 c tL[̃I [UI(֐)] 


 @@ 
PADONB 

 @@ 
tL[̃I͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
ꂽ1Ԃ܂B
ꍇ0Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

tL[̂Ȃꕔ̋@ł́ÃR}h͎gpł܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADYAPADONAAPADONCAPADONXAPADONY

 Tv 
REM 944BASIC 'tL[̓͏ԕ\(PADONB)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADONB THEN PRINT 'ON ' ELSE PRINT OFF'
GOTO *LOOP



PADONC
 c L[̃I [UI(֐)] 


 @@ 
PADONC 

 @@ 
L[̃I͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
ꂽ1Ԃ܂B
ꍇ0Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

L[̂Ȃꕔ̋@ł́ÃR}h͎gpł܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADYAPADONAAPADONBAPADONXAPADONY

 Tv 
REM 944BASIC 'L[̓͏ԕ\(PADONC)'
*LOOP
  SYNC
  LOCATE 0,0
  IF PADONC THEN PRINT 'ON ' ELSE PRINT OFF'
GOTO *LOOP



PADONX
 c EXN[L[̃I [UI(֐)] 


 @@ 
PADONX 

 @@ 
EL[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
ꂽ1Ԃ܂B
ꍇ0Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADYAPADONAAPADONBAPADONCAPADONY

 Tv 
REM 944BASIC 'EL[̓͏ԕ\(PADONX)'
X=0
*LOOP
  SYNC
  X=X+PADONX
  LOCATE 0,0
  PRINT X;
  PRINT '  '
GOTO *LOOP



PADONY
 c ㉺XN[L[̃I [UI(֐)] 


 @@ 
PADONY 

 @@ 
㉺L[̓͏ԂԂ܂B
ĂȂꍇ0Ԃ܂B
ꂽ1Ԃ܂B
ꍇ0Ԃ܂B

 ӎ 
̊֐̓A^CL[͂ŒlԂ܂B

JԂŎgpꍇ́AOSYNCsĂB

 ֘A 
SYNCAPADAAPADBAPADCAPADXAPADYAPADONAAPADONBAPADONCAPADONX

 Tv 
REM 944BASIC '㉺L[̓͏ԕ\(PADONY)'
Y=0
*LOOP
  SYNC
  Y=Y+PADONY
  LOCATE 0,0
  PRINT Y;
  PRINT '  '
GOTO *LOOP



PEN
 c y͂̏Ԃ̎擾 [UI(֐)] 


 @@ 
PEN 

 @@ 
̐lŁAy̓͏ԂԂ܂B
 0: y͉Ă܂B
 1: yn߂܂B
 2: yĂ܂B
 3: y܂B

 ӎ 
y͂Fł悤ɂɂ́AOSYNCsĂKv܂B

y^b`ĂĂAPEN0Ԃꍇ܂B́Aʂ̃CxgM邽߂̎dlłB
ɂ́AEVENTNOgpāAyCxĝݔF悤ɂ܂(Tv 2Q)B

 ֘A 
SYNCAPENXAPENYAPENVAPENW

 Tv 
(Tv 1)
REM 944BASIC 'PENTv'
HEADER '  PEN֐̒l\'
*LOOP SYNC
 P=PEN
 LOCATE 10,10:PRINT P
 WAIT 2
GOTO *LOOP

(Tv 2)
REM 944BASIC 'PEN Tv2 - 0oȂ'
REM y Cxg160,161,162ȊO𖳌ɂ
EVENT 100,159,0
EVENT 163,999,0
*LOOP SYNC
 P=PEN
 LOCATE 10,10: PRINT P
 WAIT 1
GOTO *LOOP



PENX
 c y͂XW̎擾 [UI(֐)] 


 @@ 
PENX 

 @@ 
y͂ĂXWԂ܂B

 ӎ 
ԂẂA944BASICEChEォ̑ΈʒułB

y͂Fł悤ɂɂ́AOSYNCsĂKv܂B

 ֘A 
SYNCAPENAPENYAPENVAPENW

 Tv 
REM 944BASIC 'PENX,PENYTv'
*LOOP SYNC
HEADER '  ݈ʒu̍W(X:Y)\'
 GCURSOR OPX-12,OPY-12:PRINT '@'
 PX=PENX: PY=PENY
 OPX=PX:OPY=PY
 GCURSOR PX-12,PY-12: PRINT ''
 PX=STR(PX): PY=STR(PY)
 S=STRCAT(PX,':',PY)
 LOCATE 10,10:PRINT '          '
 LOCATE 10,10:PRINT S
GOTO *LOOP



PENY
 c y͂YW̎擾 [UI(֐)] 


 @@ 
PENY 

 @@ 
y͂ĂYWԂ܂B

 ӎ 
ԂẂA944BASICEChEォ̑ΈʒułB

y͂Fł悤ɂɂ́AOSYNCsĂKv܂B

 ֘A 
SYNCAPENAPENXAPENVAPENW

 Tv 
REM 944BASIC 'PENX,PENYTv'
*LOOP SYNC
HEADER '  ݈ʒu̍W(X:Y)\'
 GCURSOR OPX-12,OPY-12:PRINT '@'
 PX=PENX: PY=PENY
 OPX=PX:OPY=PY
 GCURSOR PX-12,PY-12: PRINT ''
 PX=STR(PX): PY=STR(PY)
 S=STRCAT(PX,':',PY)
 LOCATE 10,10:PRINT '          '
 LOCATE 10,10:PRINT S
GOTO *LOOP



PENV
 c y͂̐XW̎擾 [UI(֐)] 


 @@ 
PENV 

 @@ 
y͂ĂXWԂ܂B

 ӎ 
ԂẂAʍォ̐ΈʒułB

y͂Fł悤ɂɂ́AOSYNCsĂKv܂B

 ֘A 
SYNCAPENAPENXAPENYAPENW

 Tv 
REM 944BASIC 'PENV,PENWTv'
SCREEN 20,20,160,80:EVENT 100,999,1
*LOOP SYNC
 HEADER 'PENV:PENW̒l\'
 PV=PENV: PW=PENW
 PV=STR(PV): PW=STR(PW)
 S=STRCAT(PV,':',PW)
 LOCATE 3,2:PRINT '          '
 LOCATE 3,2:PRINT S
GOTO *LOOP



PENW
 c y͂̐YW̎擾 [UI(֐)] 


 @@ 
PENW 

 @@ 
y͂ĂYWԂ܂B

 ӎ 
ԂẂAʍォ̐ΈʒułB

y͂Fł悤ɂɂ́AOSYNCsĂKv܂B

 ֘A 
SYNCAPENAPENXAPENYAPENV

 Tv 
REM 944BASIC 'PENV,PENWTv'
SCREEN 20,20,160,80:EVENT 100,999,1
*LOOP SYNC
 HEADER 'PENV:PENW̒l\'
 PV=PENV: PW=PENW
 PV=STR(PV): PW=STR(PW)
 S=STRCAT(PV,':',PW)
 LOCATE 3,2:PRINT '          '
 LOCATE 3,2:PRINT S
GOTO *LOOP






   





DATE
 c ̓t̎擾 [(֐)] 


 @@ 
DATE 

 @@ 
̓t擾܂B
l͐lŁAYYYYMMDĎ`ŕԂ܂B(: 20020904)

 ӎ 
NʂɎgp@́ATvQlɂĂB

 ֘A 
TIME

 Tv 
REM 944BASIC '̔NAA̕\'
YYYY=INT(DATE/10000)
PRINT YYYY
MM=INT(DATE/100)%100
PRINT MM
DD=DATE%100
PRINT DD
KEYWAIT
END



TIME
 c ݂̎̎擾 [(֐)] 


 @@ 
TIME 

 @@ 
݂̎擾܂B
l͐̒lAHHMMSŠ`ŕԂ܂B(: 230944)

 ӎ 
bʂɎgp@́ATvQlɂĂB

 ֘A 
DATE

 Tv 
(Tv 1)
REM 944BASIC '݂̎AAb̕\'
HH=INT(TIME/10000)
PRINT HH
MM=INT(TIME/100)%100
PRINT MM
SS=TIME%100
PRINT SS
KEYWAIT
END

(Tv 2)
REM 944BASIC '풓av'
SCREEN 220,160,16,80
EVENT 100,999,1: FONT 48
DIM D(5)
DIM K(9)='Z','','','O','l','','Z','','',''
*LOOP SYNC
 BOX 0,0,15,79:BOX 1,1,14,78
 T=TIME
 D(0)=INT(T/100000),INT(T/10000)%10,'',INT(T/1000)%10,INT(T/100)%10,''
 FOR I=0 TO 5
  GCURSOR 4,3+12*I
  IF (I=2)+(I=5) THEN PRINT D(I) ELSE  PRINT K(D(I))
 NEXT I
GOTO *LOOP



GETMONTH
 c w肵ť̓Zo [(֐)] 


 @@ 
GETMONTH(t)
 t: YYYYMMDDAYYYYMMAMM ̂ꂩ̌`Őlw 

 @@ 
w肵ť̓Ԃ܂B
t́AYYYYMMDDAYYYYMMAMM̂ꂩ̌`Őlw肵܂B

2̓́A邤N𐳂肵ēԂ܂BAMMw肵ꍇ́ANɂ邤邤N肪łȂ߁A29Ԃ܂B

 ӎ 


 ֘A 


 Tv 
(Tv 1)
REM 944BASIC 'GETMONTHTv'
*START
CLS: LOCATE 0,0: Y=''
PRINT '邤N𔻒肵܂B'
PRINT '(4)ŔN͂ĂB'
INPUT Y,4,4
M=STRCAT(Y,'02'): REM +02
M=GETMONTH(M): REM 擾
IF M>28 THEN PRINT '邤Nł' ELSE PRINT '邤Nł͂܂B'
KEYWAIT
GOTO *START

(Tv 2)
REM 944BASIC '̃J_['
DIM WK(6)='Su','Mo','Tu','We','Th','Fr','Sa': REM j\p
D=DATE:DD=D%100: REM t擾
YY=INT(D/10000):MM=INT(D/100)%100
DW=GETWEEK(D-DD+1,0):REM 1̗j
W=32:W2=W/2:REM W=\Ԋu,W2=]
X=W*(DW+1)-W2:Y=44:FONT 80
FOR I=1 TO GETMONTH(D)
 IF X>W*7 THEN X=W-W2:Y=Y+W+5
 GCURSOR X,20: PRINT WK((I+1)%7)
 IF I<10 THEN GCURSOR X+4,Y ELSE GCURSOR X,Y: REM 1̈ʒu
 PRINT I: X=X+W :REM \
NEXT I
MM=STRCAT("-  ",YY,'. ',MM,'.  -')
GCURSOR W*7*(W/100),4: PRINT MM
KEYWAIT



GETDATE
 c w肵tɓ𑝌tZo [(֐)] 


 @@ 
GETDATE(t,)
 t: YYYYMMDD`̐l
 : l 

 @@ 
w肵tɁA𑝌tԂ܂BA邤Ȃǂ܂B

t́AYYYYMMDĎ`Őlw肵܂B

 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'GETDATE Tv'
D=DATE
FOR I=0 TO 7
 IF I=0 THEN COLORFG 255,0,0 ELSE COLORFG 0,0,0
 DS=GETDATE(D,I)
 LOCATE 4,10+I: GOSUB *DATESTR
 DS=GETDATE(D,I*(-1))
 LOCATE 4,10-I: GOSUB *DATESTR
NEXT I
KEYWAIT
END
*DATESTR
 YY=LEFT(DS,4):MM=MID(DS,5,2):DD=MID(DS,7,2):W=GETWEEK(DS,2)
 DS=STRCAT(YY,'N',MM,'',DD,'',W)
 PRINT DS
RETURN



GETDATEDIF
 c t1Ɠt2̓Zo [(֐)] 


 @@ 
GETDATEDIF(t1,t2)
 t1: YYYYMMDD`̐l
 t2: YYYYMMDD`̐l 

 @@ 
t1Ɠt2̓Zo܂BA邤Ȃǂ܂B

t́AYYYYMMDĎ`Őlw肵܂B

 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'GETDATEDIF'
PRINT 'N_ɓZo܂'
PRINT 'N͂Ă'
PRINT 'N: ';
INPUT Y, 4, 4
PRINT ': ';
INPUT M, 2, 4
PRINT ': ';
INPUT D, 2, 4
IF LEN(M)=1 THEN M=STRCAT('0',M)
IF LEN(D)=1 THEN D=STRCAT('0',D)
D1=STRCAT(Y,M,D): D2=DATE
DIF=GETDATEDIF(D1,D2):REM Zo
MES=STRCAT(Y,'/',M,'/',D)
PRINT MES;:PRINT '獡܂ ';:PRINT DIF;:PRINT ' '
KEYWAIT
END



GETWEEK
 c tɑ΂j擾 [(֐)] 


 @@ 
GETWEEK(t,^Cv)
 t: YYYYMMDD`̐l
 ^Cv: 0`5̐l 

 @@ 
w肵t̗jԂ܂Bt́AYYYYMMDĎ`Őlw肵܂B

^CvɎw肵lɂāAԂlقȂ܂B

 0 - j\l(0`6=`y)
 1 - 1
 2 - ()t1
 3 - +"j"
 4 - pꓪ3
 5 - ptXy

 ӎ 
݂Ȃt(: 20020931)͎w肵ȂłB

݂Ȃtw肵ꍇ́A0ɑlԂ܂(ۂɕԂĺAw肵^CvɂĈقȂ܂)B

 ֘A 


 Tv 
(Tv 1)
REM 944BASIC 'GETWEEKTv'
*START
CLS: LOCATE 0,0: Y='': M='': D=''
PRINT 'ŔN͂Ă'
INPUT Y,4,4
PRINT '͂Ă'
INPUT M,2,4
PRINT '͂Ă'
INPUT D,2,4
REM 1̏ꍇA0t
IF LEN(M)=1 THEN M=STRCAT('0',M)
IF LEN(D)=1 THEN D=STRCAT('0',D)
A=STRCAT(Y,M,D)
W=GETWEEK(A,3) :REM j擾
PRINT W
KEYWAIT
GOTO *START

(Tv 2)
REM 944BASIC '̃J_['
DIM WK(6)='Su','Mo','Tu','We','Th','Fr','Sa': REM j\p
D=DATE:DD=D%100: REM t擾
YY=INT(D/10000):MM=INT(D/100)%100
DW=GETWEEK(D-DD+1,0):REM 1̗j
W=32:W2=W/2:REM W=\Ԋu,W2=]
X=W*(DW+1)-W2:Y=44:FONT 80
FOR I=1 TO GETMONTH(D)
 IF X>W*7 THEN X=W-W2:Y=Y+W+5
 GCURSOR X,20: PRINT WK((I+1)%7)
 IF I<10 THEN GCURSOR X+4,Y ELSE GCURSOR X,Y: REM 1̈ʒu
 PRINT I: X=X+W :REM \
NEXT I
MM=STRCAT("-  ",YY,'. ',MM,'.  -')
GCURSOR W*7*(W/100),4: PRINT MM
KEYWAIT






  l 





INT
 c l𐮐ɕϊ [l(֐)] 


 @@ 
INT()
 : Cӂ̐l܂͐ 

 @@ 
̒l𐮐ɂ܂B
_ȉ̒l͐؂̂Ă܂B

 ӎ 


 ֘A 
ABSASGN

 Tv 
REM 944BASIC 'INT  PI ̃Tv'
A=INT(PI)
B=INT(PI*100)/100
B=STR(B):B=LEFT(B,4)
PRINT 'INT  PI ̃Tv'
LOCATE 0,2
PRINT 'Ȃ͉~A ';
PRINT A;
PRINT ' ƏK܂H'
PRINT 'ƂA';
PRINT B;
PRINT ' ƏK܂H'
PRINT 'Ȃ݂9Bł́API=';
A=PI:PRINT A;
PRINT ' Ԃ܂B'
KEYWAIT



SGN
 c ̎Zo [l(֐)] 


 @@ 
SGN()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂镄A̒lŕԂ܂B
-1: l}CiX
 0: l0
 1: lvX

 ӎ 


 ֘A 
INTAABS

 Tv 
REM 944BASIC 'SGNTv'
RANDOMIZE TIME
DIM S(2)='','0',''
FOR I=2 TO 11
 A=RNDRG(-9,9)
 B=SGN(A)+1
 LOCATE 3,I
 PRINT A;
 PRINT ' --> ';
 PRINT S(B)
NEXT I
KEYWAIT
END



HEX
 c ɑ΂16i̕擾 [l(֐)] 


 @@ 
HEX()
 : Cӂ̐l܂͐ 

 @@ 
̒l(l)ɑ΂āA16i\Ԃ܂B

 ӎ 
ԂĺAłB̂܂܂ł͐lƂĉZ邱Ƃ͂łȂ߁AӂKvłB

16i10iɕϊɂ́AHEXTODECgp܂B

16i\߂ɂق̃vOŎgpL(0xA&HȂ)͕t܂(9Bł͈Ӗ܂)B

 ֘A 
HEXTODEC

 Tv 
REM 944BASIC 'ASC/CHR,HEX/HEXTODEC'
*START
CLS: LOCATE 0,0: A=''
PRINT '1͂Ă'
INPUT A,2,0
A=ASC(A) :REM R[h擾
PRINT 'LN^R[h(10i)=';
PRINT A
A=HEX(A) :REM l16i
AA=STRCAT('0x',A) :REM 0xt
PRINT 'LN^R[h(16i)=';
PRINT AA
A=HEXTODEC(A) :REM 16il10i
A=CHR(A):REM ނ當
PRINT '͂=';: PRINT A
KEYWAIT
GOTO *START



HEXTODEC
 c 16i̕10iɕϊ [l(֐)] 


 @@ 
HEXTODEC()
 : 16i\ 

 @@ 
16i\A10i̐lɕϊ܂B

 ӎ 
w肷l͕łB

16i\߂ɂق̃vOŎgpL(0xA&HȂ)͎gpȂł(9Bł͈Ӗ܂)B

 ֘A 
HEX

 Tv 
REM 944BASIC 'ASC/CHR,HEX/HEXTODEC'
*START
CLS: LOCATE 0,0: A=''
PRINT '1͂Ă'
INPUT A,2,0
A=ASC(A) :REM R[h擾
PRINT 'LN^R[h(10i)=';
PRINT A
A=HEX(A) :REM l16i
AA=STRCAT('0x',A) :REM 0xt
PRINT 'LN^R[h(16i)=';
PRINT AA
A=HEXTODEC(A) :REM 16il10i
A=CHR(A):REM ނ當
PRINT '͂=';: PRINT A
KEYWAIT
GOTO *START



ABS
 c Βl̎Zo [l(֐)] 


 @@ 
ABS()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂ΒlԂ܂B

 ӎ 


 ֘A 
INTASGN

 Tv 
REM 944BASIC 'ABS Tv'
PRINT '(-9`-1)̐Βl\'
REM _V[h
T=TIME%20
FOR I=1 TO T
 A=RNDRG(-9,-1)
NEXT I
LOCATE 1,2
PRINT 'A=';
PRINT A
LOCATE 1,4
PRINT 'ABS(A)=';
A=ABS(A)
PRINT A
KEYWAIT



RND
 c l̎擾 [l(֐)] 


 @@ 
RND 

 @@ 
065535܂ł̗̐𔭐܂B

ʏ́A
 R=RND%10+1
̂悤Ɏgp܂B̗ł́A1`10̗܂B

 ӎ 
̔͌Œ肳Ă܂B
̔sKɂɂ́ARANDOMIZEɎԂsKw肷邩AݎȂǂ𗘗pĕsRNDsȂǂĂB

 ֘A 
RNDRGARANDOMIZE

 Tv 
REM 944BASIC 'RND Tv'
COLORBG 0,0,0:COLORFG 0,255,0
FONT 48:CLS
REM q(lXg)\
FOR I=0 TO 31
 A=''
 FOR J=0 TO 59
  REM RNDł́ȀԂŒ肳̂ŁATIME𑫂āAsK
  R=RND+TIME%10:R=STR(R)
  A=STRCAT(A,R)
 NEXT J
 PRINT A
NEXT I
KEYWAIT

(Tv 2)
REM 944BASIC 'RND Tv2'
REM _V[h - RNDs񐔌JԂāAsK
FOR I=(TIME%60)
  R=RND
NEXT I
R=RND+TIME%20 :REM TIMEZāA藐x߂
FOR I=1 TO 20
 PRINT 'FOR ` NEXT ';
 PRINT I;
 PRINT ' '
 REM ϐ I IɏIlɂāA[v𔲂
 IF I=R THEN PRINT 'STOP': I=20
NEXT I
KEYWAIT
END



RNDRG
 c JnI͈͓̔擾 [l(֐)] 


 @@ 
RNDRG(Jn,I)
 Jn: ̊Jn͈
 I: ̏I͈ 

 @@ 
͈͓̗(l)擾܂B

 ӎ 
̔͌Œ肳Ă܂B
̔sKɂɂ́ARANDOMIZEɎԂsKw肷邩AݎȂǂ𗘗pĕsRNDRGsȂǂĂB

 ֘A 
RNDARANDOMIZE

 Tv 
REM 944BASIC 'RNDRG Tv'
PRINT '(-9`-1)̐Βl\'
REM _V[h
T=TIME%20
FOR I=1 TO T
 A=RNDRG(-9,-1)
NEXT I
LOCATE 1,2
PRINT '()A=';
PRINT A
LOCATE 1,4
PRINT 'ABS(A)=';
A=ABS(A)
PRINT A
KEYWAIT



RANDOMIZE
 c ̏lݒ [l] 


 @@ 
RANDOMIZE l
 l: l 

 @@ 
̂߂̏l(_V[h)ݒ肵܂B

vOŗgpۂ́AIɂ鐔ɗ񂪍쐬܂B̌ɂȂ鐔ύX邱ƂŁA̗\ɂʂ܂B

tɁAlŒ肵āAɌ܂p^[ŗ\邱Ƃł܂B

 ӎ 


 ֘A 
RNDARNDRG

 Tv 
REM 944BASIC 'RANDOMIZE Tv'
RANDOMIZE 1: REM 񓯂\
GOSUB *PRN
RANDOMIZE 1: REM 񓯂\
GOSUB *PRN
REM قȂ闐\
RANDOMIZE TIME
GOSUB *PRN
KEYWAIT
END
*PRN
 FOR I=0 TO 4
  R=RND: PRINT R
 NEXT I
 PRINT ' '
RETURN



PI
 c ~̎擾 [l(֐)] 


 @@ 
PI 

 @@ 
~3.1415926535897932Ԃ܂B

 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'INT  PI ̃Tv'
A=INT(PI)
B=INT(PI*100)/100
B=STR(B):B=LEFT(B,4)
PRINT 'INT  PI ̃Tv'
LOCATE 0,2
PRINT 'Ȃ͉~A ';
PRINT A;
PRINT ' ƏK܂H'
PRINT 'ƂA';
PRINT B;
PRINT ' ƏK܂H'
PRINT 'Ȃ݂9Bł́API=';
A=PI:PRINT A;
PRINT ' Ԃ܂B'
KEYWAIT



SIN
 c TCl̎Zo [l(֐)] 


 @@ 
SIN()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂TC()l߂܂B

 ӎ 


 ֘A 
COSATANASINAGACOSAGATANAGAATANAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'SIN Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=SIN(X/20)*120+OFFSET
 PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=SIN(X/20)*120+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT



COS
 c RTCl̎Zo [l(֐)] 


 @@ 
COS()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂RTCl߂܂B

 ӎ 


 ֘A 
SINATANASINAGACOSAGATANAGAATANAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'COS Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=COS(X/20)*120+OFFSET
 PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=COS(X/20)*120+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT




TAN
 c ^WFgl̎Zo [l(֐)] 


 @@ 
TAN()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂^WFgl߂܂B

 ӎ 


 ֘A 
SINACOSASINAGACOSAGATANAGAATANAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'TAN Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=TAN(X/40)*40+OFFSET
 PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=TAN(X/40)*40+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT




ATAN
 c A[N^WFgl̎Zo [l(֐)] 


 @@ 
ATAN()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂A[N^WFgl߂܂B

 ӎ 


 ֘A 
SINACOSATANASINAGACOSAGATANAGAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'ATAN Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=ATAN(X/40)*40+OFFSET
 PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=ATAN(X/40)*40+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT
END



ATAN2
 c A[N^WFgl̎Zo(Ww) [l(֐)] 


 @@ 
ATAN2(X,Y)
 X: XW
 Y: YW 

 @@ 
2̕ϐ(W)A[N^WFgl߂܂BԂl̓WAlłB

 ӎ 


 ֘A 
SINACOSATANASINAGACOSAGATANAGAATANAATANAGAATAN2AG

 Tv 
REM 944BASIC 'ATAN2 Tv'
X=90:Y=90:BX=30:BY=30:REM ʒu
MESSAGE 'L[Ł𓮂āI'
*LOOP SYNC
 X=X+PADX*3:Y=Y+PADY*3
 IF X<0 THEN X=239
 IF X>239 THEN X=0
 IF Y<0 THEN Y=239
 IF Y>239 THEN Y=0
 GCURSOR XO,YO:PRINT '@'
 GCURSOR X,Y:PRINT '':XO=X:YO=Y
 A=ATAN2(X-BX,Y-BY):REM px擾
 REM ATAN2̊pxWZo
 BX=BX+SIN(A)*4:BY=BY+COS(A)*4
 GCURSOR BXO,BYO:PRINT '@'
 GCURSOR BX,BY:PRINT ''
 BXO=BX:BYO=BY
GOTO *LOOP



SINAG
 c TCl̎Zo(pxw) [l(֐)] 


 @@ 
SINAG()
 :px 

 @@ 
̒lɑ΂TCl߂܂Bɂ͊pxw肵܂B

 ӎ 


 ֘A 
SINACOSATANACOSAGATANAGAATANAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'SINAG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP "9B_REF.BMP",0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=SINAG(X)*120+OFFSET: PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=SINAG(X)*120+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT




COSAG
 c RTCl̎Zo(pxw) [l(֐)] 


 @@ 
COSAG()
 :px 

 @@ 
̒lɑ΂RTCl߂܂Bɂ͊pxw肵܂B

 ӎ 


 ֘A 
SINACOSATANASINAGATANAG

 Tv 
REM 944BASIC 'COSAG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=COSAG(X)*120+OFFSET: PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=COSAG(X)*120+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT




TANAG
 c ^WFgl̎Zo(pxw) [l(֐)] 


 @@ 
TANAG()
 :px 

 @@ 
̒lɑ΂^WFgl߂܂Bɂ͊pxw肵܂B

 ӎ 


 ֘A 
SINACOSATANASINAGACOSAGAATANAATANAGAATAN2AATAN2AG

 Tv 
REM 944BASIC 'TANAG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255:CLS
OFFSET=120
FOR X=0 TO 240
 Y=TANAG(X)*60+OFFSET: PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 Y=TANAG(X)*60+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT




ATANAG
 c A[N^WFgl̎Zo(pxw) [l(֐)] 


 @@ 
ATANAG()
 :px 

 @@ 
̒lɑ΂A[N^WFgl߂܂Bɂ͊pxw肵܂B

 ӎ 


 ֘A 
SINACOSATANASINAGACOSAGATANAGAATANAATAN2AATAN2AG

 Tv 
REM 944BASIC 'ATANAG Tv'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
COLORBG 0,0,0:COLORFG 255,255,255
CLS:OFFSET=120
FOR X=0 TO 240
 XX=X-90: Y=ATANAG(XX)+OFFSET
 PSET X,Y
NEXT X
CLS
FOR X=0 TO 240
 X2=X-90: Y=ATANAG(X2)+OFFSET
 SPRITE 1,1,1, X,Y, 96,0, 16,16
 REFRESH XX,YY, XX,YY, 16,16
 REFRESH X,Y, X,Y, 16,16
 XX=X: YY=Y
NEXT X
KEYWAIT



ATAN2AG
 c A[N^WFgl̎Zo(WwApx) [l(֐)] 


 @@ 
ATAN2AG(X,Y)
 X: XW
 Y: YW 

 @@ 
2̕ϐ(W)A[N^WFgl߂܂BԂl͊pxłB

 ӎ 


 ֘A 
SINACOSATANASINAGACOSAGATANAGAATANAATANAGAATAN2

 Tv 
REM 944BASIC 'ATAN2AG Tv'
X=90:Y=90:BX=30:BY=30:REM ʒu
MESSAGE 'L[Ł𓮂āI'
*LOOP SYNC
 X=X+PADX*3:Y=Y+PADY*3
 IF X<0 THEN X=239
 IF X>239 THEN X=0
 IF Y<0 THEN Y=239
 IF Y>239 THEN Y=0
 GCURSOR XO,YO:PRINT '@'
 GCURSOR X,Y:PRINT '':XO=X:YO=Y
 A=ATAN2AG(X-BX,Y-BY):REM px擾
 REM ATAN2AG̊pxWZo
 BX=BX+SINAG(A)*4:BY=BY+COSAG(A)*4
 GCURSOR BXO,BYO:PRINT '@'
 GCURSOR BX,BY:PRINT ''
 BXO=BX:BYO=BY
GOTO *LOOP



SQR
 c (XNGAl)̎Zo [l(֐)] 


 @@ 
SQR()
 : Cӂ̐l܂͐ 

 @@ 
̒lɑ΂镽(XNGAl)߂܂B

 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'SQR Tv'
PRINT 'SQR͕i[gj߂֐łB'
PRINT ' '
FOR I=2 TO 9
 PRINT ' ';
 PRINT I;
 PRINT '=';
 A=SQR(I)
 PRINT A
NEXT I
KEYWAIT






  t@C 





LOADTEXT
 c eLXgǍ [t@C] 


 @@ 
LOADTEXT t@C,1z
 t@C: t@C
 1z: f[^i[pz 

 @@ 
OɎw肵1zɁAeLXgt@Clǂݍ݂܂B

1sŜ1̔zlɊi[܂B

 ӎ 
z1vfɓǂݍ߂镶́Aő255oCg܂łłB

t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

 ֘A 
LOADCSVASAVECSVASAVETEXTAGETDIRECTORYASETDIRECTORY

 Tv 
̃Tvł́AREF_SAMP.TXT Ƃt@C쐬܂BTvsÃt@C͍폜Ă܂܂B

REM 944BASIC 'SAVETEXT/LOADTEXT'
SETDIRECTORY 'F1:\944BASIC\'
YN=YESNO('REF_SAMP.TXT Ƃt@C쐬܂B낵łH')
IF YN=0 THEN END
DIM S(0)
S(0)='The quick brown fox jumped over the lazy dog.'
SAVETEXT 'REF_SAMP.TXT',S
MESSAGE 't@Cۑ܂'
MESSAGE 't@Cǂݍ݂܂'
DIM L(0)
LOADTEXT 'REF_SAMP.TXT',L
PRINT L(0)
KEYWAIT



LOADCSV
 c CSVǍ [t@C] 


 @@ 
LOADCSV t@C,2z
 t@C: t@C
 2z: f[^i[pz 

 @@ 
OɎw肵2zɁAJ}؂CSVt@Clǂݍ݂܂B

J}ŋ؂ꂽlƂɁAzlɊi[܂B

 ӎ 
z1vfɓǂݍ߂镶́Aő255oCg܂łłB

t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

 ֘A 
LOADTEXTASAVECSVASAVETEXTAGETDIRECTORYASETDIRECTORY

 Tv 
̃Tvł́AREF_SAMP.CSV Ƃt@C쐬܂BTvsÃt@C͍폜Ă܂܂B

REM 944BASIC 'SAVECSV/LOADCSV'
SETDIRECTORY 'F1:\944BASIC\'
YN=YESNO('REF_SAMP.CSV Ƃt@C쐬܂B낵łH')
IF YN=0 THEN END
DIM S(1,2)
S(0,0)='GIN','45200'
S(0,1)='FIZZ','31400'
S(0,2)='RUM','16900'
SAVECSV 'REF_SAMP.CSV',S
MESSAGE 't@Cۑ܂'
MESSAGE 't@Cǂݍ݂܂'
DIM L(1,2)
LOADCSV 'REF_SAMP.CSV',L
FOR I=0 TO 2
 ST=STRCAT(L(0,I),' - ',L(1,I))
 PRINT ST
NEXT I
KEYWAIT



SAVETEXT
 c eLXgփZ[u [t@C] 


 @@ 
SAVETEXT t@C,1z
 t@C: t@C
 1z: f[^i[ꂽz 

 @@ 
1z̒lAeLXgt@Cɏo܂B


 ӎ 
t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

 ֘A 
LOADCSVALOADTEXTASAVETEXTAGETDIRECTORYASETDIRECTORY

 Tv 
̃Tvł́AREF_SAMP.TXT Ƃt@C쐬܂BTvsÃt@C͍폜Ă܂܂B

REM 944BASIC 'SAVETEXT/LOADTEXT'
SETDIRECTORY 'F1:\944BASIC\'
YN=YESNO('REF_SAMP.TXT Ƃt@C쐬܂B낵łH')
IF YN=0 THEN END
DIM S(0)
S(0)='The quick brown fox jumped over the lazy dog.'
SAVETEXT 'REF_SAMP.TXT',S
MESSAGE 't@Cۑ܂'
MESSAGE 't@Cǂݍ݂܂'
DIM L(0)
LOADTEXT 'REF_SAMP.TXT',L
PRINT L(0)
KEYWAIT



SAVECSV
 c CSVփZ[u [t@C] 


 @@ 
SAVECSV t@C,2z
 t@C: t@C
 2z: f[^i[ꂽz 

 @@ 
2z̒lAJ}؂CSVt@Cɏo܂B


 ӎ 
t@ĆAfBNg(tH_)܂߂ɁAΎw肷邱Ƃł܂B

 ֘A 
LOADCSVALOADTEXTASAVECSVAGETDIRECTORYASETDIRECTORY

 Tv 
̃Tvł́AREF_SAMP.CSV Ƃt@C쐬܂BTvsÃt@C͍폜Ă܂܂B

REM 944BASIC 'SAVECSV/LOADCSV'
SETDIRECTORY 'F1:\944BASIC\'
YN=YESNO('REF_SAMP.CSV Ƃt@C쐬܂B낵łH')
IF YN=0 THEN END
DIM S(1,2)
S(0,0)='GIN','45200'
S(0,1)='FIZZ','31400'
S(0,2)='RUM','16900'
SAVECSV 'REF_SAMP.CSV',S
MESSAGE 't@Cۑ܂'
MESSAGE 't@Cǂݍ݂܂'
DIM L(1,2)
LOADCSV 'REF_SAMP.CSV',L
FOR I=0 TO 2
 ST=STRCAT(L(0,I),' - ',L(1,I))
 PRINT ST
NEXT I
KEYWAIT



FILESEARCH
 c p^[Ɉvt@C̎擾 [t@C(֐)] 


 @@ 
FILESEARCH p^[,z
 p^[: t@C𒊏o邽߂̃p^[()
 z: p^[Ɉvt@Ci[z 

 @@ 
݂̃fBNgŃp^[Ɉvt@CׂČAzɊi[܂B

p^[ɂ́AChJ[h(*)gpł܂B'*.*' Ǝw肷ƁAׂẴt@C܂B'*.BAS' Ǝw肷ƁAgq .BAS ̃t@Ĉ݌܂B

t@ĆA֐ GETREADCNT Ŏ擾ł܂B

 ӎ 


 ֘A 
LOADCSVALOADTEXTASAVETEXTASAVECSVASETDIRECTORYAGETDIRECTORYADIRSEARCHADIRMAKE

 Tv 
REM 944BASIC 'FILESEARCH/RUNTv'
DIM FILE(512)
SETDIRECTORY 'F1:\944BASIC\'
REM ̊gq.BAS̃t@CAzFILEɊi[
FILESEARCH '*.BAS',FILE
REM t@CGETREADCNTŎ擾
C=GETREADCNT
REM zFILE\[g
SORT FILE,0,C-1
REM j[\
MENU FILE,C,0
REM Iꂽ.BASt@Cs
RUN FILE(MENUNO)



FILECOPY
 c t@C̃Rs[ [t@C] 


 @@ 
FILECOPY t@C,t@C
 t@C: Rs[̃t@C()
 t@C: Rs[̃t@C() 

 @@ 
t@CRs[܂B

fBNgw肹At@Ĉݎw(Ύw)ꍇ́Ã݂fBNg̃t@CRs[̑ΏۂɂȂ܂B
ʂ̃fBNgɃt@CRs[ꍇ́AfBNg܂߂ăRs[̃t@CLq܂B

 ӎ 
ChJ[h͎gpł܂B܂ARs[ɃfBNĝ݂w肷邱Ƃ͂ł܂B
(DOSȂǂ̃Rs[R}hƂ͎gقȂ邽߁AӂKvł)B

t@CʂɁARs[AړA܂͍폜ꍇ́AOɃobȅԂmF悤ɃvOLq邱Ƃ߂܂ (t@C쒆ɓd؂ƁAt@CjȂǂ̕s\܂)B

 ֘A 
FILEMOVEAFILEDELETEAFILESEARCHASETDIRECTORYAGETDIRECTORYADIRSEARCHADIRMAKE

 Tv 
REM 944BASIC 'FILECOPY/FILEDELETE'
DIM A(0)='FILECOPY Tv'
MESSAGE '9B_REF.TMPƂt@C쐬܂'
SETDIRECTORY 'F1:\944BASIC\'
SAVETEXT '9B_REF.TMP',A
FILECOPY '9B_REF.TMP','F0:\9B_REF.TMP'
MESSAGE 'F0:\9B_REF.TMPƂt@CRs[܂'
DIM B(0)
LOADTEXT 'F0:\9B_REF.TMP',B
MES=STRCAT('F0:\9B_REF.TMP=',B(0))
MESSAGE MES
MESSAGE '9B_REF.TMP폜܂B'
FILEDELETE '9B_REF.TMP'
FILEDELETE 'F0:\9B_REF.TMP'
MESSAGE 'I܂B'



FILEMOVE
 c t@C̈ړ [t@C] 


 @@ 
FILEMOVE t@C,t@C
 t@C: ړ̃t@C()
 t@C: ړ̃t@C() 

 @@ 
t@Cړ܂B

fBNgw肹At@Ĉݎw(Ύw)ꍇ́Ã݂fBNg̃t@Cړ̑ΏۂɂȂ܂B
ʂ̃fBNgɃt@Cړꍇ́AfBNg܂߂Ĉړ̃t@CLq܂B

 ӎ 
ChJ[h͎gpł܂B܂AړɃfBNĝ݂w肷邱Ƃ͂ł܂B
(DOSȂǂ̃Rs[/ړR}hƂ͎gقȂ邽߁AӂKvł)B

t@CʂɁARs[AړA܂͍폜ꍇ́AOɃobȅԂmF悤ɃvOLq邱Ƃ߂܂ (t@C쒆ɓd؂ƁAt@CjȂǂ̕s\܂)B

 ֘A 
FILECOPYAFILEDELETEAFILESEARCHASETDIRECTORYAGETDIRECTORYADIRSEARCHADIRMAKE

 Tv 




FILEDELETE
 c t@C̍폜 [t@C] 


 @@ 
FILEDELETE t@C
 t@C: 폜t@C() 

 @@ 
t@C폜܂B

fBNgw肹At@Ĉݎw(Ύw)ꍇ́Ã݂fBNg̃t@Cړ̑ΏۂɂȂ܂B

 ӎ 
ChJ[h͎gpł܂B܂AړɃfBNĝ݂w肷邱Ƃ͂ł܂B
(DOSȂǂ̍폜R}hƂ͎gقȂ邽߁AӂKvł)B

t@CʂɁARs[AړA܂͍폜ꍇ́AOɃobȅԂmF悤ɃvOLq邱Ƃ߂܂ (t@C쒆ɓd؂ƁAt@CjȂǂ̕s\܂)B

 ֘A 
FILECOPYAFILEMOVEAFILESEARCHASETDIRECTORYAGETDIRECTORYADIRSEARCHADIRMAKE

 Tv 
REM 944BASIC 'FILECOPY/FILEDELETE'
DIM A(0)='FILECOPY Tv'
MESSAGE '9B_REF.TMPƂt@C쐬܂'
SETDIRECTORY 'F1:\944BASIC\'
SAVETEXT '9B_REF.TMP',A
FILECOPY '9B_REF.TMP','F0:\9B_REF.TMP'
MESSAGE 'F0:\9B_REF.TMPƂt@CRs[܂'
DIM B(0)
LOADTEXT 'F0:\9B_REF.TMP',B
MES=STRCAT('F0:\9B_REF.TMP=',B(0))
MESSAGE MES
MESSAGE '9B_REF.TMP폜܂B'
FILEDELETE '9B_REF.TMP'
FILEDELETE 'F0:\9B_REF.TMP'
MESSAGE 'I܂B'



SETDIRECTORY
 c JgfBNg̐ݒ [t@C] 


 @@ 
SETDIRECTORY fBNg
 fBNg:  

 @@ 
t@C̓ǂݍ݁AosfBNg(tH_)ݒ肵܂B

 ӎ 
fBNǵȀꏊ(F0:AF1:AC1:AC2:Ȃ)w肵܂BfBNg̋؂ \ Lŕ\AfBNg̖ \ LŏI点悤ɂĂB
: SETDIRECTORY 'F1:\944BASIC\'

 ֘A 
LOADCSVALOADTEXTASAVETEXTASAVECSVAGETDIRECTORYADIRSEARCHADIRMAKE

 Tv 
REM 944BASIC 'GET/SETDIRECTORYTv'
D=GETDIRECTORY
D=STRCAT('݂̃fBNgݒ ',D,' łB')
MESSAGE D
SETDIRECTORY 'F0:\__ZAURUS\'
D=GETDIRECTORY
D=STRCAT('fBNgݒ ',D,' ɕύX܂B')
MESSAGE D
DIM FILE(512)
FILESEARCH '*.APL',FILE
MENU FILE,20,0
D=STRCAT('Î',FILE(MENUNO),'ł')
MESSAGE D
KEYWAIT



GETDIRECTORY
 c JgfBNg̎擾 [t@C(֐)] 


 @@ 
GETDIRECTORY 

 @@ 
݂̃fBNg(tH_)𕶎ŕԂ܂B

 ӎ 


 ֘A 
LOADCSVALOADTEXTASAVETEXTASAVECSVASETDIRECTORYADIRSEARCHADIRMAKE

 Tv 
REM 944BASIC 'GET/SETDIRECTORYTv'
D=GETDIRECTORY
D=STRCAT('݂̃fBNgݒ ',D,' łB')
MESSAGE D
SETDIRECTORY 'F0:\__ZAURUS\'
D=GETDIRECTORY
D=STRCAT('fBNgݒ ',D,' ɕύX܂B')
MESSAGE D
DIM FILE(512)
FILESEARCH '*.APL',FILE
MENU FILE,20,0
D=STRCAT('Î',FILE(MENUNO),'ł')
MESSAGE D
KEYWAIT



DIRSEARCH
 c p^[ɈvfBNg̎擾 [t@C(֐)] 


 @@ 
DIRSEARCH p^[,z
 p^[: fBNg𒊏o邽߂̃p^[()
 z: p^[ɈvfBNgi[z 

 @@ 
݂̃fBNg(tH_)Ńp^[ɈvfBNgׂČAzɊi[܂B

p^[ɂ́AChJ[h(*)gpł܂B'*' Ǝw肷ƁAׂẴfBNg܂B

fBNǵA֐ GETREADCNT Ŏ擾ł܂B

 ӎ 
fBNǵȀꏊ(F0:AF1:AC1:AC2:Ȃ)w肵܂B

p^[̖ɂ́A\ L͕Kv܂B

 ֘A 
SETDIRECTORYAGETDIRECTORYADIRMAKEAGETREADCNT

 Tv 
̃Tv́ASDJ[hCFJ[h̗gpĂāACF C1:\944BASIC\ fBNgꍇɎsł܂B܂ATvs SD  C2:\9B_BAK\ ƂfBNg쐬A.BASt@CRs[܂B܂AobecʂႢꍇ͎sł܂B

REM 944BASIC 'DIRSEARCH/MAKE'
IF GETBATTERY<=3 THEN MESSAGE 'LOW BATTERY':END
PRINT 'C1:\944BASIC\.BAŞقޯ߂܂ޯߐިڸ؂̓:'
LOCATE 2,6: D='C2:\9B_BAK\'
INPUT D,16,3
DIM A(512): DIRSEARCH D,A
IF GETREADCNT=0 THEN DIRMAKE D
FILESEARCH 'C1:\944BASIC\*.BAS',A
C=GETREADCNT-1
IF C=-1 THEN MESSAGE 'NO FILE':END
FOR I=0 TO C
 C0=STRCAT('C1:\944BASIC\',A(I))
 C1=STRCAT(D,A(I)): FILECOPY C0,C1
 LOCATE 9,8: PRINT I;: PRINT '/';: PRINT C: LOCATE 9,9: PRINT A(I);
NEXT I
MESSAGE 'obNAbvI'



DIRMAKE
 c fBNg̍쐬 [t@C] 


 @@ 
DIRMAKE fBNg
 fBNg:  

 @@ 
fBNg(tH_)쐬܂B

fBNg̏ꏊ(F0:AC1:Ȃ)w(Ύw)ꍇ́Aw肵fBNg𒼐ڍ쐬܂B

fBNĝݎw(Ύw)ꍇ́Ã݂fBNgȉɂ̃fBNg쐬܂B

 ӎ 


 ֘A 
SETDIRECTORYAGETDIRECTORYADIRSEARCH

 Tv 
̃Tv́ASDJ[hCFJ[h̗gpĂāACF C1:\944BASIC\ fBNgꍇɎsł܂B܂ATvs SD  C2:\9B_BAK\ ƂfBNg쐬A.BASt@CRs[܂B܂AobecʂႢꍇ͎sł܂B

REM 944BASIC 'DIRSEARCH/MAKE'
IF GETBATTERY<=3 THEN MESSAGE 'LOW BATTERY':END
PRINT 'C1:\944BASIC\.BAŞقޯ߂܂ޯߐިڸ؂̓:'
LOCATE 2,6: D='C2:\9B_BAK\'
INPUT D,16,3
DIM A(512): DIRSEARCH D,A
IF GETREADCNT=0 THEN DIRMAKE D
FILESEARCH 'C1:\944BASIC\*.BAS',A
C=GETREADCNT-1
IF C=-1 THEN MESSAGE 'NO FILE':END
FOR I=0 TO C
 C0=STRCAT('C1:\944BASIC\',A(I))
 C1=STRCAT(D,A(I)): FILECOPY C0,C1
 LOCATE 9,8: PRINT I;: PRINT '/';: PRINT C: LOCATE 9,9: PRINT A(I);
NEXT I
MESSAGE 'obNAbvI'



GETREADCNT
 c t@CAf[^̎擾 [t@C(֐)] 


 @@ 
GETREADCNT 

 @@ 
LOADTEXTŎ擾f[^̌(t@C̍s)A܂FILESEARCHŌt@CADIRSEARCHŌfBNgԂ܂B

 ӎ 


 ֘A 
FILESEARCHADIRSEARCHALOADTEXT

 Tv 
REM 944BASIC 'FILESEARCH/RUNTv'
DIM FILE(512)
SETDIRECTORY 'F1:\944BASIC\'
REM ̊gq.BAS̃t@CAzFILEɊi[
FILESEARCH '*.BAS',FILE
REM t@CGETREADCNTŎ擾
C=GETREADCNT
REM zFILE\[g
SORT FILE,0,C-1
REM j[\
MENU FILE,C,0
REM Iꂽ.BASt@Cs
RUN FILE(MENUNO)






  \tg 





APL
 c {̃AvMORE\tg̋N [\tg] 


 @@ 
APL AvID
 AvID: (4̉p) 

 @@ 
w肵ʎqMORE\tgA܂͖{̋@\s܂BAvID(ʎq)ɂ́A4̉pw肵܂B

 ӎ 
{̓̃AvP[ṼvZXIĂꍇAAPLł͐ɌĂяoȂꍇ܂B

ʎq́A[eBeBnMORE\tggpĒׂ邱Ƃł܂B

Ώۂ̃AvP[Vʂɕ\悤ɁASCREENgpăEBhẼTCY(풓Ă)AAvP[V̋NBASIC\tggIKv܂B

APLśANAvP[VANeBuɂȂ܂BAvP[VBASIC̏ɖ߂ɂ́ASETPENBASICvOgɃy^b`ȂǂāABASICvOANeBuɂ邱ƂKvɂȂꍇ܂B

 ֘A 
SETPENAOUTPUT

 Tv 
REM 944BASIC 'APL Tv'
DIM AP(2)='SCDL','MAIL','ZWWW'
DIM MN(2)='ޭ','ҁ[','׳'
*START
SCREEN 0,0,80,80:EVENT 100,999,1
CLS:PRINT '聨MENU'
*LOOP SYNC
 IF PADA THEN GOTO *MN
GOTO *LOOP
*MN
 WAIT 1
 MENU MN,3,0
 SCREEN 0,0,14,14:CLS:PRINT ''
 APL AP(MENUNO)
*SLEEP SYNC
 IF (PEN)+(INKEY) THEN GOTO *START
GOTO *SLEEP



SETPEN
 c ؃(MODE:0-3) [\tg] 


 @@ 
SETPEN MODE,X,Y
 MODE: ỹ[h(0-3)
 X: ysXW
 Y: ysYW 

 @@ 
w肵WʒuɁAy͂Ɠʂ𔭐܂B

ỹ[h(0-3)ŁAy^b`̌ʂwł܂B
 0: y^b`Ay𗣂
    (PENDOWN&PENUP)
 1: y^b`̂
    (PENDOWN)
 2: y^b`𑱂
    (PENSTILLDOWN)
 3: y𗣂
    (PENUP)

 ӎ 
Ώۂ̃AvP[Vʂɕ\悤ɁASCREENgpăEBhẼTCY(풓Ă)Kv܂B

SETPENsƁAy^b`AvP[VANeBuɂȂ܂BAvP[VBASIC̏ɖ߂ɂ́ASETPENBASICvOgɃy^b`ȂǂāABASICvOANeBuɂ邱ƂKvɂȂꍇ܂B

 ֘A 
APLAOUTPUT

 Tv 
̃Tvł́ACN[v̐VKf[^쐬āAueXgvƓ͂܂BTvsÃf[^͍폜Ă܂܂B܂ÃTv͏c^@ȊOł͐삵Ȃ\܂B

REM 944BASIC 'OUTPUT/SETPEN Tv'
SCREEN 2,2,12,12: EVENT 100,999,1
MESSAGE '̃Tvł́ACN[v̐VKf[^쐬܂B'
REM MORE N
APL 'PINK'
REM [VKf[^쐬]^b`
SETPEN 0,188,36
REM Ƀ^b`
SETPEN 0,4,4
SYNC
REM o
OUTPUT 'eXg'
REM Ƀ^b`
SETPEN 0,4,4
SYNC
END



OUTPUT
 c ̃\tg֕ [\tg] 


 @@ 
OUTPUT 
 : M镶 

 @@ 
̃\tg֕𑗐M܂B

 ӎ 
̑M̃\tǵAZNgobt@ɑΉĂKv܂BuȂČ/v@\u\荞݁v@\̂\tgA{̓AvP[VȂǂA̋@\ɑΉĂ܂B

Ώۂ̃AvP[Vʂɕ\悤ɁASCREENgpăEBhẼTCY(풓Ă)Kv܂B

OUTPUTsƁȂM̃AvP[VANeBuɂȂ܂BAvP[VBASIC̏ɖ߂ɂ́ASETPENBASICvOgɃy^b`ȂǂāABASICvOANeBuɂ邱ƂKvɂȂꍇ܂B

 ֘A 
APLASETPEN

 Tv 
̃Tvł́ACN[v̐VKf[^쐬āAueXgvƓ͂܂BTvsÃf[^͍폜Ă܂܂B܂ÃTv͏c^@ȊOł͐삵Ȃ\܂B

REM 944BASIC 'OUTPUT/SETPEN Tv'
SCREEN 2,2,12,12: EVENT 100,999,1
MESSAGE '̃Tvł́ACN[v̐VKf[^쐬܂B'
REM MORE N
APL 'PINK'
REM [VKf[^쐬]^b`
SETPEN 0,188,36
REM Ƀ^b`
SETPEN 0,4,4
SYNC
REM o
OUTPUT 'eXg'
REM Ƀ^b`
SETPEN 0,4,4
SYNC
END






   





BEEP
 c r[v̏o [] 


 @@ 
BEEP 

 @@ 
uU[r[vo͂܂B

 ӎ 
r[vo͂ɂ́A[U[ݒ[A[g][]Ɏw肷Kv܂B

 ֘A 
WAVEAEFFECT

 Tv 
REM 944BASIC 'BEEP Tv'
CLS
HEADER 'y^b`  BEEP | L[PUSHI'
*LOOP SYNC
 IF PEN=2 THEN BEEP
 IF INKEY THEN END
GOTO *LOOP




EFFECT
 c ʉ̏o [] 


 @@ 
EFFECT t@C
 t@C: (WAV)t@C 

 @@ 
{̂ʉo͂܂B
t@CWAV`Ŏw肵܂B

 ӎ 
R}h̎dlA܂̓t@X̋LړeAύX\܂B(2002.10.12)

ʉo͂ɂ́A[U[ݒ[ʉ][]Ɏw肷Kv܂B

Ȃ_ł́AMI-E1ȑŐ@ł͕s邨ꂪ܂B

 ֘A 
BEEPAWAVE

 Tv 




WAVE
 c WAVE̍Đ [] 


 @@ 
WAVE t@C,
 t@C: (WAV)t@C
 : 0-7 ̐l(0ő) 

 @@ 
WAVEt@CĐ܂B̓Cz[qo͂܂B
ʂ́A0 őłB

 ӎ 
ĐɁAꎞIɏdȂ\܂(WAVEsAۂɉo͂܂łɎԂ\܂)B
gpłWAVEt@CSZABɈˑĂ܂ (8/16rbgA24000HZ܂ł̃mt@C)B

 ֘A 
EFFECTAWAVESTOPAGETWAVESTATUS

 Tv 




WAVESTOP
 c WAVEĐ̒~ [] 


 @@ 
WAVESTOP 

 @@ 
WAVE̍Đ~܂B

 ӎ 
_ł́AWAVEĐĂȂꍇ(GETWAVESTATUS̒l0̏ꍇ)ÃR}hgpƃZbgvȂǂ̕s\܂B
̃R}h́AOGETWAVESTATUS̒lmFĂgpĂB

 ֘A 
WAVEAGETWAVESTATUS

 Tv 




GETWAVESTATUS
 c WAVEĐԂ̎擾(0-2) [(֐)] 


 @@ 
GETWAVESTATUS 

 @@ 
WAVEt@CĐ̏ԂԂ܂BԂĺÂƂłB
 0: ~ 
 1: ^
 2: Đ

 ӎ 


 ֘A 
WAVEAWAVESTOP

 Tv 







  @ 





GETMODELNO
 c fԍ擾 [@(֐)] 


 @@ 
GETMODELNO 

 @@ 
ZAURUS̃fԍԂ܂B

 ӎ 


 ֘A 
GETROMVERAGETPATCHVERAGETMODEL

 Tv 
REM 944BASIC 'GETMODELAGETMODELNOAGETROMVERAGETPATCHVER'
 GM=GETMODEL
 GM=GETMODELNO
 GR=GETROMVER
 GP=GETPATCHVER
 PRINT '̋@̃f ';
 PRINT GM;
 PRINT 'Afԍ ';
 PRINT GN;
 PRINT ' łB'
 PRINT '̋@ROMްޮ݂ ';
 PRINT GR;
 PRINT ' łB'
 PRINT '̋@߯ްޮ݂ ';
 PRINT GP;
 PRINT ' łB'
 KEYWAIT



GETROMVER
 c ROMo[W擾 [@(֐)] 


 @@ 
GETROMVER 

 @@ 
ZAURUSROMo[WԂ܂B

 ӎ 
l10ilŕԂ܂B

 ֘A 
GETMODELAGETPATCHVERAGETMODEL

 Tv 
REM 944BASIC 'GETMODELAGETMODELNOAGETROMVERAGETPATCHVER'
 GM=GETMODEL
 GM=GETMODELNO
 GR=GETROMVER
 GP=GETPATCHVER
 PRINT '̋@̃f ';
 PRINT GM;
 PRINT 'Afԍ ';
 PRINT GN;
 PRINT ' łB'
 PRINT '̋@ROMްޮ݂ ';
 PRINT GR;
 PRINT ' łB'
 PRINT '̋@߯ްޮ݂ ';
 PRINT GP;
 PRINT ' łB'
 KEYWAIT



GETPATCHVER
 c pb`o[W擾 [@(֐)] 


 @@ 
GETPATCHVER 

 @@ 
ZAURUS̃pb`o[W(\tgEFAǗԍ)Ԃ܂B

 ӎ 
l10ilŕԂ܂(ZAURUS̃[ǗȂǂł16ilŕ\)B

 ֘A 
GETMODELAGETROMVERAGETMODEL

 Tv 
REM 944BASIC 'GETMODELAGETMODELNOAGETROMVERAGETPATCHVER'
 GM=GETMODEL
 GM=GETMODELNO
 GR=GETROMVER
 GP=GETPATCHVER
 PRINT '̋@̃f ';
 PRINT GM;
 PRINT 'Afԍ ';
 PRINT GN;
 PRINT ' łB'
 PRINT '̋@ROMްޮ݂ ';
 PRINT GR;
 PRINT ' łB'
 PRINT '̋@߯ްޮ݂ ';
 PRINT GP;
 PRINT ' łB'
 KEYWAIT



GETMODEL
 c f擾 [@(֐)] 


 @@ 
GETMODEL 

 @@ 
ZAURUS̃fԂ܂B

 ӎ 
ZAURUSIɊǗĂ郂f̕񂪕Ԃ܂ (: MIE1)B

 ֘A 
GETMODELAGETROMVERAGETPATCHVER

 Tv 
REM 944BASIC 'GETMODELAGETMODELNOAGETROMVERAGETPATCHVER'
 GM=GETMODEL
 GM=GETMODELNO
 GR=GETROMVER
 GP=GETPATCHVER
 PRINT '̋@̃f ';
 PRINT GM;
 PRINT 'Afԍ ';
 PRINT GN;
 PRINT ' łB'
 PRINT '̋@ROMްޮ݂ ';
 PRINT GR;
 PRINT ' łB'
 PRINT '̋@߯ްޮ݂ ';
 PRINT GP;
 PRINT ' łB'
 KEYWAIT






  d 





POWEROFF
 c dؒf [d] 


 @@ 
POWEROFF 

 @@ 
ZAURUS̓d؂܂B


 ӎ 


 ֘A 


 Tv 
REM 944BASIC 'POWEROFFTv'
YN=YESNO('d؂܂B낵łH')
IFBLK YN
 FONT 96
 FOR I=0 TO 3
  SYNC
  S=3-I
  LOCATE 5,5: PRINT S
  WAIT 10
 NEXT I
 POWEROFF
 END
ELSE
 PRINT 'PUSH KEY'
 KEYWAIT
ENDIF



SETBATOFFCNT
 c obe[ItJEgݒ(100ms) [d] 


 @@ 
SETBATOFFCNT N
 N: l (100msP) 

 @@ 
obe쓮Ɏp[It鎞Ԃ100msPʂŎw肵܂B

dItɂȂꍇ́A0w肵܂B

 ӎ 
̃R}hŐݒ肵p[ItԂ́ABASIC\tgILłB̃R}hgpꍇ́A̐ݒ(GETBATOFFCNT)ۑĂABASIC\tgIɌɖ߂悤ɂĂB

 ֘A 
SETACOFFCNTAGETBATTERYAGETACADAPTORAGETBATOFFCNTAGETACOFFCNT

 Tv 
REM 944BASIC 'I[gp[It'
SCREEN 20,80,200,30:EVENT 100,999,1
BOX 0,5,199,29:LOCATE 1,0:PRINT 'I[gp[ItԂ̕ύX()'
*LOOP SYNC
 IF GETACADAPTOR THEN M=1 ELSE M=0
 IF M=1 THEN OFF=GETACOFFCNT ELSE OFF=GETBATOFFCNT
 LOCATE 1,1:OFF=OFF/10
 PRINT 'I[gp[It: ';
 PRINT OFF;
 IF PADX THEN OFF=OFF+10*PADX
 IF M=1 THEN SETACOFFCNT OFF*10:PRINT ' b(AC)  ' ELSE SETBATOFFCNT OFF*10:PRINT ' b(BATT)'
 WAIT 1
GOTO *LOOP



SETACOFFCNT
 c dItJEgݒ(100ms) [d] 


 @@ 
SETACOFFCNT N
 N: l (100msP) 

 @@ 
ACA_v^ڑɎp[It鎞Ԃ100msPʂŎw肵܂B

dItɂȂꍇ́A0w肵܂B

 ӎ 
̃R}hŐݒ肵p[ItԂ́ABASIC\tgILłB̃R}hgpꍇ́A̐ݒ(GETACOFFCNT)ۑĂABASIC\tgIɌɖ߂悤ɂĂB

 ֘A 
SETBATOFFCNTAGETBATTERYAGETACADAPTORAGETBATOFFCNTAGETACOFFCNT

 Tv 
REM 944BASIC 'I[gp[It'
SCREEN 20,80,200,30:EVENT 100,999,1
BOX 0,5,199,29:LOCATE 1,0:PRINT 'I[gp[ItԂ̕ύX()'
*LOOP SYNC
 IF GETACADAPTOR THEN M=1 ELSE M=0
 IF M=1 THEN OFF=GETACOFFCNT ELSE OFF=GETBATOFFCNT
 LOCATE 1,1:OFF=OFF/10
 PRINT 'I[gp[It: ';
 PRINT OFF;
 IF PADX THEN OFF=OFF+10*PADX
 IF M=1 THEN SETACOFFCNT OFF*10:PRINT ' b(AC)  ' ELSE SETBATOFFCNT OFF*10:PRINT ' b(BATT)'
 WAIT 1
GOTO *LOOP



GETBATTERY
 c obe[Ԃ擾 [d(֐)] 


 @@ 
GETBATTERY 

 @@ 
obe[̏[dԂA0-7̒lŕԂ܂B
ACA_v^ڑɂ7(ő)Ԃ܂B

 ӎ 
ԂobȅԂ́A܂ŖڈłB

 ֘A 
SETBATOFFCNTASETACOFFCNTAGETACADAPTORAGETBATOFFCNTAGETACOFFCNT

 Tv 
REM 944BASIC 'dԕ\'
SCREEN 40,100,180,40:EVENT 100,999,1
BOX 0,5,179,39
LOCATE 4,0:PRINT 'I[gp[It'
LOCATE 1,1
IF GETACADAPTOR THEN PRINT 'ACA_v^: ڑ':OFFCNT=GETACOFFCNT ELSE BT=GETBATTERY:PRINT 'obe[: ';:PRINT BT:OFFCNT=GETBATOFFCNT
LOCATE 1,2:OFFCNT=OFFCNT/10
PRINT 'I[gp[It: ';
PRINT OFFCNT;
PRINT 'b'
KEYWAIT



GETACADAPTOR
 c ACA_v^̐ڑԂ擾 [d(֐)] 


 @@ 
GETACADAPTOR 

 @@ 
ACA_v^ڑĂ邩ǂA0܂1ŕԂ܂B
A_v^ڑĂꍇɁA1Ԃ܂B

 ӎ 


 ֘A 
SETBATOFFCNTASETACOFFCNTAGETBATTERYAGETBATOFFCNTAGETACOFFCNT

 Tv 
REM 944BASIC 'dԕ\'
SCREEN 40,100,180,40:EVENT 100,999,1
BOX 0,5,179,39
LOCATE 4,0:PRINT 'I[gp[It'
LOCATE 1,1
IF GETACADAPTOR THEN PRINT 'ACA_v^: ڑ':OFFCNT=GETACOFFCNT ELSE PRINT 'ACA_v^: Ȃ':OFFCNT=GETBATOFFCNT
LOCATE 1,2:OFFCNT=OFFCNT/10
PRINT 'I[gp[It: ';
PRINT OFFCNT;
PRINT 'b'
KEYWAIT



GETBATOFFCNT
 c obep[ItԂ̎擾 [d(֐)] 


 @@ 
GETBATOFFCNT 

 @@ 
obe쓮Ɏp[It鎞Ԃ100msPʂŕԂ܂B

 ӎ 


 ֘A 
SETBATOFFCNTASETACOFFCNTAGETBATTERYAGETACADAPTORAGETACOFFCNT

 Tv 
REM 944BASIC 'I[gp[It'
SCREEN 20,80,200,30:EVENT 100,999,1
BOX 0,5,199,29:LOCATE 1,0:PRINT 'I[gp[ItԂ̕ύX()'
*LOOP SYNC
 IF GETACADAPTOR THEN M=1 ELSE M=0
 IF M=1 THEN OFF=GETACOFFCNT ELSE OFF=GETBATOFFCNT
 LOCATE 1,1:OFF=OFF/10
 PRINT 'I[gp[It: ';
 PRINT OFF;
 IF PADX THEN OFF=OFF+10*PADX
 IF M=1 THEN SETACOFFCNT OFF*10:PRINT ' b(AC)  ' ELSE SETBATOFFCNT OFF*10:PRINT ' b(BATT)'
 WAIT 1
GOTO *LOOP



GETACOFFCNT
 c ACA_v^p[ItԂ̎擾 [d(֐)] 


 @@ 
GETACOFFCNT 

 @@ 
ACA_v^ڑɎp[It鎞Ԃ100msPʂŕԂ܂B

 ӎ 


 ֘A 
SETBATOFFCNTASETACOFFCNTAGETBATTERYAGETACADAPTORAGETBATOFFCNT

 Tv 
REM 944BASIC 'I[gp[It'
SCREEN 20,80,200,30:EVENT 100,999,1
BOX 0,5,199,29:LOCATE 1,0:PRINT 'I[gp[ItԂ̕ύX()'
*LOOP SYNC
 IF GETACADAPTOR THEN M=1 ELSE M=0
 IF M=1 THEN OFF=GETACOFFCNT ELSE OFF=GETBATOFFCNT
 LOCATE 1,1:OFF=OFF/10
 PRINT 'I[gp[It: ';
 PRINT OFF;
 IF PADX THEN OFF=OFF+10*PADX
 IF M=1 THEN SETACOFFCNT OFF*10:PRINT ' b(AC)  ' ELSE SETBATOFFCNT OFF*10:PRINT ' b(BATT)'
 WAIT 1
GOTO *LOOP






   





CHR
 c ̒lɑ΂镶擾 [(֐)] 


 @@ 
CHR()
 : 10i̐l 

 @@ 
w肵(l)ƈv镶R[h̕Ԃ܂BSp/pǂ̕R[hɂΉĂ܂B

ɂ́A10i̒lw肵܂B

 ӎ 
16i̕R[ĥ܂܎w肷邱Ƃ͂ł܂B16i10iɕϊɂ́AHEXTODECgp܂B

 ֘A 
ASCAHEXTODECAHEX

 Tv 
REM 944BASIC 'ASC/CHR,HEX/HEXTODEC'
*START
CLS: LOCATE 0,0: A=''
PRINT '1͂Ă'
INPUT A,2,0
A=ASC(A) :REM R[h擾
PRINT 'LN^R[h(10i)=';
PRINT A
A=HEX(A) :REM l16i
AA=STRCAT('0x',A) :REM 0xt
PRINT 'LN^R[h(16i)=';
PRINT AA
A=HEXTODEC(A) :REM 16il10i
A=CHR(A):REM ނ當
PRINT '͂=';: PRINT A
KEYWAIT
GOTO *START



ASC
 c w肵̕R[h擾 [(֐)] 


 @@ 
ASC()
 : Cӂ1 

 @@ 
w肵̕R[hԂ܂BSp/pǂ̕ɂΉĂ܂B

ԂĺA10iłB

 ӎ 
10i16iɕϊɂ́AHEXgp܂B

 ֘A 
CHRAHEXTODECAHEX

 Tv 
REM 944BASIC 'ASC/CHR,HEX/HEXTODEC'
*START
CLS: LOCATE 0,0: A=''
PRINT '1͂Ă'
INPUT A,2,0
A=ASC(A) :REM R[h擾
PRINT 'LN^R[h(10i)=';
PRINT A
A=HEX(A) :REM l16i
AA=STRCAT('0x',A) :REM 0xt
PRINT 'LN^R[h(16i)=';
PRINT AA
A=HEXTODEC(A) :REM 16il10i
A=CHR(A):REM ނ當
PRINT '͂=';: PRINT A
KEYWAIT
GOTO *START



LEN
 c ̒擾 [(֐)] 


 @@ 
LEN()
 :  

 @@ 
̒擾܂BpŃJEglԂ܂B

 ӎ 
̃R}h͐lԂ邽߁Aق̕֐łgpł܂B

 ֘A 
STRALEFTAMIDARIGHTASTRCATASTRCMP

 Tv 
REM 944BASIC 'LEN/STRTv'
P=PI
REM l𕶎
P=STR(P)
REM ̒
L=LEN(P)
LOCATE 0,1:PRINT '~́F'
FOR I=1 TO L
 S=LEFT(P,I)
 LOCATE 11,1:PRINT S
 WAIT 4
NEXT I
PRINT '9Bł́APIŏ_ȉ';
L=L-2:PRINT L;
PRINT '܂ŕԂ܂B'
PRINT 'PUSH KEY'
KEYWAIT
END



STRCMP
 c ̔r [(֐)] 


 @@ 
STRCMP(1,2)
 1: rΏۂ̕
 2: r镶 

 @@ 
1ƕ2r܂B҂łꍇ́A0 Ԃ܂B

1́̕A}CiXl(ŏ̑ᕶ̕2-1̒l)A2́̕AvXl(ŏ̑ᕶ̕1-2̒l)Ԃ܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

 ֘A 
LENALEFTAMIDARIGHTASTRASTRCAT

 Tv 
REM 944BASIC 'STRCMPTv'
A='ǕǕǕǕǕǕǕǕǕǕǕ'
B='ǕǕǕǕǕǕǕǕǕǕǕǕǕ'
LOCATE 0,2
PRINT 'A=';
PRINT A
PRINT 'B=';
PRINT B
PRINT 'Ȃ̂ł傤H STRCMPsĂ݂܂傤B - PUSH KEY'
KEYWAIT
PRINT 'STRCMP(A,B)=';
C=STRCMP(A,B)  :  PRINT C
PRINT 'STRCMP̒l0łȂƂƂ́AABɂ͊ɑ_܂BႢ܂H  -  PUSH KEY'
KEYWAIT



STR
 c IɕƂĈ [(֐)] 


 @@ 
STR()
 :  

 @@ 
ϐCӂ̕AƂĈ܂B𕶎ƂĈꍇAϐʂ̕ϐɑꍇɎgp܂B

 ӎ 
ϐǂA=gĂ̂܂܃Rs[邱Ƃ́AƂĂł܂BEӑ̕ϐSTR()֐gpāAł邱Ƃ𖾎̂młB

R}hɕ̕֐܂߂邱Ƃ͂ł܂B

 ֘A 
LENASTRALEFTAMIDARIGHTASTRINGASTRCMP

 Tv 
REM 944BASIC 'LEN/STRTv'
P=PI
REM l𕶎
P=STR(P)
REM ̒
L=LEN(P)
LOCATE 0,1:PRINT '~́F'
FOR I=1 TO L
 S=LEFT(P,I)
 LOCATE 11,1:PRINT S
 WAIT 4
NEXT I
PRINT '9Bł́APIŏ_ȉ';
L=L-2:PRINT L;
PRINT '܂ŕԂ܂B'
PRINT 'PUSH KEY'
KEYWAIT
END



STRCAT
 c A [(֐)] 


 @@ 
STRCAT(1,2,3,EEE)
 ...:  

 @@ 
̕A1̕ɘA܂Bꂽ񂪕Ԃ܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

ϐ𑫂Z(+)ĂAł܂B̘Aɂ́ASTRCATR}hgpĂB

ϐɊi[łő啶255(p)łB

 ֘A 
LENASTRALEFTAMIDARIGHTASTRASTRCMP

 Tv 
REM 944BASIC 'STRCATTv'
D=DATE
D=STR(D)
YYYY=LEFT(D,4)
MM=MID(D,5,2)
DD=MID(D,7,2)
S=STRCAT('',YYYY,'N',MM,'',DD,'łB')
LOCATE 2,5: PRINT S
PRINT 'PUSH KEY'
KEYWAIT
END



STRING
 c JԂ擾 [(֐)] 


 @@ 
STRING(,JԂ)
 : 
 JԂ: l() 

 @@ 
w肵񐔌JԂA̕Ԃ܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

ϐɊi[łő啶255(p)łB

 ֘A 
LENASTR

 Tv 
REM 944BASIC 'STRINGTv'
FONT 96
A=''
B=STRING(A,10)
LOCATE 2,1
PRINT B
FOR I=1 TO 10
 LOCATE 2,I+1
 PRINT '                '
NEXT I
LOCATE 2,11
PRINT B
FOR I=0 TO 20
 X=RNDRG(4,18):Y=RNDRG(2,10)
 LOCATE X,Y: PRINT 'r'
NEXT I
KEYWAIT



INSTR
 c 1ɕ2̂ʒu擾 [(֐)] 


 @@ 
INSTR(1,2)
 1: Ώۂ̕
 2:  

 @@ 
1ŕ2āAꍇ͐擪̈ʒuԂ܂BʒúApŃJEg\lԂ܂BȂꍇ́A0Ԃ܂B

 ӎ 
̃R}h͐lԂ邽߁Aق̕֐łgpł܂B

 ֘A 
LEFTAMIDARIGHTALEN

 Tv 
(Tv 1)
REM 944BASIC 'INSTR Tv'
A='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
*START
 PRINT 'A-Z̃At@xbg(啶)'
 INPUT B,1,3
 C=INSTR(A,B)
 IF C THEN PRINT B;: PRINT '́AAt@xbg';:PRINT C;:PRINT 'Ԗڂ̕łB' ELSE PRINT 'pp啶œ͂ĂB'
 PRINT 'PUSH KEY'
KEYWAIT
B='':CLS
GOTO *START

(Tv 2)
REM 944BASIC 'INSTR Tv2'
REM f~^ŕ؂킯
A='123;;4567;ABC;89;'
DLM=';'
*LOOP
 L=LEN(A)
 C=INSTR(A,DLM): REM ; ̂ʒu
 REM 0̏ꍇAc̕\
 REM [v𔲂
 IF C=0 THEN PRINT A:GOTO *EXITLOOP
 REM  ; 1O܂ł؂o
 B=MID(A,1,C-1): PRINT B
 REM \ς񂾕͐؂l߂
 A=MID(A,C+1,L-C)
GOTO *LOOP
*EXITLOOP
KEYWAIT
END



LEFT
 c 擾 [(֐)] 


 @@ 
LEFT(,)
 : 
 : l() 

 @@ 
̈ꕔA̍(擪)當擾܂Bɂ́ApŃJEglw肵܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

݂̂ƂASprŐ؂ꍇ́A󔒕Ԃ܂ (: A='': B=LEFT(A,1)   B ͔pXy[X)B

 ֘A 
MIDARIGHTALENAINSTR

 Tv 
REM 944BASIC 'LEFT Tv'
A='||E'
S=LEFT(A,2)
PRINT 'A=';
PRINT A
PRINT 'LEFT(A,2)';
PRINT S
KEYWAIT



MID
 c r擾 [(֐)] 


 @@ 
MID(1,Jnʒu,)
 : 
 Jnʒu: l()
 : l() 

 @@ 
̈ꕔAJnʒu當擾܂BJnʒuƕɂ́ApŃJEglw肵܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

݂̂ƂASprŐ؂ꍇ́A󔒕Ԃ܂ (: A='': B=MID(A,1,1)   B ͔pXy[X)B

 ֘A 
LEFTARIGHTALENAINSTR

 Tv 
(Tv 1)
REM 944BASIC 'MID Tv'
A='||E'
S=MID(A,5,2)
PRINT 'A=';
PRINT A
PRINT 'MID(A,5,2)';
PRINT S
KEYWAIT

(Tv 2)
REM 944BASIC 'MID Tv2'
SCREEN 0,0,240,14:EVENT 100,999,1
FONT 64:CLS
A='O̗͔wˉoAV̖NAႭĖ՞ԂɘAˁEEE - ցuRLv'
SP=STRING(' ',32)
A=STRCAT(SP,A,SP,'PUSH KEY')
L=LEN(A)-LEN('         PUSH KEY')
FOR I=0 TO L
 SYNC
 GCURSOR 0,1: WAIT 1
 P=MID(A,I,40): PRINT P
NEXT I
KEYWAIT



RIGHT
 c E擾 [(֐)] 


 @@ 
RIGHT(,)
 : 
 : l() 

 @@ 
̈ꕔAE()當擾܂Bɂ́ApŃJEglw肵܂B

 ӎ 
R}hɕ̕֐܂߂邱Ƃ͂ł܂B

݂̂ƂASprŐ؂ꍇ́A󔒕Ԃ܂ (: A='': B=RIGHT(A,1)   B ͔pXy[X)B

 ֘A 
LEFTAMIDALENAINSTR

 Tv 
REM 944BASIC 'RIGHT Tv'
A='||E'
S=RIGHT(A,2)
PRINT 'A=';
PRINT A
PRINT 'RIGHT(A,2)';
PRINT S
KEYWAIT





            2002/10/13 ݁B

  ̃}jǍAsA
  PāȂӌ́A
   kaol(kaol@officeww.com)
  ܂łAB
