home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / TGRUMOR!.ZIP / TGRUMOR.SCR < prev   
Text File  |  1997-11-14  |  4KB  |  103 lines
  1. ;
  2. ;                 "Dawgware 97" TELEGARD Rumors v1.00                          /
  3. ;         TGRUMOR.SCR - Telegard Rumors Utility, Will Leave a three
  4. ;                       line message to the next caller
  5. ;
  6. ;
  7. VARIABLE NOYES BOOLEAN
  8. VARIABLE YESNO BOOLEAN
  9. VARIABLE SYSTEMLINE STRING
  10. VARIABLE SYSTEMRUMOR STRING
  11. VARIABLE SYSTEMRUMOR1 STRING
  12. VARIABLE SYSTEMRUMOR2 STRING
  13. VARIABLE UNAME STRING
  14. VARIABLE TEXTPATH STRING
  15. UNAME "~UH"
  16.  
  17. ; Change the "TEXTPATH" to match your setup.
  18. ; If you don't like the colors then change
  19. ; them to your what ever you like.
  20.  
  21.  
  22. TEXTPATH "D:\DOG\TEXT"
  23. CLS
  24.  
  25. PUTNL "1H`05──══`0D■ `0D T`0Felegard `0DR`0Fumors `0DV`0Fersion `0D1`0F.00 `0D■`05══──`00DA"
  26.  
  27. YESNO NOYES "1H`05──══`0D■`0D L`0Feave A `0DR`0Fumor `0DT`0Fo `0DT`0Fhe `0DN`0Fext `0DU`0Fser`0D? `0F[`0D Yes  `0F] `0D■`05══──~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH`0D"`00DA"
  28. JE "$NOYES$" "NO" DONE
  29. NL
  30. NL
  31. :TOP
  32. CLS
  33. FILEDISPLAY RCOLOUR.MSG
  34. NL
  35. NL
  36. NL
  37. PUTNL "~SM`05──══`0D■ `0DE`0Fnter `0DY`0Four `0DR`0Fumor `0DY`0Fou `0DH`0Fave `0D3 L`0Fines `0DW`0Fith `0D65 C`0Fharacters `0DP`0Fer `0DL`0Fine `0D ■`05══──"
  38. GET SYSTEMRUMOR "~SM`05──══`0D■ `0DR`0Fumor `0DL`0Fine 1  `0D ■`05══──~SM`00`0D:`0F" 65 NO
  39. GET SYSTEMRUMOR1 "~SM`05──══`0D■ `0DR`0Fumor `0DL`0Fine 2`0D ■`05══──~SM`00`0D:`0F" 65 NO
  40. GET SYSTEMRUMOR2 "~SM`05──══`0D■ `0DR`0Fumor `0DL`0Fine 3`0D ■`05══──~SM`00`0D:`0F" 65 NO
  41. ;`0DE`0Fnter `0DY`0Four 
  42. NL
  43. NL
  44. PUTNL  "~SM~SM`05──══`0D■ `0D H`0Fere's `0DW`0Fhat `0DW`0Fill `0DB`0Fe `0DL`0Feft `0DT`0Fo `0DT`0Fhe `0DN`0Fext `0DU`0Fser `0D ■`05══──~SM"
  45. NL
  46. PUTNL "`05──══`0D■ ═══════════════════════════════════════════════════════════════════`0D ■`05══──"
  47. PUTNL
  48. PUTNL "`00....`05──══`0D■ ~UH `0FSpewed Forth This Rude Comment While Logging Off `0D■`05══──"
  49. PUTNL
  50. PUTNL "`00..`05──══`0D■ `0F$SYSTEMRUMOR$`0D ■`05══──"
  51. PUTNL "`00..`05──══`0D■ `0F$SYSTEMRUMOR1$`0D ■`05══──"
  52. PUTNL "`00..`05──══`0D■ `0F$SYSTEMRUMOR2$`0D ■`05══──"
  53. PUTNL
  54. PUTNL "`05──══`0D■ ════════════════════════════════════════════════[ `05Dawgware 97 `0D]════ ■`05══──"NL
  55. NL
  56. NL
  57. NOYES YESNO "`0DL`0Feave `0DT`0Fhis `0DR`0Fumor`0D?  `0FN`0D)`0F=`0DE`0Fdit `0D- `0FY`0D)`0F=`0DS`0Fave `0D[`0F No  `0D] ~SH~SH~SH~SH~SH~SH`0F"
  58. JE "$YESNO$" "NO" EDIT
  59. NL
  60. NL
  61.  
  62. PUT "~SM`0DP`07osting The Rumor....."
  63. FILECREATE $TEXTPATH$\RUMOR.MSG
  64. PUT "`07!"
  65. FILEPUT "~SC"
  66. FILEPUT
  67. FILEPUT
  68. FILEPUT
  69. FILEPUT
  70. FILEPUT
  71. FILEPUT
  72. FILEPUT
  73. FILEPUT "`05──══`0D■ ═══════════════════════════════════════════════════════════════════`0D ■`05══──"
  74. FILEPUT
  75. FILEPUT "`00....`05──══`0D■ ~UH `0FSpewed Forth This Rude Comment While Logging Off `0D■`05══──"
  76. FILEPUT
  77. FILEPUT "`00..`05──══`0D■ `0F$SYSTEMRUMOR$ `0D■`05══──"
  78. FILEPUT "`00..`05──══`0D■ `0F$SYSTEMRUMOR1$ `0D■`05══──"
  79. FILEPUT "`00..`05──══`0D■ `0F$SYSTEMRUMOR2$ `0D■`05══──"
  80. FILEPUT
  81. FILEPUT "`05──══`0D■ ══════════════════════════════════════════════[ `05Dawgware 97 `0D]═════ ■`05══──"
  82. FILEPUT
  83. FILEPUT "~SG~SW~SW~SG~SW"
  84. FILEPUT   "~SP"
  85. FILECLOSE
  86. PUT "`07!"
  87. MENU -S`0DTelegard `0Rumors v`0D1`0F.`0D00 - Posting Another Rumor...
  88. MENU -S `0DThis Rumor Was Posted By `0D: `0F~UH `0DOn `0D~SD!!
  89. PUT "`07!"
  90. PUT "`07!"
  91. PUTNL "~SM`0DT`07hanks`0D!!!"
  92. PUTNL "~SM`0DD~SW`07a~SWw~SWg~SWw~SWa~SWr~SWe~SW ~SW`0D9~SW7~SW!~SW!"
  93. JUMP DONE
  94.  
  95. :EDIT
  96. NL
  97. NOYES YESNO "`0DD`0Fo `0DY`0Fou `0DW`0Fant `0DT`0Fo `0DE`0Fdit `0DY`0Four `0DR`0Fumor`0D? `0F[`0D No  `0F]~SH~SH~SH~SH~SH`0D"
  98. JE "$YESNO$" "YES" TOP
  99.  
  100. :DONE
  101. ENDSCRIPT
  102.                                                                                                  
  103.