'****************************************************************************
'*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 Graffitti Wall!" % !30
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 = "                                                    " % !36 % !14
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