home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / afl_90 / exp.scr < prev    next >
Text File  |  1991-01-26  |  860b  |  43 lines
  1. script
  2. define fc
  3. define line
  4. ;            EXPRESS SCRIPT FILE TO RUN AXOLOTL FOOTBALL
  5. ;                 ON EXPRESS versions 1.42 or OLDER!
  6. ;                              01/26/91
  7. ;                     AXOLOTL BBS, (916)638-9923
  8.  
  9. if command_level(1) then
  10. else
  11.   clear screen
  12.   printe
  13.   printe
  14.   printe '\i\r Sorry, you cannot play FOOTBALL until validated! \o\b'center
  15.   printe
  16.   printe
  17.   exit
  18. endif
  19. clear screen
  20. printe
  21. printe
  22. printe
  23. printe
  24. printe '\i\r Are you ready for some FOOTBALL??? \o\b' center
  25. printe
  26. printe
  27. printe
  28. open ('c:\log.txt', append')
  29.   fprinte '           >>>>>>>>> Entered AFL at &23.'
  30. close
  31.  
  32. fc = file_chgdir ('g:\afl\')
  33. open ('g:\afl\player.dat', output)
  34.   fprinte '&1'
  35. close
  36.  
  37. gem ('g:\afl\aflmenu.prg')
  38.  
  39. open ('c:\log.txt', append')
  40.   fprinte '           >>>>>>>>> Exited  AFL at &23.'
  41. close
  42. exit
  43.