home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / FUD_ULT1.ZIP / UPLOAD.PPS < prev    next >
Text File  |  1994-03-14  |  656b  |  21 lines
  1. ;*=====================================================================*
  2. ;* The Prophecy Presents "UPLoad Thanker!" a PPE written to display a  *
  3. ;* a random "Thank you" Screen after someone uploads.  This is intended*
  4. ;* to show your appreciation for the users who upload!  Coded 3/14/94  *
  5. ;*=====================================================================*
  6. cls
  7. Println "@X0BThanks for the Upload(s), @USER@!"
  8. string numb,ext
  9. string x
  10. startdisp fns
  11. fopen 1,ppepath()+"upload.cfg",o_rw,s_dn
  12. fget 1,numb
  13. fclose 1
  14. x=numb
  15. let ext=random(x)
  16. dispfile ppepath()+"upload."+ext,0
  17. ;delay is 1/18.2 of a second.
  18. delay 32    
  19. startdisp fcl
  20.  
  21.