;*********************
;*                   *
;*  Program by JEDI  *
;*                   *
;*********************

ExecBase = 4
OpenLib = -408  ; librairies
CloseLib = -414
Open = -30	; fenêtre
Close = -36	; fenêtre
Write = -48	; écran
Read = -42	; clavier
DrawImage = -114; graphisme

; Préparatifs:

start	move.l	execbase,a6
	lea	dosname,a1
	moveq	#0,d0
	jsr	OpenLib(a6)
	move.l	d0,dosbase

; Ouverture de la fenêtre de travail:

	move.l	dosbase,a6
	move.l	#nomfen,d1
	move.l	#1005,d2
	jsr	Open(a6)
	move.l	d0,handle

; Zone de Programmation:
;-------------------------------------------------------------------------

Programme
;	move.l	handle,d1
;	move.l	#mes1,d2
;	move.l	#mes2-mes1,d3
;	jsr	Write(a6)
	move.l	image,a1
	move	#30,d0
	move	#50,d1
	bsr	draw
attente bra.s	attente

;-------------------------------------------------------------------------
; Fermeture de la fenêtre de travail & Fin:

	move.l	handle,d1
	jsr	Close(a6)
	trap	#0

; Sous-Programmes:

; Personnels:
;-------------------------------------------------------------------------

mes1	dc.b	'Image'
mes2	

draw	move.l	intbase,a6
	move.l	windowhd,a0
	move.l	50(a0),a0
	jsr	DrawImage(a6)
	rts

image	dc.w	0,0
	dc.w	32,13
	dc.w	1
	dc.l	imgdata
	dc.b	1
	dc.b	1
	dc.l	0

imgdata dc.l	%00000000000000000000000000000000
	dc.l	%00000000000000000000111000000000
	dc.l	%00011101110111000001111100000000
	dc.l 	%00010101000100000001111100000000
	dc.l	%00010101100110000001111000000000
	dc.l	%00011101000100000011100000000000
	dc.l	%00000000000000000111000000000000
	dc.l	%00000000000000001110000000000000
	dc.l	%00000000000111111111100000000000
	dc.l	%00000000001111111111110000000000
	dc.l	%00000000001111111111110000000000
	dc.l	%00000000000110000001100000000000
	dc.l	%00000000000000000000000000000000

; Système:
;-------------------------------------------------------------------------

dosname	dc.b	'dos.library',0,0

dosbase	blk.l	1

handle	blk.l	1

buffer	blk.b	255,0
even

nomfen	dc.b	'CON:0/10/640/200/-*- Fenêtre de Travail by JEDI -*-',0	

intbase	blk.l	1

windowhd
	blk.l	1
