\ fourtap 2001/05/16 KDJ

\ Copyright 2001
\ Kristopher D. Johnson
\ 
\ THIS CODE IS PROVIDED "AS IS"
\ WITHOUT WARRANTY OF ANY KIND.
\ THE AUTHOR SHALL NOT BE LIABLE
\ FOR ANY CLAIM IN CONNECTION
\ WITH THIS CODE.
\ 
\ This code may be used, copied,
\ modified, or distributed for any
\ purpose, provided that the above
\ copyright notice and disclaimer of
\ warranty is retained on all copies.

needs fourtap-game

.( fourtap... )

decimal

-257 constant byeThrow

: go ( -- )
  init-vol
  prefs-info restore-prefs drop
  ['] fourtap-game catch
  byeThrow = if
    prefs-info save-prefs
    (bye)
  then ;

