home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / GRAF4MAX.ZIP / GRAFITTI.MEC < prev   
Text File  |  1993-02-25  |  4KB  |  94 lines
  1.  
  2. [comment
  3.                                   Version 1.03
  4.      GRAFITTI for MAXIMUS - COPYRIGHT 1993 by JOHN MEDLAND, PHOTO 334 BBS!
  5.                TORONTO, CANADA, (416) 539-9591, FIDONET 1:/250/840
  6. ]
  7. [moreoff]
  8. [log]+Selected GRAFITTI
  9. [/L3][cls][white]
  10.  
  11. [red] ╔═════[lightcyan on blue]▒▒▒▒▒▒▒▒▄[red]══════════════════════════════════════════════════════════════╗
  12.  ║[lightcyan on blue]     ▒▒█▀▀▀▀▀▀ ┌──────┐                         ▄▄▄▄▄▄▄          ╓───┐      [red]║
  13.  ║[lightcyan on blue]     ▒▒█       │ ┌──┐ │ █▀▀▀▀▀▀█          ▒▒▒▒▄ █▄▄ ▄▄█ ▄▄▄▄▄▄▄  ╙╖ ┌┘      [red]║
  14.  ║[lightcyan on blue]     ▒▒█ ▒▒▒▒▄ │ └──┘ │ █ █▀▀█ █ ╦═════╗   ▒▒█▀   █ █   █▄▄ ▄▄█   ║ │       [red]║
  15.  ║[lightcyan on blue]     ▒▒█  ▀▒▒█ │ ┌─┐ ┌┘ █ ▀▀▀▀ █ ║         ▒▒█    █ █     █ █     ║ │       [red]║
  16.  ║[lightcyan on blue]     ▒▒█   ▒▒█ │ │ │ └┐ █ █▀▀█ █ ╠══       ▒▒█    █ █     █ █    ╓╜ └┐      [red]║
  17.  ║[lightcyan on blue]     ▒▒▒▒▒▒▒▒█ └─┘ └──┘ █ █  █ █ ║        ▒▒▒▒█   █▄█     █ █    ╙───┘      [red]║
  18.  ║[lightcyan on blue]      ▀▀▀▀▀▀▀▀          ▀▀▀  ▀▀▀ ╩         ▀▀▀▀           █▄█               [red]║
  19.  ╚════════════════════════════════════════════════════════════════════════════╝
  20.  
  21.                              [lightcyan]──┤ [YELLOW]GRAF4MAX v1.03 [lightcyan]├──
  22.  
  23. [green]       Witticisms, Jokes, Pet Peeves, Clever Remarks, and Cosmic Insights.
  24.  
  25.  
  26.                                [yellow]R[white])[grey]ead the Grafitti
  27.                                [yellow]W[white])[grey]rite some Grafitti
  28. [eq s]                               [yellow]E[white])[grey]dit Grafitti file
  29.                                [yellow]Q[white])[grey]uit
  30.  
  31.  
  32. [lt s][white]Select: [cyan][menu]WRQ
  33. [eq s][white]Select: [cyan][menu]WRQE
  34. [eq s][choice]e[cls][Xtern_dos]Q misc\grafitti.dat
  35. [comment  If you are not using QEdit, change "Q" in the line above
  36.           to the name of your text editor and MECCA this file.
  37. ]
  38. [eq s][choice]e[goto L3]
  39. [choice]W[goto L0]
  40. [choice]Q[cls quit]
  41. [/L1]
  42. [CLS]
  43. [white][link]c:\max\misc\grafitti.dat
  44. [goto L3]
  45. [/L0]
  46. [open]c:\max\misc\grafitti.tmp
  47. [WRITE][cls][locate 3 1][le s skip] *-- This line begins comment --*
  48. [write][DOWN][white]════════════════════════════════════════════════════════════════════════════════[cyan]
  49.  
  50. [cls]
  51. [white]
  52.       [cyan]Please write your comments now - <enter> on the 5th line when done. [white]
  53.  
  54. ═══════════════════════════════════════════════════════════════════════════════[cyan]
  55.  
  56. [white]1) [cyan][clear_stacked readln]
  57. [white]2) [cyan][readln]
  58. [white]3) [cyan][readln]
  59. [white]4) [cyan][readln]
  60. [white][blink]5[steady]) [cyan][readln]
  61. [write]
  62.  
  63.  
  64.  
  65. [WHITE]═══════════════════════════════════════════════════════════════════════════════[cyan]
  66.  
  67. [cyan]Save this comment? [white][[Y,n] [menu]Yn|
  68. [choice]N
  69. [choice]N[white]Deleted![pause][pause][delete]MISC\GRAFITTI.tmp
  70. [choice]N[goto L3]
  71.  
  72. [cyan]Would you like to remain anonymous? [white][[Y,n] [menu]Yn|
  73. [choice]n[write][white]                                          -- %n
  74. [choice]n[write]
  75. [choice]n[write][WHITE]═══════════════════════════════════════════════════════════════════════════════[cyan]
  76. [choice]n[write]
  77. [choice]n[write][white][more]
  78. [choice]n[goto nonanon]
  79. [write][white]                                          -- Anonymous
  80. [write][black][colour]                                        -- %n  [endcolour]
  81. [write][WHITE]═══════════════════════════════════════════════════════════════════════════════[cyan]
  82. [write]
  83. [write][white][more]
  84. [/nonanon]
  85. Working...[blink].[steady]
  86. [open]nul
  87. [dos]copy misc\grafitti.tmp+misc\grafitti.dat misc\graf.tmp>nul
  88. [dos]copy misc\graf.tmp misc\grafitti.dat>nul
  89. [delete]misc\grafitti.tmp
  90. [delete]misc\graf.tmp
  91. [log]+Posted a GRAFITTI comment
  92.  
  93. [white]Saved![pause][pause][cls][goto L3]
  94.