Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : CHALLENG.T

 
Output of file : CHALLENG.T contained in archive : ZMSCRIP.ZIP
::Revised 6-03-89 For Turbodial 2.16+
pH30; restime
pat; set remote CHALLENG.T
echo " \042TeleGodzilla\042"
echo " Omen Technology Inc"
echo "\42The High Reliability Software\42"
echo "Professional-YAM Remote Access"
if dS goto foo
on !c set remote LOGFAIL; fail
goto foo
foop: echo "Please no special characters"
foo: if !v cls
accept remote "Name (first AND last) Please: "
if !c set remote LOGFAIL; fail
if "E>60" echo "Inactivity Timeout"; o; fail
if "%remote>80" echo "Name too long"; o; fail
if "%remote<3" echo "Name is too short"; goback foo
if Cremote goback foop
if "Jremote,01234567890][}{\\|=+_)(*&^%$#@!~`;:<>?" goback foop
if !dS if iremote,link goto link
if "dX&&iremote,xpc" goto xpc
sleep 2
if m echo "WARNING: Extra characters after Carriage Return!"; sleep 5
purgek
mput "Is '%remote' Correct (y/n) ?"
if !y goback foo
:: if "!iremote,caf test" goto spctst
pH180; z -S
if premote,/ goto account
demand %password
p?0; sets s1 "%remote"
echo "Scanning for message(s) from sysop to you"; find "To \L%s1" answer
if !? return
echo "Please type or download the file 'answer'."
return
link: on
if dX goto linkfoo
if "S<10000||!iMODEM,TB" goto link1
pat 1 OK
sleep 15; mput "+++"; wait -f3
putw "ATS51=4\r"
speed 9600
putw "ATO\r"
link1: pk-1; link
echo "Link FINISHED"
kill
sleep 20
o
fail
xpc: echo "Please Give the xpc command after you log in"
goback foo
linkfoo: echo "Link not available at this time"
kill
o
fail
:: User names beginning with "/" are matched to account info.
:: Each line of "accounts" consists of three fields separated by tabs:
:: Login name, password, login home directory
account: lput "Searching for Account Information\r\n"
open %lib/accounts
if !t o; fail
set s1 "\r"
loop: grab s0
split s0 " " " "
lput "s0=%s0 z0=%z0 z1=%s1 z2=%z2\r\n"
if Iz0,remote lput "FOUND IT!\r\n"; sets s1 "%z1"; sets s2 "%z2"
if t goto loop
closetx
lput "remote=%remote password=%s1 directory=%s2\r\n"
demand "%s1"
if !c fail
sets home "%s2"
set s1 ""
cd

spctst: echo "TeleGodzilla is reserved for Network Performance Measurements."
echo "TeleGodzilla will be available later. We aplogize for the"
echo "inconvenience. Good bye cruel world."
sleep 30
o;fail


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : CHALLENG.T

  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/