•••––––••••–––••••••–•–••••–••••••••••••••••••••–••••ACLS

••••
PRINT

1＋34
OK––––––––

PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT

PRINT
？

1＋3？

5-2
2*4
6/3
6 MOD 5（1+3）*5-2/4
1.25*2.5+5.77
ROUND(0.25*63.99）+15
RND(10）• ：• INPUT
INPUT，A,B:PRINT

A+B
INPUT

？
？53？Redofromstart

INPUT A,B

53,67120
OK120

PRINT A+B•ACLS

GLINE

0,0,399,239,RGB(255,0,0)

GCIRCLEGPAINT#BLUE

200,120,80,RGB(0,255,0)

200,100,#BLUE

•BEEP8•BGMPLAY41•BGMSTOP•
TALK"オハヨウゴザイマス"
––•
•––

•SAVE"SAMPLE"•–––••–LOAD"SAMPLE"•–––•

•••–•– RUNACLS
PRINT

１＋２RUN•
•••

•
•••
•
•••
•
•NEW

•–•
••
•

•–''
がくしゅうサンプル 2015.9'
OPTION STRICTACLS:XSCREEN 2,256,2'--PRINT "#へんすうしょきか"VAR SFT,BTN
VAR TX,TY,TSVAR AX,AY,AZ
VAR OX=0,OY=0,SW=0
VAR I,X,Y'--PRINT "#いちご(DISPLAY 0/うえがめん)"DISPLAY 0
SPSET 0,0
SPOFS 0,200,120,-100
SPHOME 0,8,8
SPSCALE 0,4,4'--PRINT "#えんをかく"
FOR I=1 TO 5
GCIRCLE 200,120,(2<<I)*8,RGB(64,64,64)
NEXT'---SFT, BTN
TX, TY, TS
AX, AY, AZ
OX, OY, SW
I, X, Y

•
RUN–––RUN

OPTION STRICTACLSXSCREENPRINT

VAR
DISPLAY

SPSET
SPOFS
SPHOMESPSCALEFOR ～ NEXTGCIRCLE
RGB•Syntax error in 0:##•–––––••••–PRINT "#えんをかく"
FOR I=1 TO 5
GCIRCLE 200,120,(2<<I)*8,RGB(64,64,64)
NEXT'--DIM COL[8],VOICE$[8]VAR CL=7,R,G,B
COL[CL]=RGB(255,255,255)'=======================================''
メインループ'PRINT "#メインループ"@LOOP
BTN=BUTTON(0):SFT=BTN AND &H300
TOUCH OUT TS,TX,TY'--DRAWSUB TS,TX,TY'--VSYNC 1
GOTO @LOOP•–
VSYNC 1GOTO @LOOP'=======================================''
せんをひく'
DEF DRAWSUB S,X,Y
IF S==0 THEN SW=0
IF S==1 THEN OX=X:OY=Y:SW=1
IF SW==0 THEN RETURN'--- せんをひく
DISPLAY 1GCLIP 1,0,0,319,219
IF SFT && S==1 THEN
GPAINT X,Y,COL[CL]ELSEGFILL X-4,Y-4,X+4,Y+4,COL[CL]BEEP 27,0,20
ENDIF'--OX=X:OY=YEND•
RUN–DIM＠LOOP
BUTTON
AND
TOUCH
OUT
VSYNC
GOTO
DEF
IF THEN ENDIF
RETURNGPAINTGFILLBEEPEND•••••••––––COL[CL]=RGB(255,255,255)
GOSUB @INIT_COLORDRAWSUB TS,TX,TY

SELCOLOR TS,TX,TY

PRINT "#えんをかく"
FOR I=1 TO 5
GCIRCLE 200,120,(2<<I)*8,RGB(64,64,64)
NEXT'--DIM COL[8],VOICE$[8]VAR CL=7,R,G,B
COL[CL]=RGB(255,255,255)
GOSUB @INIT_COLOR'======================================='''PRINT "#メインループ"@LOOP
BTN=BUTTON(0):SFT=BTN AND &H300
TOUCH OUT TS,TX,TY'--DRAWSUB TS,TX,TY
SELCOLOR TS,TX,TY'--VSYNC 1
GOTO @LOOP•–'=======================================''
いろしょりしょきか'@INIT_COLORDISPLAY 1'--RG
B
DATA0,0,0,"くろ" '0
DATA 255,0,0,"あか" '1
DATA0,0,255,"あお" '2
DATA 255,255,0,"きいろ" '3
DATA0,255,0,"みどり" '4
DATA 255,0,255,"ピンク" '5DATA0,255,255,"みずいろ" '6
DATA 255,255,255,"しろ" '7'--GFILL 0,220,399,239,RGB(32,32,32)'--FOR I=0 TO 7
READ R,G,B,VOICE$[I]
COL[I]=RGB(R,G,B)
X=I*40+2:Y=222
GFILL X+1,Y,X+35,Y+15,COL[I]GFILL X,Y+1,X+36,Y+14,COL[I]
R=RGB(255-R,255-G,255-B)
GPUTCHR X+2,Y+2,VOICE$[I],RNEXT'--GFILL 0,0,319,219,COL[0]RETURN•–'--GFILL 0,0,319,219,COL[0]RETURN''
いろせんたく'DEF SELCOLOR S,X,Y
IF S!=1 THEN RETURNIF Y<220 THEN RETURN'--VAR I=FLOOR(X/40)
IF I==CL THEN RETURN'--CL=I:TALK VOICE$[CL]END

•RUN––GOSUBDATAREADGPUTCHRFLOORTALK••

•––•••••••••''
がくしゅうサンプル 2015.9'
OPTION STRICTACLS:XSCREEN 2,256,2
XON MOTION 'モーションつかう'--PRINT "#へんすうしょきか"•'--VAR HD=0,HTOP=16,SMAX=32-HTOPGOSUB @INIT_KESIGOMU'=======================================''
メインループ'PRINT "#メインループ"@LOOP
BTN=BUTTON(0):SFT=BTN AND &H300
TOUCH OUT TS,TX,TY
ACCEL OUT AX,AY,AZ'--DRAWSUB TS,TX,TY
KESIGOMUSELCOLOR TS,TX,TY'--VSYNC 1
GOTO @LOOP•–'--CL=I:TALKEND

VOICE$[CL]'=======================================''
ケシゴムしょりしょきか'@INIT_KESIGOMU
PRINT "#けしごむ(DISPLAY 1/したがめん)"DISPLAY 1SPSET
0,212
SPOFS
0,160,120,-100
SPHOME
0,8,8
SPSCALE 0,2,2'--PRINT "#ざんぞう"
FOR I=0 TO SMAX-1
SPSET
I+HTOP,212
SPHIDE
I+HTOPSPOFS
I+HTOP,160,120
SPHOME
I+HTOP,8,8
SPSCALE I+HTOP,2,2
SPCOLOR I+HTOP,RGB(63,255,255,255)
NEXT
RETURN•–''
かたむきケシゴム'
DEF KESIGOMUDISPLAY 1VAR I=0,X,Y'--- ころがる
SPOFS I OUT X,Y
X=X+(AX*16)
IF X<8 THEN X=8IF X>311 THEN X=311
Y=Y+(AY*16)
IF Y<8 THEN Y=8IF Y>219 THEN Y=219
SPOFS I,X,Y,0'--- けす
GCLIP 1,0,0,319,219
I=12
GFILL X-I,Y-I,X+I,Y+I,COL[0]'--- ざんぞうきろく
SPSHOW HD+HTOP
SPOFS
HD+HTOP,X,Y,10HD=(HD+1) MOD SMAXEND•
RUN––XON MOTIONACCELSPHIDESPCOLORGCLIPSPSHOW
MOD••••'--DRAWSUB TS,TX,TY
HOSIDEADKESIGOMUSELCOLOR TS,TX,TY'--VSYNC 1
GOTO @LOOP•–'--- せんを
DISPLAY 1GCLIP 1,0,0,319,219
IF SFT && S==1 THEN
GPAINT X,Y,COL[CL]ELSEGFILL X-4,Y-4,X+4,Y+4,COL[CL]BEEP 27,0,20ENDIF'--HOSIKUZU X,Y'--OX=X:OY=YEND•–'=======================================''
ほしくずせいせい'DEF HOSIKUZU X,YVAR I'--- へんかりょうをけいさん
VAR VX=X-OX,VY=Y-OY
IF ABS(VX)<2 THEN VX=0
IF ABS(VY)<2 THEN VY=0IF VX==0 && VY==0 THEN RETURN'--- うえのいちご
VAR R=90+DEG(ATAN(VY,VX))DISPLAY 0:SPROT 0,R'--- ほしくずはっしゃ
HOSI1 R+90,X,Y,90
FOR I=1 TO 8
HOSI1 R+90+I*2,X,Y,RND(60)+30
HOSI1 R+90-I*2,X,Y,RND(60)+30NEXT
END

•–''
ほしくずを1つせいせい'
DEF HOSI1 R,X,Y,S
VAR I,U,V,W,H,A'--DISPLAY 0SPSET 1,255,RND(1024) OUT I '1361
IF I==-1 THEN RETURN'--SPCHR I OUT U,V,W,H,A
SPCHR I,U,V,W,H,A OR &H20'--X=X+((400-320)/2)
SPOFS I,X,Y,512
SPHOME I,W/2,H/2'--R=RAD(R)
X=X+COS(R)*512
Y=Y+SIN(R)*512
SPROT I,R
SPANIM I,"XY",-S,X,YSPANIM I,"Z",-30,-200
SPANIM I,"C",-S,RGB(0,255,255,255)
SPANIM I,"R",-S,R+360
SPANIM I,"S",-S,3,3END•–''がめんがいへでたらけす'
DEF HOSIDEADDISPLAY 0VAR I,X,Y'--FOR I=0 TO 255
IF SPUSED(I) THENSPOFS I OUT X,Y
IF X<0 || X>399 || Y<0SPCLR I 'がめんがいのときけす
ENDIF
ENDIF
NEXT
END

||Y>239THEN•
RUN–ABSDEG
ATAN(VY,VX)
SPROT
RND
SPCHR
RAD
COS
SIN
SPANIM
SPUSED
SPCLR

•••
•–•
•–•–•
•–•–
•–•••••–•––•–••••––#TBLACK#TMAROON#TRED#TGREEN#TLIME#TOLIVE#TYELLOW#TNAVY#TBLUE#TPURPLE#TMAGENTA#TTEAL#TCYAN#TGRAY#TWHITE##AQUA#BLACK
#BLUE
#CYAN
#FUCHSIA#GRAY#GREEN#LIME#MAGENTA#MAROON#NAVY#OLIVE#PURPLE#RED#SLIVER#TEAL#WHITE#YELLOW#UP
#DOWN
#LEFT
#RIGHT
#A
#B
#X
#Y#L
#R
#ZL
#ZR

#SPSHOW#SPROT0#SPROT90#SPROT180#SPROT270#SPREVH#SPREVV#SPADD#CHKXY#CHKZ#CHKUV
#CHKI
#CHKR
#CHKS
#CHKC
#CHKV

#BGSHOW#BGROT0#BGROT90#BGROT180#BGROT270#BGREVH#BGREVV#ON#YES#TRUE#OFF#NO#FALSE1. Beep
2. Noise
3. Square
4. Button-correct
5. Button-incorrect
6. Gauge up
7. Fall down
8. Get a coin
9. Jump10.Put
11.Shooting
12.Mini Bomb
13.Shining
14.Damage
15.Blow off
16.Drift
17.Banjos
18.Synth Strings
19.Synth Brass
20.Synth Bass
21.Distortion guitar
22.Rock Organ
23.Dance piano
24.High Tom
25.Low Tom
26.Crash Cymbal
27.DancedrumKit OpenHiHat
28.DancedrumKit ClosedHiHat
29.Clap
30.Snare Rim
31.Dancedrum KitSnare
32.Dancedrum KitKick
33.Button-Clear1
34.Button-Tsudumi
35.GOUKA KENRAN
36.Electricity
37.Wipe-up
38.Broken piece
39.Warp jump
40.Banjos-phrase

41.Scratch
42.Distortion guitar-phrase
43.Rock Organ-phrase
44.Dance piano-phrase
45.Car pass-synth
46.Count up
47.REC Noise
48.Synth Tom
49.Synth conga
50.Metronome normal
51.Metronome accent
52.Conga
53.Dancedrum KitKick2
54.Dancedrum KitSnare2
55.DancedrumKit OpenHiHat2
56.Orchestra Hit1
57.Timbals
58.China Cymbal
59.Chappa Cymbal
60.Shaker
61.Bell tree
62.Wadaiko
63.Synth Hit
64.Cuckoo 'Dove
65.Puff-Puff horn
66.Shinobue
67.Voicepercussion BOON
68.Voicepercussion Ah
69.Dog70.Cat
71.Girl's Voice-OK
72.Girl's Voice-Yattane!
73.Girl's Voice-Omedetou!
74.Girl's Voice-ByeBye
75.Girl's Voice-Iyan
76.Girl's Voice-Kya!
77.Girl's Voice-Uwaaan
78.Girl's Voice-WAO!
79.Girl's Voice-Yahho
80.Waterdrop

81.Flame
82.Whip
83.Rock break
84.Raven
85.Gull
86.Stream
87.Baseball-Hit
88.Baseball-Catch
89.Audience-Dejection
90.Audience-Cheer
91.Applause
92.Badminton-Smash
93.Soccer-Shoot94.Fan noise light
95.Fan noise heavy
96.Dig97.Whistle-short
98.Whistle-long
99.Frog
100.Door
101.Ignition
102.Steam
103.Faint away
104.Slash105.Flap
106.Funny Bomb
107.Button-Clear2
108.Up&Down
109.Large explosion
110.Dance synth-phrase
111.Mini Drill
112.Drill spin
113.Finger Snap
114.Result Jingle-Synth
115.Result Jingle-Gothic
116.Vanish
117.Button-start
118.Button-usually2
119.Item get-power up
120.Item get-status up

121.Cannon-synth
122.Alert
123.wabblebass-down
124.wabblebass-up
125.Machine crash
126.Burner boost
127.Robot-moving
128.Robot-shining eyes
129.Robot-wakeup
130.Vocorder-a131.Vocorder-i132.Vocorder-u133.Vocorder-e134.Vocorder-o1. Kung-Fu POP
2. With stealthy steps
3. Flat out run
4. Nostalgia TECHNO
5. Feel easy
6. Have a good time
7. Relief
8. Exciting days
9. Skipping march
10.Valiant departure
11.Important thing
12.Chasing at 'Ooedo'
13.Funny land
14.Step on the accelerator
15.Experiment
16.New discovery
17.Thinking time
18.Mischievous boy
19.Float
20.Sound of the surf
21.Sound of the surf2
22.Spy movie
23.Calculating
24.Take Off!

25.The evening moon.
26.Sensibility
27.Pure water
28.Strategy
29.cure30.Intense battle
31.Keen competition
32.Heat uuuup!!
33.Rise with force
34.Bright blue
35.Storyteller
36.Return trip
37.High spirits
38.Welcome to the party
39.Funky claps
40.Night surfer
41.Ready to FLY
42.We are heroes
43.Pure water2

••••–BGMPLAY•":0CDEFGAB<C2:1@129O2L8[CEFG]4"•
BGMSTOP•EFCOFF•SYSBEEP=1–•––––

•ACLS

•––•
•
RENAME–"＠BACKUP.PRG","REBORN""REBORN"•FILES–FILES
*ABC
*BBB
*XYZ
-- 14874144
OKkbytes

free--•