;****************************
;*                          *
;*          SOURCE          *
;*  (c)JEUDY S.-04/12/1994  *
;*                          *
;****************************

;Constantes Système:

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

;Constantes personnelles:

;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:
;-------------------------------------------------------------------------

Debut

Fin

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

	move.l	handle,d1
	jsr	Close(a6)
	rts

;Sous-Programmes:

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

Cls	move.l	handle,d1	;Efface l'écran
	move.l	#cls1,d2
	move.l	#1,d3
	jsr	Write(a6)
	rts

;Messages:

cls1	dc.b	$0c

;Variables personnelles:

;Système (variables+constantes):
;-------------------------------------------------------------------------

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

dosbase	blk.l	1

handle	blk.l	1

buffer	blk.b	255,0

nomfen	dc.b	'CON:20/20/400/200/-*- Fenêtre de travail -*-',0

