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
110 cls
120 color 31710
130 locate 9,3:print "----MENU----"
140 locate 9,4:print "1.CALCULATOR"
150 locate 9,5:print "2.MINI GAMES"
160 locate 9,6:print "3.EXIT BASIC"
170 box 70,30,170,70,2345,4
180 old=0:sel=1:do=0
185 gosub 1020
190 while do<>9
200 do=getkey(0)
210 if do=1 then sel=sel-1
220 if do=2 then sel=sel+1
230 if sel<1 then sel=3
240 if sel>3 then sel=1
250 gosub 1020
260 wend
270 locate 9,7:print "LOAD..."
280 on sel goto 305,350,400
305 for i=1 to 4
310 for j=4 to 7
320 print i;"+";j;"=";i+j
325 next
330 next
331 a=getkey(0)
335 cls
340 old=0:goto 130
350 print "NO GAME FOUND!"
360 cls
370 old=0:goto 130
400 end
1000 a=getkey(0)
1020 if sel then box 70,30+sel*10,170,39+sel*10,0,5
1030 if old then box 70,30+old*10,170,39+old*10,0,5
1040 old=sel
1050 ret
0 REM BASIC START