'
' BUtility V1.21 for Amos 1.3 - FREEWARE (c) 1999-2001 Mariusz Rycyk  
'
' Install BUtility.Lib as extension number 12
'
' If you have any questions or sugestions or you found some bugs than
' write to me.     
'
' Contact: 
'
' Mariusz Rycyk
' ul.Rozana 7/130
' 20-538 Lublin
' Poland 
'
' Tel: (081) 526-66-96 
'
' E-Mail: mrycyk@poczta.fm
'
' http://www.mrycyk.prv.pl
'
' Supported functions and instructions:
'
' =Bxpkpack("infile" TO "outfile","method","password") 
' Example: 
' A=Bxpkpack("ram:file" TO "ram:file.xpk","sqsh","") 
' If Not A Then Print Bxpkerror$ 
'
' =Bxpkunpack("infile" TO "outfile","password")  
' Example: 
' A=Bxpkunpack("ram:file.xpk" TO "ram:file","fuck")  
' If Not A Then Print Bxpkerror$ 
'
' =Bxpkerror$
' Example: 
' Goto Bxpkpack or Bxpkunpack
'
' Bfilereqchg "Pattern","Start directory"
' Example: 
' Bfilereqchg "mod.#?","RAM:"
'
' =Bfilereq("Title","Default file")  
' Example: 
' A=Bfilereq("Load file","ReadMe.txt") 
' If A 
'     Print "Full name: "+Breqdir$+Breqfile$ 
' Else 
'     Print "File requester cancelled!"
' EndIf
'
' =Breqfile$ 
' Example: 
' Goto Bfilereq
'
' =Breqdir$
' Example: 
' Goto Bfilereq
'
' =Baslfilereq("Title","Pattern","Default dir","Default file")   
' Example: 
' A=Baslfilereq("Load file","#?.txt","RAM:","ReadMe.txt")  
' If A 
'     Print "Full name: "+Basldir$+Baslfile$   
' Else 
'     Print "File requester cancelled!"
' EndIf
'
' =Baslfile$ 
' Example: 
' Goto Baslfilereq 
'
' =Basldir$
' Example: 
' Goto Baslfilereq 
'
' =Binforeq("Main text","Gadgets","Title") 
' Example: 
' A=Binforeq("Quit?","_Yes|_No","Quit request")
' If A=1 Then Proc CLEANUP 
'
' =Bgetlongreq("Title","Main text",Min value,Max value,Default value)
' Example: 
' A=Bgetlongreq("Get long requester","Set new task priority",-3,3,0) 
' If A Then Print "New task priority:";Bgetlong
'
' =Bgetlong
' Example: 
' Goto Bgetlongreq 
'
' =Bgetstrreq("Title","Main text","Default text",Max chars (1-255))
' Example: 
' A=Bgetstrreq("Get string requester","Enter your name","Mariusz Rycyk",100) 
' If A Then Print "Your name: "+Bgetstr$ 
'
' =Bgetstr$
' Example: 
' Goto Bgetstrreq
'
Amos To Back 
Bfilereqchg "mod.#?","RAM:"
PLIK$=""
Repeat 
   A$=""
   A$=A$+"----------------------------------------"+Chr$(10)
   A$=A$+"Butility.Lib V1.21 - FREEWARE"+Chr$(10)
   A$=A$+"Written in 06.11.2001 by Mariusz Rycyk"+Chr$(10)
   A$=A$+"----------------------------------------"+Chr$(10)
   A$=A$+"Start the Butility demo ?"+Chr$(10)
   A$=A$+"----------------------------------------"
   I=Binforeq(A$,"_Yes please|_No","Butility V1.21 info request")
   If I<>0
      L=Bgetlongreq("Get long requester","Please type any value"+Chr$(10)+"or just press enter",-1000,1000,100)
      If L
         I=Binforeq("Your value: "+Str$(Bgetlong)-" ","_That's right","Another info")
      Else 
         I=Binforeq("Get long requester cancelled","_Really?","Another info")
      End If 
      S=Bgetstrreq("Get string requester","Please type any string ( max 40 chars )"+Chr$(10)+"or just press enter","Mariusz Rycyk",40)
      If S
         I=Binforeq("Your string: '"+Bgetstr$+"'","_That's right","Another info")
      Else 
         I=Binforeq("Get string requester cancelled","_Really?","Another info")
      End If 
      B=Bfilereq("Load Xpk packed tracker module",PLIK$)
      If Not B
         I=Binforeq("File requester cancelled","_Really?","And another info")
      Else 
         KAT$=Breqdir$
         PLIK$=Breqfile$
         F$="Directory: "+KAT$+Chr$(10)
         F$=F$+"File name: "+PLIK$+Chr$(10)
         F$=F$+"Full name: "+KAT$+PLIK$
         I=Binforeq(F$,"_Unpack and play","File name info")
         TEMP$="T:TempFile"
         X=Bxpkunpack(KAT$+PLIK$ To TEMP$,"")
         If Not X
            I=Binforeq(Bxpkerror$,"_Ok","Error info")
         Else 
            Track Load TEMP$,10
            Kill TEMP$
            Track Loop On 
            Track Play 10
            A=Binforeq("Playing tracker module:"+Chr$(10)+PLIK$,"_Stop","Player Info")
            Track Stop 
            Track Loop Of 
            Erase 10
         End If 
      End If 
   Else 
      I=Binforeq("Info requester cancelled","_Really?","Another info")
   End If 
   I=Binforeq("Done."+Chr$(10)+"Goto start?","_Yes|_No","Last info")
Until I=0
Amos To Front 

---------------------------------------------------------------------------

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: 2.6.3i

mQCNAzqBpbQAAAEEANHPKtFCoJmi20cyOSvC4DvZoC75P7MTE/QaTHvMuAZ60alE
op0WPercgfrpD/xXxZhF/SL5/eV6tjQwgUH8zS8pRB6aAUtqXpdLXpU81ILLhGwk
WKUi/6snH61HkByRFRY/QDav3vTwLBFORqeH2vvI/N4XDkgB8Tw8ojvNjsnRAAUR
tCBNYXJpdXN6IFJ5Y3lrIDxtcnljeWtAcG9jenRhLmZtPokAlQMFEDyKrvA8PKI7
zY7J0QEBqKMD/0VcIrt/k8WR5Vvs6Ig1HhtGQDb/R5VRmLXAIsxUXbRqiIGPj7CS
+seJ4ZnPPQboLJcmM+wDHB6dWTT2uReNrSnOxCqRz9f+mti7VYzmakRLyUQSKMUz
fqUZKKhTcsmoH76RXhpetzwaZqSeOmWluKQLw38tMehDc3yCMNDhlnj+
=KHPQ
-----END PGP PUBLIC KEY BLOCK-----