ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ Screwdriver Access Technologies ³                                      ³Û
 ³ Christopher J. Heschong         ³  FX-SaveBar 1.1ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ³ - 1@1615005 VirtualNET          ³  An Arrow Driven SaveBar for the ÄÄÄijÛ
 ³ - 1@61501 The Collective        ³  VBBS Full Screen Editor ÄÄÄÄÄÄÄÄÄÄÄijÛ
 ³ - ctg@wiw.org Internet          ³                                      ³Û
 ³ - The VirtualScrewdriver BBS    ³  (A [FiXx] Release) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ³   (615)975-0347/0348            ³  (With InLine Docs) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³                          Revision History:                             ³Û
 ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û
 ³ Started:              12-05-94  :  Initial Release                     ³Û
 ³ Last Edited:          12-06-94  :  v1.1 - I had the arrows Backwards   ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ Configuration :                                                        ³Û
 ³   First, compile this script with VCOM in your VBBS\V Directory.       ³Û
 ³   Then, using VString, edit string #22 to change it from:              ³Û
 ³                                                                        ³Û
 ³        %pS)ave A)bort U)pload C)ontinue<                               ³Û
 ³                                                                        ³Û
 ³   to:                                                                  ³Û
 ³                                                                        ³Û
 ³        !FX-SB11                                                        ³Û
 ³                                                                        ³Û
 ³   That's all there is to it!  You're FiXxed!                           ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³  Programmer's Note on ANSi Movement Codes                              ³Û
 ³                                                                        ³Û
 ³  ANSi Movement String is : $escape & [ & $numchars & $arrowkey         ³Û
 ³                       ie :   will move 8 chars right.              ³Û
 ³                                                                        ³Û
 ³  *** A:Up   B:Down   C:Right   D:Left *** <ÄÄ $arrowkey values         ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

# begin

 test $ansi = OFF noansi

 $up = 254 chr 0                     ! Cursor Key Constants (For Local Arrows)
 $down = 253 chr 0
 $right = 251 chr 0
 $left = 252 chr 0
 $escape = 27 chr 0                  ! Escape Key Constant
 $reallyblack = $escape & "[0;30m"   ! Black on Black ANSi Code

 $string = "[FiXx] SaveBar 1.1"

 $saveline = "-³U   SAVE   -³  ABORT!  ³  UPLOAD  ³ CONTINUE ³ "
 $abortline = "-³   SAVE   ³U  ABORT!  -³  UPLOAD  ³ CONTINUE ³ "
 $uploadline = "-³   SAVE   ³  ABORT!  ³U  UPLOAD  -³ CONTINUE ³ "
 $contline = "-³   SAVE   ³  ABORT!  ³  UPLOAD  ³U CONTINUE -³ "

 $pos = 1

 $options = "SAUC|" & $right & $left 
 $options = $options & $escape & $cr

 call FiXxtro

# read
 call showline
 rr $key $options
 ts $bs " "
 test $key = "|" log
 test $key = $escape arrow
 test $key = $left left
 test $key = $right right
 test $key = S save
 test $key = A abort
 test $key = U upload
 test $key = C continue
 
 test $pos = 1 save
 test $pos = 2 abort
 test $pos = 3 upload
 test $pos = 4 continue

go end

# showline
$foo = $string len 0
$foo = $foo + 2
ts $cr
ts $escape "[" $foo "C"
if $pos = 1
 ts $saveline
endif
if $pos = 2
 ts $abortline
endif
if $pos = 3
 ts $uploadline
endif
if $pos = 4
 ts $contline
endif
if $key = $escape
 ts "      "
 ts $escape "[6D"
endif
RET

# arrow
 rc $foo
 rc $foo
 ts $bs $bs "  "
 test $foo = D left
 test $foo = C right
 go read

# right
 if $pos < 4
  $pos = $pos + 1
 else
  $pos = 1
 endif
 go read

# left
 if $pos > 1
  $pos = $pos - 1
 else
  $pos = 4
 endif
 go read

# save
 $sig = $flags instr S
 ifval $sig > 0
  $shell = "copy /y b" & $port & ".tmp c:\vbbs\data\sig\"
  $shell = $shell & $user & ".sig > nul"
  shell $shell
  setflags S OFF
 endif
 stack S
 go end
# abort
 stack A
 go end
# upload
 stack U
 go end
# continue
 stack C
 go end

# log
 logoff

# noansi
 rr $key SAUC "S)ave A)bort U)pload C)ontinue : "
 test $key = S save
 test $key = A abort
 test $key = U upload
 test $key = C continue

# FiXxtro
 $stringlen = $string len 0
 do $foo = 1 $stringlen
  $sofar = 19 - $foo
  $foostring = $string mid $sofar
  ts $cr
  ts $foostring
 loop
RET

# end
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß