/* */
options results;parse arg ar1'|'ar2;call pragma('P',-5)

/* == Place your code here! "AR1" is the path/file, "AR2" is the temp file == */

/*               IFF Picture Loader Module - Made for FPDiz

                                    V1.0

     If you find any bugs in this please report them to mUb@912:1000/0.0,
               Chris Brundell@2:2502/12.0 or mub@reliant.psu.edu             */

address command 'GFXList 'ar1' >'ar2
call open(input,ar2,r);do 4;temp=readln(input);end;call close(input)
desc='A 'strip(substr(temp,7,5))' wide, 'strip(substr(temp,14,6))' pixels tall, 'strip(substr(temp,22,5))' bitplane picture of a'

/* ============== Writes the "DESC" variable to the temp file. ============== */

call open(fp,ar2,'W');call writeln(fp,desc);call close(fp)
exit
