s:
move.l		#$50000,$dff0a0	
move.w		#36000,$dff0a4 
move.w		#300,$dff0a6	
move.w		#64,$dff0a8	
move.w		#$8201,$dff096	
move.l	$04,a6
lea	gfxname,a1
jsr	-408(a6)
move.l	d0,gfxbase
move.l	d0,a0
move.l	50(a0),oldclist
move.l	#newclist,50(a0)
move.l	gfxbase,a6
lea	bitmap,a0
move.l	#$01,d0
move.l	#336,d1
move.l	#200,d2
jsr	-390(a6)
move.l	#$60000,plane1
lea	rastport,a1
jsr	-198(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#text,taller
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
btst	#6,$bfe001
bne	wait
jmp	 slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
move.l	#$01,d0
move.l  #1,d1
clr.l	d2
move.l	#10,d3
move.l	#336,d4
move.l	#130,d5
jsr	-396(a6)
lea     rastport,a1
move.l  #$0,d0
move.l  #-1,d1
move.l  #0,d2
move.l  #10,d3
move.l  #300,d4
move.l  #250,d5
jsr     -396(a6)  
lea     rastport,a1
move.l  #$0,d0
move.l  #-1,d1
move.l  #0,d2
move.l  #0,d3
move.l  #15,d4
move.l  #300,d5
jsr     -396(a6)
sub.b	#$01,rows
bne.s	exit
move.b	#$9,rows
lea	rastport,a1
move.l	#320,d0
move.l	#130,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#$01,d0
jsr	-60(a6)
addq.l	#$01,taller
cmp.l	#end,taller
blt.s	exit
move.l	#text,taller
exit:
movem.l	(sp)+,d0-d7/a0-a6
oldirq:
jmp	$00000000
slut:
move.w #$0001,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jmp -414(a6)
newclist:
dc.w	$008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w	$0100,$1200,$0180,$000a,$0182,$aaaa
dc.w	$00e0,$0006,$00e2,$0000
dc.w    $3a01,$ff00,$0180,$0009
dc.w    $4b01,$ff00,$0180,$0008
dc.w    $5a01,$ff00,$0180,$0007
dc.w    $6701,$ff00,$0180,$0006
dc.w    $7201,$ff00,$0180,$0005
dc.w    $7a01,$ff00,$0180,$0004
dc.w    $8201,$ff00,$0180,$0003
dc.w    $8601,$ff00,$0180,$0002
dc.w    $8801,$ff00,$0182,$1000,$0180,$1100
dc.w    $8901,$ff00,$0182,$1000,$0180,$2200
dc.w    $8a01,$ff00,$0182,$1000,$0180,$3300
dc.w    $8b01,$ff00,$0182,$000a,$0180,$4400
dc.w    $8c01,$ff00,$0182,$1020,$0180,$5500
dc.w    $8d01,$ff00,$0182,$0001,$0180,$6600
dc.w    $8e01,$ff00,$0182,$0002,$0180,$7700
dc.w    $8f01,$ff00,$0182,$0003,$0180,$8800
dc.w    $9001,$ff00,$0182,$0004,$0180,$9900
dc.w    $9101,$ff00,$0182,$0005,$0180,$aa00 ;
dc.w    $9201,$ff00,$0182,$0006,$0180,$bb00 ;
dc.w    $9301,$ff00,$0182,$0007,$0180,$cc00 ;
dc.w    $9401,$ff00,$0182,$0008,$0180,$dd00 ;
dc.w    $9501,$ff00,$0182,$0009,$0180,$dd00
dc.w    $9601,$ff00,$0182,$000a,$0180,$dd00
dc.w    $9701,$ff00,$0182,$000b,$0180,$cc00
dc.w    $9801,$ff00,$0182,$000c,$0180,$bb00
dc.w    $9901,$ff00,$0182,$000d,$0180,$aa00
dc.w    $9a01,$ff00,$0182,$9900,$0180,$9900
dc.w    $9b01,$ff00,$0182,$8800,$0180,$8800
dc.w    $9c01,$ff00,$0182,$7700,$0180,$7700
dc.w    $9d01,$ff00,$0182,$6600,$0180,$6600
dc.w    $9e01,$ff00,$0182,$5500,$0180,$5500
dc.w    $9f01,$ff00,$0182,$4400,$0180,$4400
dc.w    $a001,$ff00,$0182,$3300,$0180,$3300
dc.w    $a101,$ff00,$0182,$2200,$0180,$2200
dc.w    $a201,$ff00,$0182,$1100,$0180,$1100
dc.w    $a401,$ff00,$0182,$2200,$0180,$2200
dc.w    $a601,$ff00,$0182,$3300,$0180,$3300
dc.w    $aa01,$ff00,$0182,$4400,$0180,$4400
dc.w    $b101,$ff00,$0182,$5500,$0180,$5500
dc.w    $b901,$ff00,$0182,$6600,$0180,$6600
dc.w    $c401,$ff00,$0180,$7700
dc.w    $d301,$ff00,$0180,$8800
dc.w    $e601,$ff00,$0180,$9900
dc.w    $f701,$ff00,$0180,$aa00
dc.w	$ffff,$bb00
text:
dc.b    "  TFC OF THE GREAT  4TH DIMENSION  PROUDLY "
dc.b    "PRESENTS NEW STUFF!!   LET'S GET ON WITH "
DC.B    "THE GREETINGS:    MEDITATION STOPPERS     H"
DC.B    "AGAR OF THE CONNECTION     HOTLINE     TRAC"
DC.B    "K 7 OF RAWHEAD     RISKY BUSINISS BOYS     "
DC.B    "THUNDERBOLT CRACKING CREW      TRIAD     DE"
DC.B    "ADLINE      THE HUNTER OF THE ZAPP      SCI"
DC.B    "FF OF SCIENCE CRACKING TEAM (SCT)     THE A"
DC.B    "MIGA FORCE      ACADEMY      E.C.S      THI"
DC.B    "NK-MAN      THE MECHANIC     THE FLASH TEAM"
DC.B    "     AND ALL OTHERS WE KNOW!!              " 
DC.B    "FOR THE LATEST STUFF, CONTACT ME AT     4TH"
DC.B    " DIMENSION,    KIRKEVEIEN 45,     8200 FAUS"
DC.B    "KE,    NORWAY     OR PHONE: (NORWAY=47) 814"
DC.B    "4845       IF YOU ARE GOING TO HAVE A COPY "
DC.B    "PARTY, PHONE: NORWAY 8143019 AND ASK FOR AN"
DC.B    "DERS!!!     OK, LOOK OUT FOR THE FINAL VER"
DC.B    "SION OF OUR FIRST INTRO!!!  (THIS!!)       "
DC.B    "    RESET THE MACHINE OR READ THE SCROLLTEX"
DC.B    "T AGAIN!!               "
end:
even
taller:
dc.l	0
oldclist:
dc.l	0
gfxbase:
dc.l	0
gfxname:
dc.b	"graphics.library",0
even
bitmap:
blk.w	4,0
plane1:
blk.l	20,0
rastport:
dc.l	0
r_bitmap:
blk.l	30,0
rows:
dc.b	2