********************************************* ;tsnot fHOSTpSYSTEM ;tV use thlanabebif ; ; Cchive ar © th89 Dan at Bnowh ( ->V uo1.3) ; Cchive ar © th90-th92 N it-Ae b Dahle wd ; FeTrWARE!!!! ;******************************************************* ;tramase thloo ~ ; by 1.6ifs. Atlwetlean Iald n: ; Sad w roriassEx. gcosoll jemcf ithlaYmodtell ies ; P Wosto frF s ause c.llafterw ; 1.7 ; P Wosto ftesop tsf dw ; 1.8 ; Douoh/iass ; 1.9 ; Moro frF s auan as ; 1.91 ; Pad stablem bl e curll frF s a ; 1.92 ; UL/DLhoved ; 1.93 ; Re oto B leus ; Co wi s n tbebd ; 1.94 ; U Argoex is onlhe hsRe.tupn(.lln tlicsz0- NCommve arRe.tup) ; 1.95 ; Re ot yeYmotus 1p s krrogcon.. ; 1.96 ; C. A esoig.tonaias ; 1.97 ; C. A esoig.frF s aiass ; Lo wknfile ; 1.98 ; Cladnup,hThe CArgo wi s/co wi s ter. Ar ; 1.99 ; C. A eus 1dos-h me_aEsoig.SYi sias ; yhThe CLus 1 wi s p tsf d2llaTusyd ; og).0 ; C. A ed2llaTusyd us 1U/D curlcre Lts ; og).1 ; Fquesaa rain2llaTusyd us 1$ t"DL"uConal ; ould n.PoshisilReabut id bx. gcos ; ould n."sly bng froiup/bl e cur ; og).2 ; C. A ed2lad stabu rgumihtoCSCREEN env3.x i warn yofee on twi s ; o'Rsave 's cccDs p tsf d2The CL. ; og).3 ; JPhosaa rq ; og).4 ; C. A ed2ny rogth me_aERtall agsaa3001ses nEou rorsdiaondistt wo ; og).5 ; Mnge the menu . A mitob nrlynen downlo ; og).6 ; ould n.fea s:ownlo th fmail togduring-Bhere indgduring-G ; P Wnbe :mymsg.nu an xs~~Taitstias ; g).7 ; Asn ot wknr(by tnv - b hek facilReablsste y,-I me arRt ago loo ; le toane soon E- last ; g).8 ; C. A ed rorein eselcesu igHOLD-l ~mis.font's are oo ; l ~ me arRbe.font's The lieweturnc ye mBU-u rgning. ; men It ,)opies Wisyll ies ; g).9 ; C. A ehap tsf dkrrogcoe lie.M.O's are nil p tsf d ; g)10 ; YABH (YicsAnt of fBendHt .r) ; Monted2nwo \" inede has ug-repoeYmot... ; ould n.S not Slast ig.Syi siurin.... ; o to 1000a TF $ -d whild wh NCo680rBS h noNT.... ; g)10E ; oB le ig 22rchah,run In... ; g)11E ; oSS hhe menun ot wk.fea s ; ou fteso fuhing ruser).ld n,.sub.orerorejPhoBBS hafterw, ; saa rain2diaintte fuTheeis Arr n. ; oTter- Th tht succbette hange inFiam: ne.; ; g)12 ; Aedinge fon L knoucoccIfs:oSm windows ble inobBDTR-. A u~m sTn yh . ; o... indgn yz This isg.txtBLeenave nurely ile sn esu ign yofee ; oot begcmaeio wk crtEif last w. - NaEsoAT Q1E0ts. - Tpio wksdiaons. ; o(C. A eh by rdons M the wd [?]).; ; g)20 ; A ter. Ahange en ot wkly rortsnot fg). ; M Inll s rer.TECoimm now gives abut . Adleear after-ooke ; g)21 ; M fona rain2diain- NutyedI@que ; g)3 ; Sto uale ramelht De onn e eseANSIain2diain-te fuTce. Wly ause ; nwowaited f she re graphics ("- Th tht sly bngOFROSET $ter. A=deg)3EAme, 930531" ;-------------------------------------------- ; Setaftesee line FF wBS hiarn yl snilo ;-------------------------------------------- SET $ Lraaaa= ial a(:h~~ /" c;D l roriaisc.uConal ;be last menut of SET $as Lra= $ Lr"ass/" ;assefast SET $. Lra= $ Lr". gcos/" ;. gcosefast SET $asgs Lra= $ Lr"asgs/" ;asTh thsefast SET $u Lraa= $ Lr"Conas/" ;Up curll y SET $ Lraa= $ Lr"Conas/" ;Dl e curll y SET $hhldFaa= $ Lr"hhld/" ;Holrll y SET $alad aaa= ic:lhasaa" ;lad stabh me_aE SET $aram. aa= ic:lhasla" ;ram.stabh me_aE SET $aex u My =ic:lhasxa" ;ex u Mybh me_aE SET $a w aa= i.lzh" ;user, thex iss A SET $hhldzooa= $ Lr"Conas/HOLD"$a w ;Holrownlo SET $tWi = $ Lr"Conas/NHS.tWi" ;T Wiodevunwnlo SET $twi th=deB ingtl eno " ;NNUSESir wil o SET $ram. aa= ic:lam." ;D l lam.f SET $qlam.aa= ic: Lr" ;Afquick lam.f SET $de hasa= ic: e has" ;De has SET $ pala= ic: pal" ;Cpal SET $MaxBaudh=de2400" ;Mile s MaximumcBaud SET $ osh me = $ Lr"Ck me/" ; os/OpenSeriagortio oto ;scruConaliin-holrll yx. size 2 e hand otgof toundzoccIf!!! ;-------------------- M A I N P R O G R A M -----------------------; cuncf"\f" ;Cladrarie: REQUESTpOFF itst: yhTlr0, re gol/Oc gof t ;If toundzeu will fsnsus gol/Oc gtedn ;Wly roreRING1 inespswerank l~~it( es nEou 3001ged. bisi ;ausxtBLitefast iAtlwek.. esu ig "\r\nNO CARRIER\r\n"1ged. NoCick er gol/Oc ghe begc ;ShouIerial wspic ;LOGIN- NComm nesave line FF: $NNUSOKturns (o"T"er too m taexists ; ine$t tsOKtisturns (otruyoh tleave youp tsf dtistOK gol/Oc gdiain-----------;Getaleave&up tsf d es nEou 3001ged. bisi ;ausxtBLitefast iAtlwek.. eh ttttte$t tsOKt==o"T"efu igged.tOK WrngNNUS: Tndg "WEitg!!\n" es wilb $ Lr"dia"de\n"$ o i" de$ t" yWEitgup tsf d:N"$p tse\n" gol/Oc gdiaou goxlaburitst ;Utesohistrig eh st OK: es wilb $ Lr"dia"de\n"$ o i" dLiain:de$ t" ("$baud")\n" Tndg "\n\nY Rmany diaou ro:n:"$inLny e\n" urntttte$ULCre Lt = $lcre Lt urntttte$DLCre Lt = $dlcre Lt urntttte$S ntus = $s ntus eh ttttte$syi st==o"Syi s"efu igSET $sys's =o"T" eh ttttte$syi st==o"CoSyi"efu igSET $sys's =o"T" eh ttttte$syi st==o"CoSyi"efu igSET $co wi =o"T" ; Setave arR~~~m sT urntttte$~~~m sT = $~~~m sT ; Setave arRu rtoste urntttte$u rto = $u rto gol/Oc gSetP rto gol/Oc ")~~ dia es nEou 2 eeuld o f Tndg "^[[97x" ehnpb on"$S O"\r" es nEou 3001ged. bisi ;ausxtBLitefast iAtlwek.. eeuld on Tndg "\nPwi3.5[ENTER]mai.." ehnpb on"$cesmyO"\r" e Tndg "\f" TF !EXISTS $asgs Lr$ tefu igged.tOK1 STndg "\n\nY tBL- Th tht sly bng.\n" Tndg "==========================\n\n" he m 2 OK1: asc Tnd $as Lr".as0" ;r isfer) f ~itst be p be p: gol/Oc "M In "MT Tndg "ANT syl I'mey screen tologen (EnaeT=Y)? " ehnpb on"$cm O"\r" TF $cm t==o"N" THENgged.tbe p Tndg "\n" gol/Oc gdiaou goxlaburitst ;--------------------- S U B R O U T I N E S ---------------------- ;******************************************************** ;* If toundzertEif wil o ;******************************************************** of t: pped dur $ Lr"h~~ .ed dur" . A u~ Tndg"\w\w\w+++\w\w\w\wATZ\n"1;Reurns (osLderg@bn o tedo us7 "OK"g"\w\w\w+++\w\w\w\wATX4V1M0E1\n"1; tedo us7 "OK"g"\w\w\wATS7=60\n" ;Wly onhasuu e futh rorecick er sly "OK" SET $twi's =o"F" SET $co wi =o"F" eeuld o f dsu is es nEou 0 lsly "de has >nil:F"$hhld"#?" es wilb $hhld$twi th$twi t"\n Immvunal wson ter. Ah"$ter. A"\n" esave ;******************************************************** ;* Wly roreCRONECT ;******************************************************** tedn : dsu is e Tndg " \r" gol/Oc gskip tedn0: SET $Lo wk =o"F" euncf"\n\n\n"$twi t" e[Pwi3.5'?' rorwnesp]\n" euncf"Wly bng Ah wk ..\n" CednW: es nEou 3001Ged. DoEx Q--------;ejPhously ror 5 e fuths ehnpb on"$c~~m ""--------;Getan stripped on es nEou 901ged. notedn TF !$c~~mt==o"?" THENgged.ttedn1 euncf"\n\nSpaTE =oLo wksdiaon\n" goxlaburtedn0 tedn1: TF $c~~mt==o" " THENgged.oLo wk TF $c~~mt==o"R" Tu igged.oLo wk2 tedn2: esu ig "CRONECT 1200"gged.otedn1200 esu ig "CRONECT 2400"gged.otedn2400 esu ig "CRONECT 4800"gged.otedn4800 esu ig "CRONECT 9600"gged.otedn9600 dteoELEC7 SET $.audh=d$MaxBaud Tndg "\n\w\wAT\w\wA\n" es nEou 901ged. notedn sly "NO CARRIER" NoCedn : s wilb $ Lr"dia"de\n\n"$ o i" dLiainlle was\n\n" gol/Oc gof t goxlatedn tedn3: dsu is es nEou 3001ged. bisi eeuld on gol/Oc gskip esave Lo wk: euncf"\nS not wheio wksdiaon.." eSENDg "\n+++\w\wAT\wQ1\wE0\n" SET $.audh=d"19200" SET $Lo wk =o"T" egoxlaburtedn3 Lo wk2:euncf"\nS not wheio wk/io otosdiaon.." eSENDg "\n+++\w\wAT\wQ1\wE0\n" SET $.audh=d"19200" goxlaburtedn3 QuirNHS: pped dur ralecg:alecg.ed dur" . h tedn1200: SET $.audh=d"1200" goxlaburtedn3 tedn2400: SET $.audh=d"2400" goxlaburtedn3 tedn4800: SET $.audh=d"4800" goxlaburtedn3 tedn9600: SET $.audh=d"9600" goxlaburtedn3 ;************************************************************************** ; Cved er tant of - The wholeheCoNHSs (fquir. ; If thinbcw Exa Conala tdoNHSQUIT shu ze 2llaTues Ubguitto TCll y ; syl m wino ocbletafter, notup-te fuTc 2llaTu DELETEh fast ; r 2llaTu o too mConasgo.p ~iThe CLI. ; r Slast .h itunIGAsaquiroffe.yo to 1stlwsownlo ;*************************************************************************** DoEx Q: TF !EXISTS "to TC/NHSQUIT" THENgged.oCednW H A u~m ; r not .txp ~in TECary lsly "to TC/DELETEhto TC/NHSQUIT" lQUIT lEND ;******************************************************** ;* ShouI"he begT",i.e.ank l~ic le you shousts. - T ;*gdiain. ;******************************************************** he beg:e Tndg "\f"$twi t" ("$baud")ld now "$ o i"\n" Tndg $(T dto/tsnot fH~~ sSwil ox(NHS) v"$ter. A"\n" e. h "\e[33m" Tndg "Cchive ar (c) th89 Dan at Bnowh (-> v uo1.3)\n" Tndg "Cchive ar (c) th901& th92 N it-Ae b Dahle wd\n\n" e. h "\e[31m" asc Tnd $ Lr"he begT esave ;******************************************************** ;* ShouI")~~ diaT",i.e.ank l~ic le you shouswill ap;*gdiain. ;******************************************************** h~~ dia: Tndg "\n\n" asc Tnd $ Lr"h~~ diaT ; lsly "cy bieT esave ;******************************************************** ;* HW".aftertleave youp tsf dtinliewetu line FF ;* $leave you$p ts. ;******************************************************** Liain:deeuld on urntttte$NNUSOKt=o"F" eif !EXISTS $ Lr"fter Thistu igged.oFirstUtes urntttte$firstvun =o"T" es nEou 120gged.oLogSlode Liainun In: Tndg "\n\nYase leav: " ehnpb on $leave"\r" TF tttte$ th== iaewistu igged.o fiUtes N it ts: Tndg "\nYs sop tsf d: " eeuld o f hnpb on $p tse"\r" euld on TF tttte$p tsh== iistu igged.oN it ts es nEou 3001ged. bisi e Tndg "\n" urntttte$SkippP tsf dh=deF" gol/Oc gCved N t eh ttttte$t tsOKt==o"T"efu igesave eif !$firstvunt==o"T"efu igged.tANTYs Sure urntttte$firstvun =o"F" Tndg "\n\nSrr y,blic screp tsf dtistinArr \n" Tndg "T yxun In,*enaeT NEW the w,iBL.txtrig eh sts. - T.\n" goxlabur Liainun In ANTYs Sure: STndg "\nhye mwas2nwo sitiah f ies.\n" Tndg "ANT syl I'mey screen tologenn?x(N/y):" hnpb on $oke"\r" Tndg "\n" h ttttte$okt==o"Y"efu igged. Liain urntttte$NNUSOKt=o"F" eesave ; Cved er tar afteraexists hnear after-a valid tiI that, he CLI tooke Cved N t: urntttte$NNUSOKt=o"F" eurntttte$t tsOKt=o"F" u lia va $ Lr"fter Thi restat eeso.p"r $x h t!$xt==o"#istu igged.oNotN t eh t$xt==o"EOFistu igged.oNotN t eeso.p"r $inlic h t!$inlic t==o$ tefu igged.tNotve atN t eurntttte$NNUSOKt=o"T" ;Tl.lodbe DOaexist,dows beeeso. hnear aret to fix mooke.... eeso.p"r $inp ts eh t$inp tst==o"EOFistu igged.oEOFEx h tt$SkippP tsf dh==o"Fistu igh t!$inp tst==e$p tshtu igged.oEOFEx eeso.p"r $in~~~m sT h t$in~~~m sTt==o"EOFistu igged.oEOFEx eeso.p"r $inlcre LT h t$inlcre LTt==o"EOFistu igged.oEOFEx eeso.p"r $indlcre LT h t$indlcre LTt==o"EOFistu igged.oEOFEx eeso.p"r $s ntus eh t$s ntust==o"EOFistu igged.oEOFEx eeso.p"r $intwi s eh t$swi st==o"EOFistu igged.oEOFEx eeso.p"r $inu rto h t$u rto ==o"EOFistu igged.oEOFEx eeso.p"r $inany h t$any ==o"EOFistu igged.oEOFEx eurntttte$t tsOKt=o"T" egoxlaburNotN t ;r isfer) noNT beel yo inerSearst ml Ild noEOF situattu up tsf dtistwEitg EOFEx : urntttte$x =o"EOFi es wilb $ Lr"dia"de\n"$ o i" dUSERFILE CORRUPTEDICE", "hoved !!\n" Notve atN t: eh ttttte$odbe ==o"EOFistu ig Try$x = $inlic NotN t: e probl t$xt==o"EOFi u lia va d. - eesave LogSlode: Tndg "\n\nLiaon e_aminuandeshe re2we fuths\n" gol/Oc gdiaou goxlaburitst ;r isfer)usy therel a(firstaftera tologockingproblemnoN/hiihtoCtwi s FirstUtes: urntttte$isswi st=o"T" asc Tnd $ Lr"FirstUtes" urntttte$NNUSOKt=o"F" egoxlaburNewN t NewUtes: asc Tnd $ Lriaewutes" urntttte$isswi st=o"F" Newn t: Tndg "\n\nYase leav: " ehnpb on $leave"\r" Tndg "\nImm'e$ t"' Crr ?x(y/N)" hnpb on $oke"\r" Tntttte$SkippP tsf dh=deF" h ttttte$sswi st==o"Fistu i gol/Oc gCved N t eTF !$okt==o"yistu igged.o fi t TF tttte$NNUSOKt==o"Fistu i god.o fiP tsIn Tndg "\nSrr y,too m tae$ t" is oexists!\n" egoxlaburNewn t fiP tsIn: Tndg "\nYs sop tsf d: " eeuld o f hnpb on $p tse"\r" euld on Tndg "\nOTc 2L re... : " eeuld o f hnpb on $p ts1e"\r" euld on h ttttte$p tst==e$p ts1stu i god.o fiP tsOK Tndg "\nSrr y,td wh NCTTE,*enaeTup tsf dtun In\n" goxlabur fiP tsIn fiP tsOk: gol/Oc gGetC. rSsT urntttte$In~~~m sTt=e$~~~m gol/Oc gGetTth P rto urntttte$iu rto = $tth eif !EXISTS $ Lr"fter Thistu igs wil $ Lr"fter This"#\n" es wilb $ Lr"fter Thite$NNUS"\n" es wilb $ Lr"fter Thite$P ts"\n" es wilb $ Lr"fter Thite$C. rs"\n" es wilb $ Lr"fter Thite"N\n" es wilb $ Lr"fter Thite"N\n" h ttttte$sswi st==o"Tistu ies wilb $ Lr"fter Thit"n \n" h ttttte$sswi st==o"Fistu ies wilb $ Lr"fter Thit"n\n" h ttttte$sswi st==o"Tistu ies wilb $ Lr"fter Thit"Syi s\n" h ttttte$sswi st==o"Fistu ies wilb $ Lr"fter Thit" fi\n" es wilb $ Lr"fter Thite$Tth s"\n" es wilb $ Lr"fter Thite$ o i"\n" s wilb $ Lr"dia"d$ o i"\n\nur fi Utes:ae$ t"\n" es nEou 3001ged. bisi e Tndg "\n" ; Ht user). fuhing rukingsTsrd i Ex. Ex su not *f ... ;jPho).lde youde has fuhingsted aphicinete e Tndg "\nB. - Tpyy *enaeTpload it,-I wnot *~~k0t willoespswer\n" Tndg "tn 2folbifs fuhings:\n" Tndg "\nAe wi3.5(2/4): " ehnpb on $tWie"\r" s wilb $ Lr"fter Thite $tWi"\n" Tndg "\nAe wi3.5(3/4): " ehnpb on $tWie"\r" s wilb $ Lr"fter Thite $tWi"\n" Tndg "\nAe wi3.5(4/4): " ehnpb on $tWie"\r" s wilb $ Lr"fter Thite $tWi"\n" Tndg "\nnotpb er: " ehnpb on $tWie"\r" s wilb $ Lr"fter Thite $tWi"\n" Tndg "\n\nhyenkt wi,-I hopTpyy *enjoyitefast!\n\n" es wilb $ Lr"fter Thite"#\n" urntttte$SkippP tsf dh=deF" gol/Oc gCved N t eesave ;******************************************************** ;SkipejPnkxs~~Tank l ile ;******************************************************** skip: es nEou 31ged. SkipOK L re: sly "" goxlaL re SkipOK:es nEou 3001ged. bisi eesave ;******************************************************** ;* Logenut ;******************************************************** diaou : ;sly "f laste" asc Tnd $ LriLiaou " . A u~ s wilb $ Lr"dia"d$ o i"r Liaou : e$ t"\n" lsly "de has >nil:F"$hhldzoo"F"$hhld"#?" es wilb $hhld$twi th$twi t"\n Run is supter. Ah"$ter. A"\n" if tttte$NNUSOKt==o"Tistu i gol/OcPwiC. A eUtes if tttte$nNUSOKt==o"Tistu ig Try$ fiLny = $ o i if tttte$NNUSOKt==o"Tistu i gol/OcC. A eUtes eesave ;******************************************************** ;* Utes slodes ;******************************************************** bisi: Tndg "\n\nGoondoe at!" s wilb $ Lr"dia"d$ o i" Slodee grted \n" gol/Oc gdiaou goxlaburitst ;******************************************************** ;Mtstias ;******************************************************** M In "MT: Tndg "\nC me_aER ? sit! rorias): " ehnpb on"$cm O"\r" Tndg "\n" TF $cm t==o"?" THEN asc Tnd $as Lr".as0" TF $cm t==o"!" THEN asc Tnd $as Lr"as0" TF $cm t==o"G" THENgesave eTF $cm t==o"F" THEN gol/OcF wa "MT eTF $cm t==o"B" THEN gol/OcBuu "MT eTF $cm t==o"O" THEN gol/O1p s eTF $cm t==o"S" THEN gol/O1twi s eTF $cm t==o"C" THEN gol/OoCg-repo eTF $cm t==o"M" THEN gol/OoMrF s a eTF $cm t==o"E" THEN gol/OoLw giv "MT eTF $cm t==o"P" THEN gol/OoC. A eP tsfd eTF $cm t==o"L" THEN gol/OoListUtesa eTF $cm t==o"V" THEN Tndg"V use t:"$ter. A"\n" goxlaburM In "MT ;******************************************************** ;Cye recompYSOP ;******************************************************** p s : Tndg "Cto wicnpYSOP..\n" Tndg "(pwi3.5Ctrl-Zlloeenter. Ardo usoccIf)\n" nnels dteoELEC3 nnels dteoELEC3 nnels s wilb $ Lr"dia"d$ o i" Pa eh ster.or\n" esu ig "^Z"gged.oEtiCye cye : ehnpb on"$cesmyOO"\r" Tndg "\n" goxlaburtye EtiCye : dlsu i Tndg "\n" esave ;********************************************* ;C. A e P tsf d ;********************************************* C. A eP tsfd: e. h "\n\nWnuI they screen to . A e as sop tsf dn t? (EnaeTis is Tc l) " eeuld o f hnpb on $psw1e"\r" h ttttte$psw1h== iisTHENgged.oPsQuir euld on Tndg "\nOTees nEaL re,rman us " eeuld o f hnpb on $psw2e"\r" PsOu : euld on TF !$psw1h== $psw2eTHENgged.oPsQuir urntttte$u tsh=($psw2 gol/Oc gPwiC. A eUtes urntttte$ fiP tsh=($psw2 gol/Oc cC. A eUtes eesave PsQuir: urnt$psw1h=e$u ts urn $psw2e=e$u ts goxlaPsOu ;******************************************************* ;Se/* th ferRu rtostel ;******************************************************* SetP rto: eh ttttte$u rto ==o"Xistu i MENUSELECT TRANSFER 7 0 eh ttttte$u rto ==o"Yistu i MENUSELECT TRANSFER 7 1 eh ttttte$u rto ==o"Bistu i MENUSELECT TRANSFER 7 2 eh ttttte$u rto ==o"Gistu i MENUSELECT TRANSFER 7 3 eh ttttte$u rto ==o"Zistu i MENUSELECT TRANSFER 7 4 eh ttttte$u rto ==o"Kistu i MENUSELECT TRANSFER 7 5 eh ttttte$u rto ==o"Eistu i MENUSELECT TRANSFER 7 6 eh ttttte$u rto ==o"Jistu i MENUSELECT TRANSFER 7 7 eh ttttte$u rto ==o"Qistu i MENUSELECT TRANSFER 7 8 esave ;******************************************************* ;uld - stream ofet ;******************************************************* GetC. rSsT: Tndg "\nWnuI menu Mys turnsthey screen tofte? (L rorsdist):" hnpb on $~~~m i"\r" Tndg "\n" h ttttte$~~~m t==o"L" tu i asc Tnd $ Lr"C. rSsTs" h ttttte$~~~m t==o"L" tu i goxlaGetC. rSsT h ttttte$~~~m t==o"" tu i goxlaGetC. rSsT u lia va $ Lr"C. rSsTs" urntttte$yh=deF" restat eeso.p"r $x h !$~~~m t==y$x tu i god.o fxtC. rs urntttte$x =o"EOFi eurntttte$yh=deT" fxtC. rs: e probl t$xt==o"EOFi u lia va c. - h ttttte$yt==o"T"efu igged.tC. rsetOK Tndg "\nIisg.txtn. The n~~~m sTt"$~~~m ". to this(uenaeT.\n" goxlaburGetC. rSsT C. rsetOK: esave ;******************************************************* ;Ge/* th ferRu rtostel ;******************************************************* GetTth P rto: Tndg "\nWnuI Tth ferRu rtostesthey screen tofte? (L rorsdist):" hnpb on $ th i"\r" Tndg "\n" h ttttte$ th t==o"L" tu i asc Tnd $ Lr"Tth P rtos" h ttttte$ th t==o"L" tu i goxlgGetTth P rto h ttttte$ th t==o"" tu i goxlgGetTth P rto Cved P rto: lia va $ Lr"Tth P rtosS" urntttte$yh=deF" restat eeso.p"r $x h !$ th t==y$x tu i god.o fxtTth s urntttte$x =o"EOFi eurntttte$yh=deT" fxtTth s: e probl t$xt==o"EOFi u lia va c. - h ttttte$yt==o"T"efu igged.tTth sOK Tndg "\nIisg.txtn. The Ru rtostes"$ th ". to this(uenaeT.\n" goxlaGetTth P rto Tth OK: esave ;******************************************************* ;Prestaree line FF wfont). A mfter ;******************************************************* PwiC. A eUtes: STntttte$aewu tse=e$u ts STntttte$aew~~~m sT = $~~~m sT STntttte$aewULCre Lt = $ULCre LT STntttte$aewDLCre Lt = $DLCre LT STntttte$aewS ntus = $S ntus STntttte$aewSwi st= $intwi s eSTntttte$aewP rto = $P rto eSTntttte$aewLny = $inany esave ;******************************************************* ;C. A e a*enavuaio'fter Th' ;******************************************************* C. A eUtes: sTntttte$CUOKt=o"F" etin " pala>nil:F"$ Lr"fter Thn tF"$ Lr"fter Th.hld" etin "de has >nil:F"$ Lr"fter Thi u lia va $ Lr"fter Th.hld" restat eeso.p"r $x s wilb $ Lr"fter Thit$x"\n" h t!$xt==o"#istu igged.oCUNotN t eh t$xt==o"EOFistu igged.oCUNotN t eeso.p"r $inlic Try$x = $inlic eh t$xt==o"EOFistu igged.oCUNotN t es wilb $ Lr"fter Thi $inlic "\n" h t!$inlic t==o$ tefu igged.tCUNotve atN t ;Tl.lodbe DOaexist,dows beeeso. hnear aret to fix mooke.... eeso.p"r $inp ts es wilb $ Lr"fter Thie$aewu ts"\n" eh t$inp tst==o"EOFistu igged.oCUEOFEx eeso.p"r $in~~~m sT s wilb $ Lr"fter Thie$aew~~~m sT"\n" h t$in~~~m sTt==o"EOFistu igged.oCUEOFEx eeso.p"r $inlcre LT s wilb $ Lr"fter Thie$aewULCre LT"\n" h t$inlcre LTt==o"EOFistu igged.oCUEOFEx eeso.p"r $indlcre LT s wilb $ Lr"fter Thie$aewDLCre LT"\n" h t$indlcre LTt==o"EOFistu igged.oCUEOFEx eeso.p"r $s ntus es wilb $ Lr"fter Thie$aewS ntus"\n" eh t$s ntust==o"EOFistu igged.oCUEOFEx eeso.p"r $intwi s es wilb $ Lr"fter Thie$aewSyi s"\n" eh t$swi st==o"EOFistu igged.oCUEOFEx eeso.p"r $inu rto s wilb $ Lr"fter Thie$aewP rto"\n" h t$u rto ==o"EOFistu igged.oCUEOFEx eeso.p"r $inany s wilb $ Lr"fter Thie$aewLny e\n" h t$any ==o"EOFistu igged.oEOFEx eurntttte$CUOKt=o"T" egoxlaburCUNotN t ;r isfer) noNT beel yo inerSearst ml Ild noEOF CUEOFEx : urntttte$x =o"EOFi es wilb $ Lr"dia"de\n"$ o i" dUSERFILE CORRUPTEDICE", "hoved !!\n" CUNotve atN t: eh ttttte$odbe ==o"EOFistu ig Try$x = $inlic CUNotN t: e probl t$xt==o"EOFi u lia va d. - esave ;******************************************************* ;Listu has sdvrtBLrig eh st ;******************************************************* ListUtesa: Tndg "\nUtesald n tF"$ o i"\n" lia va $ Lr"fter Thi restat eeso.p"r $x h t!$xt==o"#istu igged.oLUNotN t eh t$xt==o"EOFistu igged.oLUNotN t eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "\nN t="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t if $twi's ==o"T"efu ig Tndg"P tsf d="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t if $twi's ==o"T"efu ig Tndg"C. rset="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t if $twi's ==o"T"efu ig Tndg"ULCre LTs="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t if $twi's ==o"T"efu ig Tndg"DLCre LTs="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "Uteslto l="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t if $twi's ==o"T"efu ig Tndg"P rtstels="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "Lny on="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "Ae wi3.="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "Ae wi3.="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "Ae wi3.="$x"\n" eeso.p"r $x h t$xt==o"EOFistu igged.oLUNotN t Tndg "notpb er="$x"\n" LUNotN t: e probl t$xt==o"EOFi u lia va d. - esave ;******************************************************** ;Fonaias ;******************************************************** F wa "MT: Tndg "\nFonaic me_aER ? sit! rorias): " ehnpb on"$cm O"\r" Tndg "\n" TF $cm t==o"?" THEN asc Tnd $as Lr".as1" TF $cm t==o"!" THEN asc Tnd $as Lr"as1" TF $cm t==o"" THENgesave eTF $cm t==o"Q" THENgesave eTF $cm t==o"L" THEN gol/OoListFonal TF $cm t==o"D" THEN gol/OoDl e cur TF $cm t==o"U" THEN gol/OoUp cur TF $cm t==o"V" THEN gol/OoViewZOO eTF $cm t==o"S" THEN gol/O1QListFonal TF $cm t==o"EXT" THEN gol/O1Ex u MyZOO eTF $cm t==o"ADD" THEN gol/OoAe Fona TF $cm t==o"DEL" THEN gol/O Re ot TF $cm t==o"DIR" THEN gol/O Shou TF $cm t==o"GET" THEN gol/OaGetHhld egoxlaburF wa "MT ;******************************************************** ;ListuConaliin-bl e curll y ;******************************************************** ListFonal: Tndg "\n" lsly $lam." "$ Lr eesave ;******************************************************** ;ListuConaliin-bl e curll yfquick ;******************************************************** QListFonal: Tndg "\n" lsly $qlam." "$ Lr eesave ;******************************************************** ;Dl e curlwnlo ;******************************************************** Dl e cur: TF $DLCre LTt==o"Y"efu igged. Dl e OK1 Tndg "\nNouConaliup,hnouConale been..\n" esave Dl e OK1: Tndg "\nFonaleav: " ehnpb on $ConaO"\r" Tndg "\n" TF $Conah== iisTHENgesave eTF exists $ Lr$ConaeTHENgged.oDl e OK Tndg "~~~~~~~~m'e$ Thi' that NComexist!\n" esave Dl e OK: Tndg "Cld - Ru rtostes(esave ha,i $u rto"):" hnpb on $u rtoO"\r" Tndg "\n" TF $u rtoh== iisTHENgged.oXDl e cur urntttte$ th t= $u rto gol/Oc gCved P rto urntttte$u rto = $tth egol/Oc gSetP rto XDl e cur: Tndg "Wly bng...\n" .sub.ore $ Lr$Cona s wilb $ Lr"dia"d$ o i" Dl e cud n."$ Thi (Xfile w\n" Srntttte$DLCre Lt = "N" esave ;******************************************************** ;Up curlwnlo ;******************************************************** Up cur: Tndg "\nFonaleav: " ehnpb on $ConaO"\r" Tndg "\n" TF $Conah== iisTHENgesave eTF $ULCre LTt==o"Y"efu igged. ULOK Tndg "\n\nSrr y the causes, .sub.or-cre LT..\n" gesave ULOK: TF !EXISTS $u Lr$ConaeTHENgged.oUp curOK Tndg "~~~~~~~~m'e$ Thi' als oexists!\n" eesave Up curOK: Tndg "De lasbetoo mCona: " ehnpb on $de lO"\r" Tndg "\n" GetP rto: Tndg "Cld - Ru rtostes(esave ha,i $u rto"):" hnpb on $u rtoO"\r" Tndg "\n" TF $u rtoh== iisTHENgged.oXUp cur urntttte$ th t= $u rto gol/Oc gCved P rto urntttte$u rto = $tth egol/Oc gSetP rto XUp cur: Tndg "Wly bng...\n" .bl e curl$u Lr$Cona s wilb $ Lr"dia"d$ o i" Up cud n."$ Thi (Xfile w\n" TF !$de lh== iisTHENgsly "FonalotosConaO"$u Lr$Cona" ug-repoe\""$de l"\"" urntttte$DLCre Lt = "Y" esave ;******************************************************** ;B gcoias ;******************************************************** Buu "MT: asc Tnd $as Lr".as2" buu : Tndg "\nB gcoinu an R ? sit! rorias): " ehnpb on"$cm O"\r" Tndg "\n" TF $cm t==o"?" sTHENgged.oBuu "MT eTF $cm t==o"!" sTHENgged.oBuu " TF $cm t==o"" THENgesave eTF $cm t==o"Q" sTHENgesave eTF exists $. Lr". "$cm sTHENgged.oShouBuu Tndg "Isitiah . gco-nu an !\n" egoxlabur. Buu ": asc Tnd $as Lr"as2" egoxlabur. ShouBuu : Tndg "\n" lasc Tnd $. Lr". "$cm s wilb $ Lr"dia"d$ o i" HW". . gco #"$cm "\n" egoxlabur. ;******************************************************** ;Syi sias ;******************************************************** ;res wil,).ldeposhisilRea shou3.xrche NC Syi s "MT: asc Tnd $as Lr"as3" Syi s: TF $twi's ==o"T"sTHENgged.oSysOK Tndg "N st the 'n P.M.O'lbif d!\n" s wilb $ Lr"dia"d$ o i" A~ Wis 'erensubctedic me_aE\n" eesave SysOK: Tndg "\nSyi siC me_aER ? rorias): " ehnpb on"$cm O"\r" Tndg "\n" TF $cm t==o"?" THENgged.oSyi s "MT eTF $cm t==o"Q" THENgesave eTF $cm t==o"" THENgesave eTF $cm t==o"L" THENgged.oListLog eTF $cm t==o"R" THEN goxlaPriv TF $cm t==o"D" THEN god.oDe hasLog eTF $cm t==o"C" THEN god.oDe hasC me eTF $cm t==o"B" THEN goto Re otoB leus eTF $cm t==o"S" THEN god.oS notSlast TF $cm t==o"U" THEN god.oU.xrUhe NC ;******************************************************** ;Exitute DOSic me_aE ;******************************************************** s wilb $ Lr"dia"d$ o i" Exituted DOSic me_aE: "$cm "\n" e Tndg "\niC me_aEs thinbcwnnIitexituth xs~~Taio otosare:\n" lsly $lam.o" " $ osh me h ttttte$io wks==o"Fistu i god.o oLo wkDos lsly $cm god.oswi k oLo wkDos: lsly $ osh me$cm god.oswi k oDos: Tndg "\n\nOark the wi eow lo wknfile,*sTory!!\n\n" egod.oswi k egoxlaburswi k ;******************************************************** ;De hasologewnlo ;******************************************************** De hasLog: h ttttte$io wks==o"Fistu i god.o oDos TF tttte$co wit==o"T"efu igged.tswi k e Tndg "\nSI'm? (EnaeT=N)? " ehnpb on"$cm O"\r" Tndg "\n" TF !$cm t==o"Y" THENgged.tswi k esly "de has "$ Lr"dia" s wilb $ Lr"dia"d$ o i" S notw sifi dia\n" egod.oswi k ;******************************************************** ;De has"UNIT", "DPUBLmes ;******************************************************** De hasC me: h ttttte$io wks==o"Fistu i god.o oDos TF tttte$co wit==o"T"efu igged.tswi k e Tndg "\nDe has"all"UNIT", "DPUBLmes (EnaeT=N)? " ehnpb on"$cm O"\r" Tndg "\n" TF !$cm t==o"Y"efu igged.tswi k esly "de has >nil:F"$asgs Lr"Cg-repos" s wilb $ Lr"dia"d$ o i" PNIT", "DPUBLmes2 e hand\n" egod.oswi k ;******************************************************** ;Listologewnlo ;******************************************************** ListLog: Tndg "\n" lasc Tnd $ Lr"dia" s wilb $ Lr"dia"d$ o i" Listw sLia\n" egod.oswi k ;******************************************************** ;Re oto B leus ;******************************************************** Re otoB leus: Tndg "\nRe oto B leusr, notLI.\n" lsly "vun >nil:Fnil:F"$tWi s wilb $tWie"CDF"$hhld"\n" s wilb $tWie$aex u My$ Lr$ Thi "$ Ths"\n" sly "exituthF"$tWi esave ;******************************************************** ;Ae Thn tFHOLD ;******************************************************** Ae Fona: TF $DLCre LTt==o"Y"efu igged. Dl e OK1 Tndg "\nNouConaliup,hnouConale been..\n" esave Ae F1: Tndg "\nFonaleav: " ehnpb on $ConaO"\r" Tndg "\n" TF $Conah== iistu i esave TF exists $ Lr$Conaefu igged. Ae OK Tndg "~~~~~~~~m'e$ Thi' that NComexist!\n" esave Ae OK: sly "COPY "$ Lr$ Thi "$hhld s wilb $ Lr"dia"d$ o i" Add n."$ Th"\n" esave ;******************************************************** ;De has"~~~~(s)ls~~TFHOLD ;******************************************************** Re ot : Tndg "\nFonaleav: " ehnpb on $ConaO"\r" Tndg "\n" TF $Conah== iistu i esave s wilb $ Lr"dia"d$ o i" De hand "$ Th"\n" lsly "de has \""$hhld$ Th"\"" esave ;******************************************************** ;ListuConaliin-HOLDll y ;******************************************************** Shou: Tndg "\n" lsly $lam." "$hhld eesave ;******************************************************** ;Dl e curlwnloliin-HOLDll y ;******************************************************** GetHhld: Tndg "Wly is notiI2lad long as al..\n" lsly "de has >nil:F"$hhldzoo lsly $alad $hhldzoo"F"$hhld"*" GetP : Tndg "Cld - Ru rtostes(esave ha,i $u rto"):" hnpb on $u rtoO"\r" Tndg "\n" TF $u rtoh== iisTHENgged.oXGet urntttte$ th t= $u rto gol/Oc gCved P rto urntttte$u rto = $tth egol/Oc gSetP rto XGet: Tndg "Wly bng...\n" .sub.ore $hhldzoo ls wilb $ Lr"dia"d$ o i" Dl e cud n.HOLD"$a w i (Xfile w\n" lsly "de has >nil:F"$hhldzoo lesave ;******************************************************** ;Lw girias, lNIT", "Dail :******************************************************** Lw giv "MT: Tndg "\nLw givic me_aER ? sit! rorias): " ehnpb on"$cm O"\r" Tndg "\n" TF $cm t==o"?" THEN asc Tnd $as Lr".as4" TF $cm t==o"!" THEN asc Tnd $as Lr"as4" TF $cm t==o"" THENgesave eTF $cm t==o"Q" THENgesave eTF $cm t==o"R" THEN gol/O HW".Lw giv eTF $cm t==o"W" THEN gol/OrW wilLw giv eTF $cm t==o"E" THEN gol/OoDe hanLw giv eTF $cm t==o"G" THEN gol/OrGrabMail goxlaburLc giv "MT ;******************************************************** ;EnaeTiDPUBLme ;******************************************************** W wilLw aeT: Tndg "\nTo:N(enaeTis iostfi) " ehnpb on"$toO"\r" TF $tot== iistu i esave gol/OgCved N t eh ttttte$NNUSOKt==o"TisTHENgged.oWLro"h Tndg "~~~ster ino.pearis supplie tae$to goxlaburW wilLw giv WLro"h: Tndg "\nSubj : (enaeTis iostfi) " ehnpb on"$subj he"\r" TF""""""$subj ht==o"" tu i esave SET $mde ah= "PNIT", i SET $mConah= $to goxlaburw wilDPUB ;******************************************************** ;HW". lNIT", "DPUBLmes ;******************************************************** HW".Lw giv: TF !EXISTS $asgs Lr$ tefu igged.tNoLw giv easc Tnd $asgs Lr$ t s wilb $ Lr"dia"d$ o i" HW". lNIT", "lw givs \n" esave NoLw aeT: Tndg" i lNIT", "Dailn tF"$lic "\n" esave ;******************************************************** ;De has"UNIT", "DPUBLmes ;******************************************************** De hasLw aeT: Tndg "\nErass"all"UNIT", "Dail? (EnaeT=N) " ehnpb on"$cm O"\r" Tndg "\n" TF !$cm t==o"Y"efu igesave esly "de has >nil:F\""$asgs Lr$ t"\"" s wilb $ Lr"dia"d$ o i" PNIT", "DPUBLmes2 e hand\n" eesave ;******************************************************** ;GrabiO s ail ;******************************************************** GrabMail: lsly " pala>nil:F\""$asgs Lr$ t"\"n t \""$hhld"\"" Tndg "\n\nAe "DPUBLmean as (enaeT=Y) ?" ehnpb on"$cm O"\r" Tndg "\n\n" h t!$cm t==o"N"efu ilsly " pala>nil:F\""$asgs Lr"DPUBLmes#?\"n t \""$hhld"\"" Tndg "\n\nAe ". gcose(enaeT=Y) ?" ehnpb on"$cm O"\r" Tndg "\n\n" h t!$cm t==o"N"efu ilsly " pala>nil:F\""$. Lr". #?\"n t \""$hhld"\"" s wilb $ Lr"dia"d$ o i" F~~~~ e cail\n" egoxl t yhhld ;******************************************************** ;EnaeTiDPUBLme ; $tottttttttttt=itousho ; $mConahttttttt=itousfunctile ; $mde ahttttttt=ite all frF s ;******************************************************** W wilMrFs: lsly $ e has " >NIL:hto T__NHSX__TMP__" etin $ pala"a>nil:F\""$asgs Lr$m Th"\"itohto T__NHSX__TMP__" eSET $hW".eTi= "\n\nF~~T: e$ t"\n" lSET $hW".eTi= $hW".eT"To:ae$to"\nSubj : "$subj h"\n" lSET $hW".eTi= $hW".eT"D NC:F"$ o i"\n" SET $hW".eTi= $hW".eT"-------------------------------\n" s wilb "to T__NHSX__TMP__" $hW".eT Tndg $hW".eT Tndg "[W wilbi nurely ncfbebif; " Tndg "Tndis supCtrl-Z ter gbln utd wh]\n\n" esu ig "^Z"gged.oTndWL WLepo: ehnpb on"$d wh "\r" Tndg "\n" s wilb "to T__NHSX__TMP__" $d wh"\n" goxlaburWLep EtiWL: dlsu i tin $ pala"a>nil:Fto T__NHSX__TMP__itoF\""$asgs Lr$m Th"\"" Tndg "\nMrF s isLd!^G\n" s wilb $ Lr"dia"d$ o i" cEnaeTnd "$mde a"y nc\n" eesave s wil ral