home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / POST103.ZIP / postit.scr < prev   
Text File  |  1999-09-17  |  10KB  |  311 lines
  1. VARIABLE NEWSNAME STRING ""
  2. VARIABLE NDESC1 STRING ""
  3. VARIABLE NDESC2 STRING ""
  4. VARIABLE NDESC3 STRING ""
  5. VARIABLE NDESC4 STRING ""
  6. VARIABLE NDESC5 STRING ""
  7. VARIABLE NDESC6 STRING ""
  8. VARIABLE NDESC7 STRING ""
  9. VARIABLE NDESC8 STRING ""
  10. VARIABLE PENNAME STRING ""
  11. VARIABLE MODIFY1 BOOLEAN "YES"
  12. VARIABLE TITLE1 STRING ""
  13. VARIABLE USERMSG1 STRING ""
  14. VARIABLE USERMSG2 STRING ""
  15. VARIABLE USERMSG3 STRING ""
  16. VARIABLE USERMSG4 STRING ""
  17. VARIABLE USERMSG5 STRING ""
  18. VARIABLE BLANK STRING ""
  19. VARIABLE CHOICE1 CHAR ""
  20. VARIABLE BBSNAME STRING ""
  21. VARIABLE BBSPHONE STRING ""
  22. VARIABLE BBSHOURS STRING ""
  23. VARIABLE BDESC1 STRING ""
  24. VARIABLE BDESC2 STRING ""
  25. VARIABLE BDESC3 STRING ""
  26. VARIABLE BDESC4 STRING ""
  27. VARIABLE BDESC5 STRING ""
  28. VARIABLE BBSSOFTW STRING ""
  29. VARIABLE BCONNECT STRING ""
  30.  
  31. FILEDISPLAY POSTIT
  32. ; Uncomment the line below to allow only the SysOp to change the Postit
  33. ; message.
  34. ;ACS (S5&!S200) JUMP END
  35.  
  36. PUT ""
  37. NOYES MODIFY1 "~SM`0EWould you like to change the `0CP`04o`0CST`04i`0CT `0Emessage? [y/N]"
  38.  IF "$MODIFY1$" "YES"
  39.  JUMP CHOICE
  40. ENDIF
  41. JUMP END
  42.  
  43. :CHOICE
  44. PUTNL "(1) `0CP`04o`0CST`04i`0CT `09Message"
  45. PUTNL "(2) `09BBS `01a`09DV`01e`09RT`01i`09S`01e`09M`01e`09NT"
  46. PUTNL "(3) `0DN`05e`0DWS"
  47. GET CHOICE1 "~SM" <$BLANK$123>
  48.  IF "$CHOICE1$" "$BLANK$"
  49.   JUMP CHOICE
  50.  ENDIF
  51.  IF "$CHOICE1$" "1"
  52.   JUMP POSTIT
  53.  ENDIF
  54.  IF "$CHOICE1$" "2"
  55.   JUMP BBSADD
  56.  ENDIF
  57.  IF "$CHOICE1$" "3"
  58.   JUMP NEWS1
  59.  ENDIF
  60.  
  61. :POSTIT
  62. PUT "~SC"
  63. PUT "~SM`0EEnter your message, you have a maximum of 5 lines. Press [ENTER] on a"
  64. PUT "`0E blank line to quit/save"
  65. GET TITLE1 "~SM`04 Title ■ `0C" 40
  66.  IF "$TITLE1$" "$BLANK$"
  67.   JUMP END
  68.  ENDIF
  69.  
  70. :LINE1
  71. GET USERMSG1 "~SM`0E" 70
  72.  IF "$USERMSG1$" "$BLANK$"
  73.   JUMP END
  74.  ENDIF
  75.  
  76. GET USERMSG2 "`0E" 70
  77.  IF "$USERMSG2$" "$BLANK$"
  78.   JUMP MAKEFILE
  79.  ENDIF
  80.  
  81. GET USERMSG3 "`0E" 70
  82.  IF "$USERMSG3$" "$BLANK$"
  83.   JUMP MAKEFILE
  84.  ENDIF
  85.  
  86. GET USERMSG4 "`0E" 70
  87.  IF "$USERMSG4$" "$BLANK$"
  88.   JUMP MAKEFILE
  89.  ENDIF
  90.  
  91. GET USERMSG5 "`0E" 70
  92.  
  93. :MAKEFILE
  94. ; Replace the following path with the location of your Telegard \TEXT\
  95. ; directory. Then everything should work great!
  96. ;
  97. FILECREATE C:\TELEGARD\TEXT\POSTIT.MSG
  98. ;
  99. ; If you'd like your screen cleared before display just uncomment the line
  100. ; below
  101. FILEPUT "~SC"
  102. FILEPUT "`00`08        `0F▄█▀▀█▄`08       `0F▄█▀▀█▄`08       `0F▄█▀▀█▄`08       `0F▄█████`08        `0F█    ▄█████`08"
  103. FILEPUT "      `0F▄██    ██▄   ▄██    ██▄   ▄██    ██▄   ▄██ ███ ██▄   ▄██  ▄██ ███ ██▄`08"
  104. FILEPUT "     `0F█`0C██`0F█    `0C██`0F██ █`0C██`0F█    `0C██`0F██ █`0C██`0F█    `0C██`0F██ █`0C██`0F█ ██`0C█ ██`0F██ █`0C█`0F██ █`0C██`0F█ ██`0C█ ██`0F██`08"
  105. FILEPUT "`0F    ▐`0C████    ████`0F▐`0C████    ████`0F▐`0C████`08        `0F▐`0C████ █`0F█`0C█ ████`0F▐`0C███`0F█▐`0C████ █`0F█`0C█ ████`08"
  106. FILEPUT "`0C    `04▐`0C████████████`04▐`0C████    ████ ▀██████████`04▄`08      `0C███`08     `04▐`0C████`08      `0C███`08"
  107. FILEPUT "`0C    `04▐`0C████`08        `04▐`0C████    ███`04█`08         `0C███`04█▌`08     `0C██`04█`08     `04▐`0C████`04▌`08     `0C██`04█`08"
  108. FILEPUT "`04    ▐█`0C██`04█`08        `04▐█`0C██`04█    `0C██`04██`08         `0C██`04██▌`08     `0C█`04██`08     `04▐█`0C██`04█▌`08     `0C█`04██`08"
  109. FILEPUT "     `04████`08         `04████    `0C█`04███ ████    `0C█`04███`08      `04██`0C█`08      `04████`08      `04██`0C█`08"
  110. FILEPUT "      `04▀██`08          `04▀██    ██▀   ▀██    ██▀`08       `04█`0C█`04█`08       `04▀██`08      `04█`0C█`04█`08"
  111. FILEPUT "        `04█`08            `04▀█▄▄█▀`08       `04▀█▄▄█▀`08         `04██`08          `04█`08      `04██`08"
  112. FILEPUT "~SM`0CM`04e`0CSS`04a`0CG`04e `0CB`04y`0F: `0E~UH   `0CT`04i`0CTL`0Ce`0F: `0E$TITLE1$"
  113. FILEPUT ""
  114. FILEPUT "`0E~EM$USERMSG1$"
  115. FILEPUT "`0E~EM$USERMSG2$"
  116. FILEPUT "`0E~EM$USERMSG3$"
  117. FILEPUT "`0E~EM$USERMSG4$"
  118. FILEPUT "`0E~EM$USERMSG5$"
  119. FILEPUT "                               `08--//`07PoSTiT`08//----//`07Jeff Weese`08//----//`071998`08//--`0F"
  120. FILECLOSE
  121. PUT "~SC"
  122. FILEDISPLAY POSTIT
  123. PUT "~SP"
  124. JUMP END
  125.  
  126. :BBSADD
  127. PUT "~SC"
  128. PUT "~SM`01e`09NT`01e`09R `01you`09R BBS N`01a`09M`01e. `09Press `0E[ENTER] `09to cancel"
  129. GET BBSNAME "~SM`09 BBS N`01a`09M`01e `0E■ `0C" 40
  130.  IF "$BBSNAME$" "$BLANK$"
  131.   JUMP END
  132.  ENDIF
  133.  
  134. :BLINE1
  135. PUTNL "`09PH`01o`09N`01e `09N`01u`09MB`01e`09R`01?"
  136. GET BBSPHONE "`0E" 12 NO "###-###-####>"
  137.  IF "$BBSPHONE$" "$BLANK$"
  138.   JUMP BHEY1
  139.  ENDIF
  140. JUMP BHOURS1
  141.  
  142. :BHEY1
  143. PUTNL "`09W`01e `09N`01ee`09D `01a `09PH`01o`09N`01e `09N`01u`09MB`01e`09R T`01o `09C`01a`09LL TH`01e `09BBS`01!"
  144. JUMP BLINE1
  145.  
  146. :BHOURS1
  147. PUTNL "`09H`01ou`09RS `01o`09F `01o`09P`01e`09R`01a`09T`01io`09N`01?"
  148. GET BBSHOURS "`0E" 15
  149.  
  150. :BSOFTW
  151. PUTNL "`09WH`01a`09T S`01o`09FTW`01a`09R`01e a`09R`01e you u`09S`01i`09NG`01?"
  152. GET BBSSOFTW "`0E" 20
  153.  
  154. :BCONNT
  155. PUTNL "`09WH`01a`09T`01'`09S TH`01e `09M`01a`09X `09C`01o`09NN`01e`09CT SP`01ee`09D`01?"
  156. GET BCONNECT "`0E" 4 NO "##.#"
  157.  
  158. :BDESC1
  159. PUTNL "`09D`01e`09SCR`01i`09PT`01io`09N`01. `09You have `0E5 `09lines MAX. Hit `0E[ENTER] `09On a Blank line to quit."
  160. GET BDESC1 "`0E" 70
  161. IF "$BDESC1$" "$BLANK$"
  162.   JUMP BBSMAKE
  163. ENDIF
  164.  
  165. :BDESC2
  166. GET BDESC2 "`0E" 70
  167. IF "$BDESC2$" "$BLANK$"
  168.   JUMP BBSMAKE
  169. ENDIF
  170.  
  171. :BDESC3
  172. GET BDESC3 "`0E" 70
  173. IF "$BDESC3$" "$BLANK$"
  174.  JUMP BBSMAKE
  175. ENDIF
  176.  
  177. :BDESC4
  178. GET BDESC4 "`0E" 70
  179. IF "$BDESC4$" "$BLANK$"
  180.  JUMP BBSMAKE
  181. ENDIF
  182.  
  183. :BDESC5
  184. GET BDESC5 "`0E" 70
  185.  
  186. :BBSMAKE
  187. ; Replace the following path with the location of your Telegard \TEXT\
  188. ; directory. Then everything should work great!
  189. ;
  190. FILECREATE C:\TELEGARD\TEXT\POSTIT.MSG
  191. ;
  192. ; If you'd like your screen cleared before display just uncomment the line
  193. ; below
  194. FILEPUT "~SC"
  195. FILEPUT "`00`08      --//`0CP`04o`0CST`04i`0CT`08//----//1.02//--"
  196. FILEPUT "          `0F▄█▀▀█▄`08       `0F▄█▀▀█▄`08        `0F█▀▀█▄`08        `0F▄█▀▀█▄    █████▀▀█▄`08"
  197. FILEPUT "        `0F▄██    ██▄   ▄██    ██▄   ▄██    ██▄    ▄██    ██▄ ▐████    ██▄`08"
  198. FILEPUT "       `0F█`09██`0F█    `09██`0F██ █`09██`0F█    `09██`0F██ █`09██`0F█    `09██`0F██  █`09██`0F█    `09██`0F██▐█`09██`0F█`08     `09█`0F██`08"
  199. FILEPUT "      `0F▐`09████    ████`0F▐`09████    ████`0F▐`09████`08         `0F▐`09████    ████`0F▐`09████`08      `09██`0F▌`08"
  200. FILEPUT "      `01▐`09████`01▄▄`09▄███▀ `01▐`09████`01▄▄`09▄███▀  ▀██████████`01▄ ▐`09████████████`01▐`09████`08       `09█`01▌`08"
  201. FILEPUT "      `01▐`09███`01█▀`09▀▀██`01█▄ ▐`09███`01█▀`09▀▀██`01█▄`08          `09███`01█ ▐`09████    ███`01█▐`09████`08       `01█▌`08"
  202. FILEPUT "      `01▐█`09██`01█    `09██`01██▐█`09██`01█    `09██`01██`08         `09██`01██ ▐█`09██`01█    `09██`01██▐█`09██`01█`08      `01██▌`08"
  203. FILEPUT "       `01████    `09█`01███ ████    `09█`01███ ████    `09█`01███  ████    `09█`01███▐████`08     `01███`08"
  204. FILEPUT "        `01▀██    ██▀   ▀██    ██▀   ▀██    ██▀    ▀██    ██▀ ▐████    ██▀`08"
  205. FILEPUT "          `01▀█▄▄█▀`08       `01▀█▄▄█▀`08       `01▀█▄▄█▀`08        `01█    █    █████▄▄█▀`08"
  206. FILEPUT "                  Added By: ~UH at ~ST on ~SJ"
  207. FILEPUT ""
  208. FILEPUT "          `09BBS N`01a`09M`01e`07: `0E$BBSNAME$ `09PH`01o`09N`01e`07: `0E$BBSPHONE$ `09H`01ou`09RS`07: `0E$BBSHOURS$"
  209. FILEPUT "          `09S`01o`09FTW`01a`09R`01e`07: `0E$BBSSOFTW$ `09SP`01ee`09D`07: `0E$BCONNECT$"
  210. FILEPUT "          `09D`01e`09SCR`01i`09PT`01io`09N`07:"
  211. FILEPUT "`0E$BDESC1$"
  212. FILEPUT "`0E$BDESC2$"
  213. FILEPUT "`0E$BDESC3$"
  214. FILEPUT "`0E$BDESC4$"
  215. FILEPUT "`0E$BDESC5$"
  216. FILECLOSE
  217. PUT "~SC"
  218. FILEDISPLAY POSTIT
  219. PUT "~SP"
  220. JUMP END
  221.  
  222. :NEWS1
  223. PUT "~SC"
  224. PUT "~SM`05e`0DNT`05e`0DR `05you`0DR M`05e`0DSS`05a`0DG`05e, you `0DH`05a`0DV`05e a `0DM`05a`0DX`05i`0DM`05u`0DM `05o`0DF `0E8 `0DL`05i`0DN`05e`0DS. `07Press `0E[ENTER] `07on a"
  225. PUT "`07 blank line to quit/save"
  226. GET NEWSNAME "~SM`0D HEADLINE `0E■ `0C" 40
  227.  IF "$NEWSNAME$" "$BLANK$"
  228.   JUMP END
  229.  ENDIF
  230.  
  231. :NDESC
  232. GET NDESC1 "~SM`0E" 70
  233.  IF "$NDESC1$" "$BLANK$"
  234.   JUMP END
  235.  ENDIF
  236.  
  237. GET NDESC2 "`0E" 70
  238.  IF "$NDESC2$" "$BLANK$"
  239.   JUMP NEWSMAKE
  240.  ENDIF
  241.  
  242. GET NDESC3 "`0E" 70
  243.  IF "$NDESC3$" "$BLANK$"
  244.   JUMP NEWSMAKE
  245.  ENDIF
  246.  
  247. GET NDESC4 "`0E" 70
  248.  IF "$NDESC4$" "$BLANK$"
  249.   JUMP NEWSMAKE
  250.  ENDIF
  251.  
  252. GET NDESC5 "`0E" 70
  253.  IF "$NDESC5$" "$BLANK$"
  254.   JUMP NEWSMAKE
  255.  ENDIF
  256.  
  257. GET NDESC6 "`0E" 70
  258.  IF "$NDESC6$" "$BLANK$"
  259.   JUMP NEWSMAKE
  260.  ENDIF
  261.  
  262. GET NDESC7 "`0E" 70
  263.  IF "$NDESC7$" "$BLANK$"
  264.   JUMP NEWSMAKE
  265.  ENDIF
  266.  
  267. GET NDESC8 "`0E" 70
  268.  
  269. PUTNL "`0DP`05e`0DNN`05a`0DM`05e?"
  270. GET PENNAME "`0D" 30
  271.  
  272. :NEWSMAKE
  273. ; Replace the following path with the location of your Telegard \TEXT\
  274. ; directory. Then everything should work great!
  275. ;
  276. FILECREATE C:\TELEGARD\TEXT\POSTIT.MSG
  277. ;
  278. ; If you'd like your screen cleared before display just uncomment the line
  279. ; below
  280. FILEPUT "~SC"
  281. FILEPUT "`00`08      --//`0CP`04o`0CST`04i`0CT`08//----//1.02//--"
  282. FILEPUT "                   `0F█    █`08       `0F▄█▀▀█▄`08      `0F█    █`08       `0F▄█▀▀█▄`08"
  283. FILEPUT "                 `0F▄███   ██▄   ▄██    ██▄  ▄██    ██▄   ▄██    ██▄`08"
  284. FILEPUT "                `0F█`0D██`0F███  `0D██`0F██ █`0D██`0F█`08        `0F█`0D██`0F█    `0D██`0F██ █`0D██`0F█    `0D██`0F██`08"
  285. FILEPUT "               `0F▐`0D██████`0F█ `0D████`0F▐`0D████`08       `0F▐`0D████    ███`0F█▐`0D████`08"
  286. FILEPUT "               `05▐`0D█████`05█`0D█████`05█▐`0D████`05▄▄`0D▄█   `05▐`0D████    ████ ▀██████████`05▄`08"
  287. FILEPUT "               `05▐`0D███`05████`0D████`05█▐`0D███`05█▀`0D▀▀█   `05▐`0D████ ▄  ███`05█`08         `0D███`05█`08"
  288. FILEPUT "               `05▐██`0D█`05█ ██`0D███`05██▐█`0D██`05█`08       `05▐█`0D██`05█ `0D█`05█ `0D██`05██`08         `0D██`05██`08"
  289. FILEPUT "                `05████  ██`0D██`05██ ████`08        `05████ ███`0D█`05███ ████    `0D█`05███`08"
  290. FILEPUT "                 `05▀██   ███▀   ▀██    ██▀  ▀███▀ ███▀   ▀██    ██▀`08"
  291. FILEPUT "                   `05█    █`08       `05▀█▄▄█▀`08      `05█    █`08       `05▀█▄▄█▀`08"
  292. FILEPUT "         `0DHEADLINE`07: `0C$NEWSNAME$ `0DAUTHOR`07: `0C~UH"
  293. FILEPUT "         `0DPENNAME`07: `0C$PENNAME$"
  294. FILEPUT "`0E$NDESC1$"
  295. FILEPUT "`0E$NDESC2$"
  296. FILEPUT "`0E$NDESC3$"
  297. FILEPUT "`0E$NDESC4$"
  298. FILEPUT "`0E$NDESC5$"
  299. FILEPUT "`0E$NDESC6$"
  300. FILEPUT "`0E$NDESC7$"
  301. FILEPUT "`0E$NDESC8$"
  302. FILECLOSE
  303. PUT "~SC"
  304. FILEDISPLAY POSTIT
  305. PUT "~SP"
  306. JUMP END
  307.  
  308. :END
  309. PUT ""
  310. ENDSCRIPT
  311.