home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085a.adf / archives / af85a1.lzx / Dialog_Procedures / Source / AlertRequester.AMOS / AlertRequester.amosSourceCode
Encoding:
AMOS Source Code  |  1978-07-26  |  1.6 KB  |  93 lines
  1. Procedure _ALERTREQUESTER[M$,BT$]
  2.    '
  3.    Shared _DIALOGBUTTON$,_BACK,_COLOUR,_TEXT,_LIGHT,_SHADOW
  4.    '
  5.    If M$="_Cc_"
  6.       Goto FIN
  7.    End If 
  8.    '
  9.    I=0
  10.    J=0
  11.    L=0
  12.    While I<Len(M$)
  13.       I=Instr(M$,"|",I+1)
  14.       If I=0
  15.          I=Len(M$)+1
  16.       End If 
  17.       J=I
  18.       Inc L
  19.    Wend 
  20.    '
  21.    I=0
  22.    J=0
  23.    B=0
  24.    While I<Len(BT$)
  25.       I=Instr(BT$,"|",I+1)
  26.       If I=0
  27.          I=Len(BT$)+1
  28.       End If 
  29.       J=I
  30.       Inc B
  31.    Wend 
  32.    '
  33.    B_DLG$=_DIALOGBUTTON$
  34.    _DIALOGBUTTON$=""
  35.    '
  36.    _OPENDIALOGSCREEN[7,50+(L*8),50]
  37.    H=50+(L*8)-1
  38.    '
  39.    _DRAW3DBOX[0,0,639,H-1,"",4,0,_COLOUR]
  40.    Set Pattern 2
  41.    _DRAW3DBOX[3,10,636,H-2,"",3,_LIGHT,_BACK]
  42.    Set Pattern 0
  43.    '
  44.    If BT$=""
  45.       _DRAW3DBOX[0,0,639,10,"",4,0,_COLOUR]
  46.       Ink _TEXT,_COLOUR
  47.       Text 5,7,"Information Requester"
  48.       _DRAW3DBOX[8,13,632,H-3,M$,3,_TEXT,_BACK]
  49.       Goto FIN2
  50.    End If 
  51.    '
  52.    _DRAW3DBOX[0,0,18,10,"",4,1,_COLOUR]
  53.    _ADDZONE[0,0,18,10,1,"B"]
  54.    Ink _LIGHT
  55.    Bar 7,3 To 11,7
  56.    Ink _SHADOW
  57.    Box 7,3 To 11,7
  58.    _DRAW3DBOX[19,0,639,10,"",4,0,_COLOUR]
  59.    Ink _TEXT,_COLOUR
  60.    Text 24,7,"Button Requester"
  61.    _DRAW3DBOX[8,13,632,H-20,M$,3,_TEXT,_BACK]
  62.    '
  63.    BB#=B
  64.    D2#=326.0-((BB#*100.0)/2.0)
  65.    '
  66.    I=0
  67.    J=0
  68.    A=0
  69.    While A<B
  70.       I=Instr(BT$,"|",I+1)
  71.       If I=0
  72.          I=Len(BT$)+1
  73.       End If 
  74.       _ADDBUTTON[D2#+100*A,H-18,D2#+100*A+86,H-5,Left$(Mid$(BT$,J+1,I-J-1),10),A+2]
  75.       J=I
  76.       Inc A
  77.    Wend 
  78.    '
  79.    Repeat 
  80.       _CHECKBUTTONS
  81.       Q=Param
  82.    Until Q
  83.    '
  84.    _DIALOGBUTTON$=B_DLG$
  85.    B_DLG$=""
  86.    ZN=0
  87.    '
  88.    FIN:
  89.    Screen Close 7
  90.    '
  91.    FIN2:
  92.    '
  93. End Proc[Q-1]