home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / COMM / MISC / CMC501.ZIP / CMC.MAC < prev    next >
Encoding:
Text File  |  1991-10-06  |  40.1 KB  |  1,232 lines
  1. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  2. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  3. ░░░░░░░░░    ▒▒▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄      ░░░░░░░░░░
  4. ░░░░░░░░░    ▒▒█▒▒█▒▒█ ▒▒█▀▒▒█ ▒▒█▀▀▀▀  ▀▀▒▒█▀▀▀ ▒▒█▀▀▀▀ ▒▒█▀▒▒█      ░░░░░░░░░░
  5. ░░░░░░░░░    ▒▒█▒▒█▒▒█ ▒▒▒▒▒▒█ ▒▒▒▒▒▒▄    ▒▒█    ▒▒▒▒▄   ▒▒▒▒▒▒█      ░░░░░░░░░░
  6. ░░░░░░░░░    ▒▒█ ▀▀▒▒█ ▒▒█▀▒▒█  ▀▀▀▒▒█    ▒▒█    ▒▒█▀▀   ▒▒█▒▒█▀      ░░░░░░░░░░
  7. ░░░░░░░░░    ▒▒█   ▒▒█ ▒▒█ ▒▒█ ▒▒▒▒▒▒█    ▒▒█    ▒▒▒▒▒▒▄ ▒▒█ ▒▒█      ░░░░░░░░░░
  8. ░░░░░░░░░     ▀▀    ▀▀  ▀▀  ▀▀  ▀▀▀▀▀▀     ▀▀     ▀▀▀▀▀▀  ▀▀  ▀▀      ░░░░░░░░░░
  9. ░░░░░░░░░ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▒▒▒▄▒▒▄ ▒▒▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▄     ░░░░░░░░░░
  10. ░░░░░░░░░ ▒▒█▀▀▀▀ ▒▒█▀▒▒█ ▒▒█▒▒█▒▒█  ▀▀▒▒█▀▀▀ ▒▒█▀▒▒█ ▒▒█▀▒▒█ ▒▒█     ░░░░░░░░░░
  11. ░░░░░░░░░ ▒▒█     ▒▒█ ▒▒█ ▒▒█▒▒█▒▒█    ▒▒█    ▒▒▒▒▒▒█ ▒▒█ ▒▒█ ▒▒█     ░░░░░░░░░░
  12. ░░░░░░░░░ ▒▒█     ▒▒█ ▒▒█ ▒▒█▒▒█▒▒█    ▒▒█    ▒▒█▒▒█▀ ▒▒█ ▒▒█ ▒▒█     ░░░░░░░░░░
  13. ░░░░░░░░░ ▒▒▒▒▒▒▄ ▒▒▒▒▒▒█ ▒▒█▒▒▒▒▒█    ▒▒█    ▒▒█ ▒▒█ ▒▒▒▒▒▒█ ▒▒▒▒▒▒▄ ░░░░░░░░░░
  14. ░░░░░░░░░  ▀▀▀▀▀▀  ▀▀▀▀▀▀  ▀▀ ▀▀▀▀▀     ▀▀     ▀▀  ▀▀  ▀▀▀▀▀▀  ▀▀▀▀▀▀ ░░░░░░░░░░
  15. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  16. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  17. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  18. ░░░░░░░░░░░░░░░░░░░░  Welcome to MASTER CONTROL (tm) 5.01  ░░░░░░░░░░░░░░░░░░░░░
  19. ░░░░░░░░░░░  (c)Copyright 1991,  Don Garrett  All Rights Reserved  ░░░░░░░░░░░░░
  20. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  21. ░░░░░░░░Press F2 from the terminal screen for the MASTER CONTROL menu░░░░░░░░░░░
  22. ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  23.  █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █
  24.  
  25.  
  26.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ 
  27.  █ SECTION 1: Menu Routines    █ 
  28.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█ 
  29.  
  30.  
  31.  {:menu}
  32.      {sete-p0 clear}
  33.      {setg ,,n,}
  34.      {call sm13}
  35.      {disp 2,4,4f,S}
  36.      {disp 2,23,4f,U}
  37.      {disp 2,33,4f,D}
  38.      {disp 2,45,4f,L}
  39.      {disp 2,53,4f,H}
  40.  
  41.      {comp uks,} {ifco um1,}
  42.      {call keymgr} {goto um2}
  43.     {:um1}
  44.      {gets-H input,1,menu}
  45.     {:um2}
  46.      {sete}
  47.      {comp input,S} {ifco menuS,}
  48.      {comp input,U} {ifco menuU,}
  49.      {comp input,D} {ifco menuD,}
  50.      {comp input,L} {ifco menuL,}
  51.      {comp input,H} {ifco menuH,}
  52.      {comp input,X} {ifco clear,}
  53. {goto menu}
  54.  
  55.  
  56.  {:menuS}
  57.      {call sm7}
  58.      {sete-p0 menu}
  59.      {disp 2,3,4f, Session planner }
  60.     {disp 3,1,4e, ╚╦══════════════════════════╦════════════════════════════════════════════════╝ }
  61.      {disp 4,2,4e, ║Plan a new session        ║ }
  62.      {disp 5,2,4e, ║Mailrun                   ║ }
  63.      {disp 6,2,4e, ║Replies only              ║ }
  64.      {disp 7,2,4e, ║File download from list   ║ }
  65.      {disp 8,2,4e, ║Bimodem transfer          ║ }
  66.      {disp 9,2,4e, ║Auto marking              ║ }
  67.     {disp 10,2,4e, ║User marking              ║ }
  68.     {disp 11,2,4e, ║Hold until                ║ }
  69.     {disp 12,2,4e, ║Start session             ║ }
  70.     {disp 13,2,4e, ╚══════════════════════════╝ }
  71.  
  72.      {disp 4,4,4f,P}
  73.      {disp 5,4,4f,M}
  74.      {disp 6,4,4f,R}
  75.      {disp 7,4,4f,F}
  76.      {disp 8,4,4f,B}
  77.      {disp 9,4,4f,A}
  78.     {disp 10,4,4f,U}
  79.     {disp 11,4,4f,H}
  80.     {disp 12,4,4f,S}
  81.     
  82.      {comp uks,} {ifco um3,}
  83.      {call keymgr} {goto um4}
  84.     {:um3}
  85.      {gets-H input,1,menuS}
  86.     {:um4}
  87.      {sete}
  88.      {comp input,P} {ifco sm1,}
  89.      {comp input,M} {ifco sm2,}
  90.      {comp input,R} {ifco sm3,}
  91.      {comp input,F} {ifco sm4,}
  92.      {comp input,B} {ifco sm5,}
  93.      {comp input,A} {ifco bgs,}
  94.      {comp input,U} {ifco s13,}
  95.      {comp input,S} {ifco rss,}
  96.      {comp input,H} {ifco s14,}
  97.      {comp input,X} {ifco menu,}
  98.      {goto menuS}
  99.   {} 
  100.  
  101.  
  102.  {:menuU}   
  103.      {call sm13}
  104.      {sete-p0 menu}
  105.      {disp 2,22,4f, Upload }
  106.     {disp 3,1,4e, ╚═══════════════════╦══════════════════════════╦═════════════════════════════╝ }
  107.                        {disp 4,21,4e, ║Zmodem batch              ║ }
  108.                        {disp 5,21,4e, ║Ymodem batch              ║ }
  109.                        {disp 6,21,4e, ║ymodem Crc                ║ }
  110.                        {disp 7,21,4e, ║xModem                    ║ }
  111.                        {disp 8,21,4e, ║Puma                      ║ }
  112.                        {disp 9,21,4e, ║Sealink                   ║ }
  113.                       {disp 10,21,4e, ║Bimenu                    ║ }
  114.                       {disp 11,21,4e, ║                          ║ }
  115.                       {disp 12,21,4e, ║zmodem pOint & shoot      ║ }
  116.                       {disp 13,21,4e, ║point & shoot file Tagger ║ }
  117.                       {disp 14,21,4e, ╚══════════════════════════╝ }
  118.  
  119.                        {disp 4,23,4f,Z}
  120.                        {disp 5,23,4f,Y}
  121.                        {disp 6,30,4f,C}
  122.                        {disp 7,24,4f,M}
  123.                        {disp 8,23,4f,P}
  124.                        {disp 9,23,4f,S}
  125.                        {disp 10,23,4f,B}
  126.                        {disp 12,31,4f,O}
  127.                        {disp 13,42,4f,T}
  128.      
  129.      {comp uks,} {ifco um5,}
  130.      {call keymgr} {goto um6}
  131.     {:um5}
  132.      {gets-H input,1,menuU}
  133.     {:um6}
  134.      {sete}
  135.      {clear}
  136.      {comp input,Z} {ifco zup,}
  137.      {comp input,Y} {ifco yup,}
  138.      {comp input,C} {ifco up2,}
  139.      {comp input,M} {ifco up3,}
  140.      {comp input,P} {ifco pup,}
  141.      {comp input,S} {ifco sup,}
  142.      {comp input,B} {ifco dl5,}
  143.      {comp input,O} {ifco pns,}
  144.      {comp input,T} {ifco pn1,}
  145.      {comp input,X} {ifco menu,}
  146.      {goto menuU}
  147.  {}
  148.  
  149.  
  150.  {:menuD}
  151.      {call sm13}
  152.      {sete-p0 menu}
  153.      {disp 2,32,4f, Download }
  154.      {disp 3,1,4e, ╚═════════════════════════════╦═════════════╦════   ═════════════════════════╝ }
  155.                                   {disp 4,31,4e, ║Ymodem batch ║ }
  156.                                   {disp 5,31,4e, ║ymodem-G     ║ }
  157.                                   {disp 6,31,4e, ║ymodem Crc   ║ }
  158.                                   {disp 7,31,4e, ║xModem       ║ }
  159.                                   {disp 8,31,4e, ║Sealink      ║ }
  160.                                   {disp 9,31,4e, ║Bimenu       ║ }
  161.                                  {disp 10,31,4e, ╚═════════════╝ }
  162.  
  163.                                   {disp 4,33,4f,Y}
  164.                                   {disp 5,40,4f,G}
  165.                                   {disp 6,40,4f,C}
  166.                                   {disp 7,34,4f,M}
  167.                                   {disp 8,33,4f,S}
  168.                                   {disp 9,33,4f,B}
  169.                                  
  170.      {comp uks,} {ifco um7,}
  171.      {call keymgr} {goto um8}
  172.     {:um7}
  173.      {gets-H input,1,menuD}
  174.     {:um8}
  175.      {sete}
  176.      {clear}
  177.      {comp input,Y} {ifco ydl,}
  178.      {comp input,G} {ifco dl4,}
  179.      {comp input,C} {ifco dl2,}
  180.      {comp input,M} {ifco dl3,}
  181.      {comp input,S} {ifco sdl,}
  182.      {comp input,B} {ifco dl5,}
  183.      {comp input,X} {ifco menu,}
  184.      {goto menuD}
  185.  {}                                 
  186.  
  187.  
  188.  {:menuL}                                 
  189.      {call sm13}
  190.      {sete-p0 menu}
  191.      {disp 2,44,4f, List }
  192.      {disp 3,1,4e, ╚═════════════════════════════════════════╦══════════════════════════╦═══════╝ }
  193.                                               {disp 4,43,4e, ║Upload/download dir       ║ }
  194.                                               {disp 5,43,4e, ║Commo directory           ║ }
  195.                                               {disp 6,43,4e, ║commo Doc                 ║ }
  196.                                               {disp 7,43,4e, ║commo Log                 ║ }
  197.                                               {disp 8,43,4e, ╚══════════════════════════╝ }
  198.  
  199.                                               {disp 4,45,4f,U}
  200.                                               {disp 5,45,4f,C}
  201.                                               {disp 6,51,4f,D}
  202.                                               {disp 7,51,4f,L}
  203.                                               
  204.      {comp uks,} {ifco um9,}
  205.      {call keymgr} {goto um10}
  206.     {:um9}
  207.      {gets-H input,1,menuL}
  208.     {:um10}
  209.      {sete}
  210.      {clear}
  211.      {comp input,U} {ifco e01,}
  212.      {comp input,C} {ifco e02,}
  213.      {comp input,D} {ifco e04,}
  214.      {comp input,L} {ifco e05,}
  215.      {comp input,X} {ifco menu,}
  216.      {goto menuL}
  217.  {}
  218.  
  219.  
  220.  {:menuH}
  221.      {call sm13}
  222.      {sete-p0 menu}
  223.      {disp 2,52,4f, Help(cmc) }
  224.      {disp 3,1,4e, ╚═════════════════════════════════════════════════╦═════════════════════════╦╝ }
  225.                                                       {disp 4,51,4e, ║How it works             ║ }
  226.                                                       {disp 5,51,4e, ║the Menu system          ║ }
  227.                                                       {disp 6,51,4e, ║Session planner          ║ }
  228.                                                       {disp 7,51,4e, ║Upload                   ║ }
  229.                                                       {disp 8,51,4e, ║Download                 ║ }
  230.                                                       {disp 9,51,4e, ║File d/l from a list     ║ }
  231.                                                      {disp 10,51,4e, ║Configuring cmc          ║ }
  232.                                                      {disp 11,51,4e, ║function Keys - quick ref║ }
  233.                                                      {disp 12,51,4e, ╚═════════════════════════╝ }
  234.  
  235.                                                       {disp 4,53,4f,H}
  236.                                                       {disp 5,57,4f,M}
  237.                                                       {disp 6,53,4f,S}
  238.                                                       {disp 7,53,4f,U}
  239.                                                       {disp 8,53,4f,D}
  240.                                                       {disp 9,53,4f,F}
  241.                                                       {disp 10,53,4f,C}
  242.                                                       {disp 11,62,4f,K}
  243.  
  244.  
  245.  
  246.   
  247.      {comp uks,} {ifco um11,}
  248.      {call keymgr} {goto um12}
  249.     {:um11}
  250.      {gets-H input,1,menuH}
  251.     {:um12}
  252.      {sete}
  253.      {clear}
  254.      {comp input,H} {ifco hlp1}
  255.      {comp input,M} {ifco hlp2}
  256.      {comp input,S} {ifco hlp3}
  257.      {comp input,U} {ifco hlp4}
  258.      {comp input,D} {ifco hlp5}
  259.      {comp input,F} {ifco hlp6}
  260.      {comp input,C} {ifco hlp7}
  261.      {comp input,K} {ifco hlpK}
  262.      {comp input,X} {ifco menu,}
  263.      {goto menuH}
  264.  {}    
  265.      {:hlp1}{setv hlpnum,1}{goto hlpend}
  266.      {:hlp2}{setv hlpnum,2}{goto hlpend}
  267.      {:hlp3}{setv hlpnum,3}{goto hlpend}
  268.      {:hlp4}{setv hlpnum,4}{goto hlpend}
  269.      {:hlp5}{setv hlpnum,5}{goto hlpend}
  270.      {:hlp6}{setv hlpnum,6}{goto hlpend}
  271.      {:hlp7}{setv hlpnum,7}{goto hlpend}
  272.      {:hlp8}{setv hlpnum,8}{goto hlpend}
  273.      {:hlp9}{setv hlpnum,9}{goto hlpend}
  274.      {:hlp10}{setv hlpnum,10}{goto hlpend}
  275.      {:hlp11}{setv hlpnum,11}{goto hlpend}
  276.      {:hlp12}{setv hlpnum,12}{goto hlpend}
  277.      {:hlp13}{setv hlpnum,13}{goto hlpend}
  278.      {:hlpK}{setv hlpstr,nf3 Log Off}{goto hlpend1}
  279.  
  280.  {:hlpend}{exec-d %list %_hom\cmc.doc /F[%hlpnum }{goto menuH}{}
  281.  {:hlpend1}{exec-d %list %_hom\cmc.doc /F%hlpstr}{goto menuH}{}
  282.  
  283.  
  284.  
  285.  {:clear}
  286.  
  287.      {clear}{}
  288.  
  289.  
  290. ██████████████████████████ ROUTINES FOR MENU S ██████████████████████████████████
  291. ██████████████████████████   SESSION PLANNER   ██████████████████████████████████  
  292.  
  293.  {:sm1}
  294.     {setv mail,}{setv repsonly,}{setv filedown,}{setv bimodem,}
  295.     {setv tryflag,0}
  296.     {unmark}{call sm7}{goto menuS}
  297.  
  298.  {:sm2}{setv mail,y}{call sm7}{goto menuS}
  299.  
  300.  {:sm3}{setv repsonly,y}{call sm7}{goto menuS}
  301.  
  302.  {:sm4}{setv filedown,y}{call sm7}{goto menuS}
  303.  
  304.  {:sm5}{setv bimodem,y}{call sm7}{goto menuS}
  305.  
  306.  {:sm6}{macr ***menud}{}
  307.  
  308.  {:sm13}{clear}
  309.      {disp 1,1,4e,   }
  310.      {disp 1,1,4e, ╔════════════════════════════════════════════════════════════════════════════╗ }
  311.      {disp 2,1,4e, ║ Session planner    Upload    Download    List    Help(cmc)                 ║ }
  312.      {disp 3,1,4e, ╚════════════════════════════════════════════════════════════════════════════╝ }
  313.  {return}
  314.  
  315.  {:sm7}
  316.      {call sm13}
  317.      {disp 20,23,4E,  MASTER CONTROL SET FOR:  ^m^j^j}
  318.     
  319.     {:s12}
  320.       {comp mail}{ifco sm8,}
  321.       {display ,,4e,  MAIL RUN  }{goto sm9}
  322.     {:sm8}
  323.       {comp repsonly}{ifco sm9,}
  324.       {display ,,4e,  MAIL REPLIES ONLY  }
  325.     {:sm9}
  326.       {comp filedown}{ifco s10,}
  327.       {display ,23,4e,  FILE DOWNLOAD FROM A LIST  }
  328.     {:s10}
  329.       {comp bimodem}{ifco s11,}
  330.       {display ,59,4e,  BIMODEM TRANSFER  }
  331.     {:s11}
  332.       {display ,,,^m^j}
  333.     {return}
  334.  
  335.  {:s13} {dial} {goto menuS}
  336.  
  337.  {:s14}
  338.      {setg ,,l,}
  339.      {clear}
  340.      {disp ,1,4e, Input the time you would like your ^m^j}
  341.      {disp ,1,4e, session to begin, in the form 00:00. ^m^j}
  342.      {gets-H hold,5,menuS}
  343.      {clear}
  344.      {hold %hold}
  345.    {goto rss}
  346.  
  347.  
  348. ██████████████████████████ ROUTINES FOR MENU D   ████████████████████████████████
  349. ██████████████████████████ DOWNLOADING PROTOCOLS ████████████████████████████████  
  350.                                                  
  351.  ZMODEM batch  {:zmodem} {exec-A DSZ port %_por% rz -m %uldir } {}      DSZ.COM
  352.  
  353.  YMODEM batch  {:ydl} {exec-A DSZ port %_por% rb %uldir } {}         DSZ.COM
  354.  
  355.  YMODEM-G      {:ydl} {exec-A DSZ port %_por% rb -g %uldir } {}      DSZ.COM
  356.  
  357.  YMODEM CRC    {:dl4}                                                  DSZ.COM
  358.                   {setv file,%uldir\}{input file,Enter a filename:}
  359.                   {exec-A DSZ port %_por% rc %file } {}
  360.  
  361.  XMODEM CRC    {:dl2}                                                  DSZ.COM
  362.                   {setv file,%uldir\}{input file,Enter a filename:}
  363.                   {exec-A DSZ port %_por% rc %file } {}
  364.  
  365.  PUMA          {:mmm} {exec-A PUMA P%_por% S%m r %uldir\ } {}        PUMA.EXE
  366.  
  367.  SEALINK       {:sdl} {exec-A PCZ %_por% 2400 rs %uldir\ } {}        PCZ.EXE
  368.  
  369.  BIMENU        {:dl5}{exec bimenu}{}
  370.                
  371.                
  372. █████████████████████████  ROUTINES FOR MENU U   ████████████████████████████████  
  373. █████████████████████████  UP LOADING PROTOCOLS  ████████████████████████████████  
  374.  
  375.  ZMODEM batch   {:zup}                                                 DSZ.COM
  376.                     {setv file,%uldir\}{input file,Enter a filename:}
  377.                     {exec-A DSZ port %_por% sz -m %file } {}
  378.  
  379.  YMODEM batch   {:yup}                                                 DSZ.COM
  380.                     {setv file,%uldir\}{input file,Enter a filename:}
  381.                     {exec-A DSZ port %_por% sb -k %file } {}
  382.  
  383.  YMODEM CRC     {:up2}                                                 DSZ.COM
  384.                     {setv file,%uldir\}{input file,Enter a filename:}
  385.                     {exec-A DSZ port %_por% sx -k %file } {}
  386.  
  387.  XMODEM CRC     {:up3}                                                 DSZ.COM
  388.                     {setv file,%uldir\}{input file,Enter a filename:}
  389.                     {exec-A DSZ port %_por% sx %file } {}
  390.  
  391.  PUMA           {:pup}                                                 PUMA.EXE
  392.                     {setv file,%uldir\}{input file,Enter a filename:}
  393.                     {exec-A PUMA P%_por% S%m s %file } {}      
  394.  
  395.  SEALINK        {:sup}                                                 PCZ.EXE
  396.                     {setv file,%uldir\}{input file,Enter a filename:}
  397.                     {exec-A PCZ %_por% 2400 ss %file } {}      
  398.  
  399.  ZMODEM PNS u/l   {:pns} 
  400.                     {exec-A DSZ port %_por% sz -m @%uldir\file.lst }{}
  401.  
  402.  YMODEM-G PNS u/l {:up4}{exec-A DSZ port %_por% sb -k @%uldir\file.lst }{}
  403.                        
  404.  COMMO PNS FILE TAGGER {:pn1}
  405.                        {exec-D commopns.exe %uldir\file.lst -D%uldir}
  406.                        {call sm7}
  407.                        {goto menuU}
  408.  
  409. ██████████████████████████  ROUTINES FOR MENU L   █████████████████████████████                        
  410. ██████████████████████████  LIST, SHEZ, & DIR     █████████████████████████████                        
  411.                        
  412.   LIST ULDL DIR        {:e01} {exec-D %list %uldir}{}
  413.   LIST COMMO DIR       {:e02} {exec-D %list %_hom}{}
  414.   LIST %_cap           {:e03} {exec-D %list %_cap /e}{}
  415.   LIST COMMO.DOC       {:e04} {exec-D %list commo.doc}{}
  416.   LIST COMMO.LOG       {:e05} {exec-D %list commo.log /e}{}
  417.   LIST BIMODEM.LOG     {:e06} {exec-D %list bimodem.log /e}{}
  418.   SHEZ ULDL DIR        {:e07} {exec-D %shez %uldir}{}
  419.   SHEZ FILELIST DIR    {:e08} {exec-D %shez c:\com\filelist}{}
  420.   SHEZ ZIPLIB DIR      {:e09} {exec-D %shez c:\com\ziplib}{}
  421.   
  422.                        
  423.  
  424.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ 
  425.  █ SECTION 2:  FUNCTION KEY ASSIGNMENTS █ 
  426.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  427.  ===============================================================================
  428.  Macros for Shifted Function Keys
  429.  ===============================================================================
  430.  {:sf1} {setv uks,%ukeys1}{goto menu}
  431.  {:sf2} {setv uks,%ukeys2}{goto menu}
  432.  {:sf3} {setv uks,%ukeys3}{goto menu}
  433.  {:sf4} {setv uks,%ukeys4}{goto menu}
  434.  {:sf5} {setv uks,%ukeys5}{goto menu}
  435.  {:sf6} {setv uks,%ukeys6}{goto menu}
  436.  {:sf7} {setv uks,%ukeys7}{goto menu}
  437.  {:sf8} {setv uks,%ukeys8}{goto menu}
  438.  {:sf9} {setv uks,%ukeys9}{goto menu}
  439.  {:sf0} {setv uks,%ukeys0}{goto menu}
  440.  
  441.  ============================================================================
  442.  Macros for Function Keys
  443.  ============================================================================
  444.  nf1 is reserved for the COMMO help feature.
  445.  {:nf2}{setv uks,}{goto menu}                          Call pull down menu
  446.  {:nf3}{goto wd3}                                      Log Off
  447.  {:nf4}                                                U/L Rep
  448.         {send u|}{pause 2}
  449.         {exec-A DSZ port %_por% sz -m %uldir\%bbsid.rep }
  450.     {return}
  451.  {:nf5} {call renqwk} {return}                       Renames .QWK file
  452.  {:nf6} {goto wcm}                                    Call Wild Cat Mail d/l
  453.  {:nf7} {send AT L1|} {return}                        Quiet modem
  454.  {:nf8} {send AT L3|} {return}                        Loud modem
  455.  {:nf9} {exec-N echo ## %_date% %_time% ## >> %_cap%} {return}  Time Mark
  456.  {:nf0} {exec-N %list %uldir} {return}
  457.  
  458.  
  459.  
  460.  ===========================================================================
  461.  Macros for Alt Function Keys
  462.  ───────────────────────────────────────────────────────────────────────────
  463.  
  464.  {:af1}{goto :olq}{}
  465.  {:af2}{} 
  466.  {:af3}{} 
  467.  {:af4}{} 
  468.  {:af5}{} 
  469.  {:af6}{} 
  470.  {:af7}{} 
  471.  {:af8}{} 
  472.  {:af9}{} 
  473.  {:af0}{} 
  474.  
  475.  ===========================================================================
  476.  Macros for Control Function Keys
  477.  ===========================================================================
  478.  {:cf1}{} 
  479.  {:cf2}{} 
  480.  {:cf3}{} 
  481.  {:cf4}{} 
  482.  {:cf5}{} 
  483.  {:cf6}{} 
  484.  {:cf7}{} 
  485.  {:cf8}{} 
  486.  {:cf9}{} 
  487.  {:cf0}{} 
  488.  
  489.  
  490.  ───────────────────────────────────────────────────────────────────────────
  491.  FUNCTION KEY ASSIGNMENTS - QUICK REFERENCE
  492.  I do a screen print of the portion below and tape it to my keyboard.
  493.  ───────────────────────────────────────────────────────────────────────────
  494.        Misc               Menus                                          
  495.  nf1 COMMO Help    sf1 Auto mail      af1 Online Quote  cf1
  496.  nf2 CMC Menu      sf2 Auto replies   af2               cf2
  497.  nf3 Log Off       sf3 Auto files     af3               cf3
  498.  nf4 u/l rep       sf4                af4               cf4
  499.  nf5 renqwk        sf5                af5               cf5                
  500.  nf6 WC m d/l      sf6                af6               cf6               
  501.  nf7 quiet         sf7                af7               cf7               
  502.  nf8 loud          sf8                af8               cf8                
  503.  nf9 Time Mark     sf9 List COMMO dir af9               cf9
  504.  nf0 List uldl dir sf0 List ULDL dir  af0               cf0
  505.                                           
  506.                                       
  507.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█  
  508.  █ SECTION 3:  LOGON                 █ 
  509.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  510.  
  511.  ============================================================================
  512.  This is the linked macro used to parse the password and bbsid from the 
  513.  combination password\bbsid in the CMC.FON file.  I got this idea from 
  514.  Shad Muegge.  It means that there is no need for BBS specific linked 
  515.  macros in the CMC.MAC file.
  516.  ============================================================================
  517.  
  518.  {:passparse}
  519.       {setv bbsid}
  520.       {setv _pas}
  521.       
  522.       {setv pas,%_pas}
  523.       {inst %pas,\}
  524.       {ifco ,passout}
  525.       {setv tmp,%_pos}
  526.       {incr tmp}
  527.       {subs bbsid,%tmp,255,%pas}
  528.       {decr tmp,2}
  529.       {subs _pas,1,%tmp,%pas}
  530.       {setv pas}
  531.       {goto bbsinfo}
  532.  
  533.     {:passout}
  534.       {setv pas}
  535.       {}
  536.       
  537.  {:alw} {send %_pas|} {return}
  538.       
  539.  ============================================================================
  540.  Read BBS Information.  
  541.  Reads BBS Information from the CMCINFO.MAC file and returns.
  542.  ============================================================================
  543.  {:bbsinfo}
  544.       {macl cmcinfo.mac,%bbsid}
  545.     {:bbsinfo1}
  546.       {capture n} {capture y,%bbsid}
  547.       {comp bsty}{ifco stop,}
  548.  {goto %bsty%logon}
  549.  {}
  550.  
  551.  ============================================================================
  552.  UNMark sequence.  After a successful logon other references are 
  553.  unmarked from the dialing directory.
  554.  ============================================================================
  555.  {:umk}                                                                       
  556.         {unmark %bbsid%1,%bbsid%2,%bbsid%3}
  557.  {return}
  558.  
  559.  ============================================================================
  560.  ReMarK sequence.  My modem has a problem logging onto certain high 
  561.  speed modems.  If a bad logon is made this sequence will remark 
  562.  that board.   I have this feature set to allow only 3 more trys 
  563.  total for any one dialing sequence.
  564.  ============================================================================
  565.  {:rmk}
  566.         {hangup y} {init}  Hangup and initialize modem.
  567.         {comp %tryflag,3}{ifco-E rm9,} If already 3 times don't try again.
  568.         {incr tryflag}
  569.         {mark %bbsid,%bbsid%1,%bbsid%2,%bbsid%3}
  570.         {exec-N echo ######################## Remarked %bbsid >> commo.log}
  571.     {:rm9}
  572.         {capture n}
  573.         {call clrvar}
  574.         {clear}
  575.         {call nf9}
  576.         {comp mc}{ifco ,rss1}
  577.  {}
  578.  
  579.   
  580.  ============================================================================
  581.  Wildcat! logon. 
  582.  ============================================================================
  583.  {:wclogon}
  584.          {call umk}
  585.          {call nf9}
  586.          {asci ,:}
  587.       {:wc7}
  588.          {setlook 60,to1,3,|     }
  589.          {golo rmk,₧}  If ₧ is found a bad logon is assumed. Branch to remark.
  590.          {golo es2,Escape twice}
  591.          {golo rmk,NO CARRIER}
  592.          {look First Name}
  593.          {send %user1st %userlast|%_pas|}
  594.          {setlook 300,wd3,3,|     }
  595.       {:wc6}
  596.          {golo rmk,NO CARRIER}
  597.          {golo wc7,correctly}
  598.          {golo bdy,BIRTH DATE}
  599.          {golo phn,Phone Number}
  600.          {golo _no,Y/n}
  601.          {golo wc2,%mainpmt}
  602.          {golo wc2,Settings}
  603.          {golo wc2,MENU: [M}
  604.          {golo wc2,MENU [M}
  605.          {look ESSAGE MENU}
  606.       {:wc2}
  607.          {comp mc}{ifco ,wdh}
  608.  {}        
  609.  
  610.  ======= subs for nf2 above
  611.  {:bdy}{send %userbday|} {send ~~~~y|} {goto wc6}     *** send BirthDaY
  612.  
  613.  {:phn}{send %userfon|} {send ~~~~y|} {goto wc6}      *** send PHoNe number
  614.  
  615.  {:_no}{send n|}{goto wc6}                            *** send no
  616.  
  617.  {:es2}{send ^[^[}{goto wc7}                          *** send Escape twice
  618.  
  619.  ===========================================================================
  620.  PCBoard logon.
  621.  ===========================================================================
  622.  {:pcblogon}  
  623.         {call umk}
  624.         {asci ,:}{call nf9}
  625.         {setlook 60,to1,3,n|}
  626.         {golo rmk,NO CARRIER}
  627.         {golo rmk,₧}  If ₧ is found a bad logon is assumed. Branch to remark.
  628.         {look first name?} {send %user1st %userlast|%_pas|}
  629.         {golo pc8,%mainpmt}
  630.         {golo pc8,Main Menu Command}
  631.         {look Main Board Command}
  632.      {:pc8}
  633.         {comp mc}{ifco ,wdh}
  634.  {}
  635.  
  636.  ====
  637.  {:to1}
  638.        {exec-N echo ######################## TIME OUT ON %bbsid LOG ON >> commo.log}
  639.        {goto rmk}
  640.  
  641.                                      
  642.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  643.  █ SECTION 4:  AUTOMATIC MAIL UPLOAD AND DOWNLOAD  █
  644.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  645.  
  646.  {:amd}
  647.      {comp bsma}{ifco wd1,}
  648.      {comp repsonly}{ifco ,am3}
  649.    {:am4}
  650.      {comp bsty,wc}{ifco wcm,}
  651.      {comp bsty,pcb}{ifco pcm,}
  652.  {}
  653.  
  654.  {:am2}
  655.      {exec-N echo ######################## TIME OUT DURING AUTOMATIC MAIL >> %_hom%commo.log}
  656.  {goto wd3}
  657.  
  658.      
  659.  {:am3}    
  660.       {ifex %uldir\%bbsid.rep,am4,wd1}
  661.      
  662.      
  663.      
  664.  ===========================================================================
  665.  Wildcat! Mail download and/or upload.  (Control is passed to this macro 
  666.  after logon if exists mail.flg or repsonly.flg.)
  667.  ===========================================================================
  668.  {:wcm}  {send m|}
  669.          {send ~~}
  670.          {send %bsmast|}
  671.          {setlook 300,to2,4,|}
  672.          {golo rq5,%mailpmt}
  673.          {look TOMCAT MENU}
  674.        {:rq5}
  675.          {ifex %uldir\%bbsid.rep,,rqm}
  676.  
  677.        {:cup}                                          Call UP/load rep
  678.           {call nf4}
  679.           {golo wcm1,%mailpmt}
  680.           {look TOMCAT MENU}
  681.        {:wcm1}
  682.           {call renrep}
  683.           {goto rqm}
  684.  
  685.  {:to2}
  686.       {exec-N echo ######################## TIME OUT ON %bbsid TOMCAT MENU >> COMMO.LOG}
  687.  {goto wd3}
  688.  
  689.  
  690.  ===========================================================================
  691.  Request Tomcat mail from Wildcat! BBS.
  692.  ===========================================================================
  693.  {:rqm}
  694.           {comp repsonly}{ifco ,rq12}
  695.           {setlook 600,to2,0,}
  696.        {:rq7}  
  697.           {send d|}
  698.           {golo rq8,Nothing}
  699.           {golo rq6,limit exceeded!}
  700.           {golo rq11,.qwk now}
  701.           {golo rq10,protocol}
  702.           {look transfer?} {send y|}
  703.        {:rq11}
  704.           {call dlm}
  705.        {:rq8} 
  706.           {setlook 60,to2,4,|}
  707.           {look %mailpmt}
  708.        {:rq12}
  709.           {send q| }
  710.           {golo rq12,%mailpmt}
  711.           {golo rq12,%msgpmt}
  712.           {golo rq12,MESSAGE MENU:}
  713.           {golo rq9,%mainpmt}
  714.           {look MAIN MENU:}
  715.        {:rq9}
  716.  {goto wd1}
  717.  
  718.  {:rq6} 
  719.           {look transfer?} {send y|}  If the message limit is exceeded
  720.           {call dlm}                     then go back and ask for more.
  721.  {goto rq7}          
  722.  
  723.  {:rq10}
  724.           {send z|}  This added for Tomcat 3.0
  725.  {goto rq11}
  726.  
  727.  ===========================================================================
  728.  *** Down Load Mail (Download .QWK, rename and return.)
  729.  ===========================================================================
  730.  {:dlm} 
  731.        {golo rq14,^xB00}
  732.        {look .qwk now} 
  733.      {:rq14}
  734.        {exec-A DSZ port %_por% rz -m %uldir}
  735.        {call renqwk}
  736.  {return}
  737.  
  738.  
  739.  ===========================================================================
  740.  ***PCMail for pcboard
  741.  ===========================================================================
  742.  {:pcm}
  743.         {send %bsmast|}
  744.         {setlook 600,to3,10,|}
  745.         {golo pc10,%mailpmt}
  746.         {golo pcm,%mainpmt}
  747.         {look <COMMAND>}
  748.      {:pc10}
  749.         {ifexist %uldir\%bbsid.rep,pc1,pc2}
  750.      {:pc2}
  751.         {golo pc12,%mailpmt}
  752.         {look <COMMAND>}
  753.      {:pc12}
  754.         {send d|}
  755.         {golo pc9,<NO TRANSFER>}
  756.         {look N)?}{send y|}
  757.         {look <DOWNLOAD>}
  758.      {:pc4}
  759.         {exec-A DSZ port %_por% rz -m %uldir}
  760.         {call renqwk}
  761.         {golo pc4,<DOWNLOAD>}
  762.         {golo pc6,<DL ERROR>}
  763.         {golo pc9,%mailpmt}
  764.         {look <COMMAND>}
  765.      {:pc9}
  766.         {send q|}
  767.         {setlook 60,wd3,4,|}
  768.         {golo pc9,%mailpmt}
  769.         {golo pc9,<COMMAND>}
  770.         {golo pc7,%mainpmt}
  771.         {golo pc7,Main Board Command}
  772.         {look Main Menu Command}
  773.      {:pc7}
  774.  {goto wd1}
  775.  
  776.  {to3}
  777.     {exec-N echo ######################## TIME OUT %bbsid QMAIL DOOR >> commo.log}
  778.  {goto wd3}
  779.  
  780.  ====
  781.  {:pc1}
  782.         {call nf4}
  783.         {golo pc11,%mailpmt}
  784.         {look <COMMAND>}
  785.      {:pc11}
  786.         {call renrep}
  787.         {comp repsonly}{ifco pc2,pc9}
  788.  
  789.  
  790.  ====
  791.  {:pc6}
  792.         {exec-N echo ######################## DL ERROR %bbsid QMAIL DOOR >> commo.log}
  793.  {goto pc9}
  794.  
  795.         
  796.                                       
  797. █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ 
  798. █ SECTION 5:  AUTOMATIC FILE DOWNLOAD.  █
  799. █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  800.  
  801.  {:afd}
  802.      {ifex %uldir\%bbsid.get,,wd2}
  803.      {exec-N echo ## %%_date %%_time ## >> %uldir\get\%bbsid.get}
  804.      {exec-N type %uldir\%bbsid.get >> %uldir\get\%bbsid.get}
  805.      {comp bsty,wc} {ifco wcf,}
  806.      {comp bsty,pcb}{ifco pcf,}
  807.  {goto wd2}
  808.  
  809.  
  810.  ===========================================================================
  811.  Automatic file download from a list for a Wildcat! BBS.
  812.  ===========================================================================
  813.  {:wcf}
  814.      {send F}
  815.      {setlook 60,to4,6,|}
  816.      {golo wcf1,%filepmt}
  817.      {look Search}
  818.    {:wcf1}
  819.      {send D}
  820.    {call fd1}
  821.  
  822.           {golo wc5,%filepmt}
  823.           {look ext Search}
  824.  
  825.    {:wc5}
  826.           {send q|}
  827.           {setlook 60,wd3,4,|}
  828.           {golo wc5,%filepmt}
  829.           {golo wd2,%mainpmt}
  830.           {look MAIN MENU:}
  831.  {goto wd2}
  832.  
  833.  {:to4}
  834.       {exec-N echo ######################## TIME OUT %bbsid AUTO FILE D/L >> commo.log}
  835.  {goto wd3}
  836.  
  837.  
  838.  ========================================================================
  839.  Automatic file download from a list for a PCboard BBS.
  840.  ======================================================================== 
  841.  
  842.  {:pcf}
  843.       {setlook 60,to4,6,|}
  844.       {send D|}
  845.       {call fd1}
  846.  
  847.       {setlook 60,wd3,4,|}
  848.       {golo wd2,%mainpmt}
  849.       {look Main Board Command}
  850.  {goto wd2}
  851.  
  852.  
  853.  ========================================================================
  854.  Generic file download
  855.  ========================================================================
  856.  
  857.  {:fd1}
  858.      {golo fd2,name?}
  859.      {golo fd2,Enter File}
  860.      {golo fd2,(Enter)=none?}
  861.      {golo fd3,complete}
  862.      {golo fd4,protocol:}
  863.      {golo fd5,%filepmt}
  864.      {look ^xB00}
  865.      {exec-N DSZ port %_por% rz -m %uldir}
  866.      {exec-N del %uldir\%bbsid.get}
  867.    {:fd5}
  868.  {return}
  869.  
  870.  
  871.  
  872.  
  873.  {:fd2}
  874.      {ifex %uldir\%bbsid.get,,fd1}
  875.      {asci %uldir\%bbsid.get}
  876.      {exec-N del %uldir\%bbsid.get}
  877.  {goto fd1}
  878.  
  879.  {:fd3} {send n} {goto fd1}
  880.  
  881.  {:fd4} {send z} {goto fd1}
  882.                   
  883.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ 
  884.  █ SECTION 6:  BIMODEM   █ 
  885.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  886.  =========================================================================       
  887.  Bimodem File Transfers - Upload and Download Simultaneously!
  888.  =========================================================================       
  889.  {:bms}
  890.      {exec-N del bimodem.pth}
  891.      {exec-N copy %bbsid.pth bimodem.pth}
  892.      {exec-N copy %bbsid.pth %uldir\oldpth ^del %bbsid.pth}
  893.      {ifexist bimodem.pth,,wd3}
  894.      {comp bsty,wc}{ifco bm3,}
  895.      {comp bsty,pcb}{ifco bm2,}
  896.  {goto wd3}
  897.  
  898.  {:bm3}   Bimodem transfer for WildCat.
  899.      {send F}
  900.      {setlook 60,bm4,6,|}
  901.      {look ext Search}
  902.      {send U}
  903.      {look Select:}
  904.      {send B}
  905.      {golo bm5, You have}
  906.      {look Save Upload's}
  907.      {send %bsbmuldr|}
  908.      {look You have}
  909.    {:bm5}
  910.      {exec-D %_hom%bimodem.com}
  911.    {:bm4}
  912.      {setlook 60,wd3,4,|}
  913.      {look ext Search}
  914.      {send q|}
  915.      {golo wd3,%mainpmt}
  916.      {look MAIN MENU}
  917.  {goto wd3}    
  918.  
  919.  {:bm2}        Bimodem transfer for PCBoard.
  920.  {goto bm4}   //This macro is not developed as I currently have
  921.                 no PCBoards that support Bimodem transfers.
  922.  
  923.                                        
  924.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  925.  █ SECTION 7: Full Screen Editor Key Support █
  926.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  927.  =========================================================================       
  928.  The following keys are used by full screen editors such as Visual
  929.  Editor in ProDoor, PCBoard's full screen editor, ANSIED in RBBS and
  930.  others.  They may be changed to suit your own needs (all keys do not
  931.  work with all editors).  See Appendix D in COMMO.DOC for details on
  932.  character representation.
  933.    
  934.  Note that the left arrow function (^S) is also the XOFF character.
  935.  This may cause a problem on some systems.  If pressing the left arrow
  936.  seems to hang the remote, press ^Q and change the "lfa" macro to:
  937.  
  938.         {send ^[[D} {}  or  {send ^@K} {}
  939.  
  940.         
  941.  ========================================================================
  942.  Macro                  Key             Function
  943.  ========================================================================
  944.  {:hom} {send ^W} {}     Home            Start of line
  945.  {:end} {send ^P} {}     End             End of line
  946.  {:pgu} {send ^R} {}     PgUp            Page up
  947.  {:pgd} {send ^C} {}     PgDn            Page down
  948.  
  949.  {:upa} {send ^E} {}     Up Arrow        Cursor up
  950.  {:dna} {send ^X} {}     Down Arrow      Cursor down
  951.  {:lfa} {send ^S} {}     Left Arrow      Cursor left
  952.  {:rta} {send ^D} {}     Right Arrow     Cursor right
  953.  
  954.  {:cla} {send ^A} {}     ^Left Arrow     Word left
  955.  {:cra} {send ^F} {}     ^Right Arrow    Word right
  956.  
  957.  {:ins} {send ^V} {}     Insert          Toggle insert mode
  958.  {:del} {send ^G} {}     Delete          Delete character
  959.  {:cnd} {send ^K} {}     ^End            Delete to end of line
  960.  
  961.  
  962.  
  963.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  964.  █ SECTION 8: Online Quoting Macro  █
  965.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  966.  
  967.  {:olq}
  968.       {setv scrsav,%_scr}
  969.       {screen n,%uldir\temp}
  970.       {scroll}
  971.       {exec-N q %_scr}
  972.       {asci %_scr}
  973.       {exec-N del %_scr}
  974.       {screen n,%scrsav}
  975.  {}
  976.  
  977.  
  978.  
  979.  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█        
  980.  █ SECTION 9:  Session Control    █
  981.  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  982.  
  983.  ========================================================================
  984.  BEGIN SESSION AUTOMATIC MARKING
  985.  ========================================================================
  986.  {:bgs}
  987.         {clear}
  988.         {unmark}
  989.         {setv mc,y}
  990.         {comp mail}{ifco bg1,}       Mark BBSs for mail run.
  991.         {setv rtnaddrs,mkmail}
  992.         {macl cmcinfo.mac,maillist}
  993.      {:mkmail}
  994.         {setv rtnaddrs}
  995.         {setv x,0}
  996.      {:mkmail1}
  997.         {incr x}
  998.         {setv-s bbs,bbs%x}
  999.         {comp bbs}{ifco mkmail2,}
  1000.         {mark %bbs,%bbs%1,%bbs%2,%bbs%3}
  1001.         {goto mkmail1}
  1002.  
  1003.      {:mkmail2}
  1004.         {comp x,0}{ifco bg1,}
  1005.         {setv bbs%x}
  1006.         {decr x}
  1007.         {goto mkmail2}
  1008.  
  1009.  
  1010.    {:bg1}                               Marks any BBS with a .REP packet.
  1011.         {setv x}
  1012.         {comp repsonly}{ifco bg2,}
  1013.         {setv rtnaddrs,mkrep}
  1014.         {macl cmcinfo.mac,maillist}
  1015.       {:mkrep}
  1016.         {setv rtnaddrs}
  1017.         {setv x,0}
  1018.       {:mkrep1}
  1019.         {incr x}
  1020.         {setv-s bbs,bbs%x}
  1021.         {comp bbs}{ifco mkrep3,}
  1022.         {ifex %uldir\%bbs.rep,,mkrep2}
  1023.         {mark %bbs,%bbs%1,%bbs%2,%bbs%3}
  1024.       {:mkrep2}
  1025.         {goto mkrep1}
  1026.  
  1027.       {:mkrep3}
  1028.         {comp x,0}{ifco bg2,}
  1029.         {setv bbs%x}
  1030.         {decr x}
  1031.         {goto mkrep3}
  1032.  
  1033.  
  1034.      {:bg2}                         Check for file down load from a list flag.
  1035.         {setv x}
  1036.         {comp filedown}{ifco bg3,}
  1037.         {macl cmcinfo.mac,fidolist}
  1038.       {:mkfido}
  1039.         {setv x,0}
  1040.       {:mkfido1}
  1041.         {incr x}
  1042.         {setv-s bbs,bbs%x}
  1043.         {comp bbs}{ifco mkfido3,}
  1044.         {ifex %uldir\%bbs.get,,mkfido2}
  1045.         {mark %bbs,%bbs%1,%bbs%2,%bbs%3}
  1046.       {:mkfido2}
  1047.         {goto mkfido1}
  1048.  
  1049.       {:mkfido3}
  1050.         {comp x,0}{ifco bg3,}
  1051.         {setv bbs%x}
  1052.         {decr x}
  1053.         {goto mkfido3}
  1054.  
  1055.  
  1056.      {:bg3}                                       Check for Bimodem Flag  
  1057.         {comp bimodem}{ifco bg4,}
  1058.         {macl cmcinfo.mac,bimolist}
  1059.       {:mkbimo}
  1060.         {setv x,0}
  1061.       {:mkbimo1}
  1062.         {incr x}
  1063.         {setv-s bbs,bbs%x}
  1064.         {comp bbs}{ifco mkbimo3,}
  1065.         {ifex %_hom\%bbs.pth,,mkbimo2}
  1066.         {mark %bbs,%bbs%1,%bbs%2,%bbs%3}
  1067.       {:mkbimo2}
  1068.         {goto mkbimo1}
  1069.  
  1070.       {:mkbimo3}
  1071.         {comp x,0}{ifco bg4,}
  1072.         {setv bbs%x}
  1073.         {decr x}
  1074.         {goto mkbimo3}
  1075.  
  1076.  
  1077.      {:bg4}
  1078.   {call sm7}{goto menuS}
  1079.      
  1080.  ========================================================================
  1081.  BEGIN SESSION MANUAL MARKING
  1082.  ========================================================================
  1083.  {:rss}  Restart session after interuption.
  1084.      {clear}
  1085.      {setv mc,y}
  1086.      {display ,18,4e,  MASTER CONTROL SESSION IN PROGRESS  ^m^j^j}
  1087.      {call s12}
  1088.      {comp mail}{ifco rss1,}
  1089.      {setv repsonly}
  1090.    {:rss1}
  1091.      {dial-C 100,}
  1092.      {setv mail}{setv repsonly}{setv filedown}{setv bimodem}
  1093.      {setv tryflag,0}{setv mc}{call clrvar}
  1094.      {clear}{display ,23,4e,  MASTER CONTROL SESSION ENDED!  ^M^J}
  1095.      {setv rtnaddrs,stop}
  1096.      {macl cmcinfo.mac,clear}
  1097.  {}       
  1098.  
  1099.  ========================================================================
  1100.  SESSION CONTROL
  1101.  ========================================================================
  1102.  
  1103.   {:wdh}
  1104.        {comp mail}{ifco ,amd}     Goto Automatic Mail Download
  1105.        {comp repsonly}{ifco ,amd} Goto repsonly upload
  1106.     {:wd1}
  1107.        {comp filedown}{ifco ,afd}
  1108.     {:wd2}
  1109.        {comp bimodem}{ifco ,bms}  Goto bimodem session
  1110.     {:wd3}
  1111.        {setlook 60,wd4,4,|g|y|}
  1112.        {golo wd4,NO CARRIER}
  1113.        {look  for calling, %user1st}
  1114.        {hangup y}
  1115.        {golo wd4,OK}
  1116.        {look NO CARRIER}
  1117.     {:wd4}
  1118.        {hangup y}
  1119.        {pause 1}
  1120.        {capture n}
  1121.        {call clrvar}
  1122.        {clear}
  1123.        {exec-N echo ## %_date% %_time%  ## >> %_cap}
  1124.        {display ,18,4e,  MASTER CONTROL SESSION IN PROGRESS  ^m^j^j}
  1125.        {call s12}
  1126.        {comp mc}{ifco ,rss1}
  1127.  {}
  1128.  
  1129.  
  1130.  ===========================================================================
  1131.  NEW FUNCTIONS
  1132.  ===========================================================================
  1133.  *RENAME .QWK FILE
  1134.  {:renqwk}
  1135.       {comp renum,n}{ifco renqwk1,}
  1136.       {rope cmc.num}
  1137.       {read number}
  1138.       {rclo}
  1139.       {incr number}
  1140.       {exec-N ren %uldir\%bbsid.qw* %uldir\%number*.qwk}
  1141.       {wope cmc.num}
  1142.       {writ %number}
  1143.       {wclo}
  1144.     {:renqwk1}
  1145.       {comp number,900}{ifco-GE newnum,}
  1146.  {return}
  1147.  
  1148.  
  1149.  *KILL CMC.NUM
  1150.  {:newnum}
  1151.       {exec-N echo 1 > cmc.num}
  1152.  {return}
  1153.  
  1154.  
  1155.  *RENAME AND MOVE .REP FILE
  1156.  {:renrep}
  1157.       {exec-N copy %uldir\%bbsid.rep %orepdir\%bbsid.rep}
  1158.       {exec-N del %uldir\%bbsid.rep}
  1159.       {comp renum,n}{ifco renrep1,}
  1160.       {rope cmc.num}
  1161.       {read number}
  1162.       {rclo}
  1163.       {incr number}
  1164.       {exec-N ren %orepdir\%bbsid.rep %orepdir\%number*.rep}
  1165.       {wope cmc.num}
  1166.       {writ %number}
  1167.       {wclo}
  1168.     {:renrep1}
  1169.  {return}
  1170.  
  1171.  
  1172.  *RENAME ACTIVITY.ARJ
  1173.  {:renarj}
  1174.       {rope cmc.num}
  1175.       {read number}
  1176.       {rclo}
  1177.       {incr number}
  1178.       {exec-N ren %uldir\activity.arj %uldir\%number*.arj}
  1179.       {wope cmc.num}
  1180.       {writ %number}
  1181.       {wclo}
  1182.  {return}
  1183.  
  1184.  
  1185.  *RETURN ADDRESS INDIRECT ADDRESS
  1186.  {:rtnaddrs}
  1187.       {goto %rtnaddrs}
  1188.  
  1189.  
  1190.  *STOP
  1191.  {:stop}
  1192.      {setv rtnaddrs}
  1193.  {}
  1194.  
  1195.  
  1196.  *WELCOME
  1197.  {:welcome}
  1198.    {ifex cmc.num,start1,}{exec echo 1 > cmc.num}
  1199.    {:start1}
  1200.      {macl cmcinfo.mac,uinfo}
  1201.     {:uinfo1} 
  1202.      {display 8,,4e,  and....                                                                       ^m^j}
  1203.      {display ,,4e,  Welcome to MASTER CONTROL (tm) 5.0                                            ^m^j}
  1204.      {display ,,4e,  (c)Copyright 1991,  Don Garrett  All Rights Reserved                          ^m^j}
  1205.      {display ,,4e,                                                                                ^m^j}
  1206.  {}
  1207.  
  1208.  
  1209.  *KEYMANAGER 
  1210.  {:keymgr}                       Key manager for User Key Sequences
  1211.      {subs input,1,1,%uks}
  1212.      {subs uks,2,50,%uks}
  1213.  {retu}
  1214.  
  1215.  
  1216.  *CLEAR VARIABLES
  1217.  {:clrvar}
  1218.      {setv bbsid}
  1219.      {setv _pas}
  1220.      {setv bsty}
  1221.      {setv bsmaty}
  1222.      {setv bsmast}
  1223.      {setv bsbm}
  1224.      {setv bsbmuldr}
  1225.      {setv mailpmt}
  1226.      {setv mainpmt}
  1227.      {setv msgpmt}
  1228.      {setv filepmt}
  1229.  {retu}
  1230.  
  1231.  
  1232.