aa.txt

可以在嵌入式应用中

10 cls
20 locate 1,2:print "WELCOME TO THE BASIC WORLD!!"
30 locate 2,4:print "PRESS ANY KEY TO CONTINUE."
35 A$="REDBOY BASIC FOR GBA V1.0.":j=1000:i=0
40 while getkey(1)=0
45 a$=strmv$(a$,0,1)
50 locate 2,6:print a$
60 i=i+1
70 line 20+i,100,20+i,120,j,4
75 WRITE 50,105,RND(30000),"欢迎来到BASIC的世界!!"
80 if i=200 THEN (i=0:j=j+100)
90 if i%20=0 THEN (locate 2,4:print "                          ")
95 if i%25=0 then (locate 2,4:print "PRESS ANY KEY TO CONTINUE.")
100 wend
105 cls
110 screen 30*1024+30
120 box 5,5,230,20,30*1024+30*32,4
130 box 5,5,10,155,30*32+30,5
140 write 13,8,0,"欢迎使用REDBOY BASIC!"
150 write 13,25,0,"按任意健进行循环体的测试."
160 locate 2,4:print "FOR I=1 TO 10"
170 locate 2,5:print "PRINT SIN(I)";
180 locate 2,6:print "NEXT"
190 for i=1 to 10
200 locate 2,7:print "SIN(";i;")=";sin(i)
210 next
220 a=getkey(0):cls
230 write 0,5,0,"下面进行输入测试:"
235 Locate 0,2:print "PRESS START TO END INPUTING"
240 locate 0,3:print "INPUT:";
250 input b$
260 print "THE STRING YOU PUT IN IS:"
270 print b$
280 print "STRING LENGTH:";len(b$)
290 a=getkey(0):cls
300 print "GRAPH TESTING"
310 box 30,50,210,80,RND(34567),0
320 line 4,6,200,150,RND(34875),0
330 circle 60,60,50,rnd(23456),0
340 box 40,60,200,70,rnd(34567),4
350 box 60,10,75,140,rnd(45673),5
5000 a=getkey(0)
0 REM BASIC START