'This code was written by Jeff Glatt of dissidents software, and has been
 'placed in the public domain along with the ilbm and requester libraries.
 'This program uses these 2 custom libraries to select an IFF ILBM file and
 'display it. Documentation for the requester library appears on Fish #203.

 CLS
 LOCATE 1,8
 PRINT  "Demo AmigaBasic program using the requester and ilbm libraries."
 LOCATE 2,11
 PRINT  "Literally hacked together by Jeff Glatt (dissidents)"
 
 DEFLNG var0012-var0013  'IMPORTANT! All variables are longs (for the library calls)

 'requester.bmap, ilbm.bmap, exec.bmap, and intuition.bmap must be in the
 'current directory, or prepend the appropriate path to the lib name.
 LIBRARY "requester.library"
 LIBRARY "ilbm.library"
 LIBRARY "exec.library"
 LIBRARY "intuition.library"
 LIBRARY "color.library"
 
 DECLARE FUNCTION var0015() LIBRARY
 DECLARE FUNCTION var00c2()   LIBRARY
 DECLARE FUNCTION var00bf() LIBRARY

 DECLARE FUNCTION var0000() LIBRARY  'These are in the requester lib.
 DECLARE FUNCTION var0004() LIBRARY 'Other functions in the lib do
 DECLARE FUNCTION var0005() LIBRARY       'not return values, and so do not
 DECLARE FUNCTION var0009() LIBRARY 'need declaring
 DECLARE FUNCTION var0035() LIBRARY
 DECLARE FUNCTION var003c() LIBRARY
 DECLARE FUNCTION var003d() LIBRARY
 DECLARE FUNCTION var003e() LIBRARY
 DECLARE FUNCTION var003f() LIBRARY
 DECLARE FUNCTION var0040() LIBRARY

 DECLARE FUNCTION var00a9() LIBRARY
 DECLARE FUNCTION var00af() LIBRARY
 
 'First we must get a buffer for the pathname. The FileIO's DoFileIOWindow()
 'will copy the complete pathname there. The complete path looks just like
 'a CLI line:
 
 '  Diskname:TopDrawer/SubDrawer...etc...BottomDrawer/Filename
 
 'Of course, the user may only select a disk or drawer, but no filename, and
 'so the final "/Filename" will not be there. Also, the Filename might not
 'be in any drawers, and so it will appear directly after the diskname. If
 'this format looks weird to you, you need to learn about the CLI.
 'We'll get our buffer from Exec via AllocMem(). 
  
 var001f = 1 : var0020 = 65536 : var006a = 202
 var001a=var0015(var006a,var001f+var0020) 'A buffer