welcome.bas

实现GBA上看电子束实现GBA上看电子束

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