;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
;	ViI@t[
;
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	EFCg
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.img
..
.reset
.chapter v[O
.wait 4


;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	ݒ
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
? \x = 1

; \ẍp
.if 1 < ő僌x
	.select
		ߋ̗\M
		ߋ̗\MȂ
	.case 1
		? \x = ő僌x
	.end

.end

; v[ÕXLbv
.if ő僌x
	.select
		on߂
		ɏoĂƂ납n߂
	.case 2
		.goto #P_END
	.end
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	v[O
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.call P00
.call P01
.call P02
.call P03
.call P04
.movie OP.mpg

#P_END
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	419
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.19
.call 041900
.call 041901
.call 041902
.call 041903
.map 419
	ߊ@	Xg
	XX	m
.case 1
	? Xg = Xg + 1
	.call 041904a
.case 2
	? m = m + 1
	.call 041904e
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	420
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.20
.call 042000
.call 042001
.call 042002
.call 042003
.map 420
	XX	Xg
		
	w	m
.case 1
	? Xg = Xg + 1
	.call 042004a
.case 2
	?  =  + 1
	.call 042004d
.case 3
	? m = m + 1
	.call 042004e
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	421
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.21
.call 042100
.call 042101
.call 042102
.map 421
	w	e
	wO	g	ydvCxgz
.case 1
	? e = e + 1
	.call 042103c
.case 2
	? g = g + 1
	.call 042103f
.end
.call 042104

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	422
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.22
.call 042200
.map 422
	e@	e
			ydvCxgz
	Hn	m
.case 1
	? e = e + 1
	.call 042201c
	.goto #0422_END
.case 2
	?  =  + 1
	.call 042201d
	.goto #0422_END
.case 3
	? m = m + 1
	.call 042201e
.end

.map 422
	ߊ@	Xg
	iX	V
.case 1
	? Xg = Xg + 1
	.call 042202a
.case 2
	.call 042202j
.end

#0422_END
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	423
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.23
.call 042300
.call 042301
.map 423
	w	eBA
	@	
.case 1
	? eBA = eBA + 1
	.call 042302b
.case 2
	?  =  + 1
	.call 042302d
.end
.call 042303

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	424
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.24
.call 042400
.call 042401
.call 042402
.call 042403

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	425
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.25
.call 042500
.call 042501
.call 042502
.call 042503

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	426
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.26
.call 042600
.call 042601
.call 042602
.map 426
	w	eBA	ydvCxgz
	XX		ydvCxgz
	iX	q
.case 1
	? eBA = eBA + 1
	.call 042603b
.case 2
	?  =  + 1
	.call 042603d
.case 3
	.call 042603h
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	427
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.27
.call 042700
.call 042701
.call 042702
.map 427
	XX	e
	iX	m	ydvCxgz
	Ht@	ߔ
	_	mXg_X
.case 1
	? e = e + 1
	.call 042703c
.case 2
	? m = m + 1
	.call 042703e
.case 3
	.call 042703g
.case 4
	.call 042703k
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	428
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.28
.call 042800

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	[g
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;ZbgL
? e   = e + eBA
? m = m + g

; K{Cxgl
.if !$042603d
	?  = 0
.end

.if !$042703e
	? m = 0
.end

; [g
.if Xg & (m <= Xg) & ( <= Xg) & (e <= Xg)
	? [g = Xg[g
.elsif m & (Xg <= m) & ( <= m) & (e <= m)
	? [g = m[g
.elsif  & (Xg <= ) & (m <= ) & (e <= )
	? [g = 냋[g
.else
	? [g = e[g
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	[g
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.if [g == Xg[g
	.call 042800a
	.map 428
		ߊ@	Xg
	.end
	.call 042801a
	;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	;	429
	;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	.date 4.29
	.map 429
		ߊ@	Xg
			
	.case 1
		.call 042900a
	.case 2
		.call 042900d
	.end
.else
	.call 042800c
	.if [g == m[g
		.map 428
			w	Q
			iX	g
		.case 1
			.goto #0428_HI
		.case 2
			.call 042801f
			;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			;	429
			;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			.date 4.29
			.call 042900e
		.end
	.else
		.map 428
			w	Q
		.end

		#0428_HI
		.call 042801i
		;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
		;	429
		;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
		.date 4.29
		.map 429
			ߊ@	e
				
		.case 1
			.call 042900c
		.case 2
			.call 042900d
		.end
	.end
.end


;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	430
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 4.30
.call 043000

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	51
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 5.01
.call 050101
.map 51
	ߊ@	ߔ
	iX	g
.case 1
	.call 050102e
.case 2
	.call 050102f
	; g[gXCb`
	.if ([g == m[g) & mNA
		? [g = g[g
	.end
.end
.call 050103b

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	52`54
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
; 52
.date 5.02
.switch [g
.case Xg[g
	.call 050200a
.case g[g
	.call 050200f
	.call 050300f
	.call 050400e
	.goto #0505
.case 냋[g
	.call 050200d
	.call 050201d
.case
	.call 050201b
.end

; 53
.date 5.03
.map 53
	ߊ@	e
	iX	ߔ
.case 1
	.call 050300c
.case 2
	.call 050300e
.end

; 54
.date 5.04
.switch [g
.case Xg[g
	.call 050400a
.case e[g
	.call 050400c
.case m[g
	.call 050400e
.end

#0505
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	55
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.date 5.05
.call 050500
.call 050501
.call 050502c

.switch [g
.case Xg[g
	.date 5.08
	.call 050800a
	.date 5.10
	.call 051000a
	.date 5.11
	.call 051100a
	.call 051101ah
	.date 5.13
	.call 051300a
	.date 5.15
	.call 051500a
	.call 051501ah
	.date 5.18
	.call 051800a
	.date 5.19
	.call 051900a
	.call 051901ah
	.date 5.21
	.call 052100a
	.call 052101a
	.date 5.24
	.call 052400a
	.date 5.25
	.call 052500a
	.call 052501a
	.call 052502a
	.call EPa
	.call staffroll
	? XgNA = 1

.case e[g
	.date 5.07
	.call 050700b
	.date 5.08
	.call 050800c
	.date 5.09
	.call 050900c
	.date 5.10
	.call 051000c
	.date 5.13
	.call 051300b
	.date 5.15
	.call 051500c
	.date 5.17
	.call 051700b
	.date 5.18
	.call 051800b
	.date 5.20
	.call 052000c
	.date 5.21
	.call 052100c
	.call 052101ch
	.call 052102c
	.date 5.22
	.call 052201c
	.call 052202ch
	.call 052203b
	.date 5.23
	.call 052300c
	.call 052301b
	.call 052302bh
	.date 5.25
	.call 052500b
	.call 052501bh
	.date 5.26
	.call 052601ch
	.date 5.27
	.call 052700b
	.call 052701bh
	.date 5.28
	.call 052800c
	.date 5.29
	.call 052900c
	.call 052901c
	.date 5.30
	.call 053000c
	.call 053001c
	.call EPb
	.call staffroll
	.call EPc
	? eNA = 1
	? eBANA = 1
.case 냋[g
	.date 5.07
	.call 050700d
	.date 5.10
	.call 051000d
	.call 051001d
	.date 5.11
	.call 051100d
	.date 5.15
	.call 051500d
	.call 051501dh
	.call 051502d
	.date 5.16
	.call 051600d
	.date 5.17
	.call 051700d
	.call 051701d
	.call 051702dh
	.date 5.20
	.call 052000d
	.call 052001dh
	.date 5.21
	.call 052100d
	.date 5.22
	.call 052200d
	.date 5.25
	.call 052500d
	.call 052501d
	.call 052501dh
	.call 052503d
	.date 5.29
	.call 052900d
	.call EPd
	.call staffroll
	? NA = 1
.case
	.date 5.07
	.call 050700e
	.date 5.08
	.call 050800e
	.date 5.09
	.call 050900e
	.call 050901f  if ([g == g[g)
	.date 5.10
	.call 051000e
	.date 5.11
	.call 051100e
	.date 5.12
	.call 051200e
	.call 051201e
	.if ([g == g[g)
		.date 5.13
		.call 051300f
		.call 051301fh
		.date 5.18
		.call 051800f
		.call 051801fh
		.call EPf
		.call staffroll
		? gNA = 1
	.else
		.date 5.13
		.call 051300e
		.date 5.14
		.call 051400e
		.call 051401e
		.date 5.16
		.call 051600e
		.date 5.17
		.call 051700e
		.date 5.18
		.call 051800e
		.call 051801eh
		.date 5.21
		.call 052100e
		.call 052101eh
		.date 5.24
		.call 052401eh
		.date 5.25
		.call 052500eh
		.date 5.27
		.call 052700e
		.call 052701e
		.date 5.28
		.call 052800e
		.call 052801e
		.date 5.29
		.call 052900e
		.call 052901e
		.date 5.30
		.call 053001e
		.call 053002e
		.call EPe
		.call staffroll
		? mNA = 1
	.end
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	\ẍp
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.if ő僌x < \x
	? ő僌x = \x
.end

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	I
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

.load title

