Category : Communication (modem) tools and utilities
Archive   : PROTIME.ZIP
Filename : EEIR.CMD

 
Output of file : EEIR.CMD contained in archive : PROTIME.ZIP
Clear
Set CR_Out CR_LF
Set Wrap On
Set FlowControl On
Set ASCII Echo On
Set BaudRate 1200
Set Parity None
Set DataBits 8
Set StopBits 1
Set Port Com1
Set Kermit BlockCheck 3
Emulate IBM3101
Clear
Dos "ProTime" ; Make initial time check

Start:
Set Duplex Full
Transmit "AT S0=1!"
Clear
Locate 1,0
Message "Waiting for client"

WaitFor "RING" 60
If WaitFor
Goto Answer
Else
Goto SignOff
EndIf

Answer:
Pause 6
If Not Connected
Message "No carrier detected."
Goto CheckOut
EndIf

Gosub Logo
TRANSMIT "^M^JHello. This is Pete Petrakis' computer.^M^J^J"

TRANSMIT "This is a do-it-yourself text transmission setup, and you are in^M^J"
TRANSMIT "control of the entire operation. (Pete might still be in bed or^M^J"
TRANSMIT "even in California).^M^J^J"

TRANSMIT "If you are not using ProComm.EXE for this transmission, hang up right^M^J"
Transmit "now, find ProComm, load it, and call me again. This setup works ONLY^M^J"
Transmit "with ProComm, using MS-DOS. I'll pause 10 seconds to see if you^M^J"
Transmit "hang up.^M^J^J"

Pause 10
If Not Connected
Goto SignOff
EndIf
Transmit "OK. I assume you are using ProComm.^M^J^J"

Transmit "Options:^M^J"
Transmit " 1. Receive a file from me^M^J"
Transmit " 2. Send a file to me^M^J^J"

Assign S1 " "
Prompt1:
Transmit "Enter 1 or 2 (within 1 minute): "
Rget S1 1 60
If Failure
Goto GetOut
EndIf
Switch S1
Case "1"
Gosub Protocol
Goto Upload
EndCase
Case "2"
Gosub Protocol
Goto Download
EndCase
EndSwitch
Goto Prompt1

Protocol:
TRANSMIT "^M^JFile transfer proceeds automatically when you're ready.^M^J^J"

TRANSMIT "Within 1 minute after I send you a protocol list, enter the number^M^J"
TRANSMIT "of the protocol you want, then select the SAME protocol at your end.^M^J"
Transmit "To select at your end, press the PAGE UP key if you're sending a file^M^J"
Transmit "to me, PAGE DOWN if you are receiving a file from me. Either will^M^J"
Transmit "produce ProComm's menu of available protocols. Tell your ProComm^M^J"
Transmit "the number of the protocol you want to use, then answer its prompt^M^J"
Transmit "for the name of the file you want to send or receive.^M^J^J"

Transmit "Any of the protocols will work, but ASCII is the poorest because it^M^J"
Transmit "lacks error checking. Use Kermit for really accurate error checking.^M^J"
Transmit "Kermit is especially good when the lines are noisy.^M^J^J"

Transmit "The file transfer starts as soon as you select the protocol at your^M^J"
Transmit "end and answer your system's prompt to name the file for sending or^M^J"
Transmit "receiving. This system will hang up as soon as the file transfer^M^J"
Transmit "is finished.^M^J^J"

Assign S1 "^M"
Transmit " Press Return to continue (within 1 min.)"
Rget S1 1 60
If Failure
Goto GetOut
EndIf
TRANSMIT "^M^J^JNow tell me what protocol you'll use to transfer this file:^M^J^J"
Transmit " 1. XModem^M^J"
Transmit " 2. Kermit^M^J"
Transmit " 3. Telink^M^J"
Transmit " 4. Modem7
Transmit " 5. YModem^M^J"
Transmit " 6. YModem Batch^M^J"
Transmit " 7. ASCII (Least reliable; no error checking)^M^J"
Transmit " 8. Compuserve B^M^J"
Transmit " 9. WXModem^M^J^J"
Assign S1 " "
Return

Upload:
Transmit "Enter number (within 1 min.): "
Rget S1 1 60
If Failure
Goto GetOut
EndIf
Switch S1
Case "1"
Goto XModSend
EndCase
Case "2"
Goto KermSend
EndCase
Case "3"
Goto TelnkSend
Case "4"
Goto Mod7Send
EndCase
Case "5"
Goto YModSend
EndCase
Case "6"
Goto YBatchSend
EndCase
Case "7"
Goto AscSend
EndCase
Case "8"
Goto CompuSend
EndCase
Case "9"
Goto WXModSend
EndCase
Case "_Null"
Goto Upload
EndCase
EndSwitch

Download:
Transmit "Enter number (within 1 min.): "
Rget S1 1 60
If Failure
Goto GetOut
EndIf
Switch S1
Case "1"
Gosub GetName
Goto XModGet
EndCase
Case "2"
Gosub GetName
Goto KermGet
EndCase
Case "3"
Gosub GetName
Goto TelnkGet
Case "4"
Gosub GetName
Goto Mod7Get
EndCase
Case "5"
Gosub GetName
Goto YModGet
EndCase
Case "6"
Gosub GetName
Goto YBatchGet
EndCase
Case "7"
Gosub GetName
Goto AscGet
EndCase
Case "8"
Gosub GetName
Goto CompuGet
EndCase
Case "9"
Gosub GetName
Goto WXModGet
EndCase
Case "_Null"
Goto Download
EndCase
EndSwitch

GetName:
Assign S2 " "
Transmit "^M^JPlease enter the name of the file and press Return: "
Rget S2 13 60
If Failure
Goto GetOut
EndIf
Return


; SUBROUTINES FOR SENDING FILES

LOGO: ; Send standard opening message, if any
ISFILE "PROCOMM.MSG"
IF SUCCESS
TRANSMIT "^M^J"
SENDFILE ASCII "PROCOMM.MSG"
ENDIF
RETURN

XModSend: ; Send text with XMODEM protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start XModem download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE Xmodem "CLIENT"
ENDIF
Goto CheckOut

KermSend: ; Send text with Kermit protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start Kermit download at your end.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
Assign S1 "CLIENT"
Transmit "Receive"
Transmit S1
Transmit "^M"
KermServe SENDFILE S1
KermServe Finish
KermServe LogOut
EndIf
ENDIF
Goto CheckOut

TelnkSend: ; Send text with Telink protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start Telink download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE Telink "CLIENT"
ENDIF
Goto CheckOut

Mod7Send: ; Send text with MODEM7 protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start Modem7 download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE Modem7 "CLIENT"
ENDIF
Goto CheckOut

YModSend: ; Send text with YMODEM protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start YModem download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE Ymodem "CLIENT"
ENDIF
Goto CheckOut

YBatchSend: ; Send text with YMODEM BATCH protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start YModem Batch download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE BYModem "CLIENT"
ENDIF
Goto CheckOut

AscSend: ; Send text with ASCII protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Set up ASCII download at your end,^M^J"
Transmit "then press Return to start the transfer.^M^J^J"
Transmit "NOTE: ASCII texts will show on your screen,^M^J"
Transmit "but if they are in WordPerfect format you should^M^J"
Transmit "expect them to look a little strange (uneven lines,^M^J"
Transmit "lines overwriting other lines, odd characters, etc.).^M^J"
Transmit "But don't worry, everything should be normal when^M^J"
Transmit "you load them with WordPerfect.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE ASCII "CLIENT"
EndIf
ENDIF
Goto CheckOut

CompuSend: ; Send text with CompuServe B protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start Compuserve B download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE CISB "CLIENT"
ENDIF
Goto CheckOut

WXModSend: ; Send text with Windowed XMODEM protocol
Assign S1 "^M"
ISFILE "CLIENT"
IF SUCCESS
Transmit "^M^JOK. Start Windowed XModem download at your end.^M^J"
Transmit "Press Return to start the transfer.^M^J"
Rget S1 1 60
If Failure
Goto GetOut
Else
SENDFILE WXmodem "CLIENT"
ENDIF
Goto CheckOut


; SUBROUTINES FOR RECEIVING FILES
XModGet: ; Receive text with XMODEM protocol
Transmit "^M^JOK. Start XModem upload at your end now.^M^J"
Pause 10
GetFile Xmodem S2

Goto CheckOut

KermGet: ; Receive text with Kermit protocol
Transmit "^M^JOK. Start Kermit upload at your end now.^M^J"
Pause 10
Transmit "Send "
Transmit S2
Transmit "^M"
GetFile Kermit
Goto CheckOut

TelnkGet: ; Receive text with Telink protocol
Transmit "^M^JOK. Start Telink upload at your end now.^M^J"
Pause 10
GetFile Telink S2
Goto CheckOut

Mod7Get: ; Receive text with MODEM7 protocol
Transmit "^M^JOK. Start Modem7 upload at your end now.^M^J"
Pause 10
GetFile Modem7 S2
Goto CheckOut

YModGet: ; Receive text with YMODEM protocol
Transmit "^M^JOK. Start YModem upload at your end now.^M^J"
Pause 10
GetFile Ymodem S2
Goto CheckOut

YBatchGet: ; Receive text with YMODEM BATCH protocol
Transmit "^M^JOK. Start YModem Batch upload at your end now.^M^J"
Pause 10
GetFile BYmodem S2
Goto CheckOut

AscGet: ; Receive text with ASCII protocol
Transmit "^M^JOK. Set up ASCII upload at your end now.^M^J^J"
Transmit "NOTE: ASCII texts will show on your screen,^M^J"
Transmit "but if they are in WordPerfect format you should^M^J"
Transmit "expect them to look a little strange (uneven lines,^M^J"
Transmit "lines overwriting other lines, odd characters, etc.).^M^J"
Transmit "But don't worry, everything should be normal when^M^J"
Transmit "they are loaded in WordPerfect.^M^J"
Pause 10
GetFile ASCII S2
Goto CheckOut

CompuGet: ; Receive text with CompuServe B protocol
Transmit "^M^JOK. Start Compuserve B upload at your end now.^M^J"
Pause 10
GetFile CISB S2
Goto CheckOut

WXModGet: ; Receive text with Windowed XMODEM protocol
Transmit "^M^JOK. Start WXModem upload at your end now.^M^J"
Pause 10
GetFile WXmodem S2
Goto CheckOut


; LEAVE THE PROGRAM
GetOut:
Transmit "^M^JTime's up. Please call back.^M^J"
Goto SignOff
CheckOut:
Transmit "^M^J^JDone. Signing off. Goodbye.^M^J"
SignOff:
HangUp
Set Duplex Full
TRANSMIT "ATS0=0!"
Clear
Dos "ProTime" ; Check the time
Goto Start ; Loop back, resume waiting


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : PROTIME.ZIP
Filename : EEIR.CMD

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/