AWESOME! .. Keep them coming!!!!

Re: vwall

> '****************************************************************************
> '*This is VWall.v, a script completely rewritten by Timothy Cornett and     *
> '*Nassau Web Technologies. Copyright (C) 2008 Nassau Web Technologies, All  *
> '*Rights Reserved.							    *
> '*									    *
> '* Version 1.1A.080503							    *
> '*									    *
> '*This script rewritten at the request of Patrick OSullivan, sysop of the   *
> '*I.S.S. OUTPOST 5A BBS		aka Imperial Space Station   susscan.com
> '****************************************************************************
>
> ACTION "Viewing VWall Graffitti Wall"
>
> LET F0 = !25 % "VWALL.DAT"
>
> CLS
> Print
> Print !36 % "Welcome to " % !19 % "'s" % " VWall Gra
> Print
> Print
> DELAY 3
> TOPMENU:
> CLS
> Print
> PRINT "Please Select One:"
> PRINT
> PRINT "�����������������������������������������������������������������
> PRINT "���� R>ead the Wall!.������������������������������
> PRINT "���� W>rite on the Wall!.���������������������������
> PRINT "���� Q>uit.��������������������������������������
> PRINT "�������������������������������������������������
> PRINT
> selection:
> RR a1, "RWQ", "Pick One:"
> GOTO decide
> PRINT
> PRINT
> DECIDE:
> PRINT
> IF a1 <> "Q" GOTO READOPTION
>   PRINT
>   PRINT !33, "Okay. We can play later!"
>   PRINT
>   DELAY 2
>   PRINT
>   GOTO FINISHED
> READOPTION:
> IF a1 <> "R" GOTO WRITEOPTION
>   GOTO read
> WRITEOPTION:
> IF a1 <> "W" GOTO TOPMENU
>   GOTO write
> READ:
> OPEN F0, "I"
> topwall:
> PRINT
> DO a2, 1, 8
>   READ a3
>   IF a3 <> "!EOF!" GOTO dxfozvmtkp
>     CLOSE
>     GOTO TOPMENU
>   dxfozvmtkp:
>   PRINT !33, a3
> LOOP
> PRINT
> RR a4, "SC", !37 % "(S)top or (C)ontinue?"
> PRINT
> IF a4 = "S" GOTO TOPMENU
> GOTO topwall
> PRINT
> write:
> PRINT
> IF a1 = "W" GOTO enter
> GOTO TOPMENU
> PRINT
> PRINT
> PRINT "Okay, start writing:"
> enter:
> PRINT
> RS a5, "-> "
> RS a6, "-> "
> RS a7, "-> "
> RR a8, "ARC",!34 % "(A)bort (R)etry or (C)ontinue?"
> IF a8 = "R" GOTO write
> PRINT
> IF a8 = "A" GOTO TOPMENU
> PRINT
> RS a9, "Enter name to use ?"
> PRINT
> IF a9 <> "" GOTO uiunqfunsc
>   LET a9 = "??Who Knows??"
> uiunqfunsc:
> LET b0 = !14
> PRINT
> doit:
> OPEN F0, "A"
> PRINT
> LET b1 = "                                                    " % !
> WRITE b1
> WRITE a5
> WRITE a6
> WRITE a7
> LET b1 = !36 % "Scribbled By: " % !32 % a9
> WRITE b1
> WRITE "�����������������������������������������������������������������
> WRITE "�������������������������������������������������
> WRITE "�������������������������������������������������
> CLOSE
> PRINT
> LOG "added to The Wall!"
> PRINT
> PRINT "Done!  Thanks for the Scribble!"
> done:
> DELAY 2
> CLOSE
> GOTO TOPMENU
>
> FINISHED:
> EXIT