;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2. ;; Screamer þ Written by Dolittle of DOD ;;

3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4. ;; Call Information S.H.W. +972-9-958053 ;;

5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

6. String UK, Reason, key, user, chatter, pagechr, crx, cry

7. Integer Leng, times, ticks, min_leng

8. time start_time,end_time

9. boolean may_i

10. let start_time = readline(189,pcbdat())

11. let end_time = readline(190,pcbdat())

12. let may_i=false

13. if ((time() > start_time) & (time() < end_time)) let may_i=true

14. fopen 2,ppepath()+"screamer.cnf",o_rd,s_Dw

15. fget 2,chatter

16. fget 2,ticks

17. fget 2,pagechr

18. fget 2,min_leng

19. let pagechr = mid(pagechr,1,1)

20. fclose 2

21. println "@CLS@@POFF@@X0F @X08°"

22. println "@X08 ±°"

23. println "@X08 ° ° °"

24. println "@X08 ÜÜÜÜÜ °±ß° Ü ° Ü ° ÜÜÜÜ"

25. println "@X08 Üß° ßßÜ ° ÜÜßß°ßß±Üß ßÜ °±Ü° Üßß° ßÜ"

26. println "@X08 ²° @X05Ü@X5D°@X5FÜ@X5DÜ°@X05ÛÜ @X08ßÜ Üßß @X05ÜÜ@X5D°@X05ßßÜ@X08° @X05Ü@X5DÜ@X05Ü @X08ßÜ ° Û @X05ÜÜ@X5DÜÜ°@X05ÛÜ @X08Û"

27. println "@X08 ÞÝ@X05Þß@X50°@X5Dß°@X05ß ß² @X08ÜßßÜ ÜßÜß²Ü@X05ß@X5D°@X5FÜ@X5D±@X0F @X08ÞÜ @X05Ü@X5D°ß@X5Fß@X5DÛþ@X0F @X08°ßÜÜßßÜÜßÜÜ ÜÜß°@X05Þß@X5DÞ@X5Fß@X05ß@X08Ü@X05ß@X5D°@X05Ý@X08ÞÝ"

28. println "@X08 Ûþ @X05ß@X5D° @X05Ü@X08ßÜ °@X05ÜÜÜ @X08ß°@X05Ü ÜÜ@X08ßÝ@X05Þ@X5Dß@X05Ý @X08ß @X5D°@X05ß ß@X5D±°@X50°@X0F @X08ß@X05Ü ÜÜÜ ÜÜ @X08ß @X05ÜÜÜÜ Þ@X5D°@X05þÜÜÞß@X08Üß"

29. println "@X08 Þß@X05Üþ@X08Ü @X05ß@X50°@X75Û@X05ÜÞ@X55 @X5D°@X05ß ßþÞ@X5D°@X05ß @X08Ü@X05ßþ@X5D°@X05ÛþßþÞÝ@X08°@X05ßßþ@X08°@X5D° @X05ÝÞ@X5D°@X05ß@X08Ü@X05Þ@X5D°@X05ß@X08Ü@X05ß@X5D°@X05Ü@X55 @X5D°@X05ßß@X5D°@X05ÝÞÝ @X08ÜÜ@X05ßÜ@X08ßÜ"

30. println "@X08 ° ÞÝ@X05ß@X50°@X05ÜÜ@X50° °@X05ß@X5D°@X50°@X0F @X08ß²Ü @X50°@X05Ý@X08Þ²ÛÝ@X05Þ@X50°@X05ÜÜ @X08ßÜ@X05ßþ@X08ß²Ü @X05Û@X55 @X05ÝÛÝ@X08ÞÝ@X50°@X05Ý@X08ÞÝ@X05ÞÝÞ@X5D°@X05Ýþßß ßþ @X08ÜßÝ@X05ÞÝ@X08°²"

31. println "@X08 ßÜ @X05ßßßß @X08Ü @X05ß@X50°@X05ÜÜþÞ@X5D°@X05ß@X08Üß @X05Ü@X50°@X05ßßß@X55 @X05þ@X08°²ßß ÞÝ@X05Þ@X50°@X05Þ@X50°@X05ß@X08þ@X05Þ@X5D°@X05ß Üß @X08Ü@X05ß@X50°@X05Ü @X08ß²ÜÜßÜß@X05ÜÛ² @X08ÞÝ"

32. println "@X08 ßßÜÜßß ßÜÜÜ @X05ß @X08Ü @X05þß @X08ÜÜßÜ Üß Üß @X50°@X05ßß@X08ÜßÜ@X05ß @X08ܲ Üß ßÜ @X05ßþ @X08ßÜßÜÜ @X05ßþ@X08°²"

33. println "@X08 ßßÜß ßÜßß ß Üß @X05þß@X08ÜÜß ßß ßß ± ßßÜÜß ßßßÜ°ÞÝ"

34. println "@X08 ° ° ° ßßßß °ß±° HM.iCE ßßþ"

35. println "@X08 °Ü° °"

36. println "@X08 °"

37. println "@X08 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

38. println "@X08 ³ @X07Why should i scream to the sysop?@X08 ³"

39. println "@X08 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

40. println "@X08 ³............................................................................³"

41. println "@X08 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

42. color 7

43. Let Leng=0

44. ansipos 3,20

45. :QL

46. let uk = inkey()

47. if (uk = chr(13)) goto End_QL

48. if (uk = chr(93)) goto QL

49. if (uk = chr(29)) goto QL

50. if (uk = chr(8)) then