' *******************************************************
' * BOITE DE DIALOGUE AUTOMATIQUE                       *
' * Utilisation de la commande système AutoRequest()    *
' *                                                     *
' * CODE        Pierre Philippe Launay                  *
' * COPYRIGHT   © ArtioDactyl France Informatique 1993  *
' *******************************************************
'
OPENS 1,0,0,640,200,3,&H8000
OPENW #1
FULLW #1
titre$="Titre"+CHR$(0)
oui$="Oui"+CHR$(0)
non$="Non"+CHR$(0)
wind%=WINDOW(1)
bodtext$=SPACE$(20)
postext$=SPACE$(20)
negtext$=SPACE$(20)
bodtext%=V:bodtext$
postext%=V:postext$
negtext%=V:negtext$
'
BYTE{bodtext%}=1                ! FrontPen
BYTE{bodtext%+1}=2              ! BackPen
WORD{bodtext%+2}=&H0            ! DrawMode
WORD{bodtext%+4}=10             ! LeftEdge
WORD{bodtext%+6}=10             ! TopEdge
LONG{bodtext%+8}=0              ! *TextFont
LONG{bodtext%+12}=V:titre$      ! Itext
LONG{bodtext%+16}=0             ! NextText
'
BYTE{postext%}=3                ! FrontPen
BYTE{postext%+1}=4              ! BackPen
WORD{postext%+2}=&H0           ! DrawMode
WORD{postext%+4}=20             ! LeftEdge
WORD{postext%+6}=50             ! TopEdge
LONG{postext%+8}=0              ! *TextFont
LONG{postext%+12}=V:oui$        ! Itext
LONG{postext%+16}=0             ! NextText
'
BYTE{negtext%}=5               ! FrontPen
BYTE{negtext%+1}=6              ! BackPen
WORD{negtext%+2}=&HC0           ! DrawMode
WORD{negtext%+4}=60             ! LeftEdge
WORD{negtext%+6}=20             ! TopEdge
LONG{negtext%+8}=0              ! *TextFont
LONG{negtext%+12}=V:non$        ! Itext
LONG{negtext%+16}=0             ! NextText
'
' ~BuildSysRequest(wind%,bodtext%,postext%,negtext%,&H0,120,50)
' bof%=AutoRequest(WINDOW(1),bodtext%,postext%,negtext%,&H0,&H0,120,80)
bof%=AutoRequest(0,bodtext%,postext%,negtext%,&H0,&H0,120,50)
PRINT bof%