begin ; !V200
include  "i:dict.inc"
recordformat  f(byte  rows,cols,short  jmp,integer  address)
@16_3fa0 record (f)v
record (f)name  r,e

  record (f)map  sysfind(string (255)s)
  integer  token
    token = refname(s,sysdict)
    printstring(s." not found") and  newline andresult  == nil unless  token>0
    token = integer(token)
    result  == record(token)
  end 

  r == sysfind("V200_V200")
  stopif  r==nil
  v = r
end