home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / TVOFF.PPS < prev    next >
Encoding:
Text File  |  1996-07-29  |  926 b   |  47 lines
  1. ;----------------------------------------------------------------------------
  2. ; Copyright(C) 1996, The AEGiS Corporation
  3. ;----------------------------------------------------------------------------
  4. ;
  5. ; PROCEDURE TVOff()
  6. ;
  7. ; Visual effect of a TV powering down
  8. ;
  9. ;----------------------------------------------------------------------------
  10. #lib
  11. Declare Procedure TVOff()
  12.  
  13. ;----------------------------------------------------------------------------
  14. Procedure TVOff()
  15. Int A
  16.  
  17. Color @X0F
  18. Cls
  19. AnsiPos 1, 12
  20. Print "@X0F───────────────────────────────────────────────────────────────────────────────"
  21. For A = 1 to 39
  22.     AnsiPos A, 12
  23.     Print " "
  24.     AnsiPos 80-A, 12
  25.     Print " "
  26. Next
  27. AnsiPos 40, 12
  28. Print "@X0F"
  29. Delay 1
  30. Backup 1
  31. Print "@X0F*"
  32. Delay 1
  33. Backup 1
  34. Print "@X0F+"
  35. Delay 1
  36. Backup 1
  37. Print "@X0F∙"
  38. Delay 1
  39. Backup 1
  40. Print "@X0F·"
  41. Delay 1
  42. Backup 1
  43. Print " "
  44. AnsiPos 1,1
  45.  
  46. Endproc
  47.