Rem //* Local logon program for Yankee Trader v2.0 \\*
rem //* Copyright (c) 1990,1991 by Alan Davenport \\*
Rem //* For QuickBasic 3.0 \\*

color 14
cls
dim users$(500)
users$ = command$    'take user number from command line input

print
print "Yankee Trader Local Logon Program v2.0
print "Copyright (c) 1990,1991 by Alan Davenport

open "ytname.dat" as 1 len = 1

if lof(1) = 0 then          'file not found
   close 1
   kill "ytname.dat"

else

   close 1
   open "ytname.dat" for input as 1
   user.count = 0
   while not eof(1)
	 input #1,first$,last$,a$,a$
	 users$(user.count) = First$ + " " + Last$
	 user.count = user.count + 1  'yes,down here to drop dummy user entry
   wend

end if

close 1

player$ = ""

while player$ = ""

   print
   if val(users$) = 0 and users$ = "" then
      for r = 1 to user.count
	  if users$(r) = "" then exit for
	  print str$(r);"]",users$(r)
	  if (r mod 15) = 0 then
	     print "[Pause]";
	     while inkey$= ""
	     wend
	     cls
	     print
	  end if
      next r
      print
      print "Enter ";
      if user.count > 1 then print "user number, LIST, or ";
      print "Your REAL name. -=> ";
      line input a$
      if a$ = "" then
	 print
	 print "Aborted!"
	 end
      end if
      if val(a$) = 0 and a$ > "" and a$ <> "list" and a$ <> "LIST" then _
	 player$ = a$
      num = val(a$)
   else
      if users$ > "" and val(users$) = 0 then
	 player$ = users$
      else
	 num = val(users$)      'take user number from command line input
      end if
      users$ = ""
   end if
   if num > 0 and num <= user.count then player$ = users$(num)

wend

Rem //* Massage player$ \\*

'strip leading spaces

while left$(player$,1) = " "
      player$ = right$(player$,len(player$) - 1)
wend

'strip trailing spaces

while right$(player$,1) = " "
      player$ = left$(player$,len(player$) - 1)
wend

'strip imbedded double spaces

while instr(player$,"  ")
      x = instr(player$,"  ")
      player$ = left$(player$,x -1) + right$(player$,len(player$) - x)
wend

'turn to all upper case

for r = 1 to len(player$)
    a$ = mid$(player$,r,1)
    if a$ => "a" and a$ <= "z" then mid$(player$,r,1) = chr$(asc(a$) and 223)
next r

'split off first and last names

first$ = left$(player$,instr(player$ + " "," ") - 1)

if len(first$) <> len(player$) then    'needed to deal with single name names
   last$ = right$(player$,len(player$) - len(first$) - 1)
else
   last$ = ""
end if



'//* OK, create a DORINFO1.DEF and run Yankee Trader \\*

print
print "Loading...

open "DORINFO1.DEF" for output as 1

Print #1,"Yankee Trader Local Logon Program"   'bbs name
print #1,"Alan"                                'sysop first name
print #1,"Davenport"                           'sysop last name
print #1,"COM0"                                'com port  (0 = local)
print #1,"0 BAUD,N,8,1"                        'baud rate (0 = local)
print #1,0                                     'multi tasker type
print #1,first$                                'user first name
print #1,last$                                 'user last name
Print #1,"Anytown, USA"                        'user city/state
print #1,1                                     'graphics yes/no
print #1,100                                   'user security level
print #1,45                                    'user time limit
print #1,0                                     'fossil yes/no

close

shell "YT.EXE DORINFO1.DEF"

locate 25,1   'cursor to screen bottom

end