Petite sub d'alerte

DIM a$, rc$
rc$ = chr$(13)+chr$(10)
a$ = "Au clair de la lune"+rc$+"Mon ami Pierrot"+rc$+"Prête-moi ta plume"
a$=a$+rc$+"Pour écrire un mot"
a$=a$+rc$+"C'est ainsi que Roland épousa la belle Aude"

Postit(200,100,a$,1)
print str$(r_qs%)
END

SUB Postit(x%,y%,txt$,t%)
' Affichage d'un message txt$ en position x%,y%
' Si plusieurs lignes, séparées par RC/AL = chr$(13)+chr$(10)
' t%=0: message simple, t%=1: message OUI/NON, avec réponse dans r_qs% (=1: OUI)
IF VARIABLE("r_qs%")=0 THEN DIM r_qs%
IF LABEL("Pos_clic")=0 THEN LABEL Pos_clic
IF LABEL("Pos_clac")=0 THEN LABEL Pos_clac
DIM_LOCAL f%, a$, att%, nl%, i%
f%=940: WHILE OBJECT_EXISTS(f%) = 1: f%=f%+100: END_WHILE
FORM f%: TOP f%,y%: LEFT f%,x%: BORDER_SMALL f%: ON_CLOSE f%,Pos_clac
COLOR f%,0,255,255
FONT_NAME f%,"Calibri": FONT_SIZE f%,12: FONT_BOLD f%
WIDTH f%,TEXT_WIDTH(txt$,f%)+40
nl% = 1
FOR i% = 1 TO LEN(txt$)
    IF MID$(txt$,i%,1) = CHR$(10) THEN nl% = nl% + 1
NEXT i%
HEIGHT f%,nl%*TEXT_HEIGHT(txt$,f%)+80
MEMO f%+1: PARENT f%+1,f%: FULL_SPACE f%+1: COLOR f%+1,255,255,164
ITEM_ADD f%+1,txt$
a$ = ""
FOR i% = 1 TO COUNT(f%+1)
    IF LEN(ITEM_READ$(f%+1,i%))>LEN(a$) THEN a$ = ITEM_READ$(f%+1,i%)
NEXT i%
WIDTH f%,TEXT_WIDTH(a$,f%)+40: IF WIDTH(f%)<160 THEN WIDTH f%,160
IF t% = 0
    BUTTON f%+2: PARENT f%+2,f%: TOP f%+2,HEIGHT(f%)-63
    LEFT f%+2,WIDTH(f%+1)/2-40: CAPTION f%+2,"OK" : ON_CLICK f%+2,Pos_clac
ELSE
    BUTTON f%+2: PARENT f%+2,f%: TOP f%+2,HEIGHT(f%)-63: WIDTH f%+2,60
    LEFT f%+2,WIDTH(f%+1)/2-66: CAPTION f%+2,"OUI": ON_CLICK f%+2,Pos_clic
    BUTTON f%+3: PARENT f%+3,f%: TOP f%+3,TOP(f%+2): WIDTH f%+3,WIDTH(f%+2)
    LEFT f%+3,WIDTH(f%+1)/2+5: CAPTION f%+3,"NON": ON_CLICK f%+3,Pos_clac
END_IF
r_qs% = 0: WHILE att% = 0: PAUSE 200: END_WHILE: EXIT_SUB: ' attente clic
Pos_clic:
    r_qs% = 1
Pos_clac:
    att% = 1
    DELETE 940
RETURN
END_SUB