空中分解２ #1810の修正

★タイトルと名前

★内容（1行全角40字未満、500行まで）
100 'save "BUSH",A 120 DEFINT A-Z 130 *START 140 SCREEN 3,2,0,1:CLS 3:WIDTH 80,25:CONSOLE 0,25,0,1:COLOR 4,,,4 150 COLOR 4 160 LOCATE 10, 5:PRINT"ﾎﾝﾓﾉﾉBUSH ﾊ ﾀﾞﾚﾀﾞ! 170 LOCATE 10, 7:PRINT"( 1) ( 2) ( 3) ( 4) ( 5) ( 6) 180 COLOR 5 190 LOCATE 10, 9:PRINT"(^^) (ｰｰ) (~~) (__) ('') (++) 200 COLOR 6 210 LOCATE 10,10:PRINT"-||- -||- -||- -||- -||- -||- 220 LOCATE 10,11:PRINT" || || || || || || 230 COLOR 4 240 LOCATE 10,13:PRINT"INPUT ANY KEY!->? 250 LOCATE 27,13 260 A$=INKEY$ 270 IF A$="" THEN GOTO 260 280 K0=ASC(A$) 290 IF K0<49 OR K0>54 THEN GOTO *START 300 LOCATE 28,13:PRINT A$ 301 SEC=VAL(RIGHT$(TIME$,2)) 310 K1=K0+SEC 320 K0=K1 MOD 6 330 FOR A=1 TO 7 340 COLOR A 370 IF K0=0 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ﾋｶﾞｼBUSH! 380 IF K0=1 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ﾆｼBUSH! 390 IF K0=2 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ﾐﾅﾐBUSH! 400 IF K0=3 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ｷﾀBUSH! 410 IF K0=4 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ﾁｭｳBUSH! 420 IF K0=5 THEN LOCATE 10,15:PRINT"ﾊｽﾞﾚ! I am ﾑｻｼBUSH! 430 BEEP 440 NEXT A 450 GOTO *START
メールアドレス 　パスワード
※書き込みにはメールアドレスの登録が必要です。
まだアドレスを登録してない方はこちらへ メールアドレス登録
アドレスとパスワードをブラウザに記憶させる メッセージを削除する

「空中分解２」一覧

オプション検索　利用者登録　アドレス･ハンドル変更
TOP PAGE