ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ Screwdriver Access Technologies ³                                      ³Û
 ³ Christopher J. Heschong         ³  VS-Public Phone DataBase v1.0ÄÄÄÄÄÄijÛ
 ³ - 1@1615005 VirtualNET          ³  An database for the collectionÄÄÄÄÄijÛ
 ³ - 1@61501 The Collective        ³  of Public PayPhone NumbersÄÄÄÄÄÄÄÄÄijÛ
 ³ - chris@Preferred.COM Internet  ³                                      ³Û
 ³ - The VirtualScrewdriver BBS    ³  (Might become 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  :                                      ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 ³ Configuration :                                                        ³Û
 ³   First, compile this script with VCOM in your VBBS\V Directory.       ³Û
 ³                                                                        ³Û
 ³   Add it to one of your .FBs, and 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         ³Û
 ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

 
$line = "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
$version = 0.02
# begin
ts $clear
$file = "c:\vbbs\txt\payphone.txt"
tr
tr $bbsname " Public Payphone DataBase v" $version
tr "U[BVU]0iew DataBase"
tr "U[BDU]0ownload DataBase"
tr "U[BAU]0dd a Public Phone Number"
tr "U[BIU]0nformation on this Program"
tr
rr $choice VDEAIQ|? "U[BV0/BD0/BA0/BIU] [BQU]0uit :"
test $choice = V view
test $choice = D download
test $choice = A add
test $choice = I info
test $choice = Q end
test $choice = | logoff
go begin

# view
 ts $clear
 ef $file
 pause
 go begin

# download
 download $file
 go begin

# add
 tr
 tr "UPhone Number0: <ex: (123) 456-7890>
 ts "UPhone Number0: U("
 rc $a1
 rc $a2
 rc $a3
 ts ") "
 rc $b1
 rc $b2
 rc $b3
 ts "-"
 rc $c1
 rc $c2
 rc $c3
 rc $c4
 tr
 tr "Location: <ex: The Phone at McDonalds>
 rs $location "Location: "
 tr
 $number = "(" & $a1 & $a2
 $number = $number & $a3 & ") "
 $number = $number & $b1 & $b2
 $number = $number & $b3 & "-"
 $number = $number & $c1 & $c2
 $number = $number & $c3 & $c4
 tr "UPhone Number0: U" $number
 tr "ULocation0: U" $location
 tr
 getyn $ok "Are you SURE this is correct"
 test $ok = N begin
 $whoitwas = "Submitted By: " & $handle & " / " 
 $whoitwas = $whoitwas & $date
 jr $whoitwas 63
 $x1 = $number & $whoitwas
 $x2 = "Location: " & $location
 open $file append
 write $x1
 write $x2
 write $line
 close
 tr
 tr "UEntry Added"
 go begin

# info
 ts $clear
 tr
 tr "UPublic Payphone Database v0" $version
 tr "Uby 6CtG 0/ U[-FiXxU]"
 tr
 tr "UPublic Payphone What?  Why would you want to know the numbers of all"
 tr "Upublic payphones?  Well, what if you were bored, lonely, and at home?"
 tr "UOr what if you knew your friends were in front of McDonalds at that"
 tr "Uvery moment, and you wanted to talk to one of them?  Perhaps you only"
 tr "Uwant to increase the general amount of chaos in the world...  in any"
 tr "Ucase, it's a fun idea, and completely legal!  Go out now and find as"
 tr "Umany Public Payphones as you can, and add them to the database."
 tr
 tr "UFuture Enhancements:"
 tr "0 - UNetworked Database over VirtualNET"
 tr "0 - USearchability"
 tr
 tr "UFeel free to suggest any improvements!"
 pause
 go begin

# logoff
 logoff
 go begin

# end
tr $clear