; background graphics


.include "intro_graphics/01_building/intro_building.inc"
.include "intro_graphics/01_building/intro_car.inc"
.include "intro_graphics/01_building/intro_building_car.inc"

.include "intro_graphics/02_outer_door/outer_door.inc"
.include "intro_graphics/02_outer_door/feet.inc"

.include "intro_graphics/03_elevator/intro_elevator.inc"
.include "intro_graphics/03_elevator/intro_off_elevator.inc"
.include "intro_graphics/03_elevator/intro_walking.inc"

.include "intro_graphics/04_keypad/intro_scanner_door.inc"
.include "intro_graphics/04_keypad/intro_approach.inc"
.include "intro_graphics/04_keypad/intro_keypad_bg.inc"
.include "intro_graphics/04_keypad/intro_hands.inc"
.include "intro_graphics/04_keypad/intro_opening.inc"

.include "intro_graphics/05_scanner/intro_scanner.inc"
.include "intro_graphics/05_scanner/intro_scanning.inc"
.include "intro_graphics/05_scanner/intro_ai_bg.inc"
.include "intro_graphics/05_scanner/intro_ai.inc"

.include "intro_graphics/06_console/intro_desktop.inc"
.include "intro_graphics/06_console/intro_cursor.inc"
.include "intro_graphics/06_console/intro_collider.inc"

.include "intro_graphics/07_soda/intro_open_soda.inc"
.include "intro_graphics/07_soda/intro_drinking.inc"

.include "intro_graphics/08_lightning/lightning.inc"

.include "intro_graphics/09_tunnel/intro_tunnel1.inc"
.include "intro_graphics/09_tunnel/intro_tunnel2.inc"

.include "intro_graphics/10_gone/intro_zappo.inc"
.include "intro_graphics/10_gone/intro_gone.inc"



;========================
; Car driving up sequence

building_sequence:
	.byte	255
	.word	building_rle
	.byte	1
	.word	building_rle
	.byte	128+126	;	.word	intro_car1
	.byte	128+2	;	.word	intro_car2
	.byte	128+2	;	.word	intro_car3
	.byte	128+2	;	.word	intro_car4
	.byte	128+2	;	.word	intro_car5
	.byte	128+2	;	.word	intro_car6
	.byte	128+2	;	.word	intro_car7
	.byte	128+2	;	.word	intro_car8
	.byte	128+2	;	.word	intro_car9
	.byte	128+126	;	.word	intro_car10
;	.byte	0

;========================
; Getting out of car sequence

outtacar_sequence:
	.byte	255
	.word	building_car_rle
	.byte	1
	.word	building_car_rle
	.byte	100
	.word	intro_car12
	.byte	128+50	;	.word	intro_car13
	.byte	128+125	;	.word	intro_car14
	.byte	125
	.word	intro_car14
	.byte	0


;=============================
; Feet going in door sequence

feet_sequence:
	.byte	255
	.word	outer_door_rle
	.byte	1
	.word	outer_door_rle
	.byte	128+100	;	.word	feet01_rle
	.byte	128+10	;	.word	feet02_rle
	.byte	128+10	;	.word	feet03_rle
	.byte	128+10	;	.word	feet04_rle
	.byte	128+10	;	.word	feet05_rle
	.byte	128+10	;	.word	feet06_rle
	.byte	128+10	;	.word	feet07_rle
	.byte	128+10	;	.word	feet08_rle
	.byte	128+30	;	.word	feet09_rle
	.byte	128+10	;	.word	feet10_rle
	.byte	128+10	;	.word	feet11_rle
	.byte	128+10	;	.word	feet12_rle
	.byte	128+10	;	.word	feet13_rle
	.byte	128+10	;	.word	feet14_rle
	.byte	128+10	;	.word	feet15_rle
	.byte	10
	.word	nothing_rle
	.byte	100
	.word	nothing_rle
	.byte	0

	; Elevator light co-ordinates
	; we load them backwards
indicators:
	.byte 	18,4	; 4
	.byte	16,3	; 3
	.byte 	14,2	; 2
	.byte	18,2	; 1
	.byte	16,1	; 0






; Walking off elevator sequence

walking_sequence:
	.byte	20
	.word	walking01_rle
	.byte	128+20	;	.word	walking02_rle
	.byte	128+20	;	.word	walking03_rle
	.byte	128+20	;	.word	walking04_rle
	.byte	128+20	;	.word	walking05_rle
	.byte	128+20	;	.word	walking06_rle
	.byte	128+20	;	.word	walking07_rle
	.byte	128+20	;	.word	walking08_rle
	.byte	20
	.word	walking08_rle
	.byte	0

; Approaching keypad sequence

approach_sequence:
	.byte	20
	.word	approach01_rle
	.byte	128+20	;	.word	approach02_rle
	.byte	128+20	;	.word	approach03_rle
	.byte	128+20	;	.word	approach04_rle
	.byte	128+20	;	.word	approach05_rle
	.byte	128+20	;	.word	approach06_rle
	.byte	128+20	;	.word	approach07_rle
	.byte	80
	.word	approach07_rle
	.byte	0

; Using keypad sequence

keypad_sequence:
	.byte	9
	.word	hand04_01_rle
	.byte	9
	.word	hand04_02_rle
	.byte	9
	.word	hand04_03_rle
	.byte	9
	.word	hand04_02_rle
	.byte	9
	.word	hand05_01_rle
	.byte	9
	.word	hand05_02_rle
	.byte	9
	.word	hand05_03_rle
	.byte	9
	.word	hand05_04_rle
	.byte	9
	.word	hand01_01_rle
	.byte	9
	.word	hand01_02_rle
	.byte	9
	.word	hand01_03_rle
	.byte	9
	.word	hand04_02_rle
	.byte	9
	.word	hand01_02_rle
	.byte	9
	.word	hand01_03_rle
	.byte	9
	.word	hand04_02_rle
	.byte	9
	.word	hand09_01_rle
	.byte	9
	.word	hand09_02_rle
	.byte	9
	.word	hand09_03_rle
	.byte	9
	.word	hand09_04_rle
	.byte	9
	.word	hand09_05_rle
	.byte	9
	.word	hand03_01_rle
	.byte	9
	.word	hand03_02_rle
	.byte	9
	.word	hand03_03_rle
	.byte	9
	.word	hand03_04_rle
	.byte	9
	.word	hand02_01_rle
	.byte	9
	.word	hand02_02_rle
	.byte	9
	.word	hand02_03_rle
	.byte	9
	.word	hand02_04_rle
	.byte	9
	.word	hand02_05_rle
	.byte	12
	.word	hand02_05_rle
	.byte	0


; Door opening sequence

opening_sequence:
	.byte	15
	.word	opening01_rle
	.byte	128+15	;	.word	opening02_rle
	.byte	128+15	;	.word	opening03_rle
	.byte	128+15	;	.word	opening04_rle
	.byte	128+15	;	.word	opening05_rle
	.byte	128+15	;	.word	opening06_rle
	.byte	128+15	;	.word	opening07_rle
	.byte	128+15	;	.word	opening08_rle
	.byte	128+15	;	.word	opening09_rle
	.byte	128+15	;	.word	opening10_rle
	.byte	128+15	;	.word	opening11_rle
	.byte	128+15	;	.word	opening12_rle
	.byte	15
	.word	nothing_rle
	.byte	100
	.word	nothing_rle
	.byte	0

; Scanning sequence

scanning_sequence:
	.byte	15
	.word	scan01_rle
	.byte	128+15	;	.word	scan02_rle
	.byte	128+15	;	.word	scan03_rle
	.byte	128+15	;	.word	scan04_rle
	.byte	128+15	;	.word	scan05_rle
	.byte	128+15	;	.word	scan06_rle
	.byte	128+15	;	.word	scan07_rle
	.byte	128+15	;	.word	scan08_rle
	.byte	128+15	;	.word	scan09_rle
	.byte	128+15	;	.word	scan10_rle
	.byte	128+20	;	.word	scan11_rle
	.byte	128+20	;	.word	scan12_rle
	.byte	128+20	;	.word	scan13_rle
	.byte	128+20	;	.word	scan14_rle
	.byte	128+20	;	.word	scan15_rle
	.byte	128+20	;	.word	scan16_rle
	.byte	128+40	;	.word	scan17_rle
	.byte	128+40	;	.word	scan18_rle
	.byte	128+40	;	.word	scan19_rle
	.byte	40
	.word	scan19_rle
	.byte	0


; AI sequence

ai_sequence:
	.byte	0,50		; pause at start, no dna
	.word	ai01_rle	; slices

	.byte	0,50		; pause at start, no dna
	.word	ai02_rle	; slices_zoom

	.byte	0,50		; pasue as start, no dna
	.word	ai03_rle	; little circle

	.byte	0,50		; pause at start, no dna
	.word	ai04_rle	; big circle

	.byte	1,20		; pause longer, yes dna
	.word	ai05_rle	; key

	.byte	0,0
;	.word	ai05_rle	; key
;	.byte	0

static_pattern:
	.word	nothing_rle	; 0
	.word	nothing_rle	; 2
	.word	static01_rle	; 4
	.word	static03_rle	; 6
	.word	static02_rle	; 8
	.word	static01_rle	; 10

; Power-up sequence

powerup_sequence:
	.byte	20
	.word	powerup01_rle
	.byte	128+60	;	.word	powerup02_rle
	.byte	128+20	;	.word	powerup03_rle
	.byte	20
	.word	powerup03_rle
	.byte	0


; Cursor sequence

cursor_sequence:
	.byte	60
	.word	cursor01_rle
	.byte	128+40	;	.word	cursor02_rle
	.byte	128+20	;	.word	cursor03_rle
	.byte	128+20	;	.word	cursor04_rle
	.byte	128+20	;	.word	cursor05_rle
	.byte	128+20	;	.word	cursor06_rle
	.byte	128+20	;	.word	cursor07_rle
	.byte	128+20	;	.word	cursor08_rle
	.byte	60
	.word	cursor08_rle
	.byte	0


peanut:
	.byte 0,2,"COPYRIGHT (C) 1977 PEANUT COMPUTER, INC.",0
	.byte 0,3,"ALL RIGHTS RESERVED.",0
	.byte 0,5,"CDOS VERSION 5.01",0
	.byte 0,18,"> ",(' '|$80),0
	.byte 255
project_23:
	.byte "RUN PROJECT 23",0

accelerator:
	.byte 0,0,  "MODIFICATION OF PARAMETERS",0
	.byte 0,1,  "RELATING TO PARTICLE",0
	.byte 0,2,  "ACCELERATOR (SYNCHOTRON).",0
	.byte 0,3,  " ___________",0
	.byte 0,4,  ":ROOM 3   ",('+'|$80),":\  E: 23%",0
	.byte 0,5,  ":          : : G: .005",0
	.byte 0,6,  ": :        : : RK: 77.2L",0
	.byte 0,7,  ":          : :",0
	.byte 0,8,  ":          : : OPT: G+",0
	.byte 0,9,  ": :        : :",0
	.byte 0,10, ":__________:_:  SHIELD:",0
	.byte 0,11, ":ROOM 1   ",('+'|$80),": : 1: OFF",0
	.byte 0,12, ": :        : : 2: ON",0
	.byte 0,13, ":          : : 3: ON",0
	.byte 0,14, ": :        : :",0
	.byte 0,15, ":          : : P^: 1",0
	.byte 0,16, ": :        : :",0
	.byte 0,17, ": _________:_:",0
	.byte 0,18, ":/_________:/",0
	.byte 255

; Power-up sequence

soda_sequence:
	.byte	1
	.word	soda01_rle
	.byte	128+30	;	.word	soda02_rle
	.byte	128+15	;	.word	soda03_rle
	.byte	128+15	;	.word	soda04_rle
	.byte	128+15	;	.word	soda05_rle
	.byte	128+15	;	.word	soda06_rle
	.byte	128+15	;	.word	soda07_rle
	.byte	128+15	;	.word	soda08_rle
	.byte	128+15	;	.word	soda09_rle
	.byte	20
	.word	soda09_rle
	.byte	0



	; Scanning text

good_evening:
	.byte 2,21,"GOOD EVENING PROFESSOR.",0
ferrari:
	.byte 2,21,"I SEE YOU HAVE DRIVEN HERE IN YOUR",0
	.byte 2,22,"FERRARI.",0


dna_list:
	.word dna0_sprite
	.word dna1_sprite
	.word dna2_sprite
	.word dna3_sprite
	.word dna4_sprite
	.word dna5_sprite
	.word dna6_sprite
	.word dna7_sprite

dna0_sprite:
	.byte   $7,$2
	.byte   $66,$40,$40,$40,$40,$40,$cc
	.byte   $06,$00,$00,$00,$00,$00,$0c

dna1_sprite:
	.byte   $7,$2
	.byte   $00,$66,$40,$40,$40,$cc,$00
	.byte   $00,$06,$00,$00,$00,$0c,$00

dna2_sprite:
	.byte   $7,$2
	.byte   $00,$00,$66,$40,$cc,$00,$00
	.byte   $00,$00,$06,$00,$0c,$00,$00

dna3_sprite:
	.byte   $7,$2
	.byte   $00,$00,$00,$66,$00,$00,$00
	.byte   $00,$00,$00,$06,$00,$00,$00

dna4_sprite:
	.byte   $7,$2
	.byte   $00,$00,$CC,$40,$66,$00,$00
	.byte   $00,$00,$0C,$00,$06,$00,$00

dna5_sprite:
	.byte   $7,$2
	.byte   $00,$CC,$40,$40,$40,$66,$00
	.byte   $00,$0C,$00,$00,$00,$06,$00

dna6_sprite:
	.byte   $7,$2
	.byte   $CC,$40,$40,$40,$40,$40,$66
	.byte   $0C,$00,$00,$00,$00,$00,$06

dna7_sprite:
	.byte   $7,$2
	.byte   $66,$40,$40,$40,$40,$40,$cc
	.byte   $06,$00,$00,$00,$00,$00,$0c



accel_paramaters:
	.byte	$15,$6,' ',20		; 21,4 = $615 Cursor starts at E
	.byte	$15,$6,' '|$80,1	;             Cusrsor off at E
	.byte	$96,$6,' ',100		; 22,5 = $696 Down to .005 (pauses)
	.byte	$96,$6,' '|$80,1	;             off
	.byte	$18,$7,' ',20		; 24,6 = $718 End of RK
	.byte	$18,$7,' '|$80,1	;             off
	.byte	$3E,$4,' ',100		; 22,8 = $43E End of g+ (pauses)
	.byte	$3E,$4,' '|$80,1	;             off
	.byte	$3D,$4,' ',20		; 21,8 = $43D erase +
	.byte	$3D,$4,'-'|$80,1	;             change to - (pauses)
	.byte	$3E,$4,' ',100		; 22,8 = $43e change to - (pauses)
	.byte	$3E,$4,' '|$80,1	;             off
	.byte	$BD,$5,' ',100		; 22,11= $5bd down to 1 (pauses)
	.byte	$BD,$5,' '|$80,1	;             off
	.byte	$3C,$6,' ',20		; 21,12= $63c down to 2
	.byte	$3C,$6,' '|$80,1	;             off
	.byte	$BC,$6,' ',20		; 21,13= $6bc down to 3
	.byte	$BC,$6,' '|$80,1	;             off
	.byte	$BC,$7,' ',20		; 21,15= $7bc down to P (pause)
	.byte	$BC,$7,' '|$80,1	;             off
	.byte	$ff


	; FLASH: RUN EXPERIMENT ? (pause)
run_experiment:
	.byte 10,20,"RUN EXPERIMENT ?",0
run_blank:
	.byte 10,20,"                ",0

;'R'|$80,'U'|$80,'N'|$80,' '|$80
;	.byte 10,20,'R'|$80,'U'|$80,'N'|$80,' '|$80
;	.byte 'E'|$80,'X'|$80,'P'|$80,'E'|$80,'R'|$80,'I'|$80
;	.byte 'M'|$80,'E'|$80,'N'|$80,'T'|$80,' '|$80,'?'|$80,0




	; --- Theoretical Study ---
	; make this inverse?
theoretical_study:
	.byte 7,20,"--- THEORETICAL STUDY ---",0

	; - Phase 0:
	; INJECTION of particles
	; into synchrotron
phase0:
	.byte 0,21,"- PHASE 0:",0
	.byte 0,22,"INJECTION OF PARTICLES",0
	.byte 0,23,"INTO SYNCHROTRON",0
	.byte $ff

	; - Phase 1:
	; Particle ACCELERATION.
phase1:
	.byte 0,21,"- PHASE 1:",0
	.byte 0,22,"PARTICLE ACCELERATION.",0
	.byte $ff

	; - Phase 2:
	; EJECTION of particles
	; on the shield.
phase2:
	.byte 0,21,"- PHASE 2:",0
	.byte 0,22,"EJECTION OF PARTICLES",0
	.byte 0,23,"ON THE SHIELD.",0
	.byte $ff

	; A  N  A  L  Y  S  I  S
analysis:
	.byte 8,22,"A  N  A  L  Y  S  I  S",0

	; - RESULT:
	; Probability of creating:
	; ANTIMATTER: 91.V %
	; NEUTRINO 27:  0.04 %
	; NEUTRINO 424: 18 %
result:
	.byte 0,20,"- RESULT, PROBABILITY OF CREATING:",0
	.byte 10,21,"ANTIMATTER: 91.V %",0
	.byte 10,22,"NEUTRINO 27:  0.04 %",0
	.byte 10,23,"NEUTRINO 424: 18 %",0
	.byte $ff

	; Practical verification Y/N ?"
practical_verification:
	.byte 6,21,"PRACTICAL VERIFICATION Y/N ?",0

	; THE EXPERIMENT WILL BEGIN IN 20 SECONDS
experiment:
	.byte 0,20,"THE EXPERIMENT WILL BEGIN IN 20 SECONDS",0
	.byte 29,20,"19",0
	.byte 29,20,"18",0
	.byte 29,20,"17",0


	; Particle co-ordinates
particles:
	.byte	21,23	; 0
	.byte	21,15	; 1
	.byte 	22,7	; 2
	.byte	27,2	; 3
	.byte 	32,6	; 4
	.byte	34,13	; 5
	.byte 	31,26	; 6
	.byte 	27,28	; 7


shield_sequence:
	.byte 30
	.word collider_p200_rle
	.byte 30
	.word collider_p201_rle
	.byte 30
	.word collider_p202_rle
	.byte 30
	.word collider_p203_rle
	.byte 30
	.word collider_p200_rle
	.byte 0


message0:
	.byte	8,22,"SHIELD 9A.5F OK ",0
message1:
	.byte	8,22,"FLUX % 5.0177 OK",0
message2:
	.byte	8,22,"CDI VECTOR OK   ",0
message3:
	.byte	8,22,"%%%DDD OK       ",0
message4:
	.byte	8,22,"RACE-TRACK OK   ",0

message_list:
	.word	message0
	.word	message1
	.word	message2
	.word	message3
	.word	message4


five:
	.byte 29,20,"5 ",0
four:
	.byte 29,20,"4 ",0
three:
	.byte 29,20,"3 ",0
two:
	.byte 29,20,"2 ",0
one:
	.byte 29,20,"1 ",0
zero:
	.byte 29,20,"0 ",0

times:
	; note, the second zero is there because we get a TIME_COUNT
	; of 6 even though it is printed then erased (but never displayed)
	.word five,four,three,two,one,zero,zero


drinking_sequence:
	.byte 30
	.word drinking02_rle
	.byte 128+30	;	.word drinking03_rle
	.byte 128+30	;	.word drinking04_rle
	.byte 128+30	;	.word drinking05_rle
	.byte 0


	; Lightning sequence
lightning_sequence:
	; 125 start
	; 126, small central lightning 1,2,3,4
	;
	.byte 100
	.word storm01_rle
	.byte 7
	.word storm02_rle
	.byte 7
	.word storm03_rle
	.byte 7
	.word storm04_rle
	.byte 7
	; 128.2 center glow in cloud 5,6,5
	;
	.word nothing_rle
	.byte 100
	.word storm05_rle
	.byte 7
	.word storm06_rle
	.byte 7
	.word storm05_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 128.7 inverse flash
	;
	.word flash_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 129.6 center left glow in cloud 8
	;
	.word storm08_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 130.1 glow in cloud, right 9
	;
	.word storm09_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 130.4 glow in cloud, right 10
	;
	.word storm10_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 131.7 small glow, center right 11,12
	;
	.word storm11_rle
	.byte 7
	.word storm12_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 133.5 lightning bolt right 13,14,15,16
	;
	.word storm13_rle
	.byte 7
	.word storm14_rle
	.byte 7
	.word storm15_rle
	.byte 7
	.word storm16_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 134.7 glow center left 8
	;
	.word storm08_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 135.2 small glow center 5,6,5
	;
	.word storm05_rle
	.byte 7
	.word storm06_rle
	.byte 7
	.word storm05_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 135.4 inverse flash
	;
	.word flash_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 135.8 another inverse flash
	;
	.word flash_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 135.5 glow right 9
	;
	.word storm09_rle
	.byte 7
	.word nothing_rle
	.byte 40
	; 136 small glow right 0
	;
	.word storm10_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 138.6 cloud glow 12,11,12
	;
	.word storm12_rle
	.byte 7
	.word storm11_rle
	.byte 7
	.word storm12_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 139.6 small bolt center 1,2,3,4
	;
	.word storm01_rle
	.byte 7
	.word storm02_rle
	.byte 7
	.word storm03_rle
	.byte 7
	.word storm04_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 141.4 right glow in cloud 10
	;
	.word storm10_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 143 glow in center 5,6,5
	;
	.word storm05_rle
	.byte 7
	.word storm06_rle
	.byte 7
	.word storm05_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 144.8 glow left 8
	;
	.word storm08_rle
	.byte 7
	.word nothing_rle
	.byte 80
	; 145.7 center glow cloud 11,12
	;
	.word storm11_rle
	.byte 7
	.word storm12_rle
	.byte 7
	.word nothing_rle
	.byte 0
;	.word nothing_rle

	;==============
	; split, as was > 256

bolt_sequence:
	.byte 80
	;=======================
	; 147 bolt right
	;=======================
	;	13,14,15
	.word storm13_rle
	.byte 128+5	;	.word storm14_rle
	.byte 128+5	;	.word storm15_rle
	.byte 5
	; 	screen goes white
	;	*all white
	.word white_rle
	.byte 8
	;	lightning animation
	;	* bolt1, 2,3,4,5,6,7
	.word bolt1_rle
	.byte 128+5	;	.word bolt2_rle
	.byte 128+5	;	.word bolt3_rle
	.byte 128+5	;	.word bolt4_rle
	.byte 128+5	;	.word bolt5_rle
	.byte 128+5	;	.word bolt6_rle
	.byte 128+5	;	.word bolt7_rle
	.byte 5
	;	* all white (a while)
	.word white_rle
	; 	* all black (a while)
	.word 128+30,black_rle
	.byte 30
	; 148.3 big bolt behind car
	;	29 .. 38, 40.. 42 (38 twice as long?)
	.word storm29_rle
	.byte 128+5	;	.word storm30_rle
	.byte 128+5	;	.word storm31_rle
	.byte 128+5	;	.word storm32_rle
	.byte 128+5	;	.word storm33_rle
	.byte 128+5	;	.word storm34_rle
	.byte 128+5	;	.word storm35_rle
	.byte 128+5	;	.word storm36_rle
	.byte 128+5	;	.word storm37_rle
	.byte 128+5	;	.word storm38_rle
	.byte 128+5	;	.word storm40_rle
	.byte 128+5	;	.word storm41_rle
	.byte 128+5	;	.word storm42_rle
	.byte 5
	; by 150 faded out and on to tunnel
	.word nothing_rle
	.byte 0
;	.word nothing_rle

	;=======================
	; Tunnel1 Sequence
	;=======================
tunnel1_sequence:
	.byte 10
	.word nothing_rle
	.byte 50
	; red blob
	.word tunnel1_01_rle
	.byte 128+2	;	.word tunnel1_02_rle
	.byte 128+2	;	.word tunnel1_03_rle
	.byte 128+2	;	.word tunnel1_04_rle
	.byte 128+2	;	.word tunnel1_05_rle
	.byte 2

	; lightning blob
	.word nothing_rle
	.byte 50
	.word tunnel1_06_rle
	.byte 128+2	;	.word tunnel1_07_rle
	.byte 2
	.word white_rle
	.byte 2
	.word tunnel1_08_rle
	.byte 128+2	;	.word tunnel1_09_rle
	.byte 128+2	;	.word tunnel1_10_rle
	.byte 128+2	;	.word tunnel1_11_rle
	.byte 128+2	;	.word tunnel1_12_rle
	.byte 128+2	;	.word tunnel1_13_rle
	.byte 128+2	;	.word tunnel1_14_rle
	.byte 128+2	;	.word tunnel1_15_rle
	.byte 128+2	;	.word tunnel1_16_rle
	.byte 128+2	;	.word tunnel1_17_rle
	.byte 128+2	;	.word tunnel1_18_rle
	.byte 128+2	;	.word tunnel1_19_rle
	.byte 2
	.word nothing_rle
	.byte 0


	;=======================
	; Tunnel2 Sequence
	;=======================
tunnel2_sequence:
	.byte 10
	.word nothing_rle
	.byte 50
	; red blob
	.word tunnel2_01_rle
	.byte 128+2	;	.word tunnel2_02_rle
	.byte 128+2	;	.word tunnel2_03_rle
	.byte 128+2	;	.word tunnel2_04_rle
	.byte 128+2	;	.word tunnel2_05_rle
	.byte 128+2	;	.word tunnel2_06_rle
	.byte 128+2	;	.word tunnel2_07_rle
	.byte 128+2	;	.word tunnel2_08_rle
	.byte 128+2	;	.word tunnel2_09_rle
	.byte 2
	.word nothing_rle
	.byte 50

	; lightning blob
	.word tunnel2_10_rle
	.byte 128+2	;	.word tunnel2_11_rle
	.byte 128+2	;	.word tunnel2_12_rle
	.byte 128+2	;	.word tunnel2_13_rle
	.byte 128+2	;	.word tunnel2_14_rle
	.byte 128+2	;	.word tunnel2_15_rle
	.byte 128+2	;	.word tunnel2_16_rle
	.byte 128+2	;	.word tunnel2_17_rle
	.byte 2
	.word nothing_rle
	.byte 0




	;=======================
	; Zappo Sequence
	;=======================
zappo_sequence:

	.byte 50
	.word white_rle

	.byte 2
	.word zappo01_rle				; B

	.byte 128+2	;	.word zappo02_rle	; B
	.byte 128+2	;	.word zappo03_rle	; A
	.byte 128+2	;	.word zappo04_rle	; B
	.byte 128+2	;	.word zappo05_rle	; B

	.byte 255
	.word zappo03_rle	; load A
	.byte 2
	.word zappo06_rle	; A

	.byte 255
	.word blue_zappo_rle	; load b
	.byte 2
	.word zappo07_rle	; B

	.byte 2
	.word zappo08_rle	; B

	.byte 255
	.word zappo03_rle	; load A
	.byte 2
	.word zappo09_rle	; A

	.byte 255
	.word blue_zappo_rle	; load b
	.byte 2
	.word zappo10_rle	; B

	.byte 255
	.word zappo03_rle	; load A
	.byte 2
	.word zappo11_rle	; A

	.byte 255
	.word blue_zappo_rle	; load b
	.byte 2
	.word zappo12_rle	; B
	.byte 128+2	;	.word zappo13_rle	; B
	.byte 128+2	;	.word zappo14_rle	; B

	.byte 255
	.word zappo03_rle	; load A
	.byte 2
	.word zappo15_rle	; A

	.byte 255
	.word blue_zappo_rle	; load b
	.byte 2
	.word zappo16_rle	; B
	.byte 128+2	;	.word zappo17_rle	; B
	.byte 2
	.word white_rle
	.byte 128+5	;	.word black_rle
	.byte 5
	.word white_rle
	.byte 128+5	;	.word black_rle
;	.byte 5
;	.word white_rle
;	.byte 1
;	.word black_rle
;	.byte 1
;	.word white_rle
;	.byte 1
;	.word black_rle
;	.byte 1
;	.word white_rle
;	.byte 1
;	.word black_rle
	.byte 0
	.word nothing_rle


	;=======================
	; Gone Sequence
	;=======================
gone_sequence:

	.byte 50
	.word white_rle

	.byte 7
	.word gone01_rle				; B

	.byte 128+7	;	.word gone02_rle	; B
	.byte 128+7	;	.word gone03_rle	; B
	.byte 128+7	;	.word gone04_rle	; B
	.byte 128+7	;	.word gone05_rle	; B
	.byte 128+7	;	.word gone06_rle	; B
	.byte 128+7	;	.word gone07_rle	; B
	.byte 128+7	;	.word gone08_rle	; B
	.byte 128+7	;	.word gone09_rle	; LB
	.byte 128+7	;	.word gone10_rle	; CY

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone11_rle	; LB

	.byte 255
	.word gone_rle		; B back into $c00
	.byte 7
	.word gone02_rle	; B (12 is dupe of 2)

	.byte 7
	.word gone13_rle	; B

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone14_rle	; LB

	.byte 255
	.word gone_rle		; B back into $c00 + plain
	.byte 7
	.word nothing_rle

	.byte 7
	.word gone16_rle	; B

	.byte 7
	.word nothing_rle	; B (plain?)

	.byte 7
	.word gone18_rle	; B
	.byte 128+7	;	.word gone19_rle	; B
	.byte 128+7	;	.word gone20_rle	; B
	.byte 128+7	;	.word gone21_rle	; B

	.byte 7
	.word nothing_rle	; B (plain?)

	.byte 7
	.word gone23_rle	; B
	.byte 128+7	;	.word gone24_rle	; B
	.byte 128+7	;	.word gone25_rle	; B
	.byte 128+7	;	.word gone26_rle	; B
	.byte 128+7	;	.word gone27_rle	; B

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone28_rle	; LB

;	.byte 255
;	.word gone10_rle	; CY into $c00
	.byte 7
	.word gone10_rle	; CY (same as 10)

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone28_rle	; LB (30 same as 28)

	.byte 255
	.word gone_rle		; B back into $c00 + plain
	.byte 7
	.word gone31_rle	; B

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone32_rle	; LB

	.byte 255
	.word gone_rle		; B back into $c00 + plain
	.byte 7
	.word nothing_rle	; B (plain?)

	.byte 7
	.word gone34_rle	; B

	.byte 128+7	;	.word gone35_rle	; B
	.byte 128+7	;	.word gone36_rle	; B
	.byte 128+7	;	.word gone37_rle	; B
	.byte 128+7	;	.word gone38_rle	; B

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone39_rle	; LB

	.byte 255
	.word gone10_rle	; CY into $c00
	.byte 7
	.word gone40_rle	; CY

	.byte 7
	.word gone10_rle	; CY (same as 10)

	.byte 255
	.word gone09_rle	; LB into $c00
	.byte 7
	.word gone42_rle	; LB

	.byte 255
	.word gone_rle		; B back into $c00 + plain
	.byte 7
	.word gone43_rle	; B

	.byte 7
	.word nothing_rle
	.byte 0