#1810/3137　空中分解２
★タイトル (HBJ     )  92/ 6/16   9:36  ( 34)
リレーＱ＞ブッシュ大統領殺人事件（２３）＜暇・アホ・コウ
★内容
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