;********************* ;* * ;* 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 ;------------------------------------------------------------------------- ; Fermeture de la fenêtre de travail & Fin: move.l handle,d1 jsr Close(a6) trap #0 ; Sous-Programmes: ; Personnels: ;------------------------------------------------------------------------- ; 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