home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / COMM / MISC / CS_MAC05.ZIP / THE-REST < prev   
Encoding:
Text File  |  1992-04-05  |  27.5 KB  |  563 lines
  1.  ══════════════════════════════════════════════════════════════════════
  2.  
  3.  ┌────────────────────────────────┐
  4.  │  Chuck Seyboldt's COMMO Macro  │                 THE-REST
  5.  └────────────────────────────────┘
  6.  
  7.   *  This file combined with COMMO.MAC is my personal COMMO.MAC
  8.   *  WARNING ... some of the stuff doesn't work right.
  9.   *  This was built haphazardly and contains a few experiments.
  10.  
  11.   *  This is the more disorganized part of my personal COMMO.MAC.
  12.   *  For the curious, it provides a copy of my Commo working environment.
  13.  
  14. ! *  You !NEED! to edit! lines that have a "!" in the first column.
  15.          ^^^^^^^^^^^^^^^
  16. * *  Lines with a  "*"  may be deleted.
  17.   *  Deleting my comments is a good thing to do, it saves much RAM.
  18.  
  19.   *  With this line in COMMO.SET, Commo starts with the :start macro
  20.   *       └──┴─────> {mac=start}            Startup macro label
  21.  
  22.   *  I use the :start tool for easy portability from one machine to another.
  23.   *  Many directories are defined here.  They could all have the same name,
  24.   *  but you wouldn't do that (would you?).
  25.  
  26.   ─────────────────────────────────────────────────────────────────────────────
  27.   Startup Macro  {:start}
  28.                  {clear}
  29.                  {setv ins_dir,%_hom%ins}           ;for docs & instructions
  30.                  {setv savedir,%_hom%sav}           ;for capture files
  31.                  {setv utildir,c:\util}             ;for utility programs
  32.                  {setv maildir,d:\qwk}              ;for .QWK and .REP files
  33.                  {setv dosdir,c:\dos}               ;another place for UTIL
  34.                  {setv ramdr,i:}                    ;for FASTest responses
  35.                  {capt n,%savedir\%_mon%%_day.cap}  ;establish capture filename
  36.                  {}
  37.                  {:retu} {return}                   ;Very handy labelname
  38.   ─────────────────────────────────────────────────────────────────────────────
  39.  
  40.   *                                     Tradename     Author            Myname
  41.  
  42.   *  Support files in my %ramdr are:    LIST.COM      (Vern Buerg)      l.com
  43.   *                                     QEDIT.EXE     (Sam Mitchell)    q.exe
  44.   *                                     DSZ.COM       (Chuck Forsberg)  dsz.com
  45.   *  as well as the requisite           COMMAND.COM
  46.  
  47.   *  Support files in my %dosdir are:   COMMOPNS.EXE  (Shad Muegge)
  48.   *                                     HSLINK.EXE    (Sam Smith)
  49.  
  50.   *  Support files in my %utildir are:  PHONE.EXE     (Johnathan Wayne)
  51.   *                                     DFR.COM       (Gordon Haff)
  52.   *                                     MJOG.COM      (Chris Dunford)
  53.  
  54.   *  Support file in my %ins_dir are:   COMMO.DOC
  55.   *                                     MACRO.DOC
  56.   *  The Home key uses LIST to read docs.
  57.  
  58.   *  The %savedir is important:         WHATEVER.CAP  (session captures)
  59.   *                                     ADDRESS       (address book)
  60.   *                                     RING.LOG      (timestamp of RINGs)
  61.  
  62.   *  The Commo %_hom% directory has:    ASSIGN.KEY    (one page help screen)
  63.   *                                     ACTION.%abbr% (ACTION-file to be run)
  64.   *                                     USED-ACT.%abbr% (ACTION-file history)
  65.   *                                     RINGLOG.MAC    \
  66.   *                                     DOSFUNC.MAC     >   Commo macros
  67.   *                                     MOSTHOST.MAC   /
  68.  
  69.                                  UpLoad Protocols                               upld
  70.  
  71.                                 ╒════════════════╕
  72.                                 │  Zmodem        │                              {call alp} {exec-n %ramdr%\dsz.com ha bo sz -m @%_hom%files.zup} {}
  73.                                 │  Ymodem/G      │                              {call alp} {exec-n %ramdr%\dsz.com ha bo sb -k @%_hom%files.zup} {}
  74.                                 │  Zmodem/REP    │                              {inpu nodeid,.REP to Upload} {ifex %maildir\%nodeid.rep,,no_rep} {exec-N %ramdr%\dsz.com ha bo sz -mu %maildir%\%nodeid%.rep} {:no_rep} {}
  75.                                 │  1k-Xmodem     │                              {setv proto,1K-Xmodem} {call gfnu} {sxmo-k %file}  {setv proto}  {}
  76.                                 │  Xmodem CRC    │                              {setv proto,Xmodem-CRC}{call gfnu} {sxmo %file}    {setv proto}  {}
  77.                                 │  HS/Link       │                              {call alp} {exec-n %dosdir%\hslink.exe -@ -I2 -NV -P%_por% @%_hom%files.zup} {}
  78.                                 ╘════════════════╛
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.                                DownLoad  Protocols                              downld
  92.  
  93.                                 ╒════════════════╕
  94.                                 │  Zmodem        │                              {exec-n %ramdr%\dsz.com rz -mr %dldir%}     {}
  95.                                 │  Ymodem/G      │                              {exec-n %ramdr%\dsz.com rb -g  %dldir%}     {}
  96.                                 │  Zmodem/QWK    │                              {exec-n %ramdr%\dsz.com rz -m  d:\qwk}   {}
  97.                                 │  1k-Xmodem     │                              {setv file,%dldir%\} {inpu file,Filename to Download (1k-Xmodem)}    {rxmo %file}    {}
  98.                                 │  Xmodem CRC    │                              {setv file,%dldir%\} {inpu file,Filename to Download (Xmodem CRC)}   {rxmo %file}    {}
  99.                                 │  HS/Link       │                              {exec-n %dosdir%\hslink.exe -@ -C -I2 -NV -P%_por% -R -O -K -U%dldir%} {}
  100.                                 │  Ymodem        │                              {exec-n %ramdr%\dsz.com rb     %dldir%}     {}
  101.                                 ╘════════════════╛
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  Call Download Menu    {:pgd}  {macr downld}    {return}
  114.  Call Upload Menu      {:pgu}  {macr upld}      {return}
  115.  Pick N Send           {:alp}  {exec-n cd %dldir}
  116.                                {exec-d %dosdir%\commopns.exe %_hom%files.zup -F}  {return}
  117.  
  118.  Get  FileName, Upload {:gfnu} {setv file,%uldir\%mask}
  119.                                {leng %uldir} {setv flen,%_len} {incr %flen%,2}
  120.                                {inpu file,Filename for %proto% upload (.ZIP default)}
  121.                                {ifex %file,,addzip}
  122.                                {setv mask}
  123.                                {retu}
  124.                      {:addzip} {instring file,.}
  125.                                {ifco chek}
  126.                                {setv file,%file%.zip}
  127.                        {:chek} {ifex %file,,mask}
  128.                                {setv mask} {setv flen}
  129.                                {retu}
  130.                        {:mask} {subs mask,%flen,1,%file}
  131.                                {exec-nw4 dir %uldir%\%mask%*.* /w}
  132.                                {goto gfnu}
  133.  *---*  General  *---*
  134.  Any Command at all    {:alw}  {setv comm}
  135.                                {inpu comm,Enter any DOS Command below}
  136.                                {exec-W %comm}                          {}
  137.  Test Command here:    {:gr*}  {:cla} {disp ,63,07,%_dwt %_dat%^m}     {}
  138.  
  139.  *---* Terminal Control *---*
  140.  Hang Up Modem         {:alq}  {hang}   {}
  141.  Toggle Signal Lights  {:al0}  {ligh}   {}
  142.  Toggle Master Sound   {:al3}  {soun}   {}
  143.  Toggle Local Echo     {:al6}  {loca}   {}
  144.  Access Connect Parms  {:all}  {dpar}   {}
  145.  Clear display & more  {:alc}  {parm ,,,,}  {clea}  {setv abbr}        {}
  146.  Toggle Status Line    {:al-}  {statusline}                      {return}
  147.  
  148.   *  This doorway mode toggle has a feature that you need to be aware of.
  149.   *  It is setup to send the "drop to DOS" command to a PCBoard host.
  150.   *  You may want to take those "!" lines right out of the picture.
  151.  
  152.  Toggle Doorway Mode   {:al=}  {comp dway,yes} {ifco ext}
  153.                                {setv dway,yes}
  154. ! PCBoard Drop to DOS command  {send 9 y|}      You probably want it out!
  155.                                {doorway-m0}                            {}
  156.                        {:ext}  {setv dway}
  157. ! Return from DOS to PCBoard   {send exit|}     Remove this line too!
  158.                                {doorway-m0}                            {}
  159.  
  160.  *---* Send Strings *---*
  161. !Send Name             {:nf1}  {send Chuck Seyboldt|}                  {}
  162.  Send Password         {:nf2}  {send %_pas|}                           {}
  163. !Send Signature        {:nf0}
  164. {send                                                     Chuck·S|~|~SN|}{}
  165.  
  166.  *---* Utilities *---*
  167.  DSZ terminal shell    {:af1}  {exec-d %ramdr%\dsz.com t -8g}          {}
  168.  Directory Freedom     {:cf5}  {:cky}  {exec-d %utildir%\dfr.com}      {}
  169.  List                  {:nf3}  {setv file,%dldir%\}
  170.                                {inpu file,File to List}
  171.                                {exec-D %ramdr%\l.com %file}            {}
  172.  Qedit                 {:nf5}  {setv file,%dldir%\}
  173.                                {inpu file,File to Edit}
  174.                                {exec-D %ramdr%\q.exe %file}            {}
  175.  Dial Phone for voice  {:nf6}  {setv file}
  176.                                {inpu file,Name or Number to Call}
  177.                                {exec-N phone %file}                    {}
  178.  Shell To DOS          {:nf4}  {shell}                                 {}
  179.  Mjog                  {:alj}  {exec-w mjog /l}                  {return}
  180.  See DOS Environment   {:als}  {exec-w set}                      {return}
  181.  
  182.  *---* Commo Help and quick reference *---*
  183.  Show Key Assignments  {:alk}  {exec-w type %_hom%assign.key}          {}
  184.  List Commo DOCS       {:hom}  {exec l %ins_dir\*.doc}                 {}
  185.  Call Commo HELP       {:alh}  {help}                                  {}
  186.  
  187.  *---* Session History *---*
  188.  Enter  Scrollback     {:upa}  {screen n,%savedir\savescro} {scro}     {}
  189.  Edit   Capture File   {:dna}  {exec-d %ramdr%\q.exe %_cap}            {}
  190.  List   Capture File   {:lfa}  {exec-d %ramdr%\l.com %_cap}            {}
  191.  Review Past Capture   {:rta}  {exec-d %ramdr%\l.com %savedir\*.cap}   {}
  192.  Capture Screen        {:gr+}  {screen y,%savedir\commo.scn}           {}
  193.  Show Screen Capture   {:gr-}  {edit %savedir\commo.scn}               {}
  194.  Review Call Log       {:alr}  {exec-d %ramdr%\l.com %_hom%commo.log}  {}
  195.  Edit  ACTION File     {:end}  {inpu abbr,Which 2-letter ACTION File?}
  196.                                {edit %_hom%action.%abbr%}              {}
  197.  
  198.  *---* Load other macros from here *---*
  199.  Load HOST mode        {:al5}  {macl mosthost.mac,bbs}                 {}
  200.  RingLOG Macro         {:sf5}  {macload ringlog.mac,g01}         {return}
  201.  DosFunc Macro         {:nf9}  {macload dosfunc.mac,g01}         {return}
  202.  
  203.  *---* Messaging macros *---*
  204.  Ascii Upload          {:ala}  {asci %dldir%\,:}                       {}
  205.  Capture/Quote Message {:alo}  {screen n,%_hom%quote.in}
  206.                                {scro} {edit %_hom%quote.in}
  207.                                {ifex %_hom%quote.in,,equote}
  208.                                {rope %_hom%quote.in,equote}
  209.                       {:nline} {read line} {send -> %line%^m^j}
  210.                                {goto nline}
  211.                      {:equote} {send  ^m} {exec-n del %_hom%quote.in}  {}
  212.  
  213.  *---*  An automatic ASCII message entry system for PCBoards *---*
  214.  {:nf8}          {setv file,%dldir%\} {inpu file,Name of Upload Message}
  215.                  {ifex %file%,,n_e}
  216.                  {parm ,,,,2}  {send e|}  {asciiup %file%,}
  217.                  {parm ,,,,0}  {send ~~|~~~sn|}
  218.                  {lookfor Command?}
  219.                  {display ,,,^j^j}
  220.                  {display ,18,1E,▌ Erase %file%? [Y/n] ▐^m}
  221.                  {setlook 5,y_d,,}
  222.                  {golook y_d,y}
  223.                  {golook n_e,n}
  224.                  {lookfor 'N' Skips Message Delete}
  225.  {:y_d}          {exec-n del %file}
  226.  {:n_e}          {send ^h}{disp ,18,,                                 ^m}{}
  227.  
  228.  *---*  A guarded Alt-X command when leaving Commo from the terminal screen.
  229.  {:alx}  {setv count,0} {setescape-p0 noex}
  230.          {display 24,1,74,  EXIT ^(Commo^) at "30" > }
  231.          {display ,,70,   Are you Sure? (Y/n) }
  232.          {display 24,26}
  233.          {setv %count,0} {setv %resp,0}         ;initialize variable
  234.  {:xlop} {setg 1,upct,n} {gets-h %resp,1,q_t}   ;set up 1 second wait
  235.          {comp %resp,n} {ifcon noex}            ;compare response
  236.          {comp %resp,y} {ifcon q_t}             ;if resp = y, goto :q_t
  237.  {:upct} {disp 24,26,71,%count}
  238.          {disp 24,26} {incr %count}
  239.          {comp %count,31} {ifcon-G q_t,xlop} {retu} ;loop or :q_t
  240.  {:noex} {display 24,1,,                                                  ^m}
  241.          {retu}
  242.  {:q_t}  {exit}
  243.  
  244.  
  245.  *---*  A tool to search a file for a string.
  246.  *---*  Display the entire first line that includes a match.
  247.  
  248.  {:cf3}          {inpu name,Name to search from ADDRESS book}
  249.                  {rope %savedir\address,aend}
  250.  {:aloop}        {read addr}
  251.                  {inst addr,%name}
  252.                  {ifco ,aloop}
  253.                  {setv oldrow,%_row}  {setv oldcol,%_col}
  254.                  {setv row,%_row} {decr row,2}
  255.                  {disp %row,1,20,                                                                                }
  256.                  {disp %row,1,20,%addr} {disp %oldrow,%oldcol}
  257.                  {rclo}
  258.  {:aend}         {setv row}  {setv oldrow}  {setv oldcol}
  259.                  {setv name} {setv addr}    {retu}
  260.  
  261.  *---*  Automatic mark and dial routines *---*
  262.  
  263. !{:sf7}          {hold 05:30}  {call nfb}                              {}
  264. !{:nf7}          {unmark} {mark Weather}                {dial ,}       {}
  265. !{:nfa}          {hold 05:30}
  266. !                {mark 2 ■,3 ■} {dial-c 40,}
  267. !                {mark weather} {dial-c 40,} {retu}
  268. !{:nfb}          {unmark} {mark 2 ■,3 ■} {dial-c 40,} {unmark}         {}
  269. !{:sfb} {:sfa}   {mark 2 ■,3 ■,Maine,smvti,wolf's,direct,dataw,ledge}
  270.                  {disp 6,21,1f,║   Weekend!  Dial All ■ marked BBS's    ║}
  271.                  {dial -c 40,}  {}
  272. !{:sf1}          {unmark} {mark Node 3}      {dial 15}                 {}
  273. !{:sf2}          {unmark} {mark Director}    {dial 15}                 {}
  274. !{:sf3}          {exec-n d:\br\jabber}                                 {}
  275.  
  276.  *---*  Routines that might be useful to a remote sysop *---*
  277.  
  278.  Aview at NLBBS        {:alv}  {door-m0} {send aview|} {setv dway,yes} {}
  279.  View ANSWER1          {:cf9}  {exec-d %ramdr%\l.com %savedir\answer1} {}
  280.  View COASTAL sessions {:cf0}  {exec-d %ramdr%\l.com %savedir\*.log}   {}
  281.  Edit Upgrade Instruct {:ale}  {setv file,%ins_dir\setup.ins}
  282.                                {inpu file,File to edit}
  283.                                {edit %file} {setv file}                {}
  284.  
  285. ┌──────────────────────────────────────────────────────────────────────────┐
  286. │           Download list tagging using COMMO built-in tools               │
  287. ├──────────────────────────────────────────────────────────────────────────┤
  288. │                *   Featuring dual-function   Alt-D   *                   │
  289. │                *   depending on ON/OFF line Status   *                   │
  290. ├──────────────────────────────────────────────────────────────────────────┤
  291. │ {:ald}   {ifca mlist}           ;Alt-D first checks for CARRIER          │
  292. │          {dial}    {}           ;If NO, bring up dialing directory       │
  293. │                                                                          │
  294. │ {:mlist} {scre n,%_hom%dl-list} ;If CARRIER ONLINE, name screen image    │
  295. │          {scro}                 ;Enter scrollback mode:                  │
  296. │                                 ;  This is where you will tag files      │
  297. │                                 ;  Use the "W" facility in scrollback    │
  298. │                                 ;  Press C/R twice on each file to tag   │
  299. │                                 ;  Press ESC to quit tagging.  Next,     │
  300. │          {edit %_hom%dl-list}   ;Enter COMMO's built-in editor:          │
  301. │                                 ;  Add or delete file names, 1 per line  │
  302. │                                 ;  Description text will be stripped     │
  303. │                                 ;  later in the macro.                   │
  304. │ {ifex %_hom%dl-list,dstart}  {} ;Graceful exit if you deleted all lines. │
  305. │                                                                          │
  306. │ {:dstart}{setv file}                                                     │
  307. │          {inpu file,C/R to Start DownLoad Now}   ;A chance to exit       │
  308. │          {comp file}  {ifco go-dl}          {}   ;  before start of d/l. │
  309. │                                                                          │
  310. │ {:go-dl} {send d|}                 ;To the BBS, the download command     │
  311. │                                    ; (or use the FLAG command)           │
  312. │ {rope %_hom%dl-list,end-dl}        ;Open file list for reading           │
  313. │                                                                          │
  314. │ {:next-1}{read file}               ;Read one complete line into %file%   │
  315. │          {subst file,1,12,%file}   ;Strip all but first 12 characters    │
  316. │          {send ~~~%file%|}         ;Send filename to BBS                 │
  317. │          {goto next-1}             ;Repeat read unti dl-list is all read │
  318. │                                                                          │
  319. │ {:end-dl}{exec-n del %_hom%dl-list};Delete the list after sending        │
  320. │          {send ~|}  {}             ;This macro is ended.                 │
  321. │                                    ;Waiting for Auto-Zmodem d/l?         │
  322. └──────────────────────────────────────────────────────────────────────────┘
  323.  
  324. ┌────────────────────────────────────────────────────────────────┐
  325. │   COMMO Macro that calls a WAFFLE BBS and checks for ZIPNEWS   │
  326. ├────────────────────────────────────────────────────────────────┤
  327. │                                                                │
  328. │ *  This macro uses a variable called %pword2%.                 │
  329. │ *  That variable is defined in my COMMO.FON file so I can      │
  330. │ *  freely share all of my COMMO.MAC file with the world.       │
  331. │                                                                │
  332. │ {:cfb} {send open inet|}                                       │
  333. │                                                                │
  334. │        {parm ,,,,390}                                          │
  335. │        {setlook 30,,15,|}                                      │
  336. │        {golook byz,try later}                                  │
  337. │        {lookfor NEW:}         {send ~cboldt|}                  │
  338. │        {lookfor Password:}    {send %pword2|}                  │
  339. │        {lookfor Command? }    {send ~zipnews|}                 │
  340. │        {setlook 240,nozn,,}                                    │
  341. │        {golook nozn,No new articles}                           │
  342. │        {lookfor Found:}       {setg ,,l}     {gets-H count,7}  │
  343. │        {comp count,15}        {ifco-L nozn}                    │
  344. │        {lookfor articles?}    {send ~~y|}                      │
  345. │        {lookfoR ^xB00}                                         │
  346. │        {exec-N dsz rz -m %dldir\inet%_mon%%_day.zip}           │
  347. │ {:nozn}{setlook ,,10,n|}                                       │
  348. │        {lookfor Command? }    {parm ,,,,600}                   │
  349. │        {send ~bye|}           {parm ,,,,0}                     │
  350. │        {pause 5}  {ifca ycar}     {return}                     │
  351. │ {:ycar}{setlook ,,5,|}                                         │
  352. │        {lookfor Command?}     {send m|}                        │
  353. │        {return}                                                │
  354. └────────────────────────────────────────────────────────────────┘
  355.  
  356.  *---*  Call the National Weather Service.
  357.  *---*  This macro saves to a disk file and to the printer.
  358.  
  359.  {:wtr}  {exec-N xeq prstring 018 027 077 027 120 000 027 108 008 027 048}
  360.          {exec-N f:}
  361.          {exec-N cd \futil}
  362.          {exec-N yow >prn}
  363.          {exec-N xeq prstring 010 010 010}
  364.          {exec-N d:}
  365.          {pause 2}
  366.          {send |}
  367.          {pause 2}
  368.          {setlook 60,abt,5,|}
  369.          {send |}
  370.          {lookfor er Case}
  371.          {send y|}
  372.          {setlook 120,abt,15,|}
  373.  {:ec0}  {push} {golook n|,N,NS?}
  374.          {lookfor FIRST} {pops}
  375. !        {send Chuck|}
  376.          {lookfor Last}
  377. !        {send Seyboldt|}
  378.          {lookfor echo)?}
  379.          {send %_pas|}
  380.          {lookfor Function}
  381.          {send P|}
  382.          {setlook 15,abt,5,|}
  383.          {lookfor PUBLIC <}
  384.          {send 1|}
  385.          {lookfor FORECAST}
  386.          {clear} {capture y,%dldir%\report.wtr} {printlog y}
  387.          {exec-N echo ******************************* >> %dldir%\report.wtr}
  388.          {exec-N echo WEATHER FOR   %_dat %_tim       >> %dldir%\report.wtr}
  389.          {exec-N echo ******************************* >> %dldir%\report.wtr}
  390.          {setlook 120,abt,5,|}
  391.          {lookfor TIDES}
  392.          {clear} {capture n} {printlog n}
  393.          {pause 4}
  394.          {send |}
  395.          {setlook 10,abt,5,|}
  396.          {lookfor PUBLIC <}
  397.          {send 7|}
  398.          {lookfor SUMMARY}
  399.          {clear} {capture y,%dldir%\report.wtr} {printlog y}
  400.          {exec-N echo ======---------------------====== >> %dldir%\report.wtr}
  401.          {exec-N echo         STATE WEATHER SUMMARY     >> %dldir%\report.wtr}
  402.          {exec-N echo ======---------------------====== >> %dldir%\report.wtr}
  403.          {setlook 120,abt,5,|}
  404.          {lookfor Enter to continue}
  405.          {clear} {capture n,%savedir\%_mon%%_day.cap} {printlog n}
  406.          {pause 2}
  407.          {send |}
  408.          {setlook 20,abt,5,|}
  409.          {lookfor PUBLIC <}
  410.          {send |}  {goto ewr}
  411.          {lookfor FUNCTION}
  412.          {send A|}
  413.          {lookfor Almanac <}
  414.          {Send 8|}
  415.          {lookfor SNOW...}
  416.          {lookfor .^m}
  417.          {clear} {capture y,%dldir%\almanac.wtr} {printlog y}
  418.          {exec-N echo ************************************* >> %dldir%\almanac.wtr}
  419.          {exec-N echo ALMANAC ENTRY FOR   %_dat %_tim       >> %dldir%\almanac.wtr}
  420.          {exec-N echo ************************************* >> %dldir%\almanac.wtr}
  421.          {setlook 120,abt,10,|}
  422.          {lookfor  continue ?}
  423.          {clear} {capture n,savedir\%_mon%%_day.cap} {printlog n}
  424.          {send |}
  425.          {setlook 10,abt,5,|}
  426.          {lookfor ALMANAC <}
  427.          {send |}
  428.  {:ewr}  {lookfor Function}
  429.          {send G|}
  430.          {lookfor Comment}
  431.          {send N|}
  432.          {lookfor NO CARRIER}
  433.          {hangup y}  {call sf5}  {}
  434.  {:abt}  {send |~~~|~~~~~~~G|~~~~~N|}
  435.          {clear} {capture n,savedir\%_mon%%_day.cap} {printlog n}
  436.          {hangup y}  {retu}
  437.  
  438.  *---*  The environment variable macro below is obsolete.
  439.  ┌────────────────────────────────────────────────────────────────────────┐
  440.  │ COMMO Macro to transfer a DOS environment variable to a COMMO variable │
  441.  ├────────────────────────────────────────────────────────────────────────┤
  442.  │          {inpu e_var,Name the DOS variable to transfer to ^(Commo^)}   │
  443.  │          {exec-n set>%ramdr%\temp}                                     │
  444.  │          {rope %ramdr%\temp,edone}                                     │
  445.  │ {:eloop} {read c_str}                                                  │
  446.  │          {inst c_str,%e_var}                                           │
  447.  │          {ifco ,eloop}                                                 │
  448.  │          {inst c_str,=}                                                │
  449.  │          {setv posi,%_pos}                                             │
  450.  │          {incr posi}                                                   │
  451.  │          {subs %%e_var,%posi,255,%c_str}                               │
  452.  │          {rclo}                                                        │
  453.  │ {:edone} {setv c_str} {setv e_var} {setv posi}                         │
  454.  │          {exec-n del %ramdr%\temp} {retu}                              │
  455.  └────────────────────────────────────────────────────────────────────────┘
  456.  
  457.  *---*  Providing anti-crash protection on downloads
  458.  
  459.                  {inpu file, Start}
  460.  {:shuffle?}     {setv ext,1000}
  461.                  {ifex %dldir\%file,shuffle!,retu}
  462.  {:shuffle!}     {decr ext}
  463.                  {inst %file,.}
  464.                  {ifco ,newname}
  465.                  {setv pos,%_pos}  {decr pos}
  466.                  {subs file,1,%pos,%file}
  467.  {:newname}      {setv file,%file.%ext}
  468.                  {ifex %dldir\%file,shuffle!,retu}
  469.  
  470.  *---*  Making a mark on every 00/00/00 dialing directory entry
  471.  
  472.                  {rope %_fon,retu}
  473.      {:agin}     {read bbsname}
  474.                  {inst %bbsname%,/}
  475.                  {ifco ,agin}
  476.  
  477.                  {setv pos,%_pos}
  478.                  {decr pos,2}
  479.                  {subs mo,%pos,2,%bbsname}
  480.  
  481.                  {comp mo,00}
  482.                  {ifco ,agin}
  483.  
  484.                  {subs bbsid,70,8,%bbsname}
  485.                  {mark %bbsid}
  486.                  {goto agin}
  487.  
  488.  *---*  This macro was designed to press a key every 7 minutes
  489. {:perpet}  {setv hr,%_24h} {setv min,%_min} {setv interval,7}
  490.            {incr min,%interval%}
  491.            {comp min,54}
  492.            {ifco-G up_hr}
  493.            {goto p_loop}
  494. {:up_hr}
  495.            {comp hr,23}
  496.            {ifco ,p_loop}
  497.            {setv hr,0}
  498. {:p_loop}  {hold %hr%:%min%}  {send hi! } {goto perpet}
  499.            {}
  500.  
  501.  *---*  This macro is related to my workplace.  Should be in a separate.MAC
  502.  {:get_pn}       {disp 9,34,1e,                }
  503.                  {inpu part,What Part Number? ("q" to quit)}
  504.                  {inst part,q}
  505.                  {ifco endmac}
  506.                  {call get_op}
  507.                  {call modify}
  508.                  {call send_op}
  509.                  {goto get_pn}
  510.  {:endmac}       {}
  511.  
  512.  {:get_op}       {setv desc} {setv op_no} {setv string} {setv wc}
  513.                  {setv sut}  {setv setup}
  514.                  {disp 9,23,1f,                             }
  515.                  {disp 9,26,1e,Part #: %part}
  516.                  {inpu op_no,Operation Number}
  517.                  {comp op_no}
  518.                  {ifco get_pn}
  519.                  {rope %_hom%work\opdata,get_op}
  520.  {:data_loop}    {read opdata}
  521.                  {subs test,1,4,%opdata}
  522.                  {comp test,%op_no}
  523.                  {ifco-E ,data_loop}
  524.                  {rclo}
  525.                  {subs wc,17,6,%opdata}
  526.                  {subs desc,25,20,%opdata}
  527.                  {subs sut,49,5,%opdata}
  528.                  {subs setup,57,1,%opdata}
  529.                  {setv opdata}
  530.                  {retu}
  531.  
  532.  {:modify}       {inpu desc,Description of Op# %op_no}
  533.                  {inpu wc,Default WC: OP %op_no% : %desc}
  534.                  {inpu sut,Standard Unit Time for %desc}
  535.                  {inpu setup,Setup Time for %desc}
  536.                  {setv ok,y}
  537.                  {inpu ok,%desc Run=%sut Setup=%setup WC=%wc OK?}
  538.                  {comp ok,y}
  539.                  {ifco ,modify}
  540.                  {retu}
  541.  
  542.  {:send_op}      {disp 2,5,,Operation Number: %op_no%}
  543.                  {disp 3,5,,Is in Workcenter: %wc}
  544.                  {disp 4,5,,Operation Called: %desc}
  545.                  {disp 5,5,,Standard Unit Hr: %sut}
  546.                  {disp 6,5,,Setup Hours:      %setup}
  547.                  {retu}
  548.  
  549.  *---*  Play Space Below:
  550.  
  551. {:cf2}   {setg 20,end,l}
  552.          {gets-hx play,5}  {:end} {}
  553.  
  554.          {setv play1}  {input play1,Put in a value for "PLAY1"}  ;try 'NODE'
  555.          {setv play2}  {input play2,Put in a value for "PLAY2"}  ;try 'ID'
  556.          {display ,,,^j^j^m}
  557.          {display ,,,The variable Play1 is: %play1} {disp ,,,^J^M}
  558.          {display , ,The variable Play2 is: %play2} {disp ,,,^m^j}
  559.          {display ,,,Variable Play1+Play2 is: %play1%%play2}{disp ,,,^m^j}
  560.          {setv-s play3,%play1%%play2}
  561.          {display ,,,The variable play3 = the variable %play1%%play2%: %play3}
  562.          {}
  563.