1000 '********************************************
1010 '*     おもしろくない！プログラム
1020 '*                 Jul.13 '90  by H.Miyamoto
1030 '********************************************
1040 CONSOLE ,,,1:CLS 3
1050 PRINT"おもしろくない！度合いを入力して下さい。［１〜5000］"
1060 PRINT
1070 INPUT"（だいたい 500位が普通の《おもしろくない度》です。）";INTEN
1080 CLS
1090 RANDOMIZE INTEN
1100 TI1=VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
1110  FOR I=1 TO 22
1120   FOR J=0 TO 3
1130     D=RND
1140     C=INT(D*10)
1150     IF C<1 OR C>7 GOTO 1130
1160     COLOR C
1170     LOCATE J*18,I
1180     PRINT"え〜い、もう・・・"
1190      FOR K=0 TO INTEN
1200      NEXT
1210     LOCATE J*18,I
1220     PRINT"おもしろくない！　"
1230   NEXT
1240  NEXT
1250 PRINT:COLOR 7
1260 TI2=VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
1270 TI=TI2-TI1
1280 IF TI<=5 THEN PRINT"本当はおもしろかったんですよ〜だ。"
1290 IF TI>5 AND TI<=10 THEN PRINT"今日は、まあまあのおもしろさだった・・・。"
1300 IF TI>10 THEN PRINT"ほんとに、まったく、おもしろくなかったんだ！えーいくそ！"
1310 PRINT
1320 INPUT"《おもしろくない！》のを繰り返しますか。［Ｙ or Ｎ］";YN$
1330 IF YN$="y" OR YN$="Y" GOTO 1040
1340 RUN"BO-MENU.BAS"