   10REM>unvaxify
   20ON ERROR GOTO 110
   30I%=OPENIN("ipa.300gfx")
   40O%=OPENOUT("ipa.300gf")
   50REPEAT
   60hi=BGET#I%:lo=BGET#I%:ct=hi*256+lo
   70FOR N%=1 TO ct-2
   80BPUT#O%, BGET#I%
   90NEXT
  100UNTIL 0
  110ON ERROR OFF
  120CLOSE#O%
  130CLOSE#I%
  140REPORT:PRINT" at line ";ERL
