begin ; !VSWOP
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")
  e == sysfind("V200_L1")
  stopif  r==nil or  e==nil
  v_rows = v_rows!!r_rows!!e_rows
  v_cols = v_cols!!r_cols!!e_cols
  v_jmp = v_jmp!!r_jmp!!e_jmp
  v_address = v_address!!r_address!!e_address
end