Software 2000/Software 2000 Volume 1 (Disc 1 of 2).iso/utilities/u304.dms/in.adf/bits/Requesters.Acc/Requesters.amosSourceCode

AMOS Source Code | 1992-03-22 | 5.4 KB | 155 lines

' Put the following 2 lines at the beginning of your program!
Dim T$(10)
Global T$(),Z,OLDCL,CL

' Requester procedures by James Lanng for the AMOS PD library.  Feel free to
' use them within your own programs.

' REQ is a procedure to make a standard requester open in the centre of the
' screen.  T1$ contains the first line of the title, and T2$ is the second
' line of the title.  If T2$ is empty, i.e. "" then T1$ is moved into the
' centre.  B1$ and B2$ are the buttons, if B2$ is empty, the first button
' expands over where B2$ would be.
' The variable Z equals either 1 or 2, corresponding to the button clicked
' on.

' NREQ is a requester which fills the whole screen, and can have 7 items in
' NTSC mode (USA), or 10 in PAL mode (Europe & Australasia).  To set up the
' items, first call the CLRT procedure, then set up the items as below:
'
' CLRT
' T$(1)="First item"
' T$(2)="Second item"
'
' All the buttons that are empty have no border drawn around them.
'
' NM is the number of items there are.
'
' CL contains 0 if the screen is to be closed when a button has been selected,
' or 1 if the screen is to be kept open.

Procedure REQ[T1$,T2$,B1$,B2$]
   Show
   Flash Off
   Paper 0 : Cls : Curs Off
   Palette 0,$444,$777,$FFF
   Reserve Zone 3
   L1=Len(T1$) : L2=Len(T2$) : B1=Len(B1$) : B2=Len(B2$)
   If L1>0 and L1<33 Then T1$=Space$((33-L1)/2)+T1$+Space$((33-L1)/2)+" "
   If L2>0 and L2<33 Then T2$=Space$((33-L2)/2)+T2$+Space$((33-L2)/2)+" "
   Z=(28-B1)/2
   If B1>0 and B1<28 and B2=0 Then B1$=Space$(Z)+B1$+Space$(Z) : Goto UHUH
   If B1>0 and B1<8 Then B1$=Space$((8-B1)/2)+B1$+Space$((8-B1)/2)
   UHUH:
   If B2>0 and B2<8 Then B2$=Space$((8-B2)/2)+B2$+Space$((8-B2)/2)
   If Len(T1$)>33 Then T1$=Left$(T1$,33)
   If Len(T2$)>33 Then T2$=Left$(T2$,33)
   If Len(B1$)>0 and B2=0 Then Goto ARHA
   If Len(B2$)>8 Then B2$=Left$(B2$,8)
   ARHA:
   If Len(B1$)>28 and Len(B2$)=0 Then B1$=Left$(B1$,28)
   If B2>8 Then B2$=Left$(B2$,8)
   Ink 1 : Bar 170,0 To 470,52
   Ink 3 : Bar 171,1 To 470,59
   Ink 2 : Bar 171,1 To 468,58
   Ink 0 : Bar 180,10 To 458,30
   Ink 3 : Draw 180,30 To 458,30 : Draw 458,30 To 458,10
   RDRAW:
   If Len(B1$)>0 and Len(B2$)=0
      Ink 3 : Box 200,37 To 430,52
      Ink 0 : Draw 200,52 To 430,52 : Draw 430,52 To 430,37
      Ink 0,2
      Text 204,47,B1$
      Set Zone 3,200,37 To 430,52
      Goto HULLO
   End If
   If Len(B1$)>0
      Ink 3 : Box 200,37 To 270,52
      Ink 0 : Draw 200,52 To 270,52 : Draw 270,52 To 270,37
   End If
   If Len(B2$)>0
      Ink 3 : Box 360,37 To 430,52
      Ink 0 : Draw 360,52 To 430,52 : Draw 430,52 To 430,37
   End If
   Ink 0,2
   Text 204,47,B1$
   HULLO:
   If T2$<>"" Then Text 187,18,T1$ : Else Text 187,22,T1$
   Text 187,26,T2$
   Text 364,47,B2$
   If Len(B1$)>0 Then Set Zone 1,200,37 To 270,52
   If Len(B2$)>0 Then Set Zone 2,360,37 To 430,52
   If Len(B1$)>0 and Len(B2$)=0 Then Set Zone 1,0,0 To 1,1 : Set Zone 2,0,0 To 1,1
   Do
      Z=Mouse Zone
      M=Mouse Key
      If Z=1 and M<>0 Then Ink 0 : Box 200,37 To 270,52 : Ink 3 : Draw 200,52 To 270,52 : Draw 270,52 To 270,37 : Repeat : Until Mouse Key=0 : If Mouse Zone<>1 Then Goto RDRAW : Else Screen Close 7 : Limit Mouse 128,42 To 447,297 : Pop Proc
      If Z=2 and M<>0 Then Ink 0 : Box 360,37 To 430,52 : Ink 3 : Draw 360,52 To 430,52 : Draw 430,52 To 430,37 : Repeat : Until Mouse Key=0 : If Mouse Zone<>2 Then Goto RDRAW : Else Screen Close 7 : Limit Mouse 128,42 To 447,297 : Pop Proc
      If Z=3 and M<>0 Then Ink 0 : Box 200,37 To 430,52 : Ink 3 : Draw 200,52 To 430,52 : Draw 430,52 To 430,37 : Repeat : Until Mouse Key=0 : If Mouse Zone<>3 Then Goto RDRAW : Else Screen Close 7 : Limit Mouse 128,42 To 447,297 : Pop Proc
      LP:
   Loop
End Proc
Procedure NREQ[TI$,NM,CL]
   If OLDCL=1 Then Goto DN
   If Ntsc=0 Then Screen Open 7,640,240,4,Hires : Else Screen Open 7,640,200,4,Hires
   If Ntsc=1 and NM>7 Then NM=7
   Show
   Flash Off
   Paper 0 : Cls 2 : Curs Off
   Palette 0,$555,$888,$FFF
   DN:
   Reserve Zone NM
   For A=1 To NM
      If T$(A)="" Then Add ZZ,1 : Else Exit
   Next A
   If Ntsc=0 Then Limit Mouse 178,90+(ZZ*20) To 398,90+NM*20-8 : Else Limit Mouse 178,90+(ZZ*20) To 398,90+NM*20-8
   Cls 2
   Paper 2
   If Ntsc=0 Then Locate 0,29 : Else Locate 0,24
   Pen 0
   Centre "APE NREQ procedure by James Lanng for AMOS PD"
   Ink 0
   If Ntsc=0 Then Box 4,1 To 635,228 : Else Box 4,1 To 635,188
   A=27-(Len(TI$)/2)+1
   TI$=Space$(A)+TI$
   For A=1 To NM
      If T$(A)="" Then Goto NX
      B=25-(Len(T$(A))/2)
      T$(A)=Space$(B)+T$(A)
      NX:
   Next A
   Ink 1
   Box 80,10 To 560,10+12
   Ink 3
   Draw 80,10 To 560,10
   Draw 560,10 To 560,22
   Ink 1,2
   Text 85,10+9,TI$
   RDRAW:
   For A=1 To NM
      If T$(A)="" Then Goto NXT
      Ink 1
      Box 100,A*20+20 To 540,A*20+20+12
      Ink 3
      Draw 100,A*20+20 To 540,A*20+20
      Draw 540,A*20+20 To 540,A*20+20+12
      Ink 1,2
      Text 105,A*20+20+9,T$(A)
      Set Zone A,100,A*20+20 To 540,A*20+20+12
      NXT:
   Next A
   LOP:
   Repeat : Until Mouse Click
   Z=Mouse Zone
   If Z=0 Then Goto LOP : Else Ink 3 : Box 100,Z*20+20 To 540,Z*20+20+12 : Ink 1 : Draw 100,Z*20+20 To 540,Z*20+20 : Draw 540,Z*20+20 To 540,Z*20+20+12 : Repeat : Until Mouse Key=0 : If Mouse Zone<>Z Then Goto RDRAW : Else FSH : Pop Proc
End Proc
Procedure CLRT
   For A=1 To 10
      T$(A)=""
   Next A
End Proc
Procedure FSH
   OLDCL=CL
   If CL=0 Then Screen Close 7
   If CL=1 Then Rem Don't Screen Close 7
End Proc