-POS_WINDOW 10 50
-SIZE_GADGET 300 13
-PIXEL_BETWEEN_GADGET 2 1
-PIXEL_FROM_BORDER 6 6 3 3
-NB_GADGETS 2 10
-NO_DRAG_BAR
-NO_MENU
-DEF_WINDOW_EXECUTE CON:50/50/250/50/RAP/CLOSE
-GADGET_ICONIFIED RAP
-COLOR_BORDER_GADGET 2 1
-COLOR_WINDOW 1 2
-COLOR_BACKGROUND 1
-COLOR_GADGET_DEF 1 0
-FONT_STYLE 0

=S
\vs[100]fidonet#1:167/104.98
\vs[101]Robert Williamson
\vs[102]Another Amiga ECS Point.
\vs[103]fidonet#1:167/104.0
\vs[104]BlAbLa2u
\vs[105]696-6632
\vs[106]None
\vs[107]None
\vs[108]1
\vs[200]serial.device
\vs[201]0
\vs[202]1
\vs[203]16
\vs[204]16
\vs[205]OK
\vs[206]AT|
\vs[207]~ATZ|
\vs[208]ATDT
\vs[209]~~~+++~~|ATH0|
\vs[210]FALSE
\vs[211]TRUE
\vs[212]19200
\vs[213]30
\vs[214]90
\vs[215]BUSY
\vs[300]15
\vs[301]15
\vs[302]CON:
\vs[303]rap:inbound/
\vs[304]rap:outbound/
\vs[305]topaz
\vs[306]9
\vs[500]ED
\vs[501]SB
\vs[502]None
\vs[503]None
\vs[504]FRED
\vs[505]None
\vs[506]None

=D* "               The  RAP  WPL  Point" 2 1
=D* "Mailer  Control  Panel             " 2 1
=D "Configuration"
\p[2]

=D "Call BOSS"
rap:rap\I

=D* "External Commands" 3 1

=D "Call another Site"
rap:rap \q[^103][Enter a full 5d Address]\w\nd\I

=D "Read Mail"
\vu[501]\I

=D "Send a File Request"
\vs[900]\q[^103][5D FREQ address?]
\vs[901]\q[][File?]
Rx rap:rap.r \vu[304] \vu[900] \vu[901]
rap:rap \vu[900]\I

=D "Import Mail"
\vu[502]\I

=D "Send a File"
\vs[900]\q[^103][5D address?]
\vs[901]\q[][Full File Name?]
\vs[1]\pa[How][Queue or FLO?][Queue][Flo][Cancel][a][b][c]
\ved[1][a]Rx rap:rap.a \vu[900] \vu[901]\w\nd
\ved[1][a]rap:rap \vu[900]\I
\ved[1][b]Rx rap:rap.b \vu[304] \vu[900] \vu[901]\w\nd
\ved[1][b]rap:rap \vu[900]\I

=D "Export Mail"
\vu[503]\I

=D "Kill RAP"
rx "do while show('p','RAP');address RAP ABORT;end"
rap:LaunchWPL RAP ""
rap:LaunchWPL RAPFIG ""

=D "Browse FileList"
\vu[504]\I

=D "Help"
\vu[500] rap:rap.doc\I

# Change Your Command Here to your command name
=D "Your Command Here"
\vu[505]\I

=D "Registration"
\pa[Registration][Just post a Thank You message!][OK]

# Change Your Command Here to your command name
=D "Your Command Here"
\vu[506]\I

=[ -3 "Quit"  1 3
\pa[Quit?][Are you Sure?][Yes][][No]
\Q

=D* "     The RAP Mailer and Control Panel" 3 1 2
=D* "are (c) 1994 by Robert Williamson    " 3 1 2


#page 2
=P
=D* "Select a RAP Mailer Config" 2 1
=D "Select a RAP Config"
Copy >NIL: \f1[RAP:][Select Config][RAP.x|#?.RAP] RAP:RAP.x \q

=D* "Reload Default Setting" 2 1
=D "Reload Default Settings"
CliVa RAP:RAP.p\Q

=D* "Reload ALL Previous Settings" 2 1
=D "Reload ALL Previous Settings"
\vfe[100][ENV:RAP/100]
\vfe[101][ENV:RAP/101]
\vfe[102][ENV:RAP/102]
\vfe[103][ENV:RAP/103]
\vfe[104][ENV:RAP/104]
\vfe[105][ENV:RAP/105]
\vfe[106][ENV:RAP/106]
\vfe[107][ENV:RAP/107]
\vfe[108][ENV:RAP/108]
\vfe[200][ENV:RAP/200]
\vfe[201][ENV:RAP/201]
\vfe[202][ENV:RAP/202]
\vfe[203][ENV:RAP/203]
\vfe[204][ENV:RAP/204]
\vfe[205][ENV:RAP/205]
\vfe[206][ENV:RAP/206]
\vfe[207][ENV:RAP/207]
\vfe[208][ENV:RAP/208]
\vfe[209][ENV:RAP/209]
\vfe[210][ENV:RAP/210]
\vfe[211][ENV:RAP/211]
\vfe[212][ENV:RAP/212]
\vfe[213][ENV:RAP/213]
\vfe[214][ENV:RAP/214]
\vfe[215][ENV:RAP/215]
\vfe[300][ENV:RAP/300]
\vfe[301][ENV:RAP/301]
\vfe[302][ENV:RAP/302]
\vfe[303][ENV:RAP/303]
\vfe[304][ENV:RAP/304]
\vfe[305][ENV:RAP/305]
\vfe[306][ENV:RAP/306]
\vfe[500][ENV:RAP/500]
\vfe[501][ENV:RAP/501]
\vfe[502][ENV:RAP/502]
\vfe[503][ENV:RAP/503]
\vfe[504][ENV:RAP/504]
\vfe[505][ENV:RAP/505]
\vfe[506][ENV:RAP/506]

=D* "Configure Boss and Point" 2 1
=D "Address Configuration" 1 0 4
\p[3]

=D* "Configure Serial Port and Modem" 2 1
=D "Modem Configuration" 1 0 4
\p[4]

=D* "Configure Directories and Display" 2 1
=D "System Configuration" 1 0 4
\p[5]

=D* "Configure External Commands" 2 1
=D "External Commands Configuration" 1 0 4
\p[5]

=D* "Save a RAP Mailer Config" 2 1
=D "Write a RAP Config" 1 0 6
\vs[2000]\f1[RAP:][Save Config As?][RAP.x|#?.RAP]
\ved[2000][]endcli
failat 99\w\nd
makedir ENV:RAP ENVARC:RAP
failat 20
\vnd[105][None]\vs[108]1
\vnd[106][None]\vs[108]2
\vnd[107][None]\vs[108]3
Echo Writing \vu[2000]
Echo >\vu[2000] "*;" NOLINE
Echo >>\vu[2000] WPLSCRIPT RAPfig
Echo >>\vu[2000] CONFIG: set host.address \vu[100] NOLINE
Echo >>\vu[2000] " " NOLINE
Echo >>\vu[2000] Host.sysop "*"" NOLINE
Echo >>\vu[2000] "\vu[101]" NOLINE
Echo >>\vu[2000] "*" " NOLINE
Echo >>\vu[2000] host.sitename "*"" NOLINE
Echo >>\vu[2000] "\vu[102]" NOLINE
Echo >>\vu[2000] "*""
Echo >>\vu[2000] set boss.address \vu[103]
if \vu[104] NOT EQ "None" 
Echo >>\vu[2000] Set remote.password \vu[104]
endif
if \vu[108] GE 1
Echo >>\vu[2000] set numbers \vu[108] boss.number1 \vu[105]
endif
if \vu[108] GE 2
Echo >>\vu[2000] set boss.number2 \vu[106]
endif
if \vu[108] EQ 3
Echo >>\vu[2000] set boss.number3 \vu[107]
endif 
Echo >>\vu[2000] return
Echo >>\vu[2000] MODEM: set device \vu[200] unit \vu[201] DTR_Control \vu[202] serreadbuf \vu[203] serwritebuf \vu[204]
Echo >>\vu[2000] set prompt "*"" NOLINE
Echo >>\vu[2000] "\vu[205]" NOLINE
Echo >>\vu[2000] "*" " NOLINE
Echo >>\vu[2000] Atten "*"" NOLINE
Echo >>\vu[2000] "\vu[206]" NOLINE
Echo >>\vu[2000] "*" " NOLINE
Echo >>\vu[2000] Initstring "*"" NOLINE
Echo >>\vu[2000] "\vu[207]" NOLINE
Echo >>\vu[2000] "*""
Echo >>\vu[2000] set dialstring "*"" NOLINE
Echo >>\vu[2000] "\vu[208]" NOLINE
Echo >>\vu[2000] "*" " NOLINE
Echo >>\vu[2000] Busy "*"" NOLINE
Echo >>\vu[2000] "\vu[215]" NOLINE
Echo >>\vu[2000] "*" " NOLINE
Echo >>\vu[2000] hangupstring "*"" NOLINE
Echo >>\vu[2000] "\vu[209]" NOLINE
Echo >>\vu[2000] "*""
Echo >>\vu[2000] set slowmodem \vu[210] locked \vu[211] baud \vu[212] calldelay \vu[213] modemwait \vu[214]
Echo >>\vu[2000] set displayX \vu[300] displayY \vu[301] console \vu[302] inbound \vu[303] outbound \vu[304] font \vu[305] fontsize \vu[306]
Echo >>\vu[2000] return
Echo "Done"

\vs[1]\pa[Use this config?][Enable Saved Config?][Yes][][No][y][][n]
\ved[1][y]SetEnv RAPBOSS \vu[103]
\ved[1][y]Copy >NIL: \vu[2000] RAP:RAP.x\q
\ved[1][y]Echo "Copied \vu[2000] to RAP:RAP.x"

\vs[1]\pa[Save RAP Environment][Save as 'Previous'?][Yes][][No][y][][n]
\ved[1][y]Echo "Saving RAP environment"
\ved[1][y]SetEnv ENV:RAP/100 \vu[100]
\ved[1][y]SetEnv ENV:RAP/101 \vu[101]
\ved[1][y]SetEnv ENV:RAP/102 \vu[102]
\ved[1][y]SetEnv ENV:RAP/103 \vu[103]
\ved[1][y]SetEnv ENV:RAP/104 \vu[104]
\ved[1][y]SetEnv ENV:RAP/105 \vu[105]
\ved[1][y]SetEnv ENV:RAP/106 \vu[106]
\ved[1][y]SetEnv ENV:RAP/107 \vu[107]
\ved[1][y]SetEnv ENV:RAP/108 \vu[108]
\ved[1][y]SetEnv ENV:RAP/200 \vu[200]
\ved[1][y]SetEnv ENV:RAP/201 \vu[201]
\ved[1][y]SetEnv ENV:RAP/202 \vu[202]
\ved[1][y]SetEnv ENV:RAP/203 \vu[203]
\ved[1][y]SetEnv ENV:RAP/204 \vu[204]
\ved[1][y]SetEnv ENV:RAP/205 \vu[205]
\ved[1][y]SetEnv ENV:RAP/206 \vu[206]
\ved[1][y]SetEnv ENV:RAP/207 \vu[207]
\ved[1][y]SetEnv ENV:RAP/208 \vu[208]
\ved[1][y]SetEnv ENV:RAP/209 \vu[209]
\ved[1][y]SetEnv ENV:RAP/210 \vu[210]
\ved[1][y]SetEnv ENV:RAP/211 \vu[211]
\ved[1][y]SetEnv ENV:RAP/212 \vu[212]
\ved[1][y]SetEnv ENV:RAP/213 \vu[213]
\ved[1][y]SetEnv ENV:RAP/214 \vu[214]
\ved[1][y]SetEnv ENV:RAP/215 \vu[215]
\ved[1][y]SetEnv ENV:RAP/300 \vu[300]
\ved[1][y]SetEnv ENV:RAP/301 \vu[301]
\ved[1][y]SetEnv ENV:RAP/302 \vu[302]
\ved[1][y]SetEnv ENV:RAP/303 \vu[303]
\ved[1][y]SetEnv ENV:RAP/304 \vu[304]
\ved[1][y]SetEnv ENV:RAP/305 \vu[305]
\ved[1][y]SetEnv ENV:RAP/306 \vu[306]
\ved[1][y]SetEnv ENV:RAP/500 \vu[500]
\ved[1][y]SetEnv ENV:RAP/501 \vu[501]
\ved[1][y]SetEnv ENV:RAP/502 \vu[502]
\ved[1][y]SetEnv ENV:RAP/503 \vu[503]
\ved[1][y]SetEnv ENV:RAP/504 \vu[504]
\ved[1][y]SetEnv ENV:RAP/505 \vu[505]
\ved[1][y]SetEnv ENV:RAP/506 \vu[506]
\ved[1][y]SetEnv RAPBOSS \vu[103]
\ved[1][y]SetEnv ENVARC:RAPBOSS \vu[103]
\ved[1][y]Copy >NIL: ENV:RAP/ ENVARC:RAP ALL CLONE

=E

=D "Main Panel" 3 0 2
\p[1]

=D "Next Panel" 3 0 2
\np


#page 3
=P
=D* "Your 5D Address" 3 1
=D "[100]"
\vs[100]\q[^100][Enter your Full 5D address]

=D* "Your Full Name" 3 1
=D "[101]"
\vs[101]\q[^101][Enter your name]

=D* "Your Site Name" 3 1
=D "[102]"
\vs[102]\q[^102][Enter your Site name]

=D* "Your Boss's 5D Address" 3 1
=D "[103]"
\vs[103]\q[^103][Enter your Boss's address]

=D* "Your Session Password" 3 1
=D "[104]"
\vs[104]\q[^104][Enter session password for Boss]
\ved[104][]\vs[104]None

=D* "Boss first Phone #" 3 1
=D "[105]"
\vs[105]\q[^105][Boss first Phone #]

=D* "Boss Second Phone #" 3 1
=D "[106]"
\vs[106]\q[^106][Boss Second Phone #]
\ved[106][]\vs[106]None

=D* "Boss Third Phone #" 3 1
=D "[107]"
\vs[107]\q[^107][Boss Third Phone #]
\ved[107][]\vs[107]None

=D "Get Previous Address Settings" 2 0
\vfe[100][ENV:RAP/100]
\vfe[101][ENV:RAP/101]
\vfe[102][ENV:RAP/102]
\vfe[103][ENV:RAP/103]
\vfe[104][ENV:RAP/104]
\vfe[105][ENV:RAP/105]
\vfe[106][ENV:RAP/106]
\vfe[107][ENV:RAP/107]
\vfe[108][ENV:RAP/108]

=D "Previous Panel" 3 0 2
\pp
=D "Next Panel" 3 0 2
\np


#page 4
=P

=D* "Serial Device, Unit & DTR Control" 3 1
=D "Device:[200]  Unit:[201]  DTR:[202] "
\vs[200]\q[^200][Name of serial device]
\vs[201]\q[^201][Serial unit #]
\vs[202]\pa[][Supports DTR][NO = 0][YES = 1][I read the docs = 2][0][1][2]

=D* "BaudRate  Locked  SlowModem" 3 1
=D "Bps:[212] Lock:[211] Slow:[210]"
\vs[212]\q[^212][Baud Rate]
\vs[211]\pa[][Locked Baud][FALSE][][TRUE][FALSE][][TRUE]
\vs[210]\pa[][Slow Modem][TRUE][][FALSE][TRUE][][FALSE]

=D* "SerReadbuf and SerWritebuf" 3 1
=D "ReadBuf:[203]   WriteBuf:[204]"
\vs[203]\q[^203][Serial Receive Buffer in K.]
\vs[204]\q[^204][Serial Write Buffer in K.]

=D* "OK Response & Attention Command" 3 1
=D "OK:[205]  Atten:[206]"
\vs[205]\q[^205][Modem Ok Prompt]
\vs[206]\q[^206][Attention command]

=D* "Initialization String" 3 1
=D "[207]"
\vs[207]\q[^207][Initialization String]

=D* "Dial String and Busy Responses" 3 1
=D "[208]  [215]"
\vs[208]\q[^208][Dial String]
\vs[215]\q[^215][Busy Responses]

=D* "Hangup String" 3 1
=D "[209]"
\vs[209]\q[^209][Hangup String]

=D* "Redial Delay & Modem Response Wait" 3 1
=D "Redial:[213]  Wait:[214]"
\vs[213]\q[^213][Seconds to wait between redials?]
\vs[214]\q[^214][Seconds to wait for modem response?]

=D "Get Previous Modem Settings" 2 0
\vfe[200][ENV:RAP/200]
\vfe[201][ENV:RAP/201]
\vfe[202][ENV:RAP/202]
\vfe[203][ENV:RAP/203]
\vfe[204][ENV:RAP/204]
\vfe[205][ENV:RAP/205]
\vfe[206][ENV:RAP/206]
\vfe[207][ENV:RAP/207]
\vfe[208][ENV:RAP/208]
\vfe[209][ENV:RAP/209]
\vfe[210][ENV:RAP/210]
\vfe[211][ENV:RAP/211]
\vfe[212][ENV:RAP/212]
\vfe[213][ENV:RAP/213]
\vfe[214][ENV:RAP/214]
\vfe[215][ENV:RAP/215]

=D "Previous Panel" 3 0 2
\pp
=D "Next Panel" 3 0 2
\np


#page 5
=P

=D* "Console, X Y Position & Font Size" 3 1
=D "Device:[302] x:[300] y:[301] [305] [306]"
\vs[300]\q[^300][Display X]
\vs[301]\q[^301][Display Y]
\vs[302]\q[^302][Console Device]
\vs[305]\q[^305][Font]
\vs[306]\q[^306][Size]

=D* "Inbound directory" 3 1
=D "[303]"
\vs[303]\q[^303][Inbound Directory, needs / or :]

=D* "Outbound Directory" 3 1
=D "[304]"
\vs[304]\q[^304][Outbound Directory, needs / or :]

=D* "Your favorite text reader" 3 1
=D "[500]"
\vs[500]\q[^500][Command to start text reader/editor?]

=D* "Your favorite Mail reader" 3 1
=D "[501]"
\vs[501]\q[^501][Command to start Message reader?]

=D* "Mail Import & Export Commands" 3 1
=D "Import & Export"
\vs[502]\q[^502][Command to Import Mail?]
\vs[503]\q[^503][Command to Export Mail?]

=D* "FileList Browser/Request Maker" 3 1
=D "[504]"
\vs[504]\q[^504][What is your FileList Browser and REQ Command?]

=D* "Your Commands" 3 1
=D "Extra"
\vs[505]\q[^505][Extra Command 1?]
\vs[506]\q[^506][Extra Command 1?]

=D "Get Previous System Settings" 2 0
\vfe[300][ENV:RAP/300]
\vfe[301][ENV:RAP/301]
\vfe[302][ENV:RAP/302]
\vfe[303][ENV:RAP/303]
\vfe[304][ENV:RAP/304]
\vfe[305][ENV:RAP/305]
\vfe[306][ENV:RAP/306]
\vfe[500][ENV:RAP/500]
\vfe[501][ENV:RAP/501]
\vfe[502][ENV:RAP/502]
\vfe[503][ENV:RAP/503]
\vfe[504][ENV:RAP/504]
\vfe[505][ENV:RAP/505]
\vfe[506][ENV:RAP/506]

=D "Previous Panel" 3 0 2
\pp
=D "Config Panel" 3 0 2
\p[2]
=P