home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / bomb.prg < prev    next >
Text File  |  1989-03-31  |  217b  |  23 lines
  1. *BOMB.PRG
  2.  
  3. CLEAR
  4. ? 'Please move away from the Central Processing Unit to avoid ì
  5. schrapnel wounds.'
  6. ?
  7. ?
  8. ?
  9. ?
  10. ?
  11. WAIT
  12. CLEAR
  13. X=0
  14. DO WHILE X < 10
  15. X=X+1
  16.  
  17. @ 13,35 SAY 'BOOM!!!'
  18. ? CHR(7)
  19. ENDDO
  20. RETURN
  21.  
  22.  
  23.