/* WD-Wall skriven av arexx-kungen själv.. får inte spridas eller så.. */
options results
signal on syntax
signal on error
signal on ioerr
tr=transmit           /**********************************
                       * Change this path if you  want  *
                       * to redirect the output file!!  *
                       **********************************/
                              df='systext:sys.end'
                      /**********************************/




/*------------------------------------*/
sendfile 'systext:sys.end'
PROMPT 1 NOYES '!3}c2Add a bbs? cb[c7YEScb/cfNOcb]cf';SKRIVA=RESULT
if SKRIVA='Yes' then signal MAIN
if SKRIVA='No' then exit
if SKRIVA='###PANIC' then exit
/*------------------------------------*/
MAIN:
df='systext:sys.end'
if exists(df) then signal adding
call open(f1,df,'w')
call writeln(f1,'F1cb                            Ú¿ ³ ³   Ú¿   ¿¿ڿ')
call writeln(f1,'                            ôڴڴ Ä Ã´ Ä Ã´Ã´À¿')
call writeln(f1,'                            Á³ÀÙÀÙ   Á³   ÁÙÁÙÀÙcf')
call writeln(f1,' Z7ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄc8¿cfZ0')
call writeln(f1,' Z7³c4BBS - Namecf        ³c4Contentscf                         ³c4Phonenumbercf   ³c4Baud    c8³cfZ0')
call writeln(f1,' Z7Ãc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄc8´Z0')
call writeln(f1,' ')
call writeln(f1,' ')
  call close(f1)
adding:
tr 'c2What is the name of the bbs?'
PROMPT 18 normal 'cb[>18}]<19}cf' ; BBS=RESULT
if BBS='' then exit ; if BBS=' ' then exit
tr 'c2What does the bbs contain?'
PROMPT 33 normal 'cb[>33}]<34}cf' ; CONTAIN=RESULT
if CONTAIN='' then exit ; if CONTAIN=' ' then exit
tr 'c2Phonenumber?'
PROMPT 14 normal 'cb[>14}]<15}cf' ; PHONE=RESULT
if PHONE='' then exit ; if PHONE=' ' then exit
tr 'c2What is the highest baud rate?'
PROMPT 8 normal 'cb[>8}]<9}cf' ; BAUD=RESULT
if BAUD='' then exit ; if BAUD=' ' then exit
/*******************************************/
BBS=('cf'BBS) ; CONTAIN=('c8'CONTAIN) ; PHONE=('cf'PHONE) ; BAUD=('c8'BAUD)
RADEN = 'Z7cf³'centre(BBS,21)'cf³'centre(CONTAIN,36)'cf³'centre(PHONE,17)'cf³'centre(BAUD,11)'c8³Z0'
tr 'cb                            Ú¿ ³ ³   Ú¿   ¿¿ڿ'
tr '                            ôڴڴ Ä Ã´ Ä Ã´Ã´À¿'
tr '                            Á³ÀÙÀÙ   Á³   ÁÙÁÙÀÙcf'
tr ' Z7ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄc8¿cfZ0'
tr ' Z7³c4BBS - Namecf        ³c4Contentscf                         ³c4Phonenumbercf   ³c4Baud    c8³cfZ0'
tr ' Z7Ãc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄcf³c0ÄÄÄÄÄÄÄÄc8´Z0'
tr '>'RADEN
tr ' cfZ7Àc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄc8ÙZ0'
tr ' Z7c8    Programmed by Peter Larsson at "Wet Dreams BBS wARP 26"  +46-346-16348    Z0'
PROMPT 1 YESNO '!3}c2Add this line to the list? cb[c7NOcb/cfYEScb]cf';ADDA=RESULT
if ADDA='Yes' then signal WRITE
if ADDA='No' then exit
if ADDA='###PANIC' then exit
WRITE:
call open(f1,df,'r')
  do i=1 until eof(f1)
    a=readln(f1) ; parse var a rad.i
 end i ; total=i-3
 call close(f1)
	call open(f1,df,'w')
	  do i=1 to total
	    call writeln(f1,rad.i)
	  end i ; call close(f1)
call open(f1,df,'a')
call writeln(f1,' 'RADEN)
call writeln(f1,' cfZ7Àc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄÄÄÄÄÄÄcfÀc0ÄÄÄÄÄÄÄÄc8ÙZ0');
call writeln(f1,' Z7c1    Programmed by Peter Larsson at "Wet Dreams BBS wARP 26"  +46-346-16348    Z0')
return
   call close(f1)
 return
bye:
Exit