home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / ad's_iff_loader.amos / ad's_iff_loader.amosSourceCode next >
AMOS Source Code  |  1993-10-11  |  1KB  |  51 lines
  1. '                 Ad's Iff Selector by Ad  
  2. '
  3. '        Writen on AMOS and compiled on AMOS COMPILER  
  4. '
  5. '            Designed and coded by Adam Southall 
  6. '
  7. '
  8. ABOUTSTAT=0
  9. Break Off 
  10. MAIN
  11. Procedure MAIN
  12.    Screen Open 1,320,255,64,Lowres : Cls 0
  13.    Screen Open 0,320,255,4,Lowres
  14.    Curs Off : Flash Off 
  15.    Unpack 10 To 0
  16.    Screen To Front 0
  17.    Limit Mouse 206,143 To 350,195
  18.    Do 
  19.       A$=Inkey$
  20.       Reserve Zone 3
  21.       Set Zone 1,89,119 To 130,153
  22.       Set Zone 2,135,119 To 175,153
  23.       Set Zone 3,180,119 To 221,153
  24.       M=Mouse Zone
  25.       N=Mouse Key
  26.       If M=1 and N=1 Then ABOUT
  27.       If M=2 and N=1 Then PICSHOW
  28.       If M=3 and N=1 Then MENU
  29.       If A$="q" Then End 
  30.    Loop 
  31. End Proc
  32. Procedure ABOUT
  33.    If ABOUTSTAT=0 Then Screen Open 2,320,255,4,Lowres : Curs Off : Flash Off : Unpack 11 To 2
  34.    If ABOUTSTAT=100 Then Screen To Front 2
  35.    Wait Key 
  36.    Screen To Front 0
  37.    ABOUTSTAT=100
  38. End Proc
  39. Procedure PICSHOW
  40.    Screen To Front 1
  41.    Wait Key 
  42.    Screen To Front 0
  43. End Proc
  44. Procedure MENU
  45.    Screen Display 1,0,0,320,255
  46.    FLOAD$=Fsel$("**","","Ads Iff Loader!!","Choose an IFF file to show or Quit")
  47.    If FLOAD$="" Then Screen To Front 0 : Pop Proc
  48.    Load Iff(FLOAD$),1
  49.    Wait Key 
  50.    Screen To Front 0
  51. End Proc