| Title: | -={ H A C K E R S }=- |
| Notice: | Write locked - see NOTED::HACKERS |
| Moderator: | DIEHRD::MORRIS |
| Created: | Thu Feb 20 1986 |
| Last Modified: | Mon Aug 03 1992 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 680 |
| Total number of notes: | 5456 |
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 542.1 | Here's mine | WKRP::LENNIG | Dave, SWS, @CYO Cincinnati | Thu Sep 03 1987 13:55 | 5 |
Extract and try this on any vt100+AVO terminal and above.
$set prom=")0f[4m`[mf "
PS - re: .0/536.27 That's pretty slick, Giles
| |||||
| 542.2 | heres another | WJG::GUINEAU | Thu Sep 03 1987 14:49 | 5 | |
| 542.3 | ERIS::CALLAS | Strange days, indeed. | Thu Sep 03 1987 17:31 | 12 | |
Here's the command procedure that builds mine, which was recently
featured in Desparado:
$pr=f$getsyi("NODENAME") !Gets the node name
$if pr .eqs. "" then pr=f$trnlnm("SYS$NODE") - "_" - ":" - ":"
$pl=f$len(pr) - 1 !Make it a capitalized string,
$pp=f$ext(1,pl,pr) !for example "Eris".
$nc=f$ext(0,1,pr) + f$edit(pp,"lowercase")
$if f$getdvi("SYS$COMMAND","TT_DECCRT") then pr="=)0" + nc + "[1m`[m "
$if .not. f$getdvi("SYS$COMMAND","TT_DECCRT") then pr=nc + "+ "
$set prompt="''pr'"
| |||||
| 542.4 | more prompts | FRAMBO::SCHABACKER | Tim Schabacker SWAS FRS ext.226 | Fri Sep 04 1987 10:04 | 38 |
| 542.5 | some more Prompts | FRAMBO::SCHABACKER | Tim Schabacker SWAS FRS ext.226 | Fri Sep 04 1987 11:19 | 26 |
| 542.6 | Yet more prompts | BCSE::BULKA | nick bulka | Fri Sep 04 1987 14:55 | 178 |