script
define fc
define line
;            EXPRESS SCRIPT FILE TO RUN AXOLOTL FOOTBALL
;                 ON EXPRESS versions 1.42 or OLDER!
;                              01/26/91
;                     AXOLOTL BBS, (916)638-9923

if command_level(1) then
else
  clear screen
  printe
  printe
  printe '\i\r Sorry, you cannot play FOOTBALL until validated! \o\b'center
  printe
  printe
  exit
endif
clear screen
printe
printe
printe
printe
printe '\i\r Are you ready for some FOOTBALL??? \o\b' center
printe
printe
printe
open ('c:\log.txt', append')
  fprinte '           >>>>>>>>> Entered AFL at &23.'
close

fc = file_chgdir ('g:\afl\')
open ('g:\afl\player.dat', output)
  fprinte '&1'
close

gem ('g:\afl\aflmenu.prg')

open ('c:\log.txt', append')
  fprinte '           >>>>>>>>> Exited  AFL at &23.'
close
exit