10 T=0:C=15:G=20:X=15:Y=2:V=1:E=0:F=0:B=0:D=0 15 CLS 20 FOR I=1 TO 32 30 LC I-1,G:?CHR$(143); 40 NEXT 100 LC 0,0:?"time:";T; 110 LC X,Y:?" "; 120 IF X<=5 V=1 130 IF X>=25 V=-1 140 X=X+V 150 LC X,Y:?CHR$(237) 160 IF BTN(SPACE)*(B=0) B=1:E=X:F=Y 170 IF B<>1 GOTO 400 180 LC E,F:?" "; 190 F=F+1 200 Z=247 210 S=SCR(E,F+1) 220 IF ((S==0)+(S==32))*((F+1)<G) GOTO 300 230 B=0:Z=143 240 IF F<=(Y+1) D=1 300 LC E,F:?CHR$(Z); 400 IF D=1 LC 3,15:?"Your Tower is The Babel!!":END 500 T=T+1 600 WAIT 6 610 GOTO 100
移植してくれてありがとうございます! こちらはスペースキーで発射になっているのですね。