#!/usr/local/bin/yabasic -librarypath /usr/lib/yabasic

import pcx
dim rle(2)

argc=peek("argument")
if argc=0 then
  input "pcx file " fn$
  gosub ShowPCX
else
  for i=1 to argc
  fn$=peek$("argument")
  gosub ShowPCX
  next i
end if
exit

Label ShowPCX
clear screen
? "Loading bitmap ..." ,fn$
LoadPCX(fn$,rle())
? time$
open window pcx.Width,pcx.Height
rem backcolor 0,0,0
clear window
? "Drawing RLE ..."
DrawRLE(rle(),0,0)
? time$
inkey$
close window
return