The CompuBBS code - October 2020 ----------------------------------------------------------------------------- The CompuBBS code; please use it to communicate :-) ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- readme.txt - file below between horizontal rule ----------------------------------------------------------------------------- The CompuBBS code; please use it to communicate :-)
Satya P. Popuri
Bachelors in Computer Science

Silence is death. The need for an open source bulletin board system is
vital for communication to prosper across this earth planet. In my
travels I have discovered certain tools that help many to research and
develop with ease while maintaining a sound and cogent system toward
such an end. This CompuBBS is an open source version of the NYUNET
bulletin board system I discovered while mistakenly studying and working
there in my quest for enligtenment. As fate would have it, I chanced
upon certain tools that I now present with an assortment of other tools
I have discovered in my triste with death while working in the I.T.
industry.

Indeed, such tools have helped me here and there to maintain a
consistent understanding of not only Unix fundamentals but also a feel
good experience that is second to none. These tools represent the love
affair that never quit. Not only has it valorized and inundated across
this earth planet but has been the aims and means of my reason for
living.

Man needs a proper meditation of the heart and this tool list is one of
the things I have used to be able to better understand myself and
others. It was during the college years that I was exposed to such
tools in over 3 universities and 11 years of employment here and there.
They just work. Given the level of complexity the graphical user
interface engenders it is refreshing to fall back on a tool base that is
time immemorial. So please feel free to use them and contribute toward
the open source endeavor to foster freedom of speech.

For me prayer works but without a means of communication that is
uninhibited and unmoderated we are at a loss for words. That is the
shear beauty of the traditional tools as tin of the USENET NEWS servers;
as well as the irssi of the IRC servers. It goes on. The list of tools
I mention are as follows based on over 20 years of experience with the
UNIX pragma.

0. Alpine - a nice email client
1. Tin - a nice newsreader
2. Irssi - a nice internet relay chat client
3. Lynx - a nice web browser
4. Gopher - a nice ftp client
5. Nslookup - a nice directory service
6. Telnet - a nice remote login tool
7. Tailer - a nice monitoring tool [This I discovered at a .com I worked
for. It simply goes to an i.p. address and searches for a string. If
the string is not there an alert is genertated. Maybe it is out there
in the wild blue yonder of the internet.]
8. Sendpage - this is a nice beeper software that helps to keep in touch
with loved ones and others through the beeper or pager tool.

9. Calc - a nice calculator tool

A. ECN - a nice day trading game [This is Josh Green's day trading
algorithym in Python when he worked at Daytek. I posted it somewhere on
USENET but I am unable to find it.... If you are able to find it please
let me know. I encourage learning how to deal with money because "when
men and women get together [money] gets in the way".] That too, they
say, education is about learning how to communicate and learn how to
deal with money.

B. Bible - a nice text based bible program [Does anyone know of an old
school Bible program that is text based and worthy of praise? Prayer to
Jesus Christ works!]

C. T.I.A. - this is the Tiny IDE Ada editor. Could Ada be the language
to mature with as a programmer, just as the UNIX is the operating system
to mature with as a sysadmin? Surely, Ada is used by the Federations as
NASA, while the UNIX is used by industrys. It seems the larger than
though organizations of the world just invest in things that work.
Unlike those nigger Jews, with thier bullshit Microsoft or pathetic
solution to a complex problem. I am trying to encourage the Ada
programming language over C++ and Java. Does it work? I have no clue.
Been through so many heartaches and pain trying to go beyond the
learning curve trying to program. HTML was the best experience. After
that, it all went downhill.

D. Tutor - a nice Unix tutorial, which I discovered at New York
University. Somewhere there is an open source version of it. It is a
great way to learn the Unix operating system.

E. Nano - a nice text editor

F. Bash - a nice command prompt

$. Exit - a simple exit to the whole CompuBBS tools for research and development.

I have foregoed useing the queue tool as it may cause some problems as
far as managing and maintaining. The queue tool is always an issue for
any I.T. computer lab as it is often the target of attacks by
miscreants. There are other tools, such as 'talk', that are also good
if you know how to use them in the code I mentioned. I refrained from mentioning talk because it requires input about the user and terminal to literally talk to using a text based interface. Maybe someone can
design a text based form to fill out that will allow for one to use talk
and then go back to the main menu. The file list for this CompuBBS
endeavor is as follows:

compubbs.sh
bash-menu.sh
bash-draw.sh
readme.txt

Please find the code in the following USENET newsgroups:

soc.culture.indian
soc.culture.asian.american
soc.culture.usa
soc.cutlure.spain
soc.culture.bangladesh
soc.culture.puerto-rico
alt.computer.consultants
alt.sex.stories.hetero
soc.culture.africa
soc.culture.china
soc.culture.europe
soc.culture.telugu
soc.culture.iran

Let's setup servers of this type of an unmoderated bulletin board
system. The internet through such tools as the BBS has encouraged
reciprocity or mutual respect. This cybermatrix endeavor which I am
trying to contravecy is an attempt toward synergy or mutual success. As
well, there is a need for unity or mutual purpose, which I am coining as Tektocracy. The T.E.A.M. acronymn for "together everyone accomplishes
more" is worth encouraging.

The following are some nice networks I am encouraging toward some level
of mutuality:

# - network - tool - idnustry - smurf - mutuality - signal ----------------------------------------------------------
1 - Simulcast - radio - spiritual - spirituality - arabian - comaradery - analog
2 - Internet - computer - technological - technology - indian -
reciprocity - digital
3 - Cybermatrix - television - financial - fiduciary - hispanic - synergy
- pulse?
4 - Tektocracy - console - architectural - realty - african - ? - ?
5 - ?Silodrive - tazer - jurosdictional - security - mullato -
6 - Darkring - pda - sexual - sexuality - oriental - ? - ?
7 - Datatron - trakker(i.e. fitbit) - medical - homeopathy - european - ?
- ?
8 - Heliopex - watch - political - russian - legality - unity - ?
9 - Transpace - beeper(a.k.a smartphone) - recreational - grocery -
british - ? - ?
10 - Starscape - controller - audiovisual - artistry - australian - ? - ? ----------
11 - Sneakerweb - tablet - educational - pedagogy - gypsy - infidelity - ?

Datatron
Data - basis of reasoning
Tron - tool for scientific work

As well, I have noticed the following dutys that seem to withstand the
test of time and surpass all understanding with my I.T. industry. They
are as follows:

CIS Sysadmins:
(Computer Information Specialties)
----------------------------------
0. networking - solaris/sparc : british(a.k.a grocer)
1. databasing - linux/intel : mulatto(Terron,Tamil,Taino,Tiwi)(a.k.a
bouncer?)
2. multimedia - osx(bsd)/motorola : european(a.k.a physcian)
3. programming - haiku/amd : indian(a.k.a consultant)
4. troubleshooting - cytrix? : hispanic(a.k.a. accountant)
5. management - sap/vax? : african(a.k.a. landlord)
6. gaming - irix : russian(a.k.a. lawyer?)
7. productivity - minix-x11-react os/arm : australian?(a.k.a designer?)
8. security – sgi? : oriental?(a.k.a. escort)
9. testing - sco/sylk? : arabian?(a.k.a. scholar)
----------
Outside contractors:
10.tutoring - amix : jewish(teacher)[outside contractor]

With respect to the involvement of the Jewish blight upon humanity
within the I.T. industry I find they are a curse more than anything.
All they do is sabotage whichever system to justify yet another failed investment into thier diaspora. It is like that among them as their
history of failure is not only evidenced in the Holy Bible as in the
Nubian kingdom of Egypt but also in whichever other civilization to have
graced this earth planet. That is why the Jews of the Yiddish, Zen,
Vudu,
Hindu, LGBTQ, Trini, Creole, Hapa, Hoon, and Roma ancestorys are known
as the Negroid race, the niggers of the world.

Anyway, join us in this endeavor to liberate humanity from the vice grip
of the Jew baiting culture of the Jewish idiot and Zen wrong. I pray to
Jesus Christ that you find them useful and worthy of praise as I have.
This CompuBBS is a brief history of time and space of a world so good.
In a way, the nature of the good is to overcome and defeat the bad. So,
God bless and God speed for Jesus Christ is God. Always a pleasure.
May you and your loved one's in the name of Jesus Christ be well, happy, prosperous, peacefull, healthy, and safe.

P.S.
Let it be said, "[financial] frustration creates a great imbalance
in mind and body." We need to allay our antogonizing forces so that
open source fiat like monies are provided for all concerned. The UNIX
may help with learning how to communicate but the FIAT may help with
learning how to deal with monies.

The only issues I have are the evil empire of the JUBU and their
branches of Transcedentalism, Allopathy, Microsoft, Niggervision,
Palmistry, and Insurance corporations of whichever bilk and swindel.
There is that of a thing as evil and it is their incessant anti-Christ
ways which ruin the whole thing. That is the issue. The dangers of the Jewish, Zen, Vudu, Hindu, LGBTQ, Trini, Creole, Hapa, Hoon, and Roma
masters of the nothing or meaningless things as in zazen(breathing
excercises), mantra(meaningless word recitations), and
koan(visualizations on meaningless riddles) of the Satanic Dharma is
more than anything. They are more of an evil and a bad influence than
one can possibly dream. Quite a number bank on those Jewish nigger
masters of the nothing in order to eliminate innocent and good people to further their zero sum end game. Simply say the words Jesus Christ in
your prayers to escape from such negative influences.

The following republics are the bases of the evil empire of the JUBU:

Taiwan - empire of Zen
Israel - empire of Jews
Sicily - empire of LGBTQ
Haiti - empire of Vudu
Hawaii - empire of Hindus
Trinidad - empire of Trini
Indonesia - empire of Creole
Phillipines - empire of Hapa
Tibet - empire of Hoon
Brooklyn - empire of the Roma

The Transcendentalist mafia are from such areas acenstorally and are
harbingers of the worst known massacre known to man, called the
religious war. This ComuBBS tool is to help people communicate for the
sake of not only the ontology of Jesus Christ but also to better get
clues on how to deal with those people of the Dying Arts. I really want
to setup this system so that those stinken Jews are not a part of it.
Their trespass into literally every industry to do stupid and sabotaging
things is a real danger for all concerned. Those people of the Dying
Arts and the Jewish diaspora are like criminals hell bent on suicide and sacrifice, to name a few. With their penchant toward brain degenerating
ways, we are headed toward a nuclear war and economic collapse the world
over unlike anything before. What is the use?

Already the evil empire of the JUBU has perpetuated the destruction of
the World Trade Center through thier Y2K bug fix pretention. Already
the state of Louisiana has been horribly flooded because of yet another
Jew baiting fetish gone wrong. Already the coronavirus has been
unleashed to kill off more people.

I see a trend in history by the Jewish diaspora to literally war with
anyone for the sake of thier religious war. A religious war documented
in religious books, life experiences, and television programming. It is
like all over the place. Open and unmoderated communication for our
people of Abraham hostaged by those of the evil empire of the JUBU is a
good means toward liberating us from the ignorance which is not bliss.
More will arrive to the body of Christ. Believe you me, those stinken
Jews have to be defeated.

Already, the Europeans, Russians, Chinese, and now the Arabians have politically made it known that Jews are unwanted in their realm. I as a
Deshi or ethnic of the Indian subcontinent do the same. I tell ya,
travelling to my homeland of the Indian subcontinent or Aryavarta was a
real shocking reality to see so many of my people in abject life
conditions due to the Hindu pride and prejudice maintained for over
5,000 years and then some. Those gypsy niggers or even to say the
negroid race are the very reason why Deshi civilization could never come
up and was the repulsion of the masses.

Now with this wonderful capitalism, we can see a world where anyone and everyone is able to use such weapons to ward off the evil ones. Nothing
worse than trying to find enlightenment in the wrong way through a one
way ticket to the foothills of the Himalayas after following some
Satanic master of the Zen empire of Taiwan. Ignorance is not bliss and ignorance of Jesus Christ is like the worst. God bless and God speed
for Jesus Christ is God. Always a pleasure. Nothing worse than being
on a park bench drinking liquor going through an existential doubt in a
land of "One nation under God". Believe it.

Sincerely,

Satya P. Popuri (Satyababu)
Signature:
"The nature of the good is to overcome and defeat the bad." - divine
voice ----------------------------------------------------------------------------- compubbs.sh - file below between horizontal rule ----------------------------------------------------------------------------- #!/bin/bash

# Ensure we are running under bash
if [ "$BASH_SOURCE" = "" ]; then
/bin/bash "$0"
exit 0
fi

#
# Load bash-menu script
#
# NOTE: Ensure this is done before using
# or overriding menu functions/variables.
#
. "bash-menu.sh"


################################
## Example Menu Actions
##
## They should return 1 to indicate that the menu
## should continue, or return 0 to signify the menu
## should exit.
################################
actionA() {
alpine
return 1
}

actionB() {
tin -g news.giganews.com
return 1
}

actionC() {
irssi
return 1
}

actionD() {
lynx
return 1
}

actionE() {
gopher
return 1
}

actionF() {
nslookup
return 1
}

actionG() {
telnet
return 1
}

actionH() {
tailer
return 1
}

actionI() {
sendpage
return 1
}

actionJ() {
calc
return 1
}

actionK() {
ecn
return 1
}

actionL() {
bible
return 1
}

actionM() {
tia
return 1
}

actionN() {
tutor
return 1
}

actionO() {
nano
return 1
}

actionP() {
bash
return 1
}

actionX() {
return 0
}


################################
## Setup Example Menu
################################

## Menu Item Text
##
## It makes sense to have "Exit" as the last item,
## as pressing Esc will jump to last item (and
## pressing Esc while on last item will perform the
## associated action).
##
## NOTE: If these are not all the same width
## the menu highlight will look wonky
menuItems=(
"0. Alpine ----------------------- email client"
"1. Tin -------------------------- usenet reader"
"2. Irssi ------------------------ irc network"
"3. Lynx ------------------------- url browser"
"4. Gopher ----------------------- ftp sneakerweb"
"5. Nslookup --------------------- directory service"
"6. Telnet ----------------------- remote login"
"7. Tailer ----------------------- monitoring tool"
"8. Sendpage --------------------- beeper server"
"9. Calc ------------------------- i.t. calculator"
"A. ECN -------------------------- daytrading game"
"B. Bible ------------------------ the deprogram"
"C. T.I.A. ----------------------- programming IDE"
"D. Tutor ------------------------ unix tutorial"
"E. Nano ------------------------- text editor"
"F. Bash ------------------------- command prompt"
"$. Exit ------------------------- God speed...✝"
)

## Menu Item Actions
menuActions=(
actionA
actionB
actionC
actionD
actionE
actionF
actionG
actionH
actionI
actionJ
actionK
actionL
actionM
actionN
actionO
actionP
actionX
)

## Override some menu defaults
menuTitle=" CompuBBS - The nature of the good is to overcome and defeat
the bad..."
menuFooter=" Enter=Select, Navigate via Up/Down/First number/letter -
[Prayer works!]"
menuWidth=74
menuLeft=13
menuHighlight=$DRAW_COL_WHITE


################################
## Run Menu
################################
menuInit
menuLoop


exit 0 ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- bash-menu.sh - file below between horizontal rule ----------------------------------------------------------------------------- #!/bin/bash

#
# Public Functions
#
# menuInit() menuLoop()
#
#
# Public Variables to Override
#
# Should these get passed into menuInit() rather than be set as global
# script variables?
#
# menuTop # Top row of menu (defaults to row 2)
# menuLeft # Left offset for menu item text (defaults to column 15)
# menuWidth # Width of menu (defaults to 42 columns)
# menuMargin # Left offset for menu border (defaults to column 4)
#
# menuColour # Colour of menu text (defaults to DRAW_COL_WHITE)
# menuHighlight # Highlight colour for menu (defaults to
# DRAW_COL_GREEN)
#
# menuTitle # Title of menu menuFooter # Footer text of menu
#
# menuItems # Array containing menu item text
# menuActions # Array
# containing functions to call upon menu item selection
#


# Ensure we are running under bash (will not work under sh or dash etc)
if [ "$BASH_SOURCE" = "" ]; then echo "ERROR: bash-menu requires to be
running under bash" exit 1
fi

# Get script root (as we are sourced from another script, $0 will not be
# us)
declare -r menuScript=$(readlink -f ${BASH_SOURCE[0]})
menuRoot=$(dirname "$menuScript")

# Ensure we can access our dependencies
if [ ! -s "$menuRoot/bash-draw.sh" ]; then echo "ERROR: Missing required
draw.sh script" exit 1
fi

# Load terminal drawing functions
. "$menuRoot/bash-draw.sh"


################################
# Private Variables
#
# These should not be overridden
################################
declare -a menuItems declare -a menuActions

menuHeaderText="" menuFooterText="" menuBorderText=""


################################
# Setup Menu
#
# These are defaults which should be overridden as required. ################################

# Top of menu (row 2)
menuTop=2

# Left offset for menu items (not border)
menuLeft=15

# Width of menu
menuWidth=42

# Left offset for menu border (not menu items)
menuMargin=4

menuItems[0]="Exit" menuActions[0]="return 0"

menuItemCount=1 menuLastItem=0

menuColour=$DRAW_COL_WHITE menuHighlight=$DRAW_COL_GREEN

menuTitle=" Super Bash Menu System" menuFooter=" Enter=Select, Up/Down=Prev/Next Option"


################################
# Initialise Menu
################################
menuInit() { menuItemCount=${#menuItems[@]}
menuLastItem=$((menuItemCount-1))

# Ensure header and footer are padded appropriately
menuHeaderText=`printf "%-${menuWidth}s" "$menuTitle"`
menuFooterText=`printf "%-${menuWidth}s" "$menuFooter"`

# Menu (side) borders
local marginSpaces=$((menuMargin-1)) local
menuSpaces=$((menuWidth-2)) local leftGap=`printf
"%${marginSpaces}s" ""` local midGap=`printf "%${menuSpaces}s" ""`
menuBorderText="${leftGap}x${midGap}x"
}


################################
# Show Menu
################################
menu_Display() { local menuSize=$((menuItemCount+2)) local
menuEnd=$((menuSize+menuTop+1))

drawClear drawColour $menuColour $menuHighlight

# Menu header
drawHighlightAt $menuTop $menuMargin "$menuHeaderText" 1

# Menu (side) borders
for row in $(seq 1 $menuSize); do drawSpecial "$menuBorderText" 1
done

# Menu footer
drawHighlightAt $menuEnd $menuMargin "$menuFooterText" 1

# Menu items
for item in $(seq 0 $menuLastItem); do menu_ClearItem $item done
}


################################
# Mark Menu Items
################################

# Ensure menu item is not highlighted
menu_ClearItem() { local item=$1 local top=$((menuTop+item+2)) local
menuText=${menuItems[$item]}

drawPlainAt $top $menuLeft "$menuText"
}

# Highlight menu item
menu_HighlightItem() { local item=$1 local top=$((menuTop+item+2)) local
menuText=${menuItems[$item]}

drawHighlightAt $top $menuLeft "$menuText"
}


################################
# Wait for and process user input
################################
menu_HandleInput() { local choice=$1

local after=$((choice+1)) [[ $after -gt $menuLastItem ]] && after=0

local before=$((choice-1)) [[ $before -lt 0 ]] &&
before=$menuLastItem

# Clear highlight from prev/next menu items
menu_ClearItem $before menu_ClearItem $after

# Highlight current menu item
menu_HighlightItem $choice

# Get keyboard input
local key="" local extra=""

read -s -n1 key 2> /dev/null >&2 while read -s -n1 -t .05 extra 2>
/dev/null >&2 ; do
key="$key$extra" done

# Handle known keys
local escKey=`echo -en "\033"` local upKey=`echo -en "\033[A"` local
downKey=`echo -en "\033[B"`

if [[ $key = $upKey ]]; then return $before elif [[ $key = $downKey
]]; then
return $after elif [[ $key = $escKey ]]; then if [[ $choice -eq
$menuLastItem ]]; then
# Pressing Esc while on last menu item will trigger action
# This is a helper as we assume the last menu option is exit
key="" else
# Jumping possibly more than 1 (next/prev) item
menu_ClearItem $choice return $menuLastItem fi elif [[
${#key} -eq 1 ]]; then
# See if we wanrt to jump to a menu item by entering the first
# character
for index in $(seq 0 $menuLastItem) ; do local
item=${menuItems[$index]} local startChar=${item:0:1} if [[
"$key" = "$startChar" ]]; then
# Jumping possibly more than 1 (next/prev) item
menu_ClearItem $choice return $index fi done fi

if [[ "$key" = "" ]]; then
# Notify that Enter key was pressed
return 255 fi

return $choice
}


################################
# Main Menu Loop
################################
menuLoop() { local choice=0 local running=1

menu_Display

while [[ $running -eq 1 ]]; do
# Enable case insensitive matching
local caseMatch=`shopt -p nocasematch` shopt -s nocasematch

menu_HandleInput $choice local newChoice=$?

# Revert to previous case matching
$caseMatch

if [[ $newChoice -eq 255 ]]; then
# Enter pressed - run menu action
drawClear action=${menuActions[$choice]} $action running=$?

# Back from action If we are still running, redraw menu
[[ $running -eq 1 ]] && menu_Display

elif [[ $newChoice -lt $menuItemCount ]]; then
# Update selected menu item
choice=$newChoice fi done

# Cleanup screen
drawClear
}
----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- bash-draw.sh - file below between horizontal rule ----------------------------------------------------------------------------- #!/bin/bash

#
# Public Functions:
#
# drawClear() drawColour(colour = DRAW_COL_DEF, bgColour =
# DRAW_COL_DEF)
#
# drawPlain(text, newLine = 0) drawSpecial(text, newLine = 0)
# drawHighlight(text, newLine = 0) drawPlainAt(left, top, text,
# newLine = 0) drawHighlightAt(left, top, text, newLine = 0)
#
#
# Colours
#
# DRAW_COL_DEF # Default colour DRAW_COL_BLACK DRAW_COL_WHITE
# DRAW_COL_RED DRAW_COL_GREEN DRAW_COL_YELLOW DRAW_COL_BLUE
# DRAW_COL_GRAY # Light gray (grey?)
#


# Ensure we are running under bash (will not work under sh or dash etc)
if [ "$BASH_SOURCE" = "" ]; then echo "ERROR: bash-draw requires to be
running under bash" exit 1
fi


DRAW_COL_DEF=39 DRAW_COL_BLACK=30 DRAW_COL_WHITE=97 DRAW_COL_RED=31 DRAW_COL_GREEN=32 DRAW_COL_YELLOW=33 DRAW_COL_BLUE=34 DRAW_COL_GRAY=37


# drawClear()
drawClear() { $ESC_WRITE "\033c"
}

# drawColour(colour = DRAW_COL_DEF, bgColour = DRAW_COL_DEF)
drawColour() { local colour=$DRAW_COL_DEF local
bgColour=$((DRAW_COL_DEF+10))

if [[ ! -z "$1" && "$1" != "" ]]; then colour="$1" fi

if [[ ! -z "$2" && "$2" != "" ]]; then bgColour="$2" fi

$ESC_ECHO "\033c\033[H\033[J\033[${colour};${bgColour}m\033[J"
}

# drawPlain(text, newLine = 0)
drawPlain() { if [[ -z "$2" || "$2" -eq 0 ]]; then $ESC_WRITE "$1" else
$ESC_ECHO "$1"
fi
}

# drawSpecial(text, newLine = 0)
drawSpecial() { [[ -z "$2" ]] && newLine=0 || newLine="$2"

draw_SetDrawMode drawPlain "$1" "$newLine" draw_SetWriteMode
}

# drawHighlight(text, newLine = 0)
drawHighlight() { [[ -z "$2" ]] && newLine=0 || newLine="$2"

draw_StartHighlight drawPlain "$1" "$newLine" draw_EndHighlight
}

# drawPlainAt(left, top, text, newLine = 0)
drawPlainAt() { [[ -z "$4" ]] && newLine=0 || newLine="$4"

draw_MoveTo $1 $2 drawPlain "$3" "$newLine"
}

# drawHighlightAt(left, top, text, newLine = 0)
drawHighlightAt() { [[ -z "$4" ]] && newLine=0 || newLine="$4"

draw_StartHighlight drawPlainAt "$1" "$2" "$3" "$newLine"
draw_EndHighlight
}


# Write escape sequence with no newline
ESC_WRITE='echo -en'

# Write escape sequence adding newline
ESC_ECHO='echo -e'


# Move cursor to specified location
draw_MoveTo() { $ESC_WRITE "\033[${1};${2}H"
}

draw_StartHighlight() { $ESC_WRITE "\033[7m"
}

draw_EndHighlight() { $ESC_WRITE "\033[27m"
}

draw_SetDrawMode() { $ESC_WRITE "\033%@\033(0"
}

draw_SetWriteMode() { $ESC_WRITE "\033(B"
}
----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- CompuBBS - ECN code ----------------------------------------------------------------------------- Please find below the CompuBBS ECN code originally developed by Josh
Greene. It is something a former friend of mine once told me about as
he worked at Daytek during the dawn of the internet. At the time I was
to oblivous to the fact that money is the very means by which our lives
revolve around. As they say, "when men and women get together [money]
gets in the way". The Josh Greene's ECN day trading code is intended as
a game for now until it becomes more viable for the purposes of the Cybermatrix.

The below ECN day trading code is in Python. So check it out. Try to
make it into a game at first so that you and your network can learn how
to play it before proceeding. I heard when it comes to the stock market
one can literally loose their shirt on this. So beware. Ignorance is
not bliss.

The intention for this code is toward the establishment of the
cybermatrix or to say the opern source fiat like monies initiative for
the sake of synergy or mutual success. The meaning of cybermartix is
virtual as in cyber and a database of the nth dimension as in matrix.
So the cybermatrix is a network of databases of a given
dimension(matricees) with a larger databases of the nth
dimension(matrix). So, let's do this.

God bless and God speed for Jesus Christ is God. Always a pleasure.
Good luck to you all. I want you to win. Allahu Akhbar! ----------------------------------------------------------------------------- Josh Greene's Island ECN day trading code in Python between horizontal
rule ----------------------------------------------------------------------------- SET TALK OFF SET CURSOR OFF SET SAFETY OFF SET MEMOWIDTH TO 80 CLEAR ALL
CLOSE ALL CLEAR CLEAR MACRO && Get rid of F keys typing commands SET
HELP OFF && Needed to clear out F1 key too

=rand(-1)

#define COREDEST "FFFFFFFF0673"

gstoredflag = .F. && Are there any messages buffered that could be
flushed?

#define VERSION "2.40"

malertfile = "M:\logs\island2.err" mholdofffile =
"M:\island2\holdoff.txt"

blanknbuffer="R"+replicate( " " , 200 ) && get BRIGADEN message here

#define CORELINELEN 124 define COREMESSAGELEN 122

#define READPORT "067F"

load int99

define window title from 0,0 to 0,scols()-1 COLOR "W/B" NONE define
window output from 1,0 to 10,scols()-1 NONE COLOR "W+/N" define window
ticker from 12,0 to srows()-1,scols()-1 NONE define window status from
11,0 to 11,scols()-1 COLOR "W+/R" NONE

do title do initstatus

activate window title activate window status

activate window output activate window ticker


s = fopen( "ISLAND2.TXT" )

if s <= 0 wait window "COULD NOT FIND ISLAND2.TXT IN CURRENT DIR. RUN
RESET." quit
endif

x = fgets( s )

if "ISLAND2" # x wait window "ACCOUNT IN ISLAND2.TXT DOES NOT MATCH
ACCOUNT ENV VAR. RUN RESET." =fclose( s ) quit
endif

tcount = 0 && For counting random stuff

tseq = val( fgets( s ) ) && Next order number tmatch = val( fgets( s ) )
&& Next match number tnextdead = val( fgets( s ) ) && Next dead order (zero=none) =fclose( s )

select select(1) use events set order to WHEN

tnow = 0

ttoolate = 0 && Count the too late to cancel events

gaccept = .F. && Let any orders in? Set by SOD, cleared by EOD
gactaccept = .F. && Let ACT orders in? Set by SOD, cleared by EOA

geom = .F. && Have we gotten EOM yet?

gprinting = .F. && Print incoming messages?

go top

if eof("EVENTS")

tnext = 99999.999

else

tnext = WHEN && Time of next event

endif

select 0 use sources set order to SOURCE

select select(1) use island

gsx = alltrim( str( date() - {2/6/1996} ) )

gsession = left( "0000000000" , 9-len( gsx ) ) + gsx + "F"

s="N"+gsession+"5050" && Open the islandfile for writing Mold on port
5050 call int99 with s

if s # "n" && Valid open file?

do alert with "InitMold filed with reason >"+s

do case

case s = "i"

sm ="Error opening files in deney-write mode"

case s = "j"

sm = "a file had a partial line fragment"

case s = "k"

sm = "not all trailing files are empty"

case s = "l"

sm = "all files full"

otherwise

sm = "Unknown error"

endcase

do alert with sm

wait window "Error on ISLAND.OUT or ISLAND2.OUT OPEN:"+s

quit

endif

select island

tecount = 0 && Assume worst case, just to make sure ecount is high
enough txcount = 0 && Cancels

x = "L"+READPORT+" " && Read Island2 requests call int99 with x if x #
"l"
do alert with "Could not open Command listen!" endif


gstatdelay = 0.25 do showstatus gnextstats = seconds() + gstatdelay


[continued in next message]

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)