lwong的博客

2 J=PEEK(1129):K=PEEK(1130):W=(PEEK(1131)/2):PIC$ =" " 3 OPEN "TIME" FOR OUTPUTAS#1:WRITE#1,PIC$ ,J,K,W:CLOSE#1 5 GOSUB 5450 10 TEXT:INVERSE:CLS:PRINT "【红色警戒】Ver 2.0 "," ";CHR$ (144);".[新游戏] " 20 PRINT " ";CHR$ (145);".[载入游戏] "," ";CHR$ (146);".[离开游戏] " 25 PRINT " ";CHR$ (147);".[显示风格] ";:W$ =INKEY$ :IF FG=0THEN NORMAL 30 IF W$ ="b" THEN GOTO 100 40 IF W$ ="n" THEN GOTO 200 45 IF W$ ="g" THEN GOTO 61 50 IF W$ ="m" OR ASC(W$ )=27 THEN GOTO 5690 60 GOTO 9 61 CLS:PRINT "(请选择)","1.正常显示","2.反白显示":W$ =INKEY$ 65 IF W$ ="b" THEN FG=0 67 IF W$ ="n" THEN FG=2 70 GOTO 9 100 HP=65 110 LIFE=65 120 STR=25 130 MO=200 140 AC