deamon.bas

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

10 CLS
15 DEAMON 1155,4
16 LOCATE 6,8:PRINT INT(TIME(0)/4);" SECONDS PASSED";
17 DEND
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