Category : Communication (modem) tools and utilities
Archive   : CMC501.ZIP
Filename : CMC.MAC

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°° ±±±±±±±±Ü ±±±±±±Ü ±±±±±±Ü ±±±±±±±±Ü ±±±±±±Ü ±±±±±±Ü °°°°°°°°°°
°°°°°°°°° ±±Û±±Û±±Û ±±Ûß±±Û ±±Ûßßßß ßß±±Ûßßß ±±Ûßßßß ±±Ûß±±Û °°°°°°°°°°
°°°°°°°°° ±±Û±±Û±±Û ±±±±±±Û ±±±±±±Ü ±±Û ±±±±Ü ±±±±±±Û °°°°°°°°°°
°°°°°°°°° ±±Û ßß±±Û ±±Ûß±±Û ßßß±±Û ±±Û ±±Ûßß ±±Û±±Ûß °°°°°°°°°°
°°°°°°°°° ±±Û ±±Û ±±Û ±±Û ±±±±±±Û ±±Û ±±±±±±Ü ±±Û ±±Û °°°°°°°°°°
°°°°°°°°° ßß ßß ßß ßß ßßßßßß ßß ßßßßßß ßß ßß °°°°°°°°°°
°°°°°°°°° ±±±±±±Ü ±±±±±±Ü ±±±±±Ü±±Ü ±±±±±±±±Ü ±±±±±±Ü ±±±±±±Ü ±±Ü °°°°°°°°°°
°°°°°°°°° ±±Ûßßßß ±±Ûß±±Û ±±Û±±Û±±Û ßß±±Ûßßß ±±Ûß±±Û ±±Ûß±±Û ±±Û °°°°°°°°°°
°°°°°°°°° ±±Û ±±Û ±±Û ±±Û±±Û±±Û ±±Û ±±±±±±Û ±±Û ±±Û ±±Û °°°°°°°°°°
°°°°°°°°° ±±Û ±±Û ±±Û ±±Û±±Û±±Û ±±Û ±±Û±±Ûß ±±Û ±±Û ±±Û °°°°°°°°°°
°°°°°°°°° ±±±±±±Ü ±±±±±±Û ±±Û±±±±±Û ±±Û ±±Û ±±Û ±±±±±±Û ±±±±±±Ü °°°°°°°°°°
°°°°°°°°° ßßßßßß ßßßßßß ßß ßßßßß ßß ßß ßß ßßßßßß ßßßßßß °°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°° Welcome to MASTER CONTROL (tm) 5.01 °°°°°°°°°°°°°°°°°°°°°
°°°°°°°°°°° (c)Copyright 1991, Don Garrett All Rights Reserved °°°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°°°°°Press F2 from the terminal screen for the MASTER CONTROL menu°°°°°°°°°°°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û


ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 1: Menu Routines Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ


{:menu}
{sete-p0 clear}
{setg ,,n,}
{call sm13}
{disp 2,4,4f,S}
{disp 2,23,4f,U}
{disp 2,33,4f,D}
{disp 2,45,4f,L}
{disp 2,53,4f,H}

{comp uks,} {ifco um1,}
{call keymgr} {goto um2}
{:um1}
{gets-H input,1,menu}
{:um2}
{sete}
{comp input,S} {ifco menuS,}
{comp input,U} {ifco menuU,}
{comp input,D} {ifco menuD,}
{comp input,L} {ifco menuL,}
{comp input,H} {ifco menuH,}
{comp input,X} {ifco clear,}
{goto menu}


{:menuS}
{call sm7}
{sete-p0 menu}
{disp 2,3,4f, Session planner }
{disp 3,1,4e, ÈËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }
{disp 4,2,4e, ºPlan a new session º }
{disp 5,2,4e, ºMailrun º }
{disp 6,2,4e, ºReplies only º }
{disp 7,2,4e, ºFile download from list º }
{disp 8,2,4e, ºBimodem transfer º }
{disp 9,2,4e, ºAuto marking º }
{disp 10,2,4e, ºUser marking º }
{disp 11,2,4e, ºHold until º }
{disp 12,2,4e, ºStart session º }
{disp 13,2,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }

{disp 4,4,4f,P}
{disp 5,4,4f,M}
{disp 6,4,4f,R}
{disp 7,4,4f,F}
{disp 8,4,4f,B}
{disp 9,4,4f,A}
{disp 10,4,4f,U}
{disp 11,4,4f,H}
{disp 12,4,4f,S}

{comp uks,} {ifco um3,}
{call keymgr} {goto um4}
{:um3}
{gets-H input,1,menuS}
{:um4}
{sete}
{comp input,P} {ifco sm1,}
{comp input,M} {ifco sm2,}
{comp input,R} {ifco sm3,}
{comp input,F} {ifco sm4,}
{comp input,B} {ifco sm5,}
{comp input,A} {ifco bgs,}
{comp input,U} {ifco s13,}
{comp input,S} {ifco rss,}
{comp input,H} {ifco s14,}
{comp input,X} {ifco menu,}
{goto menuS}
{}


{:menuU}
{call sm13}
{sete-p0 menu}
{disp 2,22,4f, Upload }
{disp 3,1,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }
{disp 4,21,4e, ºZmodem batch º }
{disp 5,21,4e, ºYmodem batch º }
{disp 6,21,4e, ºymodem Crc º }
{disp 7,21,4e, ºxModem º }
{disp 8,21,4e, ºPuma º }
{disp 9,21,4e, ºSealink º }
{disp 10,21,4e, ºBimenu º }
{disp 11,21,4e, º º }
{disp 12,21,4e, ºzmodem pOint & shoot º }
{disp 13,21,4e, ºpoint & shoot file Tagger º }
{disp 14,21,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }

{disp 4,23,4f,Z}
{disp 5,23,4f,Y}
{disp 6,30,4f,C}
{disp 7,24,4f,M}
{disp 8,23,4f,P}
{disp 9,23,4f,S}
{disp 10,23,4f,B}
{disp 12,31,4f,O}
{disp 13,42,4f,T}

{comp uks,} {ifco um5,}
{call keymgr} {goto um6}
{:um5}
{gets-H input,1,menuU}
{:um6}
{sete}
{clear}
{comp input,Z} {ifco zup,}
{comp input,Y} {ifco yup,}
{comp input,C} {ifco up2,}
{comp input,M} {ifco up3,}
{comp input,P} {ifco pup,}
{comp input,S} {ifco sup,}
{comp input,B} {ifco dl5,}
{comp input,O} {ifco pns,}
{comp input,T} {ifco pn1,}
{comp input,X} {ifco menu,}
{goto menuU}
{}


{:menuD}
{call sm13}
{sete-p0 menu}
{disp 2,32,4f, Download }
{disp 3,1,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }
{disp 4,31,4e, ºYmodem batch º }
{disp 5,31,4e, ºymodem-G º }
{disp 6,31,4e, ºymodem Crc º }
{disp 7,31,4e, ºxModem º }
{disp 8,31,4e, ºSealink º }
{disp 9,31,4e, ºBimenu º }
{disp 10,31,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍͼ }

{disp 4,33,4f,Y}
{disp 5,40,4f,G}
{disp 6,40,4f,C}
{disp 7,34,4f,M}
{disp 8,33,4f,S}
{disp 9,33,4f,B}

{comp uks,} {ifco um7,}
{call keymgr} {goto um8}
{:um7}
{gets-H input,1,menuD}
{:um8}
{sete}
{clear}
{comp input,Y} {ifco ydl,}
{comp input,G} {ifco dl4,}
{comp input,C} {ifco dl2,}
{comp input,M} {ifco dl3,}
{comp input,S} {ifco sdl,}
{comp input,B} {ifco dl5,}
{comp input,X} {ifco menu,}
{goto menuD}
{}


{:menuL}
{call sm13}
{sete-p0 menu}
{disp 2,44,4f, List }
{disp 3,1,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍͼ }
{disp 4,43,4e, ºUpload/download dir º }
{disp 5,43,4e, ºCommo directory º }
{disp 6,43,4e, ºcommo Doc º }
{disp 7,43,4e, ºcommo Log º }
{disp 8,43,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }

{disp 4,45,4f,U}
{disp 5,45,4f,C}
{disp 6,51,4f,D}
{disp 7,51,4f,L}

{comp uks,} {ifco um9,}
{call keymgr} {goto um10}
{:um9}
{gets-H input,1,menuL}
{:um10}
{sete}
{clear}
{comp input,U} {ifco e01,}
{comp input,C} {ifco e02,}
{comp input,D} {ifco e04,}
{comp input,L} {ifco e05,}
{comp input,X} {ifco menu,}
{goto menuL}
{}


{:menuH}
{call sm13}
{sete-p0 menu}
{disp 2,52,4f, Help(cmc) }
{disp 3,1,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ˼ }
{disp 4,51,4e, ºHow it works º }
{disp 5,51,4e, ºthe Menu system º }
{disp 6,51,4e, ºSession planner º }
{disp 7,51,4e, ºUpload º }
{disp 8,51,4e, ºDownload º }
{disp 9,51,4e, ºFile d/l from a list º }
{disp 10,51,4e, ºConfiguring cmc º }
{disp 11,51,4e, ºfunction Keys - quick refº }
{disp 12,51,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }

{disp 4,53,4f,H}
{disp 5,57,4f,M}
{disp 6,53,4f,S}
{disp 7,53,4f,U}
{disp 8,53,4f,D}
{disp 9,53,4f,F}
{disp 10,53,4f,C}
{disp 11,62,4f,K}




{comp uks,} {ifco um11,}
{call keymgr} {goto um12}
{:um11}
{gets-H input,1,menuH}
{:um12}
{sete}
{clear}
{comp input,H} {ifco hlp1}
{comp input,M} {ifco hlp2}
{comp input,S} {ifco hlp3}
{comp input,U} {ifco hlp4}
{comp input,D} {ifco hlp5}
{comp input,F} {ifco hlp6}
{comp input,C} {ifco hlp7}
{comp input,K} {ifco hlpK}
{comp input,X} {ifco menu,}
{goto menuH}
{}
{:hlp1}{setv hlpnum,1}{goto hlpend}
{:hlp2}{setv hlpnum,2}{goto hlpend}
{:hlp3}{setv hlpnum,3}{goto hlpend}
{:hlp4}{setv hlpnum,4}{goto hlpend}
{:hlp5}{setv hlpnum,5}{goto hlpend}
{:hlp6}{setv hlpnum,6}{goto hlpend}
{:hlp7}{setv hlpnum,7}{goto hlpend}
{:hlp8}{setv hlpnum,8}{goto hlpend}
{:hlp9}{setv hlpnum,9}{goto hlpend}
{:hlp10}{setv hlpnum,10}{goto hlpend}
{:hlp11}{setv hlpnum,11}{goto hlpend}
{:hlp12}{setv hlpnum,12}{goto hlpend}
{:hlp13}{setv hlpnum,13}{goto hlpend}
{:hlpK}{setv hlpstr,nf3 Log Off}{goto hlpend1}

{:hlpend}{exec-d %list %_hom\cmc.doc /F[%hlpnum }{goto menuH}{}
{:hlpend1}{exec-d %list %_hom\cmc.doc /F%hlpstr}{goto menuH}{}



{:clear}

{clear}{}


ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ROUTINES FOR MENU S ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ SESSION PLANNER ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

{:sm1}
{setv mail,}{setv repsonly,}{setv filedown,}{setv bimodem,}
{setv tryflag,0}
{unmark}{call sm7}{goto menuS}

{:sm2}{setv mail,y}{call sm7}{goto menuS}

{:sm3}{setv repsonly,y}{call sm7}{goto menuS}

{:sm4}{setv filedown,y}{call sm7}{goto menuS}

{:sm5}{setv bimodem,y}{call sm7}{goto menuS}

{:sm6}{macr ***menud}{}

{:sm13}{clear}
{disp 1,1,4e, }
{disp 1,1,4e, ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» }
{disp 2,1,4e, º Session planner Upload Download List Help(cmc) º }
{disp 3,1,4e, ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ }
{return}

{:sm7}
{call sm13}
{disp 20,23,4E, MASTER CONTROL SET FOR: ^m^j^j}

{:s12}
{comp mail}{ifco sm8,}
{display ,,4e, MAIL RUN }{goto sm9}
{:sm8}
{comp repsonly}{ifco sm9,}
{display ,,4e, MAIL REPLIES ONLY }
{:sm9}
{comp filedown}{ifco s10,}
{display ,23,4e, FILE DOWNLOAD FROM A LIST }
{:s10}
{comp bimodem}{ifco s11,}
{display ,59,4e, BIMODEM TRANSFER }
{:s11}
{display ,,,^m^j}
{return}

{:s13} {dial} {goto menuS}

{:s14}
{setg ,,l,}
{clear}
{disp ,1,4e, Input the time you would like your ^m^j}
{disp ,1,4e, session to begin, in the form 00:00. ^m^j}
{gets-H hold,5,menuS}
{clear}
{hold %hold}
{goto rss}


ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ROUTINES FOR MENU D ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ DOWNLOADING PROTOCOLS ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

ZMODEM batch {:zmodem} {exec-A DSZ port %_por% rz -m %uldir } {} DSZ.COM

YMODEM batch {:ydl} {exec-A DSZ port %_por% rb %uldir } {} DSZ.COM

YMODEM-G {:ydl} {exec-A DSZ port %_por% rb -g %uldir } {} DSZ.COM

YMODEM CRC {:dl4} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% rc %file } {}

XMODEM CRC {:dl2} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% rc %file } {}

PUMA {:mmm} {exec-A PUMA P%_por% S%m r %uldir\ } {} PUMA.EXE

SEALINK {:sdl} {exec-A PCZ %_por% 2400 rs %uldir\ } {} PCZ.EXE

BIMENU {:dl5}{exec bimenu}{}


ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ROUTINES FOR MENU U ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ UP LOADING PROTOCOLS ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

ZMODEM batch {:zup} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% sz -m %file } {}

YMODEM batch {:yup} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% sb -k %file } {}

YMODEM CRC {:up2} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% sx -k %file } {}

XMODEM CRC {:up3} DSZ.COM
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A DSZ port %_por% sx %file } {}

PUMA {:pup} PUMA.EXE
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A PUMA P%_por% S%m s %file } {}

SEALINK {:sup} PCZ.EXE
{setv file,%uldir\}{input file,Enter a filename:}
{exec-A PCZ %_por% 2400 ss %file } {}

ZMODEM PNS u/l {:pns}
{exec-A DSZ port %_por% sz -m @%uldir\file.lst }{}

YMODEM-G PNS u/l {:up4}{exec-A DSZ port %_por% sb -k @%uldir\file.lst }{}

COMMO PNS FILE TAGGER {:pn1}
{exec-D commopns.exe %uldir\file.lst -D%uldir}
{call sm7}
{goto menuU}

ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ROUTINES FOR MENU L ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ LIST, SHEZ, & DIR ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

LIST ULDL DIR {:e01} {exec-D %list %uldir}{}
LIST COMMO DIR {:e02} {exec-D %list %_hom}{}
LIST %_cap {:e03} {exec-D %list %_cap /e}{}
LIST COMMO.DOC {:e04} {exec-D %list commo.doc}{}
LIST COMMO.LOG {:e05} {exec-D %list commo.log /e}{}
LIST BIMODEM.LOG {:e06} {exec-D %list bimodem.log /e}{}
SHEZ ULDL DIR {:e07} {exec-D %shez %uldir}{}
SHEZ FILELIST DIR {:e08} {exec-D %shez c:\com\filelist}{}
SHEZ ZIPLIB DIR {:e09} {exec-D %shez c:\com\ziplib}{}



ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 2: FUNCTION KEY ASSIGNMENTS Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
===============================================================================
Macros for Shifted Function Keys
===============================================================================
{:sf1} {setv uks,%ukeys1}{goto menu}
{:sf2} {setv uks,%ukeys2}{goto menu}
{:sf3} {setv uks,%ukeys3}{goto menu}
{:sf4} {setv uks,%ukeys4}{goto menu}
{:sf5} {setv uks,%ukeys5}{goto menu}
{:sf6} {setv uks,%ukeys6}{goto menu}
{:sf7} {setv uks,%ukeys7}{goto menu}
{:sf8} {setv uks,%ukeys8}{goto menu}
{:sf9} {setv uks,%ukeys9}{goto menu}
{:sf0} {setv uks,%ukeys0}{goto menu}

============================================================================
Macros for Function Keys
============================================================================
nf1 is reserved for the COMMO help feature.
{:nf2}{setv uks,}{goto menu} Call pull down menu
{:nf3}{goto wd3} Log Off
{:nf4} U/L Rep
{send u|}{pause 2}
{exec-A DSZ port %_por% sz -m %uldir\%bbsid.rep }
{return}
{:nf5} {call renqwk} {return} Renames .QWK file
{:nf6} {goto wcm} Call Wild Cat Mail d/l
{:nf7} {send AT L1|} {return} Quiet modem
{:nf8} {send AT L3|} {return} Loud modem
{:nf9} {exec-N echo ## %_date% %_time% ## >> %_cap%} {return} Time Mark
{:nf0} {exec-N %list %uldir} {return}



===========================================================================
Macros for Alt Function Keys
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

{:af1}{goto :olq}{}
{:af2}{}
{:af3}{}
{:af4}{}
{:af5}{}
{:af6}{}
{:af7}{}
{:af8}{}
{:af9}{}
{:af0}{}

===========================================================================
Macros for Control Function Keys
===========================================================================
{:cf1}{}
{:cf2}{}
{:cf3}{}
{:cf4}{}
{:cf5}{}
{:cf6}{}
{:cf7}{}
{:cf8}{}
{:cf9}{}
{:cf0}{}


ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
FUNCTION KEY ASSIGNMENTS - QUICK REFERENCE
I do a screen print of the portion below and tape it to my keyboard.
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Misc Menus
nf1 COMMO Help sf1 Auto mail af1 Online Quote cf1
nf2 CMC Menu sf2 Auto replies af2 cf2
nf3 Log Off sf3 Auto files af3 cf3
nf4 u/l rep sf4 af4 cf4
nf5 renqwk sf5 af5 cf5
nf6 WC m d/l sf6 af6 cf6
nf7 quiet sf7 af7 cf7
nf8 loud sf8 af8 cf8
nf9 Time Mark sf9 List COMMO dir af9 cf9
nf0 List uldl dir sf0 List ULDL dir af0 cf0


ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 3: LOGON Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ

============================================================================
This is the linked macro used to parse the password and bbsid from the
combination password\bbsid in the CMC.FON file. I got this idea from
Shad Muegge. It means that there is no need for BBS specific linked
macros in the CMC.MAC file.
============================================================================

{:passparse}
{setv bbsid}
{setv _pas}

{setv pas,%_pas}
{inst %pas,\}
{ifco ,passout}
{setv tmp,%_pos}
{incr tmp}
{subs bbsid,%tmp,255,%pas}
{decr tmp,2}
{subs _pas,1,%tmp,%pas}
{setv pas}
{goto bbsinfo}

{:passout}
{setv pas}
{}

{:alw} {send %_pas|} {return}

============================================================================
Read BBS Information.
Reads BBS Information from the CMCINFO.MAC file and returns.
============================================================================
{:bbsinfo}
{macl cmcinfo.mac,%bbsid}
{:bbsinfo1}
{capture n} {capture y,%bbsid}
{comp bsty}{ifco stop,}
{goto %bsty%logon}
{}

============================================================================
UNMark sequence. After a successful logon other references are
unmarked from the dialing directory.
============================================================================
{:umk}
{unmark %bbsid%1,%bbsid%2,%bbsid%3}
{return}

============================================================================
ReMarK sequence. My modem has a problem logging onto certain high
speed modems. If a bad logon is made this sequence will remark
that board. I have this feature set to allow only 3 more trys
total for any one dialing sequence.
============================================================================
{:rmk}
{hangup y} {init} Hangup and initialize modem.
{comp %tryflag,3}{ifco-E rm9,} If already 3 times don't try again.
{incr tryflag}
{mark %bbsid,%bbsid%1,%bbsid%2,%bbsid%3}
{exec-N echo ######################## Remarked %bbsid >> commo.log}
{:rm9}
{capture n}
{call clrvar}
{clear}
{call nf9}
{comp mc}{ifco ,rss1}
{}


============================================================================
Wildcat! logon.
============================================================================
{:wclogon}
{call umk}
{call nf9}
{asci ,:}
{:wc7}
{setlook 60,to1,3,| }
{golo rmk,ž} If ž is found a bad logon is assumed. Branch to remark.
{golo es2,Escape twice}
{golo rmk,NO CARRIER}
{look First Name}
{send %user1st %userlast|%_pas|}
{setlook 300,wd3,3,| }
{:wc6}
{golo rmk,NO CARRIER}
{golo wc7,correctly}
{golo bdy,BIRTH DATE}
{golo phn,Phone Number}
{golo _no,Y/n}
{golo wc2,%mainpmt}
{golo wc2,Settings}
{golo wc2,MENU: [M}
{golo wc2,MENU [M}
{look ESSAGE MENU}
{:wc2}
{comp mc}{ifco ,wdh}
{}

======= subs for nf2 above
{:bdy}{send %userbday|} {send ~~~~y|} {goto wc6} *** send BirthDaY

{:phn}{send %userfon|} {send ~~~~y|} {goto wc6} *** send PHoNe number

{:_no}{send n|}{goto wc6} *** send no

{:es2}{send ^[^[}{goto wc7} *** send Escape twice

===========================================================================
PCBoard logon.
===========================================================================
{:pcblogon}
{call umk}
{asci ,:}{call nf9}
{setlook 60,to1,3,n|}
{golo rmk,NO CARRIER}
{golo rmk,ž} If ž is found a bad logon is assumed. Branch to remark.
{look first name?} {send %user1st %userlast|%_pas|}
{golo pc8,%mainpmt}
{golo pc8,Main Menu Command}
{look Main Board Command}
{:pc8}
{comp mc}{ifco ,wdh}
{}

====
{:to1}
{exec-N echo ######################## TIME OUT ON %bbsid LOG ON >> commo.log}
{goto rmk}


ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 4: AUTOMATIC MAIL UPLOAD AND DOWNLOAD Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ

{:amd}
{comp bsma}{ifco wd1,}
{comp repsonly}{ifco ,am3}
{:am4}
{comp bsty,wc}{ifco wcm,}
{comp bsty,pcb}{ifco pcm,}
{}

{:am2}
{exec-N echo ######################## TIME OUT DURING AUTOMATIC MAIL >> %_hom%commo.log}
{goto wd3}


{:am3}
{ifex %uldir\%bbsid.rep,am4,wd1}



===========================================================================
Wildcat! Mail download and/or upload. (Control is passed to this macro
after logon if exists mail.flg or repsonly.flg.)
===========================================================================
{:wcm} {send m|}
{send ~~}
{send %bsmast|}
{setlook 300,to2,4,|}
{golo rq5,%mailpmt}
{look TOMCAT MENU}
{:rq5}
{ifex %uldir\%bbsid.rep,,rqm}

{:cup} Call UP/load rep
{call nf4}
{golo wcm1,%mailpmt}
{look TOMCAT MENU}
{:wcm1}
{call renrep}
{goto rqm}

{:to2}
{exec-N echo ######################## TIME OUT ON %bbsid TOMCAT MENU >> COMMO.LOG}
{goto wd3}


===========================================================================
Request Tomcat mail from Wildcat! BBS.
===========================================================================
{:rqm}
{comp repsonly}{ifco ,rq12}
{setlook 600,to2,0,}
{:rq7}
{send d|}
{golo rq8,Nothing}
{golo rq6,limit exceeded!}
{golo rq11,.qwk now}
{golo rq10,protocol}
{look transfer?} {send y|}
{:rq11}
{call dlm}
{:rq8}
{setlook 60,to2,4,|}
{look %mailpmt}
{:rq12}
{send q| }
{golo rq12,%mailpmt}
{golo rq12,%msgpmt}
{golo rq12,MESSAGE MENU:}
{golo rq9,%mainpmt}
{look MAIN MENU:}
{:rq9}
{goto wd1}

{:rq6}
{look transfer?} {send y|} If the message limit is exceeded
{call dlm} then go back and ask for more.
{goto rq7}

{:rq10}
{send z|} This added for Tomcat 3.0
{goto rq11}

===========================================================================
*** Down Load Mail (Download .QWK, rename and return.)
===========================================================================
{:dlm}
{golo rq14,^xB00}
{look .qwk now}
{:rq14}
{exec-A DSZ port %_por% rz -m %uldir}
{call renqwk}
{return}


===========================================================================
***PCMail for pcboard
===========================================================================
{:pcm}
{send %bsmast|}
{setlook 600,to3,10,|}
{golo pc10,%mailpmt}
{golo pcm,%mainpmt}
{look }
{:pc10}
{ifexist %uldir\%bbsid.rep,pc1,pc2}
{:pc2}
{golo pc12,%mailpmt}
{look }
{:pc12}
{send d|}
{golo pc9,}
{look N)?}{send y|}
{look }
{:pc4}
{exec-A DSZ port %_por% rz -m %uldir}
{call renqwk}
{golo pc4,}
{golo pc6,

}
{golo pc9,%mailpmt}
{look }
{:pc9}
{send q|}
{setlook 60,wd3,4,|}
{golo pc9,%mailpmt}
{golo pc9,}
{golo pc7,%mainpmt}
{golo pc7,Main Board Command}
{look Main Menu Command}
{:pc7}
{goto wd1}

{to3}
{exec-N echo ######################## TIME OUT %bbsid QMAIL DOOR >> commo.log}
{goto wd3}

====
{:pc1}
{call nf4}
{golo pc11,%mailpmt}
{look }
{:pc11}
{call renrep}
{comp repsonly}{ifco pc2,pc9}


====
{:pc6}
{exec-N echo ######################## DL ERROR %bbsid QMAIL DOOR >> commo.log}
{goto pc9}



ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 5: AUTOMATIC FILE DOWNLOAD. Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ

{:afd}
{ifex %uldir\%bbsid.get,,wd2}
{exec-N echo ## %%_date %%_time ## >> %uldir\get\%bbsid.get}
{exec-N type %uldir\%bbsid.get >> %uldir\get\%bbsid.get}
{comp bsty,wc} {ifco wcf,}
{comp bsty,pcb}{ifco pcf,}
{goto wd2}


===========================================================================
Automatic file download from a list for a Wildcat! BBS.
===========================================================================
{:wcf}
{send F}
{setlook 60,to4,6,|}
{golo wcf1,%filepmt}
{look Search}
{:wcf1}
{send D}
{call fd1}

{golo wc5,%filepmt}
{look ext Search}

{:wc5}
{send q|}
{setlook 60,wd3,4,|}
{golo wc5,%filepmt}
{golo wd2,%mainpmt}
{look MAIN MENU:}
{goto wd2}

{:to4}
{exec-N echo ######################## TIME OUT %bbsid AUTO FILE D/L >> commo.log}
{goto wd3}


========================================================================
Automatic file download from a list for a PCboard BBS.
========================================================================

{:pcf}
{setlook 60,to4,6,|}
{send D|}
{call fd1}

{setlook 60,wd3,4,|}
{golo wd2,%mainpmt}
{look Main Board Command}
{goto wd2}


========================================================================
Generic file download
========================================================================

{:fd1}
{golo fd2,name?}
{golo fd2,Enter File}
{golo fd2,(Enter)=none?}
{golo fd3,complete}
{golo fd4,protocol:}
{golo fd5,%filepmt}
{look ^xB00}
{exec-N DSZ port %_por% rz -m %uldir}
{exec-N del %uldir\%bbsid.get}
{:fd5}
{return}




{:fd2}
{ifex %uldir\%bbsid.get,,fd1}
{asci %uldir\%bbsid.get}
{exec-N del %uldir\%bbsid.get}
{goto fd1}

{:fd3} {send n} {goto fd1}

{:fd4} {send z} {goto fd1}

ÛßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 6: BIMODEM Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
=========================================================================
Bimodem File Transfers - Upload and Download Simultaneously!
=========================================================================
{:bms}
{exec-N del bimodem.pth}
{exec-N copy %bbsid.pth bimodem.pth}
{exec-N copy %bbsid.pth %uldir\oldpth ^del %bbsid.pth}
{ifexist bimodem.pth,,wd3}
{comp bsty,wc}{ifco bm3,}
{comp bsty,pcb}{ifco bm2,}
{goto wd3}

{:bm3} Bimodem transfer for WildCat.
{send F}
{setlook 60,bm4,6,|}
{look ext Search}
{send U}
{look Select:}
{send B}
{golo bm5, You have}
{look Save Upload's}
{send %bsbmuldr|}
{look You have}
{:bm5}
{exec-D %_hom%bimodem.com}
{:bm4}
{setlook 60,wd3,4,|}
{look ext Search}
{send q|}
{golo wd3,%mainpmt}
{look MAIN MENU}
{goto wd3}

{:bm2} Bimodem transfer for PCBoard.
{goto bm4} //This macro is not developed as I currently have
no PCBoards that support Bimodem transfers.


ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 7: Full Screen Editor Key Support Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ
=========================================================================
The following keys are used by full screen editors such as Visual
Editor in ProDoor, PCBoard's full screen editor, ANSIED in RBBS and
others. They may be changed to suit your own needs (all keys do not
work with all editors). See Appendix D in COMMO.DOC for details on
character representation.

Note that the left arrow function (^S) is also the XOFF character.
This may cause a problem on some systems. If pressing the left arrow
seems to hang the remote, press ^Q and change the "lfa" macro to:

{send ^[[D} {} or {send ^@K} {}


========================================================================
Macro Key Function
========================================================================
{:hom} {send ^W} {} Home Start of line
{:end} {send ^P} {} End End of line
{:pgu} {send ^R} {} PgUp Page up
{:pgd} {send ^C} {} PgDn Page down

{:upa} {send ^E} {} Up Arrow Cursor up
{:dna} {send ^X} {} Down Arrow Cursor down
{:lfa} {send ^S} {} Left Arrow Cursor left
{:rta} {send ^D} {} Right Arrow Cursor right

{:cla} {send ^A} {} ^Left Arrow Word left
{:cra} {send ^F} {} ^Right Arrow Word right

{:ins} {send ^V} {} Insert Toggle insert mode
{:del} {send ^G} {} Delete Delete character
{:cnd} {send ^K} {} ^End Delete to end of line



ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 8: Online Quoting Macro Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ

{:olq}
{setv scrsav,%_scr}
{screen n,%uldir\temp}
{scroll}
{exec-N q %_scr}
{asci %_scr}
{exec-N del %_scr}
{screen n,%scrsav}
{}



ÛßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßÛ
Û SECTION 9: Session Control Û
ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ

========================================================================
BEGIN SESSION AUTOMATIC MARKING
========================================================================
{:bgs}
{clear}
{unmark}
{setv mc,y}
{comp mail}{ifco bg1,} Mark BBSs for mail run.
{setv rtnaddrs,mkmail}
{macl cmcinfo.mac,maillist}
{:mkmail}
{setv rtnaddrs}
{setv x,0}
{:mkmail1}
{incr x}
{setv-s bbs,bbs%x}
{comp bbs}{ifco mkmail2,}
{mark %bbs,%bbs%1,%bbs%2,%bbs%3}
{goto mkmail1}

{:mkmail2}
{comp x,0}{ifco bg1,}
{setv bbs%x}
{decr x}
{goto mkmail2}


{:bg1} Marks any BBS with a .REP packet.
{setv x}
{comp repsonly}{ifco bg2,}
{setv rtnaddrs,mkrep}
{macl cmcinfo.mac,maillist}
{:mkrep}
{setv rtnaddrs}
{setv x,0}
{:mkrep1}
{incr x}
{setv-s bbs,bbs%x}
{comp bbs}{ifco mkrep3,}
{ifex %uldir\%bbs.rep,,mkrep2}
{mark %bbs,%bbs%1,%bbs%2,%bbs%3}
{:mkrep2}
{goto mkrep1}

{:mkrep3}
{comp x,0}{ifco bg2,}
{setv bbs%x}
{decr x}
{goto mkrep3}


{:bg2} Check for file down load from a list flag.
{setv x}
{comp filedown}{ifco bg3,}
{macl cmcinfo.mac,fidolist}
{:mkfido}
{setv x,0}
{:mkfido1}
{incr x}
{setv-s bbs,bbs%x}
{comp bbs}{ifco mkfido3,}
{ifex %uldir\%bbs.get,,mkfido2}
{mark %bbs,%bbs%1,%bbs%2,%bbs%3}
{:mkfido2}
{goto mkfido1}

{:mkfido3}
{comp x,0}{ifco bg3,}
{setv bbs%x}
{decr x}
{goto mkfido3}


{:bg3} Check for Bimodem Flag
{comp bimodem}{ifco bg4,}
{macl cmcinfo.mac,bimolist}
{:mkbimo}
{setv x,0}
{:mkbimo1}
{incr x}
{setv-s bbs,bbs%x}

{comp bbs}{ifco mkbimo3,}
{ifex %_hom\%bbs.pth,,mkbimo2}
{mark %bbs,%bbs%1,%bbs%2,%bbs%3}
{:mkbimo2}
{goto mkbimo1}

{:mkbimo3}
{comp x,0}{ifco bg4,}
{setv bbs%x}
{decr x}
{goto mkbimo3}


{:bg4}
{call sm7}{goto menuS}

========================================================================
BEGIN SESSION MANUAL MARKING
========================================================================
{:rss} Restart session after interuption.
{clear}
{setv mc,y}
{display ,18,4e, MASTER CONTROL SESSION IN PROGRESS ^m^j^j}
{call s12}
{comp mail}{ifco rss1,}
{setv repsonly}
{:rss1}
{dial-C 100,}
{setv mail}{setv repsonly}{setv filedown}{setv bimodem}
{setv tryflag,0}{setv mc}{call clrvar}
{clear}{display ,23,4e, MASTER CONTROL SESSION ENDED! ^M^J}
{setv rtnaddrs,stop}
{macl cmcinfo.mac,clear}
{}

========================================================================
SESSION CONTROL
========================================================================

{:wdh}
{comp mail}{ifco ,amd} Goto Automatic Mail Download
{comp repsonly}{ifco ,amd} Goto repsonly upload
{:wd1}
{comp filedown}{ifco ,afd}
{:wd2}
{comp bimodem}{ifco ,bms} Goto bimodem session
{:wd3}
{setlook 60,wd4,4,|g|y|}
{golo wd4,NO CARRIER}
{look for calling, %user1st}
{hangup y}
{golo wd4,OK}
{look NO CARRIER}
{:wd4}
{hangup y}
{pause 1}
{capture n}
{call clrvar}
{clear}
{exec-N echo ## %_date% %_time% ## >> %_cap}
{display ,18,4e, MASTER CONTROL SESSION IN PROGRESS ^m^j^j}
{call s12}
{comp mc}{ifco ,rss1}
{}


===========================================================================
NEW FUNCTIONS
===========================================================================
*RENAME .QWK FILE
{:renqwk}
{comp renum,n}{ifco renqwk1,}
{rope cmc.num}
{read number}
{rclo}
{incr number}
{exec-N ren %uldir\%bbsid.qw* %uldir\%number*.qwk}
{wope cmc.num}
{writ %number}
{wclo}
{:renqwk1}
{comp number,900}{ifco-GE newnum,}
{return}


*KILL CMC.NUM
{:newnum}
{exec-N echo 1 > cmc.num}
{return}


*RENAME AND MOVE .REP FILE
{:renrep}
{exec-N copy %uldir\%bbsid.rep %orepdir\%bbsid.rep}
{exec-N del %uldir\%bbsid.rep}
{comp renum,n}{ifco renrep1,}
{rope cmc.num}
{read number}
{rclo}
{incr number}
{exec-N ren %orepdir\%bbsid.rep %orepdir\%number*.rep}
{wope cmc.num}
{writ %number}
{wclo}
{:renrep1}
{return}


*RENAME ACTIVITY.ARJ
{:renarj}
{rope cmc.num}
{read number}
{rclo}
{incr number}
{exec-N ren %uldir\activity.arj %uldir\%number*.arj}
{wope cmc.num}
{writ %number}
{wclo}
{return}


*RETURN ADDRESS INDIRECT ADDRESS
{:rtnaddrs}
{goto %rtnaddrs}


*STOP
{:stop}
{setv rtnaddrs}
{}


*WELCOME
{:welcome}
{ifex cmc.num,start1,}{exec echo 1 > cmc.num}
{:start1}
{macl cmcinfo.mac,uinfo}
{:uinfo1}
{display 8,,4e, and.... ^m^j}
{display ,,4e, Welcome to MASTER CONTROL (tm) 5.0 ^m^j}
{display ,,4e, (c)Copyright 1991, Don Garrett All Rights Reserved ^m^j}
{display ,,4e, ^m^j}
{}


*KEYMANAGER
{:keymgr} Key manager for User Key Sequences
{subs input,1,1,%uks}
{subs uks,2,50,%uks}
{retu}


*CLEAR VARIABLES
{:clrvar}
{setv bbsid}
{setv _pas}
{setv bsty}
{setv bsmaty}
{setv bsmast}
{setv bsbm}
{setv bsbmuldr}
{setv mailpmt}
{setv mainpmt}
{setv msgpmt}
{setv filepmt}
{retu}