100 LET[1],"HARE","KUMORI","AME",100,"v",">","^"
110 Y=20:N=0:P=0
120 PRINT"7/20 ASHITA KARA NATSUYASUMI!":?
130 @LOOP:N=N+1:IF Y>100 THEN Y=100
140 H=RND(98)+1:K=RND(98-H)+1:A=100-H-K:T=RND(100)+1
150 E=(H<=T)+((K+H)<=T)+1:R=(Y>30)+(Y>70)+5
160 PRINT"SHUKUDAI:";P;"PAGE YARUKI:";STR$([R])
170 IF N>42 THEN PRINT"NATSUYASUMIHA OWARIMASITA..ZANNEN..":END
180 IF N<12 THEN PRINT"7/";N+20; ELSE PRINT"8/";N-11;
190 PRINT" TENKIYOHOU HARE:";H;"% KUMORI:";K;"% AME:";A;"%"
200 @D:INPUT"DOUSURU?(1:SHUKUDAI 2:ASOBU 3:NERU):",D
210 IF D<1 OR D>3 GOTO @D
220 PRINT"KYOU NO TENKI:";STR$([E])
230 IF D=1 GOTO @SKD ELSE IF D=2 GOTO @ASB
240 PRINT"NETARA...SUKKIRI!?":Y=Y+RND(30):GOTO @RTN
250 @SKD:W=RND(2)+E:IF Y>=20 THEN Y=Y-20:W=W+RND(2)+2
260 IF (P+W)>100 THEN W=100-P
270 PRINT"SHUKUDAI:";W;"PAGE YATTA!":P=P+W:GOTO @RTN
280 @ASB:W=(RND(10)+30)*(E=1):W=W+(RND(20)+10)*(E=2)
290 W=W+RND(10)*(E=3):Y=Y+W
300 PRINT"YARUKIGA AGATTA!"
310 @RTN:PRINT"----":IF P<[4] GOTO @LOOP
320 PRINT"SHUKUDAI:";[4];"PAGE OWATTA! OMEDETOU!":END

10 REM pronama-chan dot picture @machuoka
20 CLS
30 LET [0],#1800,#0000,#0000,#0090
40 LET [4],#0180,#0000,#9008,#0900
50 LET [8],#0050,#4200,#0050,#4209
60 LET [12],#081A,#A004,#00A4,#5042
70 LET [16],#0505,#A005,#6529,#A055
80 LET [20],#E8BD,#008C,#6F47,#20E8
90 LET [24],#A061,#0000,#9555,#09B9
100 LET [28],#B01D,#0809,#F3F5,#51A1
110 LET [32],#E554,#AAD8,#0992,#55A5
120 LET [36],#B551,#1B65,#5D20,#061D
130 LET [40],#AAA5,#00E2,#0000,#0039
140 LET [44],#950A,#4005,#0000,#0A05
150 LET [48],#4242,#0009,#6080,#4655
160 LET [52],#5000,#2490,#0612,#D9D7
170 LET [56],#AA00,#D60A,#80EC,#01A1
180 LET [60],#0100,#6509,#A951,#0050
190 I=0
200 FOR Y=0 TO 15
210 LOCATE 8,Y+4
220 FOR X=0 TO 15 STEP 4
230 D=[I]:I=I+1
240 FOR J=1 TO 4
250 C=D&#000F:D=D>>4
260 PRINT CHR$(C+#80);
270 NEXT:NEXT:NEXT
280 LOCATE 0,22
290 END

		// log the message
		static::instance()->log($level, (empty($method) ? '' : $method.' - ').$msg);

		return true;
	}

	/**
	 * Return the monolog instance
	 */
	public static function instance()
	{
		// make sure we have an instance
		static::$monolog or static::_init();

		// return the created instance
		return static::$monolog;
	}

<?php

class myLog extends Fuel\Core\Log {

	/*
	** 日付またぎ用メソッド
	** Logクラスのインスタンスを破棄して新たに作成させる
	*/
	public static function nextday() {

		self::$monolog = null;
	}
}