home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / comms / riscbbs / _riscbbs / system / kernel / sysbbs < prev    next >
Encoding:
Text File  |  1992-01-18  |  28.1 KB  |  743 lines
  1. |
  2. | Arcland system file
  3. | Last modified - 07.11.91
  4. |
  5. {
  6.  priority 4 pitch 7000 voice Help!
  7.  address 2:292/500.21510
  8.  fake_addr 2:29000/21510
  9.  system `Arcland after Dark`
  10.  sysop `Carl Declerck`
  11.  origin `Arcland after Dark, Belgium.`
  12.  inbound <RiscBBS$Dir>.Inbound
  13.  outbound <RiscBBS$Dir>.Outbound
  14.  mailext /o
  15.  
  16.  msgbase  10 <RiscBBS$Dir>.Base1 `Message Base`
  17.  filebase 50 <RiscBBS$Dir>.Base0 `File Base`
  18.  
  19.  msgarea 0  500 10 10 `` `Private Messages`               3 LOCAL
  20.  msgarea 1   10 10 10 `` `Messages to and from the Sysop` 3 LOCAL
  21.  msgarea 2   10 10 10 `` `Netmail`                        4 NET
  22.  msgarea 3   10 10 10 `` `Cormoran syspoint`              4 ECHO SYSPOINT       2:292/500
  23.  msgarea 4   10 10 10 `` `Belgian points`                 3 ECHO POINTS.B       2:292/500
  24.  msgarea 5   10 10 10 `` `Belgian modeming`               3 ECHO MODEM.B        2:292/500
  25.  msgarea 6   10 10 10 `` `General talk`                   3 ECHO ALGEMEEN.B     2:292/500
  26.  msgarea 7   10 10 10 `` `Belgian sound-corner`           3 ECHO SOUND_CORNER.B 2:292/500
  27.  msgarea 8   10 10 10 `` `Belgian multitasking`           3 ECHO MULTITAS.B     2:292/500
  28.  msgarea 9   10 10 10 `` `Belgian gaming`                 3 ECHO AVONTUUR.B     2:292/500
  29.  msgarea 10  10 10 10 `` `Belgian public-domain`          3 ECHO P-DOMAIN.B     2:292/500
  30.  msgarea 11  10 10 10 `` `Belgian Windows talk`           3 ECHO WINDOWS.B      2:292/500
  31.  msgarea 12  10 10 10 `` `Dutch questions #1`             3 ECHO VRAGEN.512     2:292/500
  32.  msgarea 13  10 10 10 `` `Dutch questions #2`             3 ECHO VRAGEN.028     2:292/500
  33.  msgarea 14  10 10 10 `` `German Archimedes talk`         7 ECHO ARCHIMEDES.GER 2:292/500
  34.  msgarea 15  10 10 10 `` `Intl. Archimedes talk`          7 ECHO ARCHIMEDES     2:292/500
  35.  msgarea 16  10 10 10 `` `Belgian systems talk`           3 ECHO SYSTEMEN.BN    2:292/500
  36.  msgarea 17  10 10 10 `` `Belgian programming fun`        3 ECHO FUNPROG.B      2:292/500
  37.  
  38.  filearea 0  10 10 10 `` `General Files`                  0 LOCAL
  39.  filearea 1  10 10 10 `` `Graphics Files`                 0 LOCAL
  40.  filearea 2  10 10 10 `` `Desktop Miscellaneous`          0 LOCAL
  41.  filearea 3  10 10 10 `` `Applications`                   0 LOCAL
  42.  filearea 4  10 10 10 `` `Demos`                          0 LOCAL
  43.  filearea 5  10 10 10 `` `Language Files`                 0 LOCAL
  44.  filearea 6  10 10 10 `` `Soundtrackers`                  0 LOCAL
  45.  filearea 7  10 10 10 `` `Communications`                 0 LOCAL
  46.  filearea 8  10 10 10 `` `Games`                          0 LOCAL
  47. }
  48. {
  49.  defmenu 0 report `Main menu`
  50.  defopt Z= `The Z test` 10 ``
  51.   fg 3 eoln send `Welcome to the fabulous Z test!!!` eoln
  52.   send `Please enter your name: ` fg 7 read V0 36 eoln
  53.   fg 3 send `You entered ` print V0 eoln
  54.   menu 10
  55.  endopt
  56.  option W= `Welcome` 10 `show <RiscBBS$Dir>.BBS.Welcome`
  57.  option G= `Goodbye` 0 `menu 9`
  58.  option B= `Bulletin` 10 `show <RiscBBS$Dir>.BBS.Bulletin`
  59.  option A= `About BBS` 10 `menu 2`
  60.  option Q= `Questionnaire/enquete` 10 `menu 5`
  61.  option L= `Latest News` 10 `show <RiscBBS$Dir>.BBS.LatestNews`
  62.  option Y= `Yell` 10 `show <RiscBBS$Dir>.BBS.YellSysop`
  63.  option S= `System Info` 10 `show <RiscBBS$Dir>.BBS.SystemInfo`
  64.  option O= `Online Leisure` 10 `menu 3`
  65.  option P= `Personalia` 10 `menu 1`
  66.  option T= `Utilities` 10 `menu 4`
  67.  option U= `Userlist/search` 10 `u_list`
  68.  option M= `Message Base` 10 `base 1`
  69.  option F= `File Base` 10 `base 0`
  70.  option ñ 10 `nil`
  71.  option != `System Base` 0 `base -1`
  72.  attr 0 7 
  73. }
  74. {bold attr 4 3}  -- Arcland Main Menu --  {attr 0 2}  {_time} / {_online}  {attr 4 3 cll}  System load: {fg 6 _tasks fg 3} tasks      {fg 1 ifkey S else goto +nosysop}SYSOP{label nosysop attr 0 7}
  75.  
  76.      [{fg 1}M{fg 7}]essage base                       [{fg 1}F{fg 7}]ile base
  77.  
  78.      [{fg 1}W{fg 7}]elcome screen                     [{fg 1}B{fg 7}]ulletin board
  79.      [{fg 1}A{fg 7}]bout RiscBBS & Arcland            [{fg 1}P{fg 7}]ersonal accounts
  80.      [{fg 1}L{fg 7}]atest news in Arcland             [{fg 1}Y{fg 7}]ell at Sysop
  81.  
  82.      [{fg 1}O{fg 7}]nline animations & games          [{fg 1}Q{fg 7}]uestionnaire / enquete
  83.      [{fg 1}S{fg 7}]ystem info                        [{fg 1}T{fg 7}]ools / utilities
  84.  
  85.      [{fg 1}U{fg 7}]serlist / search                  [{fg 1}G{fg 7}]oodbye (Logoff)
  86.  
  87.  {show <RiscBBS$Dir>.BBS.Select enddef}
  88. |
  89. {
  90.  defmenu 1 report `Personal configurations`
  91.  option A= `ANSI toggle` 10 `u_ansi`
  92.  option P= `Prompts toggle` 10 `u_more`
  93.  option L= `Lines` 10 `u_lines`
  94.  option M= `Main Menu` 10 `menu 0`
  95.  option ñ 10 `nil`
  96.  option != `System Base` 0 `base -1`
  97.  attr 0 7 
  98. }
  99. {attr 4 3}  -- Personal Accounts --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  100.  
  101.         {fg 6}Username  : {fg 3 _user}
  102.         {fg 6}Userlevel : {fg 3 eval V0 LEVEL print V0}
  103.  
  104.         {fg 6}Downloaded        : {fg 3 eval V0 `DOWNL/1024` print V0 fg 1} Kb
  105.         {fg 6}Uploaded          : {fg 3 eval V0 `UPL/1024` print V0 fg 1} Kb
  106.         {fg 6}Ratio allowed     : {fg 3 eval V0 RA_D eval 1 RA_U print V0 send : print 1}
  107.         {fg 6}Free for download : {fg 3 eval V0 `(UPL*RA_D-DOWNL*RA_U)/1024` print V0 fg 1} Kb
  108.  
  109.         {fg 6}Time left this call : {fg 3 eval V0 `REMAIN/60` print V0 fg 1} minutes{fg 7}
  110.  
  111.      [{fg 1}A{fg 7}]NSI graphics toggle               [{fg 1}P{fg 7}]rompts (More?) toggle
  112.      [{fg 1}L{fg 7}]ines per screen
  113.  
  114.      [{fg 1}M{fg 7}]ain Menu
  115.  
  116.  {show <RiscBBS$Dir>.BBS.Select enddef}
  117. |
  118. {
  119.  defmenu 2 report `About... menu`
  120.  option R= `About RiscBBS` 10 `show <RiscBBS$Dir>.BBS.About`
  121.  option A= `About Arcland` 10 `show <RiscBBS$Dir>.BBS.Arcland`
  122.  option G= `Guide` 10 `show <RiscBBS$Dir>.BBS.Guide`
  123.  option M= `Main Menu` 10 `menu 0`
  124.  option ñ 10 `nil`
  125.  option != `System Base` 0 `base -1`
  126.  attr 0 7 
  127. }
  128. {attr 4 3}  -- About RiscBBS & Arcland --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  129.  
  130.      [{fg 1}R{fg 7}]iscBBS system info                [{fg 1}A{fg 7}]bout Arcland BBS
  131.      [{fg 1}G{fg 7}]uide to Arcland BBS               [{fg 1}M{fg 7}]ain Menu
  132.  
  133.  {show <RiscBBS$Dir>.BBS.Select enddef}
  134. |                   
  135. {
  136.  defmenu 3 report `Animations & games menu`
  137.  option 1= `Bambi` 10 `show <RiscBBS$Dir>.BBS.ANSI.Bambi`
  138.  option 2= `Fireworks` 10 `show <RiscBBS$Dir>.BBS.ANSI.Fireworks`
  139.  option 3= `StarTrek` 10 `show <RiscBBS$Dir>.BBS.ANSI.StarTrek`
  140.  option 4= `Opus` 10 `show <RiscBBS$Dir>.BBS.ANSI.Opus`
  141.  option 5= `The Dead` 10 `show <RiscBBS$Dir>.BBS.ANSI.TheDead`
  142.  option 6= `Weights` 10 `show <RiscBBS$Dir>.BBS.ANSI.AnsiSize`
  143.  option 7= `Fish Animation` 10 `show <RiscBBS$Dir>.BBS.ANSI.FishAnim`
  144.  option 8= `Radiation` 10 `show <RiscBBS$Dir>.BBS.ANSI.Radiation`
  145.  option B= `Breakout` 10 `show <RiscBBS$Dir>.BBS.ANSI.Breakout`
  146.  option T= `Tetris` 10 `show <RiscBBS$Dir>.BBS.ANSI.Tetris`
  147.  option D= `Today's dates` 10 `show <RiscBBS$Dir>.BBS.Today`
  148.  option G= `Guess a number` 10 `show <RiscBBS$Dir>.BBS.Guess`
  149.  option M= `Main Menu` 10 `menu 0`
  150.  option ñ 10 `nil`
  151.  option != `System Base` 0 `base -1`
  152.  attr 0 7 
  153. }
  154. {attr 4 3}  -- ANSI Animations & Games --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  155.  
  156.      [{fg 1}1{fg 7}]Bambi goes walking                [{fg 1}2{fg 7}]Fireworks galore
  157.      [{fg 1}3{fg 7}]StarTrek in space                 [{fg 1}4{fg 7}]Opus multicolour
  158.      [{fg 1}5{fg 7}]The dead                          [{fg 1}6{fg 7}]Weight lifting
  159.      [{fg 1}7{fg 7}]Fish Animation                    [{fg 1}8{fg 7}]Radiation
  160.  
  161.      [{fg 1}B{fg 7}]reak-Out                          [{fg 1}T{fg 7}]etris
  162.      [{fg 1}G{fg 7}]uess a number
  163.  
  164.      [{fg 1}D{fg 7}]ates and Birthdays etc.           [{fg 1}M{fg 7}]ain Menu
  165.  
  166.  {show <RiscBBS$Dir>.BBS.Select enddef}
  167. |                   
  168. {
  169.  defmenu 4 report `Utilities menu`
  170.  option C= `CPU monitor` 10 `show <RiscBBS$Dir>.BBS.CPUmonitor`
  171.  option S= `Supervisor mode` 20 `show <RiscBBS$Dir>.BBS.SVmode`
  172.  option M= `Main Menu` 10 `menu 0`
  173.  option ñ 10 `nil`
  174.  option != `System Base` 0 `base -1`
  175.  attr 0 7 
  176. }
  177. {attr 4 3}  -- System Utilities --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  178.  
  179.      [{fg 1}C{fg 7}]PU monitor                        [{fg 1}S{fg 7}]upervisor mode
  180.  
  181.      [{fg 1}M{fg 7}]ain Menu
  182.  
  183.  {show <RiscBBS$Dir>.BBS.Select enddef}
  184. |
  185. {
  186.  defmenu 5 report `Questionnaire menu`
  187.  option Q= `Questionnaire` 10 `show <RiscBBS$Dir>.BBS.Questions`
  188.  option E= `Enquete` 10 `show <RiscBBS$Dir>.BBS.Enquete`
  189.  option M= `Main Menu` 10 `menu 0`
  190.  option ñ 10 `nil`
  191.  option != `System Base` 0 `base -1`
  192.  attr 0 7 
  193. }
  194. {attr 4 3}  -- Questionnaire / Enquete --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  195.  
  196.      [{fg 1}Q{fg 7}]uestionnaire (Higher level!)      [{fg 1}E{fg 7}]nquete (Not mandatory)
  197.  
  198.      [{fg 1}M{fg 7}]ain Menu
  199.  
  200.  {show <RiscBBS$Dir>.BBS.Select enddef}
  201. |
  202. {
  203.  defmenu 9 report `Logoff menu`
  204.  option M= `Main Menu` 10 `menu 0`
  205.  option L= `Logoff` 0 `logoff`
  206.  option W= `Write to sysop` 10 `m_enter B1 A1 S |logoff`
  207.  option ñ 10 `nil`
  208.  option != `System Base` 0 `base -1`
  209.  attr 0 7 
  210. }
  211. {attr 4 3}  -- Logoff Menu --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  212.  
  213.      [{fg 1}L{fg 7}]ogoff                             [{fg 1}W{fg 7}]rite to Sysop
  214.  
  215.      [{fg 1}M{fg 7}]ain Menu
  216.  
  217.  {show <RiscBBS$Dir>.BBS.Select enddef}
  218. |
  219. {
  220.  defmenu 10 report `Messages main menu`
  221.  option M= `Main Menu` 10 `base -1`
  222.  option C= `Change area` 10 `a_change <RiscBBS$Dir>.BBS.MsgAreas`
  223.  if AREA<>1 option E= `Enter message` 10 `m_enter` else option E= `Enter message` 10 `m_enter S` endif
  224.  option B= `Browse` 10 `menu 16`
  225.  option G= `Goto msg` 10 `menu 17 |m_goto |m_read 0 G`
  226.  option R= `Read mail` 10 `a_reset A0 B |menu 12 |m_read 1 A0 U`
  227.  option S= `Send mail` 10 `m_enter A0 P`
  228.  option P= `Personal scan` 10 `menu 18`
  229.  option Z= `Zip messages` 10 `menu 19`
  230.  option N= `New personal mail` 10 `a_reset A0 B G |menu 21 |m_read 1 G N U`
  231.  option W= `Write to sysop` 10 `m_enter A1 S`
  232.  option ñ 10 `nil`
  233.  option != `System Base` 0 `base -1`
  234.  attr 0 7 
  235. }
  236. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  237.  
  238.      [{fg 1}C{fg 7}]hange area                        [{fg 1}Z{fg 7}]ip through new messages
  239.  
  240.      [{fg 1}B{fg 7}]rowse through messages            [{fg 1}R{fg 7}]ead private mail
  241.      [{fg 1}E{fg 7}]nter message                      [{fg 1}S{fg 7}]end private mail
  242.  
  243.      [{fg 1}P{fg 7}]ersonal message scan              [{fg 1}W{fg 7}]rite to Sysop
  244.  
  245.      [{fg 1}N{fg 7}]ew personal mail scan             [{fg 1}G{fg 7}]o to a message
  246.  
  247.      [{fg 1}M{fg 7}]ain Menu
  248.  
  249.  {show <RiscBBS$Dir>.BBS.Select enddef}
  250. |
  251. {
  252.  defmenu 11 report `Browsing messages` errmenu 10
  253.  option F= `Forward` 10 `m_read 1`
  254.  option B= `Backward` 10 `m_read -1`
  255.  option C= `Current` 10 `m_read 0`
  256.  option S= `Start of area` 10 `m_read 1 RB`
  257.  option E= `End of area` 10 `m_read -1 RE`
  258.  option ñ= `Next` 10 `m_read 0 I`
  259.  option R= `Reply` 10 `m_enter R`
  260.  option K= `Kill` 10 `m_kill`
  261.  option A= `Abort` 10 `menu 10`
  262.  option != `System base` 0 `base -1`
  263.  attr 0 6
  264. }
  265. Browse msgs: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  266.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  267. |
  268. {
  269.  defmenu 12 report `Reading private mail` errmenu 10
  270.  option F= `Forward` 10 `m_read 1 A0 U`
  271.  option B= `Backward` 10 `m_read -1 A0 U`
  272.  option C= `Current` 10 `m_read 0 A0 U`
  273.  option S= `Start of area` 10 `m_read 1 A0 RB U`
  274.  option E= `End of area` 10 `m_read -1 A0 RE U`
  275.  option ñ= `Next` 10 `m_read 0 A0 I`
  276.  option R= `Reply` 10 `m_enter R A0 P`
  277.  option K= `Kill` 10 `m_kill`
  278.  option A= `Abort` 10 `menu 10`
  279.  option != `System Base` 0 `base -1`
  280.  attr 0 6
  281. }
  282. Private mail: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  283.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  284. |
  285. {
  286.  defmenu 13 report `Local scan for mail` errmenu 10
  287.  option F= `Forward` 10 `m_read 1 U`
  288.  option B= `Backward` 10 `m_read -1 U`
  289.  option C= `Current` 10 `m_read 0 U`
  290.  option S= `Start of area` 10 `m_read 1 U RB`
  291.  option E= `End of area` 10 `m_read -1 U RE`
  292.  option ñ= `Next` 10 `m_read 0 U I`
  293.  option R= `Reply` 10 `m_enter R`
  294.  option K= `Kill` 10 `m_kill`
  295.  option A= `Abort` 10 `menu 10`
  296.  option != `System Base` 0 `base -1`
  297.  attr 0 6
  298. }
  299. Local scan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  300.             {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  301. |
  302. {
  303.  defmenu 14 report `Message newscan` errmenu 10
  304.  option F= `Forward` 10 `m_read 1 N`
  305.  option B= `Backward` 10 `m_read -1 N`
  306.  option C= `Current` 10 `m_read 0 N`
  307.  option S= `Start of area` 10 `m_read 1 N RB`
  308.  option E= `End of area` 10 `m_read -1 N RE`
  309.  option ñ= `Next` 10 `m_read 0 N I`
  310.  option R= `Reply` 10 `m_enter R`
  311.  option K= `Kill` 10 `m_kill`
  312.  option A= `Abort` 10 `menu 10`
  313.  option != `System Base` 0 `base -1`
  314.  attr 0 6
  315. }
  316. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  317.          {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  318. |
  319. {
  320.  defmenu 15 report `Global scan for mail` errmenu 10
  321.  option F= `Forward` 10 `m_read 1 G U`
  322.  option B= `Backward` 10 `m_read -1 G U`
  323.  option C= `Current` 10 `m_read 0 G U`
  324.  option P= `Previous area` 10 `m_read 1 G RP U`
  325.  option N= `Next area` 10 `m_read 1 G RN U`
  326.  option ñ= `Next` 10 `m_read 0 G I U`
  327.  option R= `Reply` 10 `m_enter R`
  328.  option K= `Kill` 10 `m_kill`
  329.  option A= `Abort` 10 `menu 10`
  330.  option != `System base` 0 `base -1`
  331.  attr 0 6
  332. }
  333. Global scan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  334.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  335. |
  336. {
  337.  defmenu 16 report `Browse msgs` errmenu 10
  338.  option L= `Locally` 10 `a_reset B |menu 11 |m_read 1`
  339.  option G= `Globally` 10 `a_reset A0 B G |menu 17 |m_read 1 G`
  340.  option A= `Abort` 10 `menu 10`
  341.  option ñ 10 'nil'
  342.  option != `System base` 0 `base -1`
  343.  attr 0 6
  344. }
  345. Browse msgs: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  346. |
  347. {
  348.  defmenu 17 report `Global browse msgs` errmenu 10
  349.  option F= `Forward` 10 `m_read 1 G`
  350.  option B= `Backward` 10 `m_read -1 G`
  351.  option C= `Current` 10 `m_read 0 G`
  352.  option P= `Previous area` 10 `m_read 1 G RP`
  353.  option N= `Next area` 10 `m_read 1 G RN`
  354.  option ñ= `Next` 10 `m_read 0 G I`
  355.  option R= `Reply` 10 `m_enter R`
  356.  option K= `Kill` 10 `m_kill`
  357.  option A= `Abort` 10 `menu 10`
  358.  option != `System base` 0 `base -1`
  359.  attr 0 6
  360. }
  361. Browse Msgs: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  362.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  363. |
  364. {
  365.  defmenu 18 report `Scan for mail` errmenu 10
  366.  option L= `Locally` 10 `a_reset B |menu 13 |m_read 1 U`
  367.  option G= `Globally` 10 `a_reset A0 B G |menu 15 |m_read 1 G U`
  368.  option A= `Abort` 10 `menu 10`
  369.  option ñ 10 'nil'
  370.  option != `System base` 0 `base -1`
  371.  attr 0 6
  372. }
  373. Scan mail: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  374. |
  375. {
  376.  defmenu 19 report `Message newscan` errmenu 10
  377.  option L= `Locally` 10 `a_reset B |menu 14 |m_read 1 N`
  378.  option G= `Globally` 10 `a_reset A0 B G |menu 20 |m_read 1 G N`
  379.  option A= `Abort` 10 `menu 10`
  380.  option ñ 10 'nil'
  381.  option != `System base` 0 `base -1`
  382.  attr 0 6
  383. }
  384. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  385. |
  386. {
  387.  defmenu 20 report `Global newscan` errmenu 10
  388.  option F= `Forward` 10 `m_read 1 G N`
  389.  option B= `Backward` 10 `m_read -1 G N`
  390.  option C= `Current` 10 `m_read 0 G N`
  391.  option P= `Previous area` 10 `m_read 1 G RP N`
  392.  option N= `Next area` 10 `m_read 1 G RN N`
  393.  option ñ= `Next` 10 `m_read 0 G I N`
  394.  option R= `Reply` 10 `m_enter R`
  395.  option K= `Kill` 10 `m_kill`
  396.  option A= `Abort` 10 `menu 10`
  397.  option != `System base` 0 `base -1`
  398.  attr 0 6
  399. }
  400. Glob newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  401.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  402. |
  403. {
  404.  defmenu 21 report `Personal newscan` errmenu 10
  405.  option F= `Forward` 10 `m_read 1 G N U`
  406.  option B= `Backward` 10 `m_read -1 G N U`
  407.  option C= `Current` 10 `m_read 0 G N U`
  408.  option P= `Previous area` 10 `m_read 1 G RP N U`
  409.  option N= `Next area` 10 `m_read 1 G RN N U`
  410.  option ñ= `Next` 10 `m_read 0 G I N U`
  411.  option R= `Reply` 10 `m_enter R`
  412.  option K= `Kill` 10 `m_kill`
  413.  option A= `Abort` 10 `menu 10`
  414.  option != `System base` 0 `base -1`
  415.  attr 0 6
  416. }
  417. Pers newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  418.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  419. |
  420. |
  421. {
  422.  defmenu 50 report `Main file menu`
  423.  option M= `Main Menu` 10 `base -1`
  424.  option C= `Change area` 10 `a_change <RiscBBS$Dir>.BBS.FileAreas`
  425.  option U= `Upload file(s)` 10 `menu 51`
  426.  option D= `Download file(s)` 10 `menu 52`
  427.  option Q= `Queue maintenance` 10 `menu 65`
  428.  option V= `View archive` 10 `menu 64`
  429.  option B= `Browse files` 10 `menu 62`
  430.  option L= `Local locate` 10 `f_search |a_reset B |menu 67 |f_list 1 L F`
  431.  option G= `Global locate` 10 `f_search |a_reset A0 B G |menu 68 |f_list 1 G L F`
  432.  option Z= `Zip new files` 10 `menu 60`
  433.  option ñ 10 `nil`
  434.  option != `System Base` 0 `base -1`
  435.  attr 0 7 
  436. }
  437. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  438.  
  439.      [{fg 1}C{fg 7}]hange area                        [{fg 1}Z{fg 7}]ip through new files 
  440.  
  441.      [{fg 1}B{fg 7}]rowse through files               [{fg 1}Q{fg 7}]ueue maintenance
  442.  
  443.      [{fg 1}U{fg 7}]pload file(s)                     [{fg 1}L{fg 7}]ocal file locate
  444.      [{fg 1}D{fg 7}]ownload file(s)                   [{fg 1}G{fg 7}]lobal file locate
  445.  
  446.      [{fg 1}V{fg 7}]iew archive contents              [{fg 1}M{fg 7}]ain Menu
  447.  
  448.  {show <RiscBBS$Dir>.BBS.Select enddef}
  449. |
  450. {
  451.  defmenu 51 report `Uploading` errmenu 50
  452.  option Q= `Quit upload` 10 `menu 50`
  453.  option X= `Xmodem` 10 `f_receive X C`
  454.  option Y= `Ymodem` 10 `f_receive Y`
  455.  option ñ 10 `nil`
  456.  option != `System Base` 0 `base -1`
  457.  attr 0 7 
  458. }
  459. {attr 4 3}  -- Upload Transfer Protocols --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  460.  
  461.      [{fg 1}X{fg 7}]modem (smart)
  462.      [{fg 1}Y{fg 7}]modem (batch)
  463.  
  464.      [{fg 1}Q{fg 7}]uit upload
  465.  
  466.  {show <RiscBBS$Dir>.BBS.Select enddef}
  467. |
  468. {
  469.  defmenu 52 report `Downloading` errmenu 50
  470.  option Q= `Quit download` 10 `menu 50`
  471.  option X= `Xmodem` 10 `f_send X 1 #`
  472.  option Y= `Ymodem` 10 `f_send Y #`
  473.  option ñ 10 `nil`
  474.  option != `System Base` 0 `base -1`
  475.  attr 0 7 
  476. }
  477. {attr 4 3}  -- Download Transfer Protocols --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  478.  
  479.      [{fg 1}X{fg 7}]modem (smart)
  480.      [{fg 1}Y{fg 7}]modem (batch)
  481.  
  482.      [{fg 1}Q{fg 7}]uit download
  483.  
  484.  {show <RiscBBS$Dir>.BBS.Select enddef}
  485. |
  486. {
  487.  defmenu 53 report `Downloading`
  488.  option Q= `Quit` 10 `menu -1`
  489.  option X= `Xmodem` 10 `menu -1 |f_send X 1`
  490.  option Y= `Ymodem` 10 `menu -1 |f_send Y`
  491.  option ñ 10 `nil`
  492.  option != `System Base` 0 `base -1`
  493.  attr 0 6
  494. }
  495. Protocol: {fg 7}[{fg 1}X{fg 7}]modem  {fg 7}[{fg 1}Y{fg 7}]modem  {fg 7}[{fg 1}Q{fg 7}]uit :{fg 1} {enddef}
  496. |
  497. {
  498.  defmenu 54 report `Browsing files` errmenu 50
  499.  option F= `Forward` 10 `f_list 1 L`
  500.  option B= `Backward` 10 `f_list -1 L`
  501.  option C= `Current` 10 `f_list 0 L`
  502.  option D= `Download` 10 `retmenu 54 |menu 53`
  503.  option Q= `Queue` 10 `f_queue`
  504.  option K= `Kill file` 10 `f_kill`
  505.  option V= `View archive` 10 `retmenu 54 |menu 58`
  506.  option T= `Type file` 10 `f_type`
  507.  option S= `Start of area` 10 `f_list 1 RB L`
  508.  option E= `End of area` 10 `f_list -1 RE L`
  509.  option ñ= `Next` 10 `f_list 0 I L`
  510.  option A= `Abort` 10 `menu 50`
  511.  option != `System Base` 0 `base -1`
  512.  attr 0 6
  513. }
  514. Filelist: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  515.           {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  516. |
  517. {
  518.  defmenu 55 report `Files local newscan` errmenu 50
  519.  option F= `Forward` 10 `f_list 1 L N`
  520.  option B= `Backward` 10 `f_list -1 L N`
  521.  option C= `Current` 10 `f_list 0 L N`
  522.  option D= `Download` 10 `retmenu 55 |menu 53`
  523.  option Q= `Queue` 10 `f_queue`
  524.  option K= `Kill file` 10 `f_kill`
  525.  option V= `View archive` 10 `retmenu 55 |menu 58`
  526.  option T= `Type file` 10 `f_type`
  527.  option S= `Start of area` 10 `f_list 1 RB L N`
  528.  option E= `End of area` 10 `f_list -1 RE L N`
  529.  option ñ= `Next` 10 `f_list 0 I L N`
  530.  option A= `Abort` 10 `menu 50`
  531.  option != `System Base` 0 `base -1`
  532.  attr 0 6
  533. }
  534. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  535.          {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  536. |
  537. {
  538.  defmenu 56 report `Filelist` errmenu 50
  539.  option L= `Long filelist` 10 `a_reset B |menu 54 |f_list 1 L`
  540.  option S= `Short filelist` 10 `f_list -1 RE S`
  541.  option A= `Abort` 10 `menu 50`
  542.  option ñ 10 `nil`
  543.  option != `System Base` 0 `base -1`
  544.  attr 0 6
  545. }
  546. Filelist: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  547. |
  548. {
  549.  defmenu 57 report `Files newscan` errmenu 50
  550.  option L= `Long newscan` 10 `menu 55 |f_list 1 L N`
  551.  option S= `Short newscan` 10 `f_list -1 RE S N`
  552.  option A= `Abort` 10 `menu 50`
  553.  option ñ 10 `nil`
  554.  option != `System Base` 0 `base -1`
  555.  attr 0 6
  556. }
  557. Newscan: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  558. |
  559. {
  560.  defmenu 58 report `View archive`
  561.  option R= `Root only` 10 `f_view |menu -1`
  562.  option F= `Full recursion` 10 `f_view R |menu -1`
  563.  option A= `Abort` 10 `menu -1`
  564.  option ñ 10 `nil`
  565.  option != `System Base` 0 `base -1`
  566.  attr 0 6
  567. }
  568. View archive: {fg 7}[{fg 1}R{fg 7}]oot only  [{fg 1}F{fg 7}]ully recursive  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  569. |
  570. {
  571.  defmenu 60 report `Files newscan` errmenu 50
  572.  option L= `Locally` 10 `a_reset B |menu 57`
  573.  option G= `Globally` 10 `a_reset A0 B G |menu 61 |f_list 1 G N L`
  574.  option A= `Abort` 10 `menu 50`
  575.  option ñ 10 'nil'
  576.  option != `System base` 0 `base -1`
  577.  attr 0 6
  578. }
  579. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  580. |
  581. {
  582.  defmenu 61 report `Files global newscan` errmenu 50
  583.  option F= `Forward` 10 `f_list 1 G N L`
  584.  option B= `Backward` 10 `f_list -1 G N L`
  585.  option C= `Current` 10 `f_list 0 G N L`
  586.  option D= `Download` 10 `retmenu 61 |menu 53`
  587.  option Q= `Queue` 10 `f_queue`
  588.  option K= `Kill file` 10 `f_kill`
  589.  option V= `View archive` 10 `retmenu 61 |menu 58`
  590.  option T= `Type file` 10 `f_type`
  591.  option P= `Previous area` 10 `f_list 1 G RP N L`
  592.  option N= `Next area` 10 `f_list 1 G RN N L`
  593.  option ñ= `Next` 10 `f_list 0 G I N L`
  594.  option A= `Abort` 10 `menu 50`
  595.  option != `System Base` 0 `base -1`
  596.  attr 0 6
  597. }
  598. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  599.          {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  600. |
  601. {
  602.  defmenu 62 report `Files list` errmenu 50
  603.  option L= `Locally` 10 `a_reset B |menu 56`
  604.  option G= `Globally` 10 `a_reset A0 B G |menu 63 |f_list 1 G L`
  605.  option A= `Abort` 10 `menu 50`
  606.  option ñ 10 'nil'
  607.  option != `System base` 0 `base -1`
  608.  attr 0 6
  609. }
  610. Filelist: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  611. |
  612. {
  613.  defmenu 63 report `Files global list` errmenu 50
  614.  option F= `Forward` 10 `f_list 1 G L`
  615.  option B= `Backward` 10 `f_list -1 G L`
  616.  option C= `Current` 10 `f_list 0 G L`
  617.  option D= `Download` 10 `retmenu 63 |menu 53`
  618.  option Q= `Queue` 10 `f_queue`
  619.  option K= `Kill file` 10 `f_kill`
  620.  option V= `View archive` 10 `retmenu 63 |menu 58`
  621.  option T= `Type file` 10 `f_type`
  622.  option P= `Previous area` 10 `f_list 1 G RP L`
  623.  option N= `Next area` 10 `f_list 1 G RN L`
  624.  option ñ= `Next` 10 `f_list 0 G I L`
  625.  option A= `Abort` 10 `menu 50`
  626.  option != `System Base` 0 `base -1`
  627.  attr 0 6
  628. }
  629. Filelist: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  630.           {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  631. |
  632. {
  633.  defmenu 64 report `View archive`
  634.  option R= `Root only` 10 `f_view #|menu 50`
  635.  option F= `Full recursion` 10 `f_view R # |menu 50`
  636.  option A= `Abort` 10 `menu 50`
  637.  option ñ 10 `nil`
  638.  option != `System Base` 0 `base -1`
  639.  attr 0 6
  640. }
  641. View archive: {fg 7}[{fg 1}R{fg 7}]oot only  [{fg 1}F{fg 7}]ully recursive  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  642. |
  643. {
  644.  defmenu 65 report `Queue maintenance`
  645.  option D= `Download queue` 10 `retmenu 65 |menu 66`
  646.  option L= `List queue` 10 `f_listq`
  647.  option R= `Remove file` 10 `f_delq #`
  648.  option C= `Clear queue` 10 `f_clrq`
  649.  option Q= `Quit` 10 `menu 50`
  650.  option ñ 10 `nil`
  651.  option != `System Base` 0 `base -1`
  652.  attr 0 7 
  653. }
  654. {attr 4 3}  -- Queue Maintenance --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  655.  
  656.      [{fg 1}D{fg 7}]ownload queue                     [{fg 1}L{fg 7}]ist queue
  657.  
  658.      [{fg 1}R{fg 7}]emove file from queue             [{fg 1}C{fg 7}]lear queue
  659.  
  660.      [{fg 1}Q{fg 7}]uit maintenance
  661.  
  662.  {show <RiscBBS$Dir>.BBS.Select enddef}
  663. |
  664. {
  665.  defmenu 66 report `Downloading queue`
  666.  option Q= `Quit` 10 `menu -1`
  667.  option Y= `Ymodem` 10 `f_send Y Q |menu -1`
  668.  option ñ 10 `nil`
  669.  option != `System Base` 0 `base -1`
  670.  attr 0 6
  671. }
  672. Protocol: {fg 7}[{fg 1}Y{fg 7}]modem  {fg 7}[{fg 1}Q{fg 7}]uit :{fg 1} {enddef}
  673. |
  674. {
  675.  defmenu 67 report `Local file locate` errmenu 50
  676.  option F= `Forward` 10 `f_list 1 L F`
  677.  option B= `Backward` 10 `f_list -1 L F`
  678.  option C= `Current` 10 `f_list 0 L F`
  679.  option D= `Download` 10 `retmenu 67 |menu 53`
  680.  option Q= `Queue` 10 `f_queue`
  681.  option K= `Kill file` 10 `f_kill`
  682.  option V= `View archive` 10 `retmenu 67 |menu 58`
  683.  option T= `Type file` 10 `f_type`
  684.  option S= `Start of area` 10 `f_list 1 RB L F`
  685.  option E= `End of area` 10 `f_list -1 RE L F`
  686.  option ñ= `Next` 10 `f_list 0 I L F`
  687.  option A= `Abort` 10 `menu 50`
  688.  option != `System Base` 0 `base -1`
  689.  attr 0 6
  690. }
  691. Loc Locate: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  692.             {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  693. |
  694. {
  695.  defmenu 68 report `Global file locate` errmenu 50
  696.  option F= `Forward` 10 `f_list 1 G L F`
  697.  option B= `Backward` 10 `f_list -1 G L F`
  698.  option C= `Current` 10 `f_list 0 G L F`
  699.  option D= `Download` 10 `retmenu 68 |menu 53`
  700.  option Q= `Queue` 10 `f_queue`
  701.  option K= `Kill file` 10 `f_kill`
  702.  option V= `View archive` 10 `retmenu 68 |menu 58`
  703.  option T= `Type file` 10 `f_type`
  704.  option P= `Previous area` 10 `f_list 1 G RP L F`
  705.  option N= `Next area` 10 `f_list 1 G RN L F`
  706.  option ñ= `Next` 10 `f_list 0 G I L F`
  707.  option A= `Abort` 10 `menu 50`
  708.  option != `System Base` 0 `base -1`
  709.  attr 0 6
  710. }
  711. Glob Locate: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  712.              {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  713. |
  714. {
  715.  defmenu 80 report `Login mailscan` errmenu 0
  716.  option Y= `Yes` 0 `base 1 |a_reset A0 B G |menu 81 |m_read 1 G N U`
  717.  option N= `No` 0 `base -1`
  718.  option ñ= `Yes` 0 `base 1 |a_reset A0 B G |menu 81 |m_read 1 G N U`
  719.  bg 0
  720. }
  721. {attr 4 3}  -- Arcland Mail-Check --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll attr 0 3}
  722.  
  723.  
  724. Do you wish me to scan for new mail to you? [Y/n] : {fg 7 enddef}
  725. |
  726. {
  727.  defmenu 81 errmenu 0
  728.  option F= `Forward` 10 `m_read 1 G N U`
  729.  option B= `Backward` 10 `m_read -1 G N U`
  730.  option C= `Current` 10 `m_read 0 G N U`
  731.  option P= `Previous area` 10 `m_read 1 G RP N U`
  732.  option N= `Next area` 10 `m_read 1 G RN N U`
  733.  option ñ= `Next` 10 `m_read 0 G I N U`
  734.  option R= `Reply` 10 `m_enter R`
  735.  option K= `Kill` 10 `m_kill`
  736.  option A= `Abort` 10 `base -1`
  737.  option != `System base` 0 `base -1`
  738.  attr 0 6
  739. }
  740. Pers newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  741.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  742. |
  743.