home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / mbbs25a4.zip / MACRODOR.MAC < prev    next >
Text File  |  1993-05-30  |  16KB  |  435 lines
  1.  
  2.                              MACRODOR.MAC 2.5 ALPHA
  3.                       by Jeff Oberlee   (C)opyright 1992,93
  4.  
  5. {:alr} {MACL MACROBBS.MAC,WF3} {:alu} {MACL MACROBBS.MAC,bbs}
  6.  
  7. {:esc_menu}
  8.   {IFCA ,ESM} {SEND ^J^M%an7%%an9%Time comes to a grinding halt!  %an0}
  9. {:ESM} {SETE-P0 ESM2} {SETV ch}
  10.   {PARM ,,,,0}
  11.   {INPU ch, PRESS:  [ENTER] to CHAT, [U]seredit, [D]OS, [H]angup}
  12.   {COMP ch,h} {IFCO ESM4}
  13.   {COMP ch,d} {IFCO ESM5}
  14.   {COMP on,} {IFCO ESM}
  15.   {COMP ch,u} {IFCO ESM8}
  16.   {COMP ch,} {IFCO ,ESM}
  17. {:ESM1} {COMP cf,} {IFCO CT8,ESM}
  18. {:ESM2} {SETE-P0 esc_menu}
  19.   {IFCA ESM6} {SEND %an3%Then suddenly...} {PAUS 1}
  20. {:ESM6} {RETURN}
  21. {:ESM5} {SHEL} {GOTO ESM}
  22. {:ESM8} {COMP login_name,} {IFCO ESM}
  23.   {SETV lname,%login_name} {INPU lname,EDIT: Handle  (3-30 characters)}
  24.   {COMP lname,1} {IFCO-GE ESM8}
  25.   {LENG %lname} {COMP _len,3} {IFCO-L ESM8}
  26.   {LENG %lname} {COMP _len,30} {IFCO-G ESM8}
  27. {:ESM10} {SETV ch,%al} {INPU ch,EDIT: Access Level  (0-999)}
  28.   {COMP ch,999} {IFCO-G ESM10}
  29. {:ESM9} {SETV temp,%pcpd} {INPU temp,EDIT: Time limit per Day/Call (D/C)}
  30.   {COMP temp,c} {IFCO ESM11}
  31.   {COMP temp,d} {IFCO ,ESM9}
  32. {:ESM11}
  33.   {SETV al,%ch}
  34.   {SETV pcpd,%temp}
  35.   {SETV row,%_row} {SETV col,%_col} {DISP 2,2,0F,%an9 * Saving * }
  36.   {COMP lname,%login_name} {IFCO ESM7}
  37.   {SETV login_name,%lname}
  38.   {SETE time_out}
  39.   {CALL update_clist}
  40. {:ESM7} {CALL write_user}
  41.   {DISP 2,2,07,            }
  42.   {DISP %row,%col,,}
  43.   {SETV row} {SETV col} {SETV lname}
  44.   {GOTO ESM}
  45. {:ESM4} {SETV s,2} {GOTO time_out}
  46.  
  47. {:chat}
  48.   {SETV temp,0} {SETV ccount,0}
  49.   {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Chat request} {WCLO}
  50.   {SEND ^J^M^J%an4%Paging %sysop ...^J^M}
  51.   {SPOC n} {SEND %an3%Press %an0[ESC]%an3 then %an0[ENTER]%an3 to chat with%an7 %login_name %an3...^J^M} {SPOC y}
  52. {:CT7} {INCR ccount} {SETV-S ch,an%ccount}
  53.   {SEND %ch█}
  54.   {SEND ^G} {SEND ^G} {SEND ^G} {PAUS 2}
  55.   {COMP ccount,5} {IFCO-G ,CT7}
  56. {:CT6} {SETV chat,CHAT}
  57.   {SEND ^M%an0%Sorry, %sysop isn't around right now.^J^M}
  58.   {SEND %an0%However, the chat flag has been set.^J^M^J}
  59.   {GOTO CT9}
  60. {:CT8} {SETV tl,%_ela}
  61.   {SETG 300,time_out}
  62.   {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Started chat} {WCLO}
  63.   {COMP cb,y} {IFCO ,CT14}
  64.   {CAPT y,%datadir%CHAT.LOG}
  65. {:CT14} {SEND ^J^M^J%an3%You've just entered . . . %an7%The Twilight Zone.  %an3%Reality vanishes.^J^M}
  66.   {SEND %an2(Type "%an0%bye!%an2" on a blank line to exit when desired.)^J^M}
  67.   {SETV cf,1} {SETV co1,%an0} {SETV co2,%an3}
  68.   {SETE-P0 esc_menu}
  69.   {PUSH}
  70. {:CT2} {COMP cf,1} {IFCO CT3}
  71.   {SEND %co2} {SETV cf,1} {GOTO CT4}
  72. {:CT3} {SEND %co1} {SETV cf,2}
  73. {:CT4} {SETV cline}
  74. {:CT5} {SEND ^J}
  75. {:CT13} {SEND ^M%cline}
  76.   {GETS-AH cline,78,CT2}
  77.  
  78.   {COMP cline,/c} ......... {IFCO switch_c}
  79.   {COMP cline,bye!} ....... {IFCO CT1}
  80.   {COMP cline,bye!!} ...... {IFCO time_out}
  81.   {COMP cline,/scroll} .... {IFCO view_scroll}
  82.   {COMP cline,NO CARRIER} . {IFCO time_out}
  83.  
  84.   {LENG %cline}
  85.   {COMP %_len,78} {IFCO-L CT4}
  86.   {SETV ccount,79}
  87. {:CT11} {DECR ccount}
  88.   {COMP ccount,60} {IFCO-LE CT4}
  89.   {SUBS ch,%ccount,1,%cline}
  90.   {COMP ch, } {IFCO ,CT11}
  91.   {COMP ccount,78} {IFCO CT4}
  92.   {INCR ccount}
  93.   {SUBS cline,%ccount,100,%cline}
  94. {:CT12} {COMP ccount,%_len} {IFCO-G CT5}
  95.   {SEND ^H ^H}
  96.   {INCR ccount}
  97.   {GOTO CT12}
  98. {:CT1} {CAPT n}
  99.   {SETV ch,%_ela} {DECR ch,%tl} {INCR tlc,%ch} {SETV tl}
  100.   {SEND ^J^M^J%an3%You've just left . . . %an7%The Twilight Zone.  %an3%Reality restored.^J^M^J}
  101.   {WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Ended chat} {WCLO}
  102.   {SETV cf} {SETV co1} {SETV co2} {SETV chat} {SETV cline}
  103.   {POPS}
  104. {:CT9} {SETV ccount}
  105.   {SETE-P0 esc_menu}
  106.   {CALL press_any_key}
  107.   {RETURN}
  108.  
  109. {:switch_c}
  110. {:SW1} {SEND ^M%an0(0 %an1%1 %an2%2 %an3%3 %an4%4 %an5%5 %an6%6 %an7%7%an0)  ^H}
  111.   {GETS-H ch,1,SW1}
  112.   {COMP ch,0} {IFCO-L SW1}
  113.   {COMP ch,7} {IFCO-G SW1}
  114.   {SEND ^M                    ^M}
  115.   {COMP cf,1} {IFCO ,SW3}
  116.   {SETV-S co2,an%ch} {SEND %co2} {GOTO SW4}
  117. {:SW3} {SETV-S co1,an%ch} {SEND %co1}
  118. {:SW4} {SETV cline}
  119.   {GOTO CT13}
  120.  
  121. {:view_scroll}
  122.   {SCROLL}
  123.   {GOTO CT4}
  124.  
  125. {:update_clist}
  126.   {ROPE %datadir%CALLERS.LST,UC1}
  127.   {WOPE %datadir%TEMP.000}
  128. {:UC2} {READ ch} {READ cline} {READ dline}
  129.   {COMP ch,%userno} {IFCO UC3}
  130.   {WRIT %ch} {WRIT %cline} {WRIT %dline} {GOTO UC2}
  131. {:UC3} {COMP s,1} {IFCO UC5}
  132. {:UC4} {WRIT %ch}
  133.   {WRIT %login_name}
  134.   {WRIT %password}
  135. {:UC5} {READ dline} {WRIT %dline} {GOTO UC5}
  136. {:UC1} {WCLO}
  137.   {EXEC-N COPY %datadir%TEMP.000 %datadir%CALLERS.LST}
  138.   {EXEC-N DEL %datadir%TEMP.000}
  139.   {RETURN}
  140.  
  141. {:write_user}
  142.   {WOPE %userdir%%userno.USR}
  143.   {WRIT %login_name}
  144.   {WRIT %password}
  145.   {WRIT %al}
  146.   {WRIT %protocol}
  147.   {WRIT %expert}
  148.   {WRIT %a}
  149.   {WRIT %fa}
  150.   {WRIT %_dwt %_dat}
  151.   {WRIT %rname}
  152.   {WRIT %from}
  153.   {WRIT %pcpd}
  154.   {WRIT %clr2}
  155.   {WRIT %arcer}
  156.   {WRIT %arc}
  157.   {WCLO}
  158.   {RETURN}
  159.  
  160. {:time_out}
  161.   {MACL MACROBBS.MAC,time_out}
  162.  
  163. {:cls}
  164.   {CLEA}
  165.   {COMP on,} {IFCO CLS3}
  166.   {COMP mnu,A} {IFCO CLS1}
  167.   {SEND ^[[2J}
  168.   {GOTO CLS2}
  169. {:CLS1} {SEND ^L}
  170. {:CLS2} {DISP 1,1,4F,│                                                                              }
  171.   {DISP 1,3,4E,%login_name #%userno}
  172.   {DISP 1,40,47,AL=%al}
  173.   {DISP 1,49,47,%mspeed}
  174.   {DISP 1,57,47,%_ela mins}
  175.   {DISP 1,70,4F,%an9%%chat}
  176.   {DISP 2,1,4F,│                                                                              }
  177.   {DISP 2,3,47,%rname  -  %from}
  178.   {DISP 3,1,4F,└──────────────────────────────────────────────────────────────────────────────}
  179.   {DISP 4,1,07,}
  180. {:CLS3} {RETURN}
  181.  
  182. {:press_any_key}
  183.   {COMP mnu,a} {IFCO PAK1}
  184.   {SEND %an3%%an9^[[24;1h^[[24;1f[Press Any Key]%an0}
  185.   {GOTO PAK2}
  186. {:PAK1} {SEND ^J^M^J[Press Any Key]}
  187. {:PAK2} {SETG 300,time_out}
  188.   {GETS-H temp,1,PAK}
  189. {:PAK} {SEND ^M               ^M}
  190.   {SETV temp}
  191.   {RETURN}
  192.  
  193. {:cd}
  194.   {IFCA cd1}
  195.   {COMP on,1} {IFCO time_out}
  196. {:cd1} {COMP on,1} {IFCO ,cd2}
  197.   {COMP _ela,%tlc} {IFCO-GE time_out}
  198. {:cd2} {RETURN}
  199.  
  200. /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  201. /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  202. /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  203. /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  204. /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  205.  
  206. {:start}
  207.   {PUSH}
  208.   {CALL cd}
  209. {:P2} {COMP expert,ON} {IFCO P4}
  210. {:P5} {CALL CLS}
  211.   {SEND ^J^M%an5}
  212.   {SEND ^J^M             ┌───────────────────────────────────────────────────┐}
  213.   {SEND ^J^M             │ %an0▒▒▒▒▒▒▒▒▒▒▒▒▒%an7 External Program Menu %an0▒▒▒▒▒▒▒▒▒▒▒▒▒%an5 │}
  214.   {SEND ^J^M             └───────────────────────────────────────────────────┘^J^M}
  215.   {IFEX MBBSDOOR.LST,,P7}
  216.   {ROPE MBBSDOOR.LST,P7}
  217. {:P8} {READ ch} {LENG %ch} {COMP _len,1} {IFCO ,P8}
  218.   {IFEX MBDOOR-%ch.MAC,,P8}
  219.   {READ dline}
  220.   {SEND ^J^M                            %an5[%an7%%ch%%an5]%an0 %dline}
  221.   {GOTO P8}
  222. {:P7}
  223.   {SEND ^J^M                            %an5[%an7%Q%an5] %an0%MAIN MENU}
  224.  
  225. {:P4} {SEND ^J^M^J%an5%External Programs  %an0%%_tim^J^M}
  226.   {SETV tl,%tlc} {DECR tl,%_ela}
  227.   {SEND %an0%Mins Left: %tl^J^M}
  228. {:P1} {SEND ^M} {COMP expert,ON} {IFCO ,P12}
  229.   {SEND %an5(%an7?%an5%=menu) }
  230. {:P12} {SEND %an7%EP Command:%an0  ^H}
  231.   {CALL cd}
  232.   {SETG 300,time_out}
  233. {:P3} {GETS-H choice,1,P3}
  234.   {COMP choice,*} {IFCO time_out}
  235.   {COMP choice,?} {IFCO P5}
  236.   {COMP choice,q} {IFCO P11}
  237.   {IFEX MBDOOR-%choice.MAC,P6}
  238.   {GOTO P1}
  239.  
  240. {:P6}
  241.   {ROPE MBDOOR-%choice.MAC}
  242.   {READ sym}
  243.   {READ dr}
  244.   {READ pname}
  245.   {READ path}
  246.   {READ cmd}
  247.   {RCLO}
  248.  
  249.          ******************************************************
  250.          ******************************************************
  251.  
  252.   {COMP dr,1} {IFCO doorsys}
  253.   {COMP dr,2} {IFCO doorinfo}
  254.   {COMP dr,3} {IFCO chain,callinfo}
  255.  
  256. {:P14}
  257.   {MACL MBDOOR-%choice.MAC,start}
  258. {:P11}
  259.   {MACL MACROBBS.MAC,main_menu}
  260.  
  261. {:doorsys}
  262.   {WOPE DOOR.SYS}
  263.   {WRIT COM%_por:}
  264.   {WRIT %mspeed}        2 <-- Caller Baud Rate            (300 - 38400)
  265.   {WRIT 8}              3 <-- Parity                      (7 or 8 bits)
  266.   {WRIT 1}              4 <-- Node Number                 (1 - 99)
  267.   {WRIT N}              5 <-- Modem Locked Baud Rate      (9600/19,200/38,400)
  268.   {WRIT Y}               Screen display
  269.   {WRIT Y}               Printer toggle
  270.   {WRIT Y}               Page bell
  271.   {WRIT Y}               Caller alarm
  272.   {WRIT %rname}         6 <-- User Full Name
  273.   {WRIT %from}          7 <-- Calling From
  274.   {WRIT 517-323-3405        8 <-- Home Phone
  275.   {WRIT 517-323-3405}   9 <-- Work/Data Phone
  276.   {WRIT %password}      10 <-- Password
  277. {COMP al,999} {IFCO ,DS1} {writ 100} {GOTO CI8} 100 for SysOps
  278. {:DS1} {COMP al,0} {IFCO DS2} {writ 30} {GOTO DS3} 30  for normal users
  279. {:DS2} {writ 5}                                5   for TWITs
  280. {:DS3}
  281.   {WRIT 99}             12 <-- Total Times On
  282.   {WRIT %_mon/%__day/%_yea} 13 <-- Last Date Called            (mm/dd/yy)
  283. {SETV ch,%tl)  {MULT ch,60)
  284.    {WRIT %ch}              <-- Seconds remaining
  285.    {WRIT %tl}           14 <-- Minutes Remaining THIS Call
  286.    {COMP mnu,n} {IFCO DS4} {WRIT NG} {GOTO DS5} Ansi?  yes=GR, no=NG
  287. {:DS4} {WRIT GR}        15 <-- Graphics?  GR / NG
  288. {:DS5}
  289.   {WRIT 24}             16 <-- Page Length
  290.   {WRIT N}              17 <-- Expert/Novice               (Y=Expert / N=Novice)
  291.   {WRIT 1,2,3,4,5,6,7}  18 <-- Confs/Forums Registered In  (A,B,C,D,E,F,G) (X,X,X,X,X,X,X,X)
  292.   {WRIT %a}             19 <-- Last Conf/Forum in          (G)
  293.   {WRIT 12/12/99}       20 <-- User Expiration Date        (mm/dd/yy)
  294.   {WRIT %userno}        21 <-- User File's Record Number   (1=Sysop)
  295.   {WRIT %protocol}      22 <-- Default Protocol            (X, C, Y, G, I, N, Etc)
  296.   {WRIT 0}              23 <-- Total Uploads
  297.   {WRIT 0}              24 <-- Total Downloads
  298.   {WRIT 0}              25 <-- Daily Download "K" Total
  299.   {WRIT 0}              26 <-- Daily Download "K" Limit
  300.    WRIT                   * 27 <-- User Birthdate              (mm/dd/yy)
  301.   {WCLO}
  302. {GOTO P14}
  303.  
  304. {:doorinfo}
  305.   {WOPE DORINFO1.DEF}
  306.   {WRIT %bbs}                BBS name
  307.   {WRIT %sysop}              Sysop first name
  308.   {WRIT .}                   Sysop last name
  309. {COMP mspeed,LOCAL} {IFCO ,DI3}
  310.        {WRIT COM0} {GOTO DI4} Local=COM0, remote=COMn
  311. {:DI3} {WRIT COM%_por}
  312. {:DI4} {COMP mspeed,LOCAL} {IFCO ,DI5}
  313.        {WRIT 0 BAUD N,8,1} {GOTO DI6}
  314. {:DI5} {WRIT %mspeed BAUD N,8,1} modrm stuff
  315. {:DI6} {WRIT 0}              0 = NOT a network system
  316.   {WRIT %login_name}         Caller's first name
  317.   {WRIT .}                   Caller's last name
  318.   {WRIT %from}               Callere is from...
  319.   {COMP mnu,n} {IFCO DI1} {WRIT 0} {GOTO DI2} 0=MONO, 1=ANSI
  320. {:DI1} {WRIT 1}
  321. {:DI2}
  322.   {WRIT %al}                 Caller's Access Level
  323.   {WRIT %tl}                 Caller's time remaining
  324.   {WRIT -1}                  -1=using a FOSIL
  325.   {WCLO}
  326. {GOTO P14}
  327.  
  328. {:chain}
  329.    {WOPE CHAIN.TXT}
  330.    {WRIT %userno}                          user#
  331.    {WRIT %login_name}                      alias
  332.    {WRIT %rname}                           real name
  333.    {WRIT  }
  334.    {WRIT 100}                              user age
  335.    {WRIT M}                                user sex
  336.    {WRIT 0}                                user gold
  337.    {WRIT %_mon/%_day/%_yea}               date last on
  338.    {WRIT 80}                               user cols
  339.    {WRIT 25}                               user rows
  340.    {WRIT %al}                              access level (WWIV uses 1-255)
  341.    {WRIT 0}                                user not cosysop (yes=1, no=0)
  342.    {COMP al,999} {IFCO ,CH1}              Sysop?   yes=1, no=0
  343.        {WRIT 1} {GOTO CH2}
  344. {:CH1} {WRIT 0}
  345. {:CH2}
  346.    {COMP mnu,n} {IFCO CH3} {WRIT 0} {GOTO CH4} Ansi?  yes=1, no=0
  347. {:CH3} {WRIT 1}
  348. {:CH4}
  349.    {COMP mspeed,LOCAL} {IFCO ,CH5} {WRIT 0} {GOTO CH6} remote? yes=1, no=0
  350. {:CH5} {WRIT 1}
  351. {:CH6}
  352. {SETV ch,%tl} {MULT ch,6})
  353.    {WRIT %ch}                              Seconds remaining
  354.    {writ %datadir}                         gfiles/tex t directory
  355.    {WRIT %datadir}                         Data directory
  356.    {WRIT %datadir%LOG-1.LOG}               daily system log
  357.    {WRIT %mspeed}                          user bps rate
  358.    {WRIT %_por}                            system com port
  359.    {WRIT %bbs}                             system name
  360.    {WRIT %sysop}                           sysop name
  361. {SETV ch,%_24h} {MULT ch,3600}
  362. {SETV temp,%_min} {MULT temp,60} {INCR ch,%temp}
  363. {SETV temp,%_ela} {MULT temp,60} {DECR ch,%temp}
  364.    {WRIT %ch}                               user logged on at this
  365. {SETV ch,%_ela} {MULT ch,60}                nr of seconds after midnite
  366.    {WRIT %ch}                               user nr of seconds on today.
  367.    {WRIT 0}                                 user nr of uploaded k
  368.    {WRIT 0}                                 user nr of uplpaded files
  369.    {WRIT 0}                                 user nr of downloaded k
  370.    {WRIT 0}                                 user nr of downloaded files
  371.    {WRIT %_fmt}                             user parity
  372.    {WRIT %mspeed}                           com port bps rate
  373.    {WRIT 0}                                 WWIVnet node number
  374.    {WCLO}
  375. {GOTO P14}
  376.  
  377. {:callinfo}
  378.    {WOPE CALLINFO.BBS}
  379.    {writ %login_name}                       Write user's name]
  380. {COMP %mspeed,LOCAL} {IFCO ,CI1} {writ 5} {GOTO CI5}   For local, write "5"
  381. {:CI1} {COMP %mspeed,9600} {IFCO ,CI2} {writ 3} {GOTO CI5} For 9600, write "3"
  382. {:CI2} {COMP %mspeed,2400} {IFCO ,CI3} {writ 0} {GOTO CI5} For 2400, write "0"
  383. {:CI3} {COMP %mspeed,1200} {IFCO ,CI4} {writ 2} {GOTO CI5} For 1200, write "2"
  384. {:CI4} {writ 1}                                           For 300, write "1"
  385. {:CI5}
  386.   {writ %from}                                 User's city
  387. {COMP al,999} {IFCO ,CI6} {writ 100} {GOTO CI8} 100 for SysOps
  388. {:CI6} {COMP al,0} {IFCO CI7} {writ 30} {GOTO CI8} 30  for normal users
  389. {:CI7} {writ 5}                                5   for TWITs]
  390. {:CI8}
  391. {writ %tl}                                      Time left, in minutes
  392.    {COMP mnu,n} {IFCO CI9} {WRIT MONO} {GOTO CH10} COLOR / MONO
  393. {:CI9} {WRIT COLOR}
  394.    {writ %password}               The user's password]
  395.    {writ %userno                      User number
  396.    {writ %j
  397.    {writ %_24h:%_min}
  398.    {writ 01:23 01/02/90}
  399.    {writ ABCDEFGH}
  400.    {writ 0}
  401.    {writ 99}
  402.    {writ 0}
  403.    {writ 9999}
  404.    {writ 323-3405                      User's phone number]
  405.    {writ 01/01/90 02:34}
  406.    {COMP expert,ON} {IFCO ,CI11} {writ EXPERT} {GOTO CI12} User's help level]
  407. {:CI11} {writ NOVICE}
  408. {:CI12}
  409.    {writ Zmodem}                    User's protocol choice]
  410.    {writ 01/01/90}
  411.    {writ 99}                        Number of times on
  412.    {writ 24}                        Screen length]
  413.    {writ 1}                         Last message read]
  414.    {writ 0}                         Total uploads]
  415.    {writ 0}                         Total downloads]
  416.    {writ 8}                         Databits
  417. {COMP mspeed,LOCAL} {IFCO ,CI13} {writ LOCAL} {GOTO CI14}
  418. {:CI13} {writ REMOTE}
  419. {:CI14}
  420.    {writ COM%_por}
  421. {COMP %mspeed,LOCAL} {IFCO ,CI15} {writ 5} {GOTO CI19}    For local, write "5"
  422. {:CI15} {COMP %mspeed,9600} {IFCO ,CI16} {writ 3} {GOTO CI19} For 9600, write "3"
  423. {:CI16} {COMP %mspeed,2400} {IFCO ,CI17} {writ 0} {GOTO CI19} For 2400, write "0"
  424. {:CI17} {COMP %mspeed,1200} {IFCO ,CI18} {writ 2} {GOTO CI19} For 1200, write "2"
  425. {:CI18} {writ 1}                                           For 300, write "1"
  426. {:CI19}
  427.    {writ FALSE}
  428.    {writ Normal Connection}
  429.    [write]01/02/94 01:20
  430.    {writ 1}                           Task number]
  431.    {writ 1}                           Node Number]
  432.    {WCLO}
  433. {GOTO P14}
  434.  
  435.