%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