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

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

; 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	handle,d1
	move.l	#buffer,d2
	move.l	#255,d3
	jsr	Read(a6)
	move.l	handle,d1
	jsr	Write(a6)
	move.l	#500000,d5
attente sub.l	#1,d5
	bne	attente

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

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

; Sous-Programmes:

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

mes1	dc.b	'>Entrez une chaine de caractères : '
mes2

; 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	

