begin
  integer btrue, bfalse, instring
  integer ch, inconst, ptr, obp, res
  integerarray sc('A':'Z')
  bytearray outbuf(0:1000)
  
  routine getline(integer ptr)
  end
  integerfn next non sp(integer sym)
    result = 'x'
  end
  switch bip(1:2000)
  
bip(1013): ! Alias.
   ch = next non sp(inconst)
   ptr = ptr + 1
   if ch # '"' then res = bfalse and -> inc
   outbuf(obp) = ' '
   obp = obp + 1
   outbuf(obp) = '"'
   obp = obp + 1
   cycle 
      if sc(ptr) = '"' start
         outbuf(obp) = '"' ! instring
         if sc(ptr + 1) # '"' then exit
         outbuf(obp + 1) = '"' ! instring
         obp = obp + 2
         ptr = ptr + 2
      finish else start
         ch = sc(ptr)
         outbuf(obp) = ch ! instring
         obp = obp + 1
         ptr = ptr + 1
         getline(ptr) if ch = nl
      finish
   repeat
   ptr = ptr + 1
   obp = obp + 1
inc:
endofprogram