  ;
  :
  (
  )
  \
  dup
  0
  if
  @
  then
  swap
  +
  !
  r@
  constant
  >r
  r>
  drop
  else
  1
  of
  x
  over
  y
  api:
  -
  to
  eventtype
  throw
  postpone
  day
  2dup
  immediate
  2drop
  addr
  2
  and
  1+
  variable
  lcode:
  i
  1-
  0=
  u
  =
  w@
  loop
  do
  c@
  [char]
  [']
  cell+
  begin
  a
  +!
  r2
  r1
  n
  endof
  -1
  }}
  {{
  rot
  pix
  math
  sin:
  f
  exit
  create
  c!
  >abs
  value
  note:
  1000
  ,
  *
  c
  [compile]
  .
  while
  type
  repeat
  array
  "
  s"
  pass-size
  on
  literal
  d
  cells
  cell
  str+
  negate
  2+
  2*
  password
  needs
  here
  go
  copyres
  the
  sy
  rad
  length
  cx
  b
  ."
  '
  str
  sp@
  not
  freq:
  cy
  allot
  >in
  width
  sx
  move
  in
  half
  e
  ?dup
  <
  /
  worldaddr
  string
  pick
  pass
  or
  offwin
  nip
  nextword
  new
  n+!
  locdepth
  is
  height
  decimal
  cmove
  case
  2>r
  12
  with
  whole
  w*
  w!
  w
  off
  n1
  mathlibref
  head
  h
  getxy
  g
  from
  emit
  dfres
  curwin
  cr
  counter
  comp:
  catch
  <>
  #s
  "name"
  windrawline
  we
  w,
  until
  tuck
  test
  t>
  rdrop
  plot
  password's
  p
  lastline
  hold
  duration
  drawing
  dd
  csp
  compare
  cnt
  ]
  [
  ?do
  >
  <#
  2/
  10
  ->
  #>
  w>r
  use
  unpackpos
  unpackbuf
  try
  tail
  symbol
  str@
  ssize
  space
  sound
  sndcmd
  show
  setblock
  s
  rp@
  rnd
  residuaryrecs
  rect1
  rect!
  preferences
  parse
  outchar
  o
  n2
  module:
  memhandleunlock
  memhandlelock
  lochere
  len
  lcode2:
  it
  inblock
  for
  execute
  endcase
  does>
  dochead
  docbuf
  curdoc
  chset
  chars
  centy
  centx
  c-addr
  build
  blocks
  atscreen
  also
  again
  \eof
  >rel
  ;module
  20
  0<
  +loop
  #
  zero:
  x1
  vocs
  ulocs
  u2
  u1
  true
  tooffwin
  tempo
  t-addr
  strfree
  stopped
  shandle
  s2
  s1
  rshift
  quarter
  passfield
  p0
  onblockheight
  offs
  off>disp
  octave
  min
  main
  j
  ilocs
  id
  free
  formobjectptr
  event
  evaluate
  drawhm
  dest
  cplot
  cond
  choose
  cent!
  bool
  ball
  at
  addr:
  ?throw
  >store
  >scr
  2r>
  0>
  /size
  ""
  }e
  |
  {
  year
  wordlist
  within
  winerasewindow
  winenterevent
  warning
  using
  ulocs?
  todispwin
  timgetticks
  time
  this
  systrap
  symbols
  stack
  sps
  slowerspeed
  sin*
  show-length
  setsafe
  set
  saddr
  s>d
  ref
  random
  q
  previous
  onblock
  old-current
  old
  nrdrop
  mt
  memodb
  max
  locarr
  level
  itemid
  init
  hex
  findlocal
  finally
  e{
  eventloop
  end-try
  doworld
  domenu
  diag
  depth
  database
  curmemo
  cos*
  core
  copy
  context
  comment?
  code
  clipboard
  checking
  cardnum
  blw
  blh
  bl
  allocate
  addr1
  abs
  abort"
  ?dmerr
  >field
  :noname
  2swap
  0xf0
  .s
  ...
  'taib'
  }
  {r}
  y1
  xt
  world
  will
  volume
  vocabulary
  voc-list
  use-resource
  units/pixel
  taillen
  t-w!
  t-addr1
  swait
  sin
  showform
  seebranch
  sec
  run
  resource
  replace-word
  randomize
  r
  print
  prevsec
  pilotmain
  opendb
  o--
  o++
  mod
  menuevent
  maxy
  maxx
  maxlength
  line
  letters
  isblock
  initlocals
  incneighbors
  i*x
  handling
  growage
  graphics
  get-current
  generates
  fsin
  fldsetselection
  fill
  field
  ffffffff
  false
  ext
  example:
  events
  erase
  envlist
  enum
  doit
  dmqueryrecord
  definitions
  d0
  cycle
  cury
  curx
  current
  csp@
  creator's
  createoffscreen
  copypass
  coord>
  control
  compile,
  checkx
  carray
  c+!
  born
  be
  app
  all
  addr2
  [else]
  ?not-end
  2over
  1001
  10000
  100
  0xf
  0!
  /docrec0
  -csp
  -22
  -10
  */
  (try);
  (ekey)
  (")
  'rsrc'
  'ezal'
  xxyy
  xt>name
  xn
  x0
  wr>
  word
  winexitevent
  wineraseline
  windeletewindow
  wid
  weekdays
  weekday
  we'll
  voc-name.
  version
  v
  usemathlib
  unique
  to0
  timgetseconds
  time&date
  threshold
  there
  thens
  then,
  t-w,
  t-addr1)
  syslibremove
  syslibload
  syslibfind
  sysbeep
  strliteral
  stores
  store
  step
  state
  standalone
  sqrt
  spaces
  sp!
  source-id
  so
  snddocmd
  small
  sliteral
  simply
  shows
  showblock
  showarray
  sgn
  sfind
  setuplchandler
  set-current
  seeword
  seewlit
  seeslit
  seelit
  seed
  seecolon
  see
  screenrect
  s-csp
  rvarw
  rp+@
  rp+!
  rp+
  rp!
  rollnewspeed
  rndcell
  ret
  refill
  rallot
  r/o
  ptr
  processevt
  processdoc
  process
  procedure
  position
  place
  performed
  patch
  parse{}
  parse"
  palm's
  paintsecline
  orig
  orif
  options
  openmemodb
  opendoc
  ontoblock
  only
  offscreen
  notfound
  next
  need
  ndrop
  musinit
  movev
  moveh
  morebutton
  more?
  mode
  minlength
  micro
  memhandlesize
  memhandlenew
  memhandlefree
  makes
  mainform
  lt
  log2
  localexit
  loadcfg
  limits
  lifecycle
  life
  lib
  lf
  lessbutton
  lengthfield
  lcodes
  launch
  latest
  l>name
  l-cas#
  into
  initoffscr
  initclock
  index
  inclength
  hr
  hidden
  handle
  gp
  given
  getrecord
  getheader
  get
  genitem
  genbutton
  gen
  garbage
  frmopenevent
  frmgotoform
  frmgetobjectptr
  frmdodialog
  frmdeleteform
  frmalert
  freqhz
  freearray
  fpi
  forth
  forms
  foo
  fldcopy
  flag
  fillarray
  fill-chset
  fieldid
  fcos
  f/
  f*
  ezal
  export
  eval-str
  err)
  eraseboxr
  erasebox
  epz
  entermainf
  end
  ekey
  drmove
  drawtime
  drawsarrow
  drawmarrow
  drawhours
  drawharrow
  drawdots
  drawday
  drawdate
  drawcell
  drawarrows
  draw
  dragonforth
  donemathlib
  docinc
  dobutton
  dmremoverecord
  dmopendatabase
  digits
  die
  detachlastline
  density
  deg
  defined
  decreasing
  decompress
  declength
  dayofweek
  data
  ctlenterevent
  crlf
  cos
  copyitem
  copybutton
  compilelocals
  colon?
  colon!"
  closememodb
  closedoc
  clockface
  clearnew
  chooselife
  checkzero
  checkaddr
  char+
  char
  cdraw
  capital
  can
  c:
  c/l
  c#
  bye
  by
  buttons
  bplot
  boxr
  box
  blankarray
  blank
  base
  bar
  as
  are
  andif
  an
  almsetalarm
  allotarray
  aligned
  adjsin
  addlocal
  aboutitem
  aboutform
  [then]
  [if]
  [defined]
  ?unique
  ?make-prc
  ?good
  ?comp
  >upper
  >lower
  >get
  >blockcoord
  <name>
  ::
  2constant
  11
  1+!
  /str
  /mod
  .version
  ..
  +names
  +csp
  (do)
  'tstr'
  'tfrm'
  'talt'
  'mbar'
  &event
  #tib
  "safe"
  "rnd"
  "graphics"
  "forms"
  "events"
  "ccc"
  "case"
  !csp
