ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ Screwdriver Access Technologies ³                                      ³Û
 ³ Christopher J. Heschong         ³  FX-Pause 1.0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ³ - 1@1615005 VirtualNET          ³  An Animated Pause Prompt for VBBSÄÄijÛ
 ³ - 1@61501 The Collective        ³                                      ³Û
 ³ - The VirtualScrewdriver BBS    ³  (A [FiXx] Release) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ³   (615)975-0347/0348            ³  (With InLine Docs) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÛ
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³                          Revision History:                             ³Û
 ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û
 ³ Started:              02-25-95  :  Initial Release                     ³Û
 ³ Last Edited:          02-25-95  :                                      ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³  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         ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
# pause

! This is the string that will move back & forth
$string = U[1pauseU]

$escape = 27 chr 0                  ! Escape Key Constant
$count = 0
$space = "       "
$direction = B
ts $cr $escape "[70C"

! If not ANSI, simply display the string, wait for a key.
test $videomode > 0 pfoo
ts $string
rc $pkey
go pauseend

# pfoo
$count = $count + 1
test $direction = F forward
# backward
 ts $string " "
 ts $escape "[9D"
 ifval $count > 71
  $direction = F
  $count = 0
!  ts $space
!  ts $cr $escape "[70C"
 endif
 rh $pkey
 test $pkey = "" pfoo
 ts $space " " $cr
 go pauseend
# forward
 ts $string
 ts $escape "[7D "
 ifval $count > 68
  $direction = B
  $count = 0
!  ts $cr $escape "[70C"
!  ts $space $cr
 endif
 rh $pkey
 test $pkey = "" pfoo
 ts $space $cr
 go pauseend
# pauseend
stack " "
RET