/* BBS-Add v1.0 */

options results
parse arg file1

path='Systext:';tr='transmit';cr='center';pr='prompt'

if ~exists(path||file1) then do
call open(1,path||file1)
signal QUESTS
end

call open(1,path||file1)

do until eof(1)
foo=readln(1)
end

QUESTS:
CLS
pr 20 normal '"c2}BBS-Name     :c4} "'
name=result
pr 18 normal '"c2}PhoneNr      :c4} "'
phone=result
pr 15 normal '"c2}Speed        :c4} "'
speed=result
pr 15 normal '"c2}BoardProgram :c4} "'
Board=result
line = right(name,20)||right(phone,19)||right(speed,16)||right(Board,16)
tri
tr
tr center(line,79)
OA:
tr
pr 1 yesno '"c5} Is the above correct ? [c2Yesc5] "'
ans=result
if ans='Yes' then signal OK
if ans='No' then signal QUESTS
if ans='###PANIC' then call SLUTA
signal OA

OK:
call writeln(1,center(line,79))
call close(1)

SLUTA:
tr
tr center("c5Adding your board to the Logout!!",82)
tr center('c7z4BBS-Add v1.0 (C)1994 by Wolverine / DMIc3z0 ',91)
exit