org $60000
load $60000
**************************************
*      THRUST AUSWAHLMENU V1.0       *
**************************************
*  Written by Axel Thuemmler in 1988 *
**************************************
*      ri 'Pic0' - 'GraphicBPL'      *
**************************************

Entries = 11			;Anzahl der MenuEintraege
ShineTime = 1			;Dauer des Nachleuchtens
BalkenCol = $ccf		;Farbe des Auswahlbalkens
TextCol = $77c			;Farbe des Textes
**********************************************************************
GraphicBPLx = 320		;Breite des Graphicbildschirms
GraphicBPLy = 256		;Hoehe des Graphicbildschirms
GraphicBPLPlanes = 4		;Anzahl der Bitplanes
GraphicBPLColors = 16		;Anzahl der Farben
GraphicTurnRast = 41
FirstRastPos = $A1+[44-[Entries*4]]
LastRastPos = $F1-[44-[Entries*4]]
RaPo = [44-[[5-[Entries/2]]*8]]-[Entries*4]
**********************************************************************
start:
MenuStart:
	movem.l	d0-d7/a0-a6,-(a7)	;Register retten
	move.l	4,a6			;Execbase
	jsr	-132(a6)		;Forbid
	lea	gfxname,a1		;Zeiger auf Library-Name
	jsr	-408(a6)		;OpenLibrary
	move.l	d0,gfxbase		;Library-Base speichern
	move.b	$DFF00A,mousepos
	bsr	SetCopperList
	move.l	$6c,oldirq+2		;alten IRQ retten
	move.l	#newirq,$6c		;Zeiger auf neuen IRQ holen
	move.l	#MenuText,TextAD
	clr.l	d0
	move.l	#110,d1
	bsr	ZentPrint
	add.l	#16+[44-[Entries*4]],d1
	moveq	#Entries-1,d4
zpl0:	bsr	ZentPrint
	addq.l	#8,d1
	dbf	d4,zpl0
	bsr	SetGraphicColor		;Farben fuer Bild setzen
	bsr	SetBalken
mwait:	btst	#6,$bfe001		;linke Maustaste testen
	bne	mwait			;Nicht gedrueckt -> MWAIT
	move.l	oldirq+2,$6c		;alten IRQ-Vektor schreiben
	move.w	oldclz+8,$DFF096	;DMA-Kontrollregister schreib.
	move.l	oldclz,a6		;Alte Copperliste
	move.l	oldclz+4,(a6)		;wieder zurueck schreiben
	move.l	4,a6			;Execbase
	move.l	gfxbase,a1		;Library-Base holen
	jsr	-414(a6)		;CloseLibrary
	jsr	-138(a6)		;Permit
	move.w	#$8020,$dff096
	move.b	TextColorPTR,$7f000
	movem.l	(a7)+,d0-d7/a0-a6	;Register wiederholen
	lea	resname(pc),a1
	jsr	-96(a6)
	tst.l	d0
	beq	frerror
	move.l	d0,a0
	move.l	22(a0),a0
	clr.l	d0
	rts
frerror:moveq	#-1,d0
	rts
resname:	dc.b "dos.library",0
**********************************************************************
newirq:	movem.l	d0-d7/a0-a6,-(a7)
	tst.b	Turntest
	beq	irql1
	bsr	TurnGraphic2
	bra	irql2
irql1:	bsr	TurnGraphic1
irql2:	bsr	Maus
	tst.b	tester
	beq	irqbl0
	subq.b	#1,tester
	bra	irqbl2
irqbl0:	move.b	#ShineTime,tester
	lea	ColW1,a0
	lea	TextColor,a1
	moveq	#10,d6
irqbl1:	move.w	6(a0),d0
	move.w	(a1)+,d1
	bsr	SetRGBFarb
	move.w	d0,6(a0)
	addq.l	#8,a0
	dbf	d6,irqbl1
irqbl2:	movem.l	(a7)+,d0-d7/a0-a6
oldirq:	jmp	$000000
**********************************************************************
SetCopperList:
	movem.l	d0-d7/a0-a6,-(a7)	;Register retten
	move.l	gfxbase,a6		;Gfxbase
	moveq	#GraphicBPLPlanes,d0		;Bitplanes holen
	move.l	#GraphicBPLx,d1		;Breite holen
	move.l	#GraphicBPLy,d2		;Hoehe holen
	movem.l	d0-d2,-(a7)		;Register retten
	lea	bitmap,a0		;Zeiger auf Bitplanestruktur
	jsr	-390(a6)		;InitBitMap
	movem.l	(a7)+,d0-d2		;Register wiederholen
	lea	GraphicBPL,a0		;Zeiger auf Graphicbuffer
	lea	bitmap+8,a1
	lsr.l	#3,d1			;Breite durch 8 teilen
	subq	#1,d0			;Anzahl Bitplanes minus 1
	mulu	d1,d2			;Breite mal Hoehe
ibl:	move.l	a0,(a1)			;Adresse in Bitmap-Struktur e.
	addq	#4,a1
	add.l	d2,a0
	dbf	d0,ibl
	lea	rastport,a1		;Zeiger auf Rastportstruktur
	jsr	-198(a6)		;InitRastPort
	move.l	#bitmap,rastport+4	;Adresse der Bitmap speichern
	lea	textattr,a0		;Zeiger auf Textattribute
	jsr	-72(a6)			;OpenFont
	move.l	d0,fontbase		;Fontbasisadresse
	move.l	d0,a0
	lea	rastport,a1		;Rastport ermitteln
	jsr	-66(a6)			;SetFont
	move.l	fontbase,a1
	jsr	-78(a6)			;CloseFont
	lea	ttw,a0
	move.l	#[GraphicTurnRast*$1000000]+$e1fffe,d0
	move.l	#GraphicBPL,d1
	add.l	#[GraphicBPLx/8]*GraphicBPLy*[GraphicBPLPlanes-1],d1
	move.l	#89,d7
ctcl1:	move.l	d0,(a0)+			;Wait in Copper Liste
	move.l	d1,d2
	move.w	#[[GraphicBPLPlanes-1]*4]+$e0,d3
	moveq	#GraphicBPLPlanes-1,d6
ctcl2:	move.w	d3,(a0)+
	swap	d2
	move.w	d2,(a0)+
	addq.w	#2,d3
	move.w	d3,(a0)+
	swap	d2
	move.w	d2,(a0)+
	sub.l	#[GraphicBPLx/8]*GraphicBPLy,d2
	subq.w	#6,d3
	dbf	d6,ctcl2
	move.l	#$01800000,(a0)+
ctcl3:	add.l	#GraphicBPLx/8,d1	
	add.l	#$01000000,d0
	dbf	d7,ctcl1
	lea	balken,a0
	move.l	#$080ffffe,d0
	moveq	#29,d7
bl0:	move.l	d0,(a0)+
	move.l	#$01800000,(a0)+
	add.l	#$01000000,d0
	dbf	d7,bl0
	lea	gcol1,a0
	move.w	#$0180,d0
	moveq	#GraphicBPLColors-1,d1
col0:	move.w	d0,(a0)+
	clr.w	(a0)+
	addq.w	#2,d0
	dbf	d1,col0
	lea	gbplz,a0
	lea	GraphicBPL,a2
	moveq	#GraphicBPLPlanes-1,d1
setl1:	move.l	a2,d0
	move.w	d0,6(a0)
	swap	d0
	move.w	d0,2(a0)
	add.l	#[GraphicBPLx/8]*GraphicBPLy,a2
	addq.l	#8,a0
	dbf	d1,setl1
	move.w	$DFF002,d0		;DMA-Kontrollregister holen
	bset	#15,d0			;Bit 15 setzen
	move.w	d0,oldclz+8		;und speichern
	move.l	gfxbase,a6		;Gfxbase -> A6
	add.l	#50,a6			;50 zur Gfxbase addieren
	move.l	a6,oldclz		;Alte Copperliste
	move.l	(a6),oldclz+4		;zwischenspeichern
	move.l	#newcl,(a6)		;Zeiger auf neue Copperliste
	movem.l	(a7)+,d0-d7/a0-a6
	rts
**********************************************************************
SetBalken:
	moveq	#15,d6
sbl0:	lea	ttw+38,a0
	lea	balken+6,a1
	lea	ColTab,a2
sbl1:	move.w	(a0),d0
	move.w	(a2)+,d1
	bsr	SetRGBFarb
	move.w	d0,(a0)
	move.w	d0,(a1)
	cmp.w	#-1,(a2)
	beq	sbl2
	add.l	#40,a0
	addq.l	#8,a1
	bra	sbl1
sbl2:	move.w	#$4000,d0
sbl3:	dbf	d0,sbl3
	dbf	d6,sbl0
	rts
SetGraphicColor:
	moveq	#15,d6
sgcl0:	lea	gcol1+2,a0
	lea	GraphicBPLCol,a2
	moveq	#GraphicBPLColors-1,d5
sgcl1:	move.w	(a0),d0
	move.w	(a2)+,d1
	bsr	SetRGBFarb
	move.w	d0,(a0)
	add.l	#4,a0
	dbf	d5,sgcl1
	move.w	#$8000,d0
sgcl2:	dbf	d0,sgcl2
	dbf	d6,sgcl0
	rts
**********************************************************************
TurnGraphic1:
	move.l	Gturnpointer,a0		;Turnpointer holen
	lea	ttw+[40*28]+4,a1	;Start der CopList holen
	lea	GraphicBPL+[[GraphicBPLx/8]*28],a2	
	add.l	#[GraphicBPLx/8]*GraphicBPLy*[GraphicBPLPlanes-1],a2
	move.l	#60,d6			;Anzahl der zu versetz. Zeilen
Gturnl2:move.l	a2,d0			;Bitplane Position -> D0
	move.b	(a0)+,d1		;Zeile aus Tabelle lesen
	subq.b	#1,d1			;Zeile minus eins
	and.l	#$000000ff,d1		;Byte ausmaskieren
	mulu	#GraphicBPLx/8,d1	;Position in Bitplane berech.
	add.l	d1,d0			;zur BitplanePosition addieren
	moveq	#GraphicBPLPlanes-1,d5	;Zaehler (Anzahl Bitplanes)
Gturnl3:swap	d0			;high Wort holen
	move.w	d0,2(a1)		;in CopperListe schreiben
	swap	d0			;low Wort holen
	move.w	d0,6(a1)		;in Copperliste schreiben
	addq.l	#8,a1			;CopList Position erhoehen
	sub.l	#[GraphicBPLx/8]*GraphicBPLy,d0	;eine Bitplane weniger
	dbf	d5,Gturnl3		;D5 <> 0 -> TURNL2
	add.l	#8,a1			;CopList Position erhoehen
	dbf	d6,Gturnl2		;D6 <> 0 -> TURNL1
	tst.b	Gturncount		;Turncount gesetzt ?
	bne	Gturnl4			;Ja -> TURNL3
	move.b	(a0),Gturncount		;Turncount mit Zaehler setzen
Gturnl4:subq.b	#1,Gturncount		;Zaehler minus eins
	beq	Gturnl5			;Zaehler auf null ? -> TURNL4
	sub.l	#61,a0			;Tablepointer zuruecksetzen
	bra	Gturnl8			;JMP TURNL5
Gturnl5:addq.l	#1,a0			;Tablepointer plus eins
	cmp.b	#-1,(a0)		;TurnTable zu Ende ?
	bne	Gturnl8			;Nein -> TURNL5
Gturnl7:lea	TurnTable,a0		;TurnTablestartzeiger -> A0
Gturnl8:move.l	a0,Gturnpointer		;in Turnpointer schreiben
	rts
TurnGraphic2:
	move.l	Gturnpointer,a0		;Turnpointer holen
	lea	ttw+4,a1		;Start der CopList holen
	lea	GraphicBPL,a2	
	add.l	#[GraphicBPLx/8]*GraphicBPLy*[GraphicBPLPlanes-1],a2
	move.l	#88,d6			;Anzahl der zu versetz. Zeilen
GGurnl2:move.l	a2,d0			;Bitplane Position -> D0
	move.b	(a0)+,d1		;Zeile aus Tabelle lesen
	subq.b	#1,d1			;Zeile minus eins
	and.l	#$000000ff,d1		;Byte ausmaskieren
	mulu	#GraphicBPLx/8,d1	;Position in Bitplane berech.
	add.l	d1,d0			;zur BitplanePosition addieren
	moveq	#GraphicBPLPlanes-1,d5	;Zaehler (Anzahl Bitplanes)
GGurnl3:swap	d0			;high Wort holen
	move.w	d0,2(a1)		;in CopperListe schreiben
	swap	d0			;low Wort holen
	move.w	d0,6(a1)		;in Copperliste schreiben
	addq.l	#8,a1			;CopList Position erhoehen
	sub.l	#[GraphicBPLx/8]*GraphicBPLy,d0	;eine Bitplane weniger
	dbf	d5,GGurnl3		;D5 <> 0 -> TURNL2
	add.l	#8,a1			;CopList Position erhoehen
	dbf	d6,GGurnl2		;D6 <> 0 -> TURNL1
	tst.b	Gturncount		;Turncount gesetzt ?
	bne	GGurnl4			;Ja -> TURNL3
	move.b	(a0),Gturncount		;Turncount mit Zaehler setzen
GGurnl4:subq.b	#1,Gturncount		;Zaehler minus eins
	beq	GGurnl5			;Zaehler auf null ? -> TURNL4
	sub.l	#89,a0			;Tablepointer zuruecksetzen
	bra	GGurnl8			;JMP TURNL5
GGurnl5:addq.l	#1,a0			;Tablepointer plus eins
	cmp.b	#-1,(a0)		;TurnTable zu Ende ?
	bne	GGurnl8			;Nein -> TURNL5
GGurnl7:clr.b	TurnTest
	lea	TurnTable,a0		;TurnTablestartzeiger -> A0
	clr.b	gturncount
GGurnl8:move.l	a0,Gturnpointer		;in Turnpointer schreiben
	rts
**********************************************************************
Maus:	tst.b	Zaehler0
	beq	mausl0
	subq.b	#1,Zaehler0
	bra	mausl1
mausl0:	move.b	#3,Zaehler0
	lea	ColW0,a0
	move.w	ColW0+6,d1
	moveq	#6,d7
coll0:	move.w	14(a0),6(a0)
	addq.l	#8,a0
	dbf	d7,Coll0
	move.w	d1,ColW1-2
mausl1:	move.b	MousePos(pc),d0
	move.b	$DFF00A,d1
	sub.b	d1,d0
	cmp.b	#30,d0
	bpl	oben
	cmp.b	#-30,d0
	bmi	unten
	rts
unten:	move.b	$DFF00A,mousepos
	clr.l	d0
	move.b	TextColorPTR,d0
	cmp.b	#[[[11-Entries]/2]+Entries]-1,d0
	beq	ul1
	lsl.b	#1,d0
	lea	TextColor,a0
	move.w	#TextCol,(a0,d0)
	move.w	#BalkenCol,2(a0,d0)
	lea	ColW1+6,a0
	lsl.b	#2,d0
	move.w	#BalkenCol,8(a0,d0)
	addq.b	#1,TextColorPTR
ul1:	rts
oben:	move.b	$DFF00A,mousepos
	clr.l	d0
	move.b	TextColorPTR,d0
	cmp.b	#[11-Entries]/2,d0
	beq	ol1
	lsl.b	#1,d0
	lea	TextColor,a0
	move.w	#TextCol,(a0,d0)
	move.w	#BalkenCol,-2(a0,d0)
	lea	ColW1+6,a0
	lsl.b	#2,d0
	move.w	#BalkenCol,-8(a0,d0)
	subq.b	#1,TextColorPTR
ol1:	rts
**********************************************************************
newcl:	dc.w $0096,$83f0			;DMA-Kontrollregister
	dc.w $0096,$0020
	dc.w $008e,$2981,$0090,$29c1		;DIWSTART/DIWSTOP GFX.
	dc.w $0092,$0038,$0094,$00d0		;DDFSTART/DDFSTOP GFX.
gbplz:	dc.w $00e0,$0000,$00e2,$0000		;Bitplane 1
	dc.w $00e4,$0000,$00e6,$0000		;Bitplane 2
	dc.w $00e8,$0000,$00ea,$0000		;Bitplane 3
	dc.w $00ec,$0000,$00ee,$0000		;Bitplane 4
	dc.w $00f0,$0000,$00f2,$0000		;Bitplane 5
	dc.w $0100,$4200			;Kontrollregister 0
	dc.w $0102,$0000,$0104,$0000		;Kontrollregister 1+2
	dc.w $0108,$0000,$010a,$0000		;Modulos
gcol1:	blk.l GraphicBPLColors,0		;Farbtabelle fuer Pic
ttw:	blk.l 10*90,0
	dc.w $800f,$fffe,$0180,$0001,$820f,$fffe,$0180,$0002
	dc.w $840f,$fffe,$0180,$0003,$860f,$fffe,$0180,$0004
	dc.w $880f,$fffe,$0180,$0005
ColW0:	dc.w $910F,$FFFE,$019e,$034a,$920F,$FFFE,$019e,$056b
	dc.w $930F,$FFFE,$019e,$078c,$940F,$FFFE,$019e,$099d
	dc.w $950F,$FFFE,$019e,$0cce,$960F,$FFFE,$019e,$099d
	dc.w $970F,$FFFE,$019e,$078c,$980f,$FFFE,$019e,$056b
ColW1:	dc.w [$100*[$a1+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$a9+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$b1+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$b9+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$c1+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$c9+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$d1+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$d9+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$e1+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$e9+rapo]]+$f,$fffe,$019e,$0005
	dc.w [$100*[$f1+rapo]]+$f,$fffe,$019e,$0005

	dc.w $ffe1,$fffe,$000f,$fffe,$0180,$0004
	dc.w $020f,$fffe,$0180,$0003
	dc.w $040f,$fffe,$0180,$0002
	dc.w $060f,$fffe,$0180,$0001
	dc.w $080f,$fffe,$0180,$0000
balken:	blk.l 2*30,0
	dc.w $ffff,$fffe			;Ende der Copperliste
**********************************************************************
*                          Unterroutinen                             *
**********************************************************************
zentprint:
	movem.l	d0-d7/a0-a6,-(a7)	;Register retten
	move.l	d0,d7			;X-Start retten
	move.l	textad(pc),d0		;Textadresse holen
	move.l	d0,a0			;Textadresse kopieren
znullt:	tst.b	(a0)+			;Auf null testen und plus 1
	bne	znullt			;Nicht null -> ZNULLT
	sub.l	d0,a0			;Laenge berechnen
	sub.l	#1,a0			;minus 1
	move.l	a0,-(a7)		;Laenge speichern
	move.l	#40,d0			;40 Zeichen pro Zeile
	sub.l	a0,d0			;minus Anzahl Zeichen
	mulu	#4,d0			;durch 2 mal 8 = mal 4
	add.l	d7,d0			;X-Start addieren
	move.l	gfxbase,a6		;Gfxbase holen
	lea	rastport,a1		;Zeiger auf Rastport holen
	jsr	-240(a6)		;Move
	move.l	(a7),d0			;Laenge wiederholen
	move.l	textad(pc),a0		;Zeiger auf Text
	lea	rastport,a1		;Zeiger auf Rastport holen
	jsr	-60(a6)			;Text
	move.l	(a7)+,d0		;Laenge holen
	add.l	#1,d0			;Textadresse erhoehen
	add.l	d0,textad		;Laenge plus 1 (null Byte)
	movem.l	(a7)+,d0-d7/a0-a6	;Register wiederholen
	rts
**********************************************************************
SetRGBFarb:
	movem.l	d1-d6/a0-a6,-(a7)
	clr.l	d7
	move.w	d0,d2
	move.w	d1,d3
	and.w	#$0f00,d2
	and.w	#$0f00,d3
	move.w	#$0100,d4
	cmp.w	d2,d3
	beq	setc0
	bcc	addcol0
	move.w	#$ff00,d4
addcol0:add.w	d4,d0
	moveq	#1,d7
setc0:	move.w	d0,d2
	move.w	d1,d3
	and.w	#$00f0,d2
	and.w	#$00f0,d3
	move.w	#$0010,d4
	cmp.w	d2,d3
	beq	setc1
	bcc	addcol1
	move.w	#$fff0,d4
addcol1:add.w	d4,d0
	moveq	#1,d7
setc1:	move.w	d0,d2
	move.w	d1,d3
	and.w	#$000f,d2
	and.w	#$000f,d3
	move.w	#$0001,d4
	cmp.w	d2,d3
	beq	setc2
	bcc	addcol2
	move.w	#$ffff,d4
addcol2:add.w	d4,d0
	moveq	#1,d7
setc2:	movem.l	(a7)+,d1-d6/a0-a6
	rts
**********************************************************************
Zaehler0:	dc.b 3,0
Bitmap:		blk.b 34,0		;Bitmap Struktur
rastport:	blk.b 110,0		;Raster-Port Struktur
tester:		dc.b ShineTime,0
TextColorPTR:	dc.b 5-[Entries/2],0
TextColor:	blk.w 5-[Entries/2],TextCol
		dc.w BalkenCol
		blk.w Entries,TextCol
textad:		dc.l 0
mousepos:	dc.w 0
fontname:	dc.b "topaz.font",0,0		;Name des Fonts
fontbase:	dc.l 0				;Fontbasisadresse
textattr:	dc.l fontname			;Zeiger auf Fontname
		dc.w 8				;Hoehe des Fonts
		dc.w 0				;diverses Flag
gfxname:	dc.b "graphics.library",0,0
gfxbase:	dc.l 0			;GFXbase
oldclz:		dc.w 0,0,0,0,0		;Zeiger auf alte Copperliste
gturnpointer:	dc.l Saugen
gturncount:	dc.b 0
TurnTest:	dc.b 1
TurnTable:
dc.l $01020304,$05060708,$090A0B0C,$0D0E0F10,$11121314,$15161718
dc.l $191A1B1C,$1D1E1F20,$21222324,$25262728,$292A2B2C,$2D2E2F30
dc.l $31323334,$35363738,$393A3B3E,$3E010102,$03040506,$0708090A
dc.l $0B0C0D0E,$0F101112,$13141516,$1718191A,$1B1C1D1E,$1F202122
dc.l $23242526,$2728292A,$2B2C2D2E,$2F303132,$33343536,$3738393A
dc.l $3B3E3E01,$01020304,$05060708,$090A0B0C,$0D0E0F10,$11121314
dc.l $15161718,$191A1B1C,$1D1E1F20,$21222324,$25262728,$292A2B2C
dc.l $2D2E2F30,$31323334,$35363738,$393A3B3E,$3E013E01,$02030405
dc.l $06070809,$0B0C0D0E,$0F101112,$13141516,$1718191A,$1B1C1D1E
dc.l $1F202122,$23242526,$2728292A,$2B2C2D2E,$2F303233,$34353637
dc.l $38393A3B,$3E3E3E01,$3E3E0102,$03050607,$08090A0B,$0C0D0E0F
dc.l $10121314,$15161718,$191A1B1C,$1D1E1F20,$21222324,$25262728
dc.l $292B2C2D,$2E2F3031,$32333435,$3638393A,$3B3E3E3E,$3E013E3E
dc.l $3E010204,$05060708,$090A0B0D,$0E0F1011,$12131416,$1718191A
dc.l $1B1C1D1E,$1F202122,$23242527,$28292A2B,$2C2D2E30,$31323334
dc.l $35363739,$3A3B3E3E,$3E3E3E01,$3E3E3E3E,$01020405,$06070809
dc.l $0B0C0D0E,$0F101213,$14151617,$191A1B1C,$1D1E1F20,$21222425
dc.l $26272829,$2B2C2D2E,$2F303233,$34353637,$393A3B3E,$3E3E3E3E
dc.l $3E013E3E,$3E3E3E01,$02030506,$0708090B,$0C0D0E10,$11121315
dc.l $1617181A,$1B1C1D1E,$1F202123,$24252628,$292A2B2D,$2E2F3032
dc.l $33343536,$38393A3B,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E02
dc.l $03040607,$08090B0C,$0D0F1011,$13141517,$18191B1C,$1D1E1F20
dc.l $22232426,$27282A2B,$2C2E2F30,$32333435,$3738393B,$3E3E3E3E
dc.l $3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E0102,$04050608,$090B0C0E
dc.l $0F101213,$15161719,$1A1C1D1E,$1F212224,$25262829,$2B2C2D2F
dc.l $30323335,$3637393A,$3B3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E0103,$04060709,$0A0C0E0F,$11121415,$17181A1B
dc.l $1D1E2021,$23242627,$292A2C2D,$2F313234,$3537383A,$3B3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0203
dc.l $0507080A,$0C0D0F11,$13141618,$191B1D1E,$20222325,$27282A2C
dc.l $2E2F3133,$34363839,$3B3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0204,$0608090B,$0D0F1113
dc.l $1517191B,$1D1E2022,$2426282A,$2C2E3032,$33353739,$3B3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E0204,$06080B0D,$0F111316,$181A1C1E,$21232528
dc.l $2A2C2E30,$33353739,$3B3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0204
dc.l $070A0C0F,$11141719,$1C1E2224,$272A2C2F,$31343739,$3B3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0105,$080B0E12,$15181B1E
dc.l $2326292D,$3033363A,$3B3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E0105,$090D1216,$1A1E2529,$2E32363A,$3B3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E05
dc.l $0B12181E,$2930363B,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E05,$121E363B,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E1E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3B3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3B3629,$12053E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3B3630
dc.l $29231812,$0B053E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3B3A3632,$2E292521,$1A16120D,$0905013E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3B3A3633
dc.l $302D2926,$23201B18,$15120E0B,$0805013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3B393734,$312F2C2A,$2724221F,$1C191714
dc.l $110F0C0A,$0704023E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3B393735
dc.l $33302E2C,$2A282523,$211F1C1A,$18161311,$0F0D0B08,$0604023E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3B393735,$3332302E,$2C2A2826,$2422201E
dc.l $1D1B1917,$1513110F,$0D0B0908,$0604023E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3B393836
dc.l $3433312F,$2E2C2A28,$27252322,$201E1D1B,$19181614,$13110F0D
dc.l $0C0A0807,$0503023E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3B3A3837,$35343231,$2F2D2C2A,$29272624
dc.l $2321201E,$1D1B1A18,$17151412,$110F0E0C,$0A090706,$0403013E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3B3A3937
dc.l $36353332,$302F2D2C,$2B292826,$25242221,$1F1E1D1C,$1A191716
dc.l $15131210,$0F0E0C0B,$09080605,$0402013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E013E3E,$3E3E3E3E,$3E3B3938,$37353433,$32302F2E,$2C2B2A28
dc.l $27262423,$22201F1E,$1D1C1B19,$18171514,$1311100F,$0D0C0B09
dc.l $08070604,$03023E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3B3A39
dc.l $38363534,$3332302F,$2E2D2B2A,$29282625,$24232120,$1F1E1D1C
dc.l $1B1A1817,$16151312,$11100E0D,$0C0B0908,$07060503,$02013E3E
dc.l $3E3E3E3E,$3E013E3E,$3E3E3B3A,$39373635,$34333230,$2F2E2D2C
dc.l $2B292827,$26252422,$21201F1E,$1D1C1B1A,$19171615,$14131210
dc.l $0F0E0D0C,$0B090807,$06050402,$013E3E3E,$3E3E3E01,$3E3E3E3B
dc.l $3A393736,$35343332,$31302E2D,$2C2B2A29,$28272524,$23222120
dc.l $1F1E1D1C,$1B1A1918,$17161413,$1211100F,$0E0D0B0A,$09080706
dc.l $05040201,$3E3E3E3E,$3E013E3E,$3B3A3938,$36353433,$3231302F
dc.l $2E2D2C2B,$29282726,$25242322,$21201F1E,$1D1C1B1A,$19181716
dc.l $15141312,$100F0E0D,$0C0B0A09,$08070605,$0302013E,$3E3E3E01
dc.l $3E3B3A39,$38373635,$34333230,$2F2E2D2C,$2B2A2928,$27262524
dc.l $23222120,$1F1E1D1C,$1B1A1918,$17161514,$13121110,$0F0E0D0C
dc.l $0B090807,$06050403,$02013E3E,$3E013B3A,$39383736,$35343332
dc.l $31302F2E,$2D2C2B2A,$29282726,$25242322,$21201F1E,$1D1C1B1A
dc.l $19181716,$15141312,$11100F0E,$0D0C0B0A,$09080706,$05040302
dc.l $013E3E01,$3B3A3938,$37363534,$33323130,$2F2E2D2C,$2B2A2928
dc.l $27262524,$23222120,$1F1E1D1C,$1B1A1918,$17161514,$13121110
dc.l $0F0E0D0C,$0B0A0908,$07060504,$0302013E,$3E013B3A,$39383736
dc.l $35343332,$31302F2E,$2D2C2B2A,$29282726,$25242322,$21201F1E
dc.l $1D1C1B1A,$19181716,$15141312,$11100F0E,$0D0C0B0A,$09080706
dc.l $05040302,$013E3E01,$3B3A3938,$37363534,$33323130,$2F2E2D2C
dc.l $2B2A2928,$27262524,$23222120,$1F1E1D1C,$1B1A1918,$17161514
dc.l $13121110,$0F0E0D0C,$0B0A0908,$07060504,$0302013E,$3E013B3A
dc.l $39383736,$35343332,$31302F2E,$2D2C2B2A,$29282726,$25242322
dc.l $21201F1E,$1D1C1B1A,$19181716,$15141312,$11100F0E,$0D0C0B0A
dc.l $09080706,$05040302,$013E3E01,$3E3B3A39,$38373635,$34333130
dc.l $2F2E2D2C,$2B2A2928,$27262524,$23222120,$1F1E1D1C,$1B1A1918
dc.l $17161514,$13121110,$0F0E0D0C,$0A090807,$06050403,$02013E3E
dc.l $3E013E3E,$3B3A3937,$36353433,$3231302F,$2E2D2C2A,$29282726
dc.l $25242322,$21201F1E,$1D1C1B1A,$19181716,$15141311,$100F0E0D
dc.l $0C0B0A09,$08070604,$0302013E,$3E3E3E01,$3E3E3E3B,$3A383736
dc.l $35343332,$312F2E2D,$2C2B2A29,$28262524,$23222120,$1F1E1D1C
dc.l $1B1A1918,$17151413,$1211100F,$0E0C0B0A,$09080706,$05030201
dc.l $3E3E3E3E,$3E013E3E,$3E3E3B3A,$38373635,$34333130,$2F2E2D2C
dc.l $2A292827,$26252322,$21201F1E,$1D1C1B1A,$18171615,$14131110
dc.l $0F0E0D0C,$0A090807,$06050302,$013E3E3E,$3E3E3E01,$3E3E3E3E
dc.l $3E3B3A39,$37363534,$3331302F,$2E2C2B2A,$29272625,$24222120
dc.l $1F1E1D1C,$1B191817,$16141312,$110F0E0D,$0C0A0908,$07060403
dc.l $02013E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3A3938,$36353433
dc.l $31302F2D,$2C2B2928,$27252423,$21201F1E,$1D1C1A19,$18161514
dc.l $1211100E,$0D0C0A09,$08070504,$03013E3E,$3E3E3E3E,$3E3E3E01
dc.l $3E3E3E3E,$3E3E3E3E,$3B3A3837,$36343331,$302E2D2C,$2A292726
dc.l $25232220,$1F1E1D1B,$1A181716,$14131110,$0F0D0C0A,$09070605
dc.l $0302013E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3B393836,$35333230,$2E2D2B2A,$28272524,$22211F1E,$1C1B1918
dc.l $16151312,$100F0D0B,$0A080705,$0402013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3A393735,$3432302F
dc.l $2D2B2928,$26242321,$1F1E1C1A,$19171514,$12100E0D,$0B090806
dc.l $0403013E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3A383634,$33312F2D,$2B292725,$23211F1E
dc.l $1C1A1816,$1412100E,$0C0A0907,$0503013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3A383634,$312F2D2B,$29262422,$201E1B19,$17141210,$0E0C0907
dc.l $0503013E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3A383532,$302D2B28
dc.l $2523201E,$1A181512,$100D0B08,$0503013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3B373431,$2E2A2724,$211E1916,$130F0C09
dc.l $0602013E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3B37332F,$2A26221E,$17130E0A,$0602013E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E37312A,$241E130C
dc.l $06013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E372A1E,$06013E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E1E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E01,$06132A37,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$060C1319,$242A3137
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E0102,$060A0E13,$171B2226,$2A2F3337,$3B3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0102,$06090C0F,$1316191C
dc.l $2124272A,$2E313437,$3B3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E0103,$05080B0D,$10121518,$1A1D2023,$25282B2D,$30323538
dc.l $3A3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E013E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0103,$0507090C,$0E101214
dc.l $17191B1D,$20222426,$292B2D2F,$31343638,$3A3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E0103,$0507090A,$0C0E1012,$1416181A,$1C1E1F21,$23252729
dc.l $2B2D2F31,$33343638,$3A3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E013E3E,$3E3E3E3E,$3E3E3E3E,$3E3E0103,$04060809,$0B0D0E10
dc.l $12141517,$191A1C1E,$1F212324,$2628292B,$2D2F3032,$34353739
dc.l $3A3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E0102,$04050708,$0A0B0D0F,$10121315,$1618191B,$1C1E1F21
dc.l $22242527,$282A2B2D,$2E303233,$35363839,$3B3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E013E3E,$3E3E3E3E,$3E3E0102,$03050607,$090A0C0D
dc.l $0F101113,$14161718,$1A1B1D1E,$1F202223,$25262729,$2A2C2D2E
dc.l $30313334,$3637383A,$3B3E3E3E,$3E3E3E3E,$3E3E3E01,$3E3E3E3E
dc.l $3E3E3E01,$03040507,$08090A0C,$0D0E1011,$12141516,$18191A1C
dc.l $1D1E1F20,$21232425,$2728292B,$2C2D2F30,$31333435,$3638393A
dc.l $3E3E3E3E,$3E3E3E3E,$3E013E3E,$3E3E3E01,$02030406,$0708090A
dc.l $0C0D0E0F,$11121314,$16171819,$1B1C1D1E,$1F202122,$24252627
dc.l $292A2B2C,$2E2F3031,$33343536,$37393A3B,$3E3E3E3E,$3E3E3E01
dc.l $3E3E3E3E,$01020305,$06070809,$0A0C0D0E,$0F101113,$14151617
dc.l $181A1B1C,$1D1E1F20,$21222325,$26272829,$2A2C2D2E,$2F303133
dc.l $34353637,$383A3B3E,$3E3E3E3E,$3E013E3E,$3E010203,$05060708
dc.l $090A0B0C,$0E0F1011,$12131415,$1718191A,$1B1C1D1E,$1F202122
dc.l $23242526,$28292A2B,$2C2D2E2F,$31323334,$35363738,$3A3B3E3E
dc.l $3E3E3E01,$3E3E0102,$03040607,$08090A0B,$0C0D0E0F,$10111314
dc.l $15161718,$191A1B1C,$1D1E1F20,$21222324,$25262728,$292A2C2D
dc.l $2E2F3031,$32333435,$3637393A,$3B3E3E3E,$3E013E01,$02030405
dc.l $06070809,$0A0C0D0E,$0F101112,$13141516,$1718191A,$1B1C1D1E
dc.l $1F202122,$23242526,$2728292A,$2B2C2D2E,$2F303133,$34353637
dc.l $38393A3B,$3E3E3E01,$01020304,$05060708,$090A0B0C,$0D0E0F10
dc.l $11121314,$15161718,$191A1B1C,$1D1E1F20,$21222324,$25262728
dc.l $292A2B2C,$2D2E2F30,$31323334,$35363738,$393A3B3E,$3E010102
dc.l $03040506,$0708090A,$0B0C0D0E,$0F101112,$13141516,$1718191A
dc.l $1B1C1D1E,$1F202122,$23242526,$2728292A,$2B2C2D2E,$2F303132
dc.l $33343536,$3738393A,$3B3E3E01
dc.w $ff00
Saugen:
dc.l $5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A
dc.l $5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A
dc.l $5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A
dc.l $5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A5A5A5A,$5A025959,$59595959
dc.l $59595959,$59595959,$59595959,$59595959,$59595959,$59595959
dc.l $59595959,$59595959,$59595959,$59595959,$59595959,$59595959
dc.l $59595959,$59595959,$59595959,$59595959,$59595959,$59595959
dc.l $59595959,$59595959,$59595902,$58585858,$58585858,$58585858
dc.l $58585858,$58585858,$58585858,$58585858,$58585858,$58585858
dc.l $58585858,$58585858,$58585858,$58585858,$58585858,$58585858
dc.l $58585858,$58585858,$58585858,$58585858,$58585858,$58585858
dc.l $58585858,$59025757,$57575757,$57575757,$57575757,$57575757
dc.l $57575757,$57575757,$57575757,$57575757,$57575757,$57575757
dc.l $57575757,$57575757,$57575757,$57575757,$57575757,$57575757
dc.l $57575757,$57575757,$57575757,$57575757,$57575757,$57585902
dc.l $56565656,$56565656,$56565656,$56565656,$56565656,$56565656
dc.l $56565656,$56565656,$56565656,$56565656,$56565656,$56565656
dc.l $56565656,$56565656,$56565656,$56565656,$56565656,$56565656
dc.l $56565656,$56565656,$56565656,$56565758,$59025555,$55555555
dc.l $55555555,$55555555,$55555555,$55555555,$55555555,$55555555
dc.l $55555555,$55555555,$55555555,$55555555,$55555555,$55555555
dc.l $55555555,$55555555,$55555555,$55555555,$55555555,$55555555
dc.l $55555555,$55555556,$57585902,$54545454,$54545454,$54545454
dc.l $54545454,$54545454,$54545454,$54545454,$54545454,$54545454
dc.l $54545454,$54545454,$54545454,$54545454,$54545454,$54545454
dc.l $54545454,$54545454,$54545454,$54545454,$54545454,$54545454
dc.l $55565758,$59025353,$53535353,$53535353,$53535353,$53535353
dc.l $53535353,$53535353,$53535353,$53535353,$53535353,$53535353
dc.l $53535353,$53535353,$53535353,$53535353,$53535353,$53535353
dc.l $53535353,$53535353,$53535353,$53535353,$53545556,$57585902
dc.l $52525252,$52525252,$52525252,$52525252,$52525252,$52525252
dc.l $52525252,$52525252,$52525252,$52525252,$52525252,$52525252
dc.l $52525252,$52525252,$52525252,$52525252,$52525252,$52525252
dc.l $52525252,$52525252,$52525354,$55565758,$59025151,$51515151
dc.l $51515151,$51515151,$51515151,$51515151,$51515151,$51515151
dc.l $51515151,$51515151,$51515151,$51515151,$51515151,$51515151
dc.l $51515151,$51515151,$51515151,$51515151,$51515151,$51515151
dc.l $51515152,$53545556,$57585902,$50505050,$50505050,$50505050
dc.l $50505050,$50505050,$50505050,$50505050,$50505050,$50505050
dc.l $50505050,$50505050,$50505050,$50505050,$50505050,$50505050
dc.l $50505050,$50505050,$50505050,$50505050,$50505050,$51525354
dc.l $55565758,$59024F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F
dc.l $4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F
dc.l $4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F4F4F4F
dc.l $4F4F4F4F,$4F4F4F4F,$4F4F4F4F,$4F505152,$53545556,$57585902
dc.l $4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E
dc.l $4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E
dc.l $4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E,$4E4E4E4E
dc.l $4E4E4E4E,$4E4E4F50,$51525354,$55565758,$59024D4D,$4D4D4D4D
dc.l $4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D
dc.l $4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D
dc.l $4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4D,$4D4D4D4E
dc.l $4F505152,$53545556,$57585902,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C
dc.l $4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C
dc.l $4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C
dc.l $4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4C4C4C4C,$4D4E4F50,$51525354
dc.l $55565758,$59024B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B
dc.l $4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B
dc.l $4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B,$4B4B4B4B
dc.l $4B4B4B4B,$4B4B4B4B,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A
dc.l $4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A
dc.l $4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A,$4A4A4A4A
dc.l $4A4A4B4C,$4D4E4F50,$51525354,$55565758,$59024949,$49494949
dc.l $49494949,$49494949,$49494949,$49494949,$49494949,$49494949
dc.l $49494949,$49494949,$49494949,$49494949,$49494949,$49494949
dc.l $49494949,$49494949,$49494949,$49494949,$4949494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$48484848,$48484848,$48484848
dc.l $48484848,$48484848,$48484848,$48484848,$48484848,$48484848
dc.l $48484848,$48484848,$48484848,$48484848,$48484848,$48484848
dc.l $48484848,$48484848,$48484848,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59024747,$47474747,$47474747,$47474747,$47474747
dc.l $47474747,$47474747,$47474747,$47474747,$47474747,$47474747
dc.l $47474747,$47474747,$47474747,$47474747,$47474747,$47474747
dc.l $47474747,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $46464646,$46464646,$46464646,$46464646,$46464646,$46464646
dc.l $46464646,$46464646,$46464646,$46464646,$46464646,$46464646
dc.l $46464646,$46464646,$46464646,$46464646,$46464646,$46464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59024545,$45454545
dc.l $45454545,$45454545,$45454545,$45454545,$45454545,$45454545
dc.l $45454545,$45454545,$45454545,$45454545,$45454545,$45454545
dc.l $45454545,$45454545,$45454545,$45454546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$44444444,$44444444,$44444444
dc.l $44444444,$44444444,$44444444,$44444444,$44444444,$44444444
dc.l $44444444,$44444444,$44444444,$44444444,$44444444,$44444444
dc.l $44444444,$44444444,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59024343,$43434343,$43434343,$43434343,$43434343
dc.l $43434343,$43434343,$43434343,$43434343,$43434343,$43434343
dc.l $43434343,$43434343,$43434343,$43434343,$43434343,$43434343
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $42424242,$42424242,$42424242,$42424242,$42424242,$42424242
dc.l $42424242,$42424242,$42424242,$42424242,$42424242,$42424242
dc.l $42424242,$42424242,$42424242,$42424242,$42424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59024141,$41414141
dc.l $41414141,$41414141,$41414141,$41414141,$41414141,$41414141
dc.l $41414141,$41414141,$41414141,$41414141,$41414141,$41414141
dc.l $41414141,$41414141,$41414142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$40404040,$40404040,$40404040
dc.l $40404040,$40404040,$40404040,$40404040,$40404040,$40404040
dc.l $40404040,$40404040,$40404040,$40404040,$40404040,$40404040
dc.l $40404040,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59023F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F
dc.l $3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F
dc.l $3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F3F3F3F,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3E3E
dc.l $3E3E3E3E,$3E3E3E3E,$3E3E3E3E,$3E3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59023D3D,$3D3D3D3D
dc.l $3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D
dc.l $3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D,$3D3D3D3D
dc.l $3D3D3D3D,$3D3D3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C
dc.l $3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C
dc.l $3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C,$3C3C3C3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59023B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B
dc.l $3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B
dc.l $3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3B3B3B,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A
dc.l $3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A,$3A3A3A3A
dc.l $3A3A3A3A,$3A3A3A3A,$3A3A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59023939,$39393939
dc.l $39393939,$39393939,$39393939,$39393939,$39393939,$39393939
dc.l $39393939,$39393939,$39393939,$39393939,$39393939,$39393939
dc.l $3939393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$38383838,$38383838,$38383838
dc.l $38383838,$38383838,$38383838,$38383838,$38383838,$38383838
dc.l $38383838,$38383838,$38383838,$38383838,$38383838,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59023737,$37373737,$37373737,$37373737,$37373737
dc.l $37373737,$37373737,$37373737,$37373737,$37373737,$37373737
dc.l $37373737,$37373737,$37373737,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $36363636,$36363636,$36363636,$36363636,$36363636,$36363636
dc.l $36363636,$36363636,$36363636,$36363636,$36363636,$36363636
dc.l $36363636,$36363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59023535,$35353535
dc.l $35353535,$35353535,$35353535,$35353535,$35353535,$35353535
dc.l $35353535,$35353535,$35353535,$35353535,$35353535,$35353536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$34343434,$34343434,$34343434
dc.l $34343434,$34343434,$34343434,$34343434,$34343434,$34343434
dc.l $34343434,$34343434,$34343434,$34343434,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59023333,$33333333,$33333333,$33333333,$33333333
dc.l $33333333,$33333333,$33333333,$33333333,$33333333,$33333333
dc.l $33333333,$33333333,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $32323232,$32323232,$32323232,$32323232,$32323232,$32323232
dc.l $32323232,$32323232,$32323232,$32323232,$32323232,$32323232
dc.l $32323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59023131,$31313131
dc.l $31313131,$31313131,$31313131,$31313131,$31313131,$31313131
dc.l $31313131,$31313131,$31313131,$31313131,$31313132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$30303030,$30303030,$30303030
dc.l $30303030,$30303030,$30303030,$30303030,$30303030,$30303030
dc.l $30303030,$30303030,$30303030,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59022F2F,$2F2F2F2F,$2F2F2F2F,$2F2F2F2F,$2F2F2F2F
dc.l $2F2F2F2F,$2F2F2F2F,$2F2F2F2F,$2F2F2F2F,$2F2F2F2F,$2F2F2F2F
dc.l $2F2F2F2F,$2F303132,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2E2E
dc.l $2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2E2E,$2E2E2F30
dc.l $31323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59022D2D,$2D2D2D2D
dc.l $2D2D2D2D,$2D2D2D2D,$2D2D2D2D,$2D2D2D2D,$2D2D2D2D,$2D2D2D2D
dc.l $2D2D2D2D,$2D2D2D2D,$2D2D2D2D,$2D2D2D2E,$2F303132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$2C2C2C2C,$2C2C2C2C,$2C2C2C2C
dc.l $2C2C2C2C,$2C2C2C2C,$2C2C2C2C,$2C2C2C2C,$2C2C2C2C,$2C2C2C2C
dc.l $2C2C2C2C,$2C2C2C2C,$2D2E2F30,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59022B2B,$2B2B2B2B,$2B2B2B2B,$2B2B2B2B,$2B2B2B2B
dc.l $2B2B2B2B,$2B2B2B2B,$2B2B2B2B,$2B2B2B2B,$2B2B2B2B,$2B2B2B2B
dc.l $2B2C2D2E,$2F303132,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $2A2A2A2A,$2A2A2A2A,$2A2A2A2A,$2A2A2A2A,$2A2A2A2A,$2A2A2A2A
dc.l $2A2A2A2A,$2A2A2A2A,$2A2A2A2A,$2A2A2A2A,$2A2A2B2C,$2D2E2F30
dc.l $31323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59022929,$29292929
dc.l $29292929,$29292929,$29292929,$29292929,$29292929,$29292929
dc.l $29292929,$29292929,$2929292A,$2B2C2D2E,$2F303132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$28282828,$28282828,$28282828
dc.l $28282828,$28282828,$28282828,$28282828,$28282828,$28282828
dc.l $28282828,$292A2B2C,$2D2E2F30,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59022727,$27272727,$27272727,$27272727,$27272727
dc.l $27272727,$27272727,$27272727,$27272727,$27272727,$2728292A
dc.l $2B2C2D2E,$2F303132,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $26262626,$26262626,$26262626,$26262626,$26262626,$26262626
dc.l $26262626,$26262626,$26262626,$26262728,$292A2B2C,$2D2E2F30
dc.l $31323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59022525,$25252525
dc.l $25252525,$25252525,$25252525,$25252525,$25252525,$25252525
dc.l $25252525,$25252526,$2728292A,$2B2C2D2E,$2F303132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$24242424,$24242424,$24242424
dc.l $24242424,$24242424,$24242424,$24242424,$24242424,$24242424
dc.l $25262728,$292A2B2C,$2D2E2F30,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59022323,$23232323,$23232323,$23232323,$23232323
dc.l $23232323,$23232323,$23232323,$23232323,$23242526,$2728292A
dc.l $2B2C2D2E,$2F303132,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $22222222,$22222222,$22222222,$22222222,$22222222,$22222222
dc.l $22222222,$22222222,$22222324,$25262728,$292A2B2C,$2D2E2F30
dc.l $31323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59022121,$21212121
dc.l $21212121,$21212121,$21212121,$21212121,$21212121,$21212121
dc.l $21212122,$23242526,$2728292A,$2B2C2D2E,$2F303132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$20202020,$20202020,$20202020
dc.l $20202020,$20202020,$20202020,$20202020,$20202020,$21222324
dc.l $25262728,$292A2B2C,$2D2E2F30,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$59021F1F,$1F1F1F1F,$1F1F1F1F,$1F1F1F1F,$1F1F1F1F
dc.l $1F1F1F1F,$1F1F1F1F,$1F1F1F1F,$1F202122,$23242526,$2728292A
dc.l $2B2C2D2E,$2F303132,$33343536,$3738393A,$3B3C3D3E,$3F404142
dc.l $43444546,$4748494A,$4B4C4D4E,$4F505152,$53545556,$57585902
dc.l $1E1E1E1E,$1E1E1E1E,$1E1E1E1E,$1E1E1E1E,$1E1E1E1E,$1E1E1E1E
dc.l $1E1E1E1E,$1E1E1F20,$21222324,$25262728,$292A2B2C,$2D2E2F30
dc.l $31323334,$35363738,$393A3B3C,$3D3E3F40,$41424344,$45464748
dc.l $494A4B4C,$4D4E4F50,$51525354,$55565758,$59021D1D,$1D1D1D1D
dc.l $1D1D1D1D,$1D1D1D1D,$1D1D1D1D,$1D1D1D1D,$1D1D1D1D,$1D1D1D1E
dc.l $1F202122,$23242526,$2728292A,$2B2C2D2E,$2F303132,$33343536
dc.l $3738393A,$3B3C3D3E,$3F404142,$43444546,$4748494A,$4B4C4D4E
dc.l $4F505152,$53545556,$57585902,$1C1C1C1C,$1C1C1C1C,$1C1C1C1C
dc.l $1C1C1C1C,$1C1C1C1C,$1C1C1C1C,$1C1C1C1C,$1D1E1F20,$21222324
dc.l $25262728,$292A2B2C,$2D2E2F30,$31323334,$35363738,$393A3B3C
dc.l $3D3E3F40,$41424344,$45464748,$494A4B4C,$4D4E4F50,$51525354
dc.l $55565758,$5902FF00
*********************************************************************
ColTab:
  dc.w $0001,$0003,$0005,$0006,$0007,$0008,$0009,$000a,$000b,$000c
  dc.w $000d,$000e,$000f,$000e,$000d,$000c,$000b,$000a,$0009,$0008
  dc.w $0007,$0006,$0005,$0003,$0001,$FFFF
*********************************************************************
MenuText:
  dc.b "1988      T H R U S T      1988",0

  dc.b "PRG 1",0
  dc.b "PRG 2",0
  dc.b "PRG 3",0
  dc.b "PRG 4",0
  dc.b "PRG 5",0
  dc.b "PRG 6",0
  dc.b "PRG 7",0
  dc.b "PRG 8",0
  dc.b "PRG 9",0
  dc.b "PRG A",0
  dc.b "PRG B",0

even
**********************************************************************
GraphicBPL:	blk.b [[GraphicBPLx/8]*GraphicBPLy]*GraphicBPLPlanes,0
GraphicBPLCol:	blk.w GraphicBPLColors,0
**********************************************************************
MenuStop:
end: