Pasayten's Methow Valley Bulletin Board

the night
it brings shadows within the darkness
settled in for the night
let me be
where I can see
with the might
of all the light
brightens the way of the shadows
within the darkness
be unto me
not unseen
the dream
daylight madness
mixed with gladness
gladness to know
life beyond it all
crawl in humbleness
under god
creator of us all
freewill
non the better
heckled in freedom
breaking earths gravity
glee
rainbow stew
brew
shoo
fly over the mountain pass
blast
be aware
in sensory perception

Jesus Christ
the superstar
waiting for justice
and the engine for our racing car
cops got me again
I don't care
off to the loony bin
I like it there
angels and food
friends learning peace
good to each other
march in the breeze
heed the warning
ever the storming
fight for your right
peaceful resistance
for to hurt another
is to be lost
without the heed
unprovoked attach
staying where it is at
the rat
versus the cat
without the hat
from where I sat
lost in liberty
without justice for all
disfunction junction
give me a call
with justice for some
others with liberty
of bribery
special election
who is to be
superstar the king
and I president of nothing
all the same
kind and gentle at times
demented
subliminal
insanity prevails
in the storm
learning to live
and not always waiting to die
wake up world
we are under demon attack
rack em up
set the world to peace
and at least
the killing shall end
no other way
stop the kill
the war
everywhere
here there
and all places
an attack
of the evil spirit
lets here it
pace
race
ice cube diet
the riot
peace
learn peace
learn no violence
stop and know
nothing is hidden
from god the creator
free will
the chill
evil consuming itself
collateral damage
world destitution
not an illusion
just the suffering
with faith
faith all is justice
god and justice
not human domain
where I am president
and superstar the king
both created
by the only one
love god
love almighty
love the right
to give up the fight

temperature cheer
laughter in the background
set forth
to be unknown
travesty
honesty
not always true
fiending
for the place
with rulers gone
and leaders on the way
on the way to say
where have I been
where must I be
I am short on love
so set my heart free
looking for love
found it in faith
without the hate
no blame
no same
just here and there
almost anywhere
green eggs and ham
will not eat pig
sam i am
in the car
in the bar
here
there everywhere
we are here
someday gone
i have this poem
can't get it wrong
the song
everyone
breath
stillness
take in from the senses
DEATH DO IT DONE
I have bitten my tongue
the run
the sun
here he is
the son
rising son
in that house
a peoples house
stairs
and bears
life and liberty
justice for
someone
wishing i do the most
center square
dear god I dare
to stay here
almost right
setting tight
sometimes fight
delight
out of sight
for the children
stop the war
war machine
the dream
of a better tomorrow
for those suffering
in Wifes way with life's way
LWifes way

hello my master
hello my friends
circling through the universe
world empire
the strength
the war
endless war
endless place of sorrow
tenderness remains
with the kind
the blessed
the lasting
the heroes of tomorrow
blessed be he
who struggles to be free
free in thought
free in struggle
the fight
the might
temper
peace
hold our own
the unknown
look to he
he who created me
I am creation
like a bob ross painting
we are all creation
something honorable to be
the standing tall
the enchanted ones
better if I am
and not only was
I have been much
a goat left to die in the hot sand
the spirits that dwell
deep in my heart
keepers of the soul
the stow and stew
wanting to be like you
so great
so wonderful
all at last
there is much to wonder
amazement
life
the gift of god
with the curse of death
break on through
to the other side

time will tell
perhaps heaven
for some only hell
living without love
away from the creator
the creator worthy and greatest
presence
breath
still
I am here
here i am
said I
sam I am
not a goat
not a ram
fallen angel
with a voice of mud
singing my best
not to leave a thud
without hope
is to be without
without he who has made all
all that is
eternal thunder
runner
get me new shoes
read the news
all is great
all is good
thank all
love all
that is all there is
all that needs to be
serenity
breath
freedom rings
birds that sting
love thy things
in my dreams
dream machine
nightmare pill
even out the thrill
shoot to kill
injected chemical restraints
the endless torture
mental wards of poison
not healing
only I
will keep it on
without the wrong
ding
dat
sing a skat
loving the rat
kindness
noticing what is good
worthy of your admiration
fill our hearts
end the kill
the hill
poisoned in idol worship
demon tv
loved by so many
who needs information
biased lies and misrepresentations
find good
childrens safe in laughter
moving into the sensations
nerve sensations
thought deviations
normalized thoughts
all sides wrong
all sides right
left right left
the march
the formation
destinations
for the generous
to carry on
through it all
time will tell
heaven or hell
god is love
love god
love children
love kindness
love laughter
love a gentle song
right
still
breath

happy
content
an pay the rent
es b blessed
short of virtue
saved by christ
endless cycle of life
reincarnation
hindu being
whats the dream
not so obscene
the virtue
endless pleasure
body and spirit
center of my heart
my soul
my wanting to know
the reason
for the season
and how the story is
gee wiz
stand tall
you all
attention on deck
the world is a wreck
sweet sensation
destitution
for those that will not bend
for the powers of the present
known in the past
the rest
be the best
elijah
senstion
stand true
the roo
fighting for our righting
cannabis pleasure
medication that heals
perhaps thrills
jack and jill
lost in space
with a feeling
of right
for our fight
on ward
love is what
what is needed
sheeded
fantasy
of life
daydream
stillness
blessed
jesus christ superstar
put that engine
in our chevy racing car
up and down Mainstreet
us be blessed
tender thoughts
innocence
quiet
breath
determined
for love for god
hopes for christ
not so nice
heavenly glare
beware
love is not
where it should be
exclamation point
roll the joint
rulers rule
in this land
arbitrary rules and punishments
total control
the mind machine
tells us what to dream
sometimes obscene
live forward
be in the present
digest lessons from the past
correctedness
s b blested

sender of fate
its not too late
every soul has its time
time for crime
time to shine
its all true
and unknown
the fantasy of knowing
evolving
enactment
what is to see
I am known to me
looking to be free
in this land of free
free to be ruled
for the betterment of society
its all and all
time to stay
time to go
let me be
let me know
sharing and caring
dig down dog
frog lament
tried and confused
eluding
set still
breaTH
SENSES
human thought
taught
flipper flapper
river rafter
on the front porch
endless mystery
confused in chaos
misguided program
settle in
win
or
lose
who to choose
breach of delight
the fight
famished in despair
time to glare
with a smile
never give up
i can't give up
senseless divisions
institutions
deliberations
confusing
remorse
the course
the moment of truth
canceled watchful eye
red white and blue
baby blue
rainbow stew
who will know
to grow
and b
heart so free

to blame
or not to blame
blame oneself
blame to the others
tragic and true
love at first sight
mind machine
the dream
loving each other
not the hate
not the kill
not the thrill
I hear not the plant
crying for its life
the cry of fear
to be put to death
for the human rule
makes you drool
bacon in your mind
fat in the soul
living beyond reason
tis the season
to consume food
food sort of
packaged
and quick
my season
to be sober
and a gentle happiness
that serves my soul
the goal to forgive the goodness
the madness
the glee
surrender
under
superstar the kind
and It is I
President
under the king
and loving god
god is great
life is good
the killing field
end the war
forever more
the machine
is all the dream
and justice for all

what if the human mental illness
the killing
the so thrilling
muslim keeps modesty
however
a modest christian is attainable
hindu is sick
with no modesty at all
nakid women everywhere
only karma and reincarnation
the only sense in all their ickyness
islam might make sense
if not for the religion
the religion is evil
not the faith
for faith is pure
agnostic
it is true
agnostic
The Seik
seik is real
agnostics don't know
an honest approach
seiks see the truth of all religions
I am an agnostic seik
I don't know but I look for the truth in all
all there is is no lie
only see
open your eyes
critical thinking
the program
find understanding
find happiness in the mundane
live
life
stretch
breath

it rained last night
the angels cry when a good person gets to heaven
this is where the rain begins
and here it fell last night
in the night
why does it become dark
and the wind howl
certain for the esteem
the dream
on awaketh to the truth
the unfathomable
here the justice
for growing pains in the american way
rules and legislation
money
so much money
and so many without
the burden
family
the kindness
celebrate
don't be late
time flows
light beam
my dream
enter into my reality
master of puppets
so eager to follow
lead down the path of evil
evil insight
make it right
to day too late
yesterday has arrived
the injection
the shock
the fear
i wasn't ready
sitting at the feet of god
for superstar and I are brothers
i went straight to god
and cried for life
and i did not look into his face
only kneeled at his feet
and told him i am learning kindness
kindness by burden
the burden of the family man
the treasured moments
so much mystery
in his majesty
the superstar
under god
an I
Saint Lucifer
as sainted by saint Tereasa
and for those i have rightfully sainted
and for me the president
Lion of Judah
living from consuming plants
and for superstar
he is the one
right or wrong
i singeth this song
pleasure true
feeding brew
beer of the past
moving on
better just know
to and fro
he and though
thought incursion
us be blessed
breath

prey
prays
for all of us
dead animal
consuming decomposing flesh
what a mess
fat
misshapen with fat bulges everywhere
eating the dead
gotta get that protein
to keep growing after adulthood
never ending
sickness
gout
obesity
heart attack
swimming in the deep
little respect for life
murdering the animals
and claiming to be necessary
necessary to life
as they slowly die
of the foul flesh their bodies are so full
little nourishment
deformed from flesh and sugar so gross
I like sugar
i am hopeless
hooked on sugar
in the blender
surrender
be mine
on time
rooster roosting
crow to go
injuns seek justice
must be know
tiger on my own
I am the lion
and superstar is the lamb
consuming vegetation
oh no
i will die if I don't overeat and consume foulness of dead flesh and body parts
it can't be done
to live on good healthy foods
it must be in reach
seek
seek truth and justice and not the america today
so lost
hope in finding
jesus christ superstar
burning so slow
how do you know
let me live
let me grow
I want to see
I want to know
lifting the soul
grounded to the environment
stillness
breath
calm
peace

in the forest
all alone
not misery
not company
without Jesus
for I forsake him
thought he a lesser prophet than Mohomed.
as of which Mohamad in himself created the devil religion
being of the devil
and I his prophet
left in innocence
for following gods command
commanded to be at the mercy of the angels
so i continue on
trying to escape humanity
calamity
on ward bounder
keeping myself
alone in the dark
myself and god
with angels watching above
so full of love
heavens songs
blistering means
satan spirit burns for the likes of hell
whats the smell
burning demon spirit
setting free
translator operator
what do i be
devil delight
get it right
never stop
never begin
in this life
i never end
best be blessed
in the treasure chest
book of life
get it right
don't give up the fight
fight for our right
shed no tear
lets it hear
shear cliff
mountains majesty
purple he is
letting go
to and froe
stop
keep on that top
what not
stop

formulating the madness
lost is the gladness
the forbidden
the destiny
the discovery
patients
stillness
focus ahead
remembering the present
as there is here
something now
prepare for ye
helpful interludes
mind expression
the dimension

speed is relative
imagine light speed=0
E=(mc^2)+300000 km/s+

still don't know
right or wrong
left or right
temperature rising
surpass the masses
so easily programmed
do what i say
i will lead you to disarray
mass confusion
utter delusion
restitution
insinuation
divisions
decisions
breath
stillness
thought absorbing
tender
reminisce
center stage
full of rage
disgusted and disgruntled
the American dream
as it seems
all disagree
the space
human race
disoriented distortion
letting go
run away
to fight another day

then an angel of light appears before me
donot take glee in discovering the weakness in others
be patient for god is blesses as us be blessed
repent and sin no more
I call out to he
why do you love me
when I turned away
all love was lost in my heart
and then descending from heaven
and all the sky
it appeared
and was Truley holy to all of us
Apon the cloud is the goodness of the lord
often good
discipline the evil off the earth
then my heart becomes naked
I am in this planet
living loving
not wanting to be ruled over anymore
peaceful revolution to be
be not hating their newborn for tv programming
programs of evil
pay it no mind
be here
be there
be everywhere
peace at will
delight not in the indignity of others
sit and cruise
in all that can be
and is known
the others
the brothers
safely climbing
into the heart of passage
assign the truth
or the Indeevar to peace
is to love each other
and give up to the hate we have in our hearts
hate of brother to brother
sister to dad
all is sad
never had
take it or not
tick and the trott
have horse will travel
into the mile
mile of my way
nothing to say
stay upright
and be delivered for those
that hinder the peace
taken within
my friend

the heat
the battle
ceasefire
whats your desire
tender hope for a child
peaceful and mild
temperature

Scene - nathan the great one gives warning
here nathan presedent of the russian renagade black panthers
from dave - sir I have successfully reprogrammed the pre y2k detonators with the zx compiler and a tk-85 with a zilog z80 processor
Great job dave nathan the great one exclaims

now I will call the white house and let them know that we will nuke gilligans island if cannabis is not legalized in the usa land of the free.

he picks up the phone and dials the white house
white house operator- how may I direct your call?
This is nathan the great one- president of the russian renegade black panthers. I must get to biden and tell his that we will nuke gilligans island if cannabis is not legalized in america land of the free so that our president tristan b gilbert may recieve goverment cannabis in the mail so he may have his burdens eased and his mind relaxed.

operator- Please hold. the president biden is getting his diaper changed and cannot be reached right now.

wait
what do you know
how does it go
living life
strife
war machine
is not a dream
it is killing
thrilling
time to end
my friend the end
In this scene

the trade

I am cruising around town with my gt pro bicycle. Going around town enjoying watching the town at work.
listening to KFAC 105.5 FM though headphones. On the radio comes an announcement. The concert of a lifetime with Terry Lee Hardesty the headline
performance. Slamming on my bike brakes I do a 180-degree U-turn and am off looking for transportation to the greatest concert ever to be or has been.
Traveling through town I come across Bryce working on his black 1980 corvette.

I need a car to drive to the greatest concert to ever have been.
Bryce says I willing to trade my corvette for your gt pro bicycle.
Don't be ludicrous. My bicycle is way more valuable than your corvette.
Take it or leave it.
I agree on the trade.
With a grin Bryce hands over the keys.
I get into my corvette and leave town to the Twisp river road.

so the movie continues on into this flashback
intense motives
indentured servitude with the sign
on the dotted line
to serve and protect
in every aspect
of life.

I am a young sailor of 22 years.
get the hell out of here and never return
this was my discharge
living
and wondering
Utah
south Dakota
Idaho
in my Toyota I traveled
down into Ensenada
where the streets were patrolled
by prostitutes
and crystal
drug of choice
so many junkies
and junkies to be
looking for and end to the madness
gladness for evil
center stage
once enraged
the military machine
sir my billet number is
flashing back to nuclear power plant training
I am in a small room
with a very big and scary instructor.
I am testing primary coolant
radio active of sort
As I pull the tubing of off the flask
I manage to spring back with the flask
and spilled the primary coolant
into the face of the instructor
not even a flinch came from him
not a scolding word

placed carefully
things are good
every day to be better
learning and yearning
hoping all to come to life
childrens men and wife
there is hope
for he dwelleth upon the planet
in a world who does not want him
evil and awfulness in the hearts of mankind
patience
blesses be he
willing to be free
take the step
mental ambition
wanting wisdom
and without decay
stay away
let me bee
cherries blossom
fruit to be
tickle my fancy
let my heart be
hardened
soak me spirit in love
for hat has been there before
nice
rice
a full meal
beans
dreams
wistfully spoken
not quite full derangement
of all that was
and all that is meant to be
angels laugher
knowing I am getting better
aiming to the light
love struck with the human experience
knowing kindness
but not always kind
I am
The fallen angel
Saint Lucifer
Demon gone good
melted heart
I am he
under god
highest of all
through him all things are made
speak
spoken
the king is here
jesus christ superstar
As I am the Non-Profit of Islam
praying for all
for angels I am
in their hearts
kindly working
on a world of goodness
what good have I left
if my time is to come
rather I pray for magic
magic to take me home
home of angels
I am humbled through the torture
the pain of living
the pain of life
both mental and physical
though they are one
all is to remain true

life
love
what to say
what to hold
blunders of the past
make it right
make it wrong
wishing well
after the end
gracefully landing
the fallen angel
hated by most
understood by few
it is a race
a race to the light
blight
fight
sight
remembering the fate
not so late
only on time
on a dime
look to fine
heavens waiting
peacefully being
gratitude and justice
for all to see the light
the might
eagle ahead
fight unsaid
flying for freedom
kindly is the reason
not in hunting season
still
quieting of the mind
peace
breath
stillness

Zilog Z80 microprocessor

the big deal is that the z80 processor one of the most used processors there is. It is used anywhere from a microwave to military weapons. In this movie we will be trying to reprogram the nuclear detonators on the nuclear bombs purchased from Hilary and Obama. This Russian purchase of uranium is code word for nuclear bombs. The whole premise of this movie that Hilary and Obama were so anxious to trade the priceless bombs and line their own pockets that they in fact sold the nuclear bombs to the Russian renegade black panthers rather than the Ememy of russia, Putin.

As the story continues Me, the president of the black panthers, has become the worlds most wanted man not even aware of the bombs or aware that Obama and Hilary are traitors of the highest degree against America.

All the same they try to track me down as I go about my daily chores living life that I am completely unaware that I am being hunted while god leads me on a fun adventure always being a step ahead. This is a comedy movie and the cops blundering on my capture while coincidence would have it, I have no idea that I am the most wanted man in the world.

Two make a machine code program takes a very smart person. I discovered the zx compiler which will allow to reprogram the z80 processors to not have the y2k bug.

Avenger is my favorite video game for the Timex Sinclair 1000 ZX81






SILVERSOFT ZX Compiler

Instruction Manual for Silversoft ZX Compiler

Page 1

SILVERSOFT
Introducing the ZX Compiler
Instructions on loading.
Place the cassette on side A, into the recorder. Follow loading instructions, as found in chapter 16 of the ZX81 manual. If at first the program does not load, try different tone and volume levels. If after this it still does not load, try a different tape recorder. There are two copies of ZX COMPILER on the tape. (Use File name "COMPILER")

About the ZX Compiler
The ZX COMPILER is a program, written in basic and machine code that will change a program in "BASIC" into machine code. This can be used to create programs or sub routines that can run up to twenty or thirty times faster than normal 'BASIC'. Because the ZX81 only has a capacity of 16K ram the compiler works in an integer-only, sub-set of BASIC. To save even more space commands have been left out that are not needed, for example REM:- which is not needed in compiled programs anyway and INPUT:- which can be made by a routine using gets and if....then statements. Once your program to be compiled is written, you run the compiler. After a period of fast mode, the program "NEWS" itself and leaves you with a single rem statement containing the machine code (it looks like random junk).
Once written you may either call the code from within a program or directly from the keyboard using LET X=USR 16595.

INSTRUCTIONS ON USE
The program to be compiled is written in 'REM' statements before line 1000 beyond line 1000 is the compiler. The reason for REM's is so you can have extra commands that can't be keyed-in, in normal BASIC. This does mean though that you will have to key in whole commands for example PRINT is P-R-I-N-T. eg:
1 REM PRINT"HELLO"
In the program there are to be no spaces, except in print statements. Also goto statements must be followed by a 'true' line, for example the following will not work.
1 REM PRINT"HELLO"
2 REM GOTO28
When you type run and newline, the screen will blank for a few seconds and then print up:
ERROR IN LINE 28
Which means it can't find any line 28
The compiler program may only have variables A-Z, no strings or arrays. (These maybe be implemented using other commands such as peek and poke).
-Variables in the compiler are not the same ZX81 Variables.

Page 2

Numbers may be 0-65535. To get a negative number use 65535-x
eg: -2=65536-2
There may seem a lot you can't do but it is enough to write most programs, (such as space invaders, breakout, etc.) The only way to really find out what the compiler can do is use it, read through the examples and work them out.
COMPILER COMMANDS
In this section I will go through all the commands available on the compiler.
In this section (variable) can mean a number of things:
1) A number 0-65535
2) A letter A-Z
3) RND followed by a variable
4)USR Followed by a variable
5) TOP
6) Deek followed by a variable
7) Peek followed by a variable
eg: RNDA RND200 RNDUSRDEEK16514!!
Top and DEEK need explaining, the others should be clear enough. Top will return the first position on the display that can be poked. It's basic equivalent is : PEEK 16396 + 256 *PEEK 16397 + 1
Deek is the opposite of doke and peeks two locations at the same time. (To return a number 0-65535) Top is the equivalent of DEEK 16396+1. The nascom and other computer use these commands. eg: It can be used for poking a Lazer base with one command.
1 REM DOKE TOP 1153
PRINT
This can either be followed by text enclosed in speech marks or a variable, (A-Z) it will print the chrs of the variable. The semi colon at the end of the print is automatic. To print at the start of a new line use the following:
1 REM PRINT 118
(Which is the same as the BASIC PRINT CHRS 118) So print can be used in two forms which are:
1. PRINT "--TEXT--"
2. PRINT (VARIABLE)
GET
This is the same as the BASIC INKEY, except only it returns the code (0-128) of the key pressed. It may only be used in one form, if no key is pressed it returns 128.
1. GET (VARIABLE)
eg: 1 REM GET A 2 REM PRINT A 3 REM GOTO 1
END
It is important that you end a compiler program with either an END if you want execution to stop, or RETURN (see later) if you want to continue the calling BASIC program.
Page 3

PAUSE
This may only be used in one form:
1) PAUSE (VARIABLE)
It is a delay, the length of which is determined by the (VARIABLE). The longest delay possible would be 65535, it lasts for 2 seconds!!
CLS
This is the same as BASIC CLS except it clears all 24 lines of the display, not just 22. It has only one form:
1. CLS
MOVE
This is the same as the BASIC PRINT AT, except you may "PRINT AT" all 24 lines down. It takes only one form:
1. MOVE (VARIABLE),(VARIABLE)
eg: 1 REM MOVE 23, 10 2 REM PRINT "HELLO" 3 REM END
LET
This is like the BASIC LET statement except you may not have long equations or brackets. It may take only two forms:
1. LET (VARIABLE) = (VARIABLE)
2. LET (VARIABLE) = (OPERATOR) (VARIABLE)
(OPERATOR) can be either +,-,* or /
SCROLL
This is the same as the BASIC SCROLL except that it is a lot quicker and scrolls all 24 lines of the screen.
GOTO
This is like the BASIC goto except the line number must exist. It may only take one form:
1. GOTO NUMBER (1-999)
GOSUB
This is the same as BASIC GOSUB, except for destination line number which must exist. It can only take one form:
1. GOSUB NUMBER (1-999)
RETURN
Used in conjunction with GOSUB, this is identical t its BASIC equivalent. Used when not in a GOSUB sub-routine, it will return you to BASIC and continue with the calling program. It may only take one form:
1. RETURN
PLOT
This is the same as BASIC PLOT. It may take only one form:
1. PLOT (VARIABLE), (VARIABLE)
UNPLOT
This is the same as BASIC UNPLOT. It may take only one form:
1. UNPLOT (VARIABLE),(VARIABLE)
POKE
This is the same as its BASIC equivalent. It may only take one form:
1. POKE (VARIABLE),(VARIABLE)

Page 4

DOKE
Is used on the nascom and other computer, it pokes two locations at the same time with a number of up to 65535. The low byte of the number at the address and the high byte at address +1. For more information see example programs. It can only take one form:
1. DOKE (VARIABLE),(VARIABLE)
IF is used in only one way:
1. IF (VARIABLE) (SIGN)(VARIABLE)______
(SIGN) can mean either =,<>,<>. There is no need to use the then statement. For more information see example programs.
eg: IF A>2 GOTO 10
SCROLL
These are all the commands allowed in the compiler. But as you can see from the example programs, these are enough.
EXAMPLE 1
This program will invert the screen, then Return to basic not stop. It will invert all 24 lines of the display.
1 REM LETB=24
2 REM LETA=TOP
3 REM IFPEEKA=118GOTO10
4 REM LETZ=PEEKA+128 : NUMBER OF LINES
5 REM POKEA,Z : TOP OF SCREEN
6 REM LETA=A+1 : END OF LINE ?
7 REM GOTO3 : INVERT IT
10 REM LET B=B-1
11 REM IFB=0RETURN : "RETURN" TO BASIC, USE END
12 REM GOTO6 STOP WITH AN ERROR CODE:
Try this program out, then try it in BASIC to see how slow it is.
EXAMPLE 2
This program demonstrates the DEEK and DOKE commands, DOKE is used to 'save' the variable while it is used for something else, DEEK reads it back again.
1 REM LETA=45192
2 REM DOKE30000,A
3 REM LETA=0
4 REM LETA=DEEK30000
5 REM IFA<>45192PRINT"THIS WILL NEVER BE PRINTED"
6 REM END
In this program location 30000 was chosen because it is high up in the memory and will not interfere with anything.
WHEN YOU HAVE WRITTEN A PROGRAM
When you have written your program in REM statements, SAVE a copy on cassette (in case you have to de-bug it) Then RUN, this will run the compiler as it will go past REMS. After a delay (10mins for 4k program0 the screen will return. If it says error, correct error and re-run it. If it comes up with one rem followed by junk then it has finished compiling, BEFORE YOU DO ANYTHING ELSE type in: 2 RAND USR 16595

Page 5

Then SAVE another copy of the program and run it. If the program does something odd, try and see what is happening, re-load the first copy and correct the program.
MORE FACTS
Don't forget in machine code there is no 'break' key to test for one use.
1. REM GETA
2. REM IFA=0END
Even a one line compiler program when compiled may seem to take up a lot of room, this is quite normal because about 1K is taken up with variables and routines. The compiler was really developed for small fast routines to be used in a BASIC program or entire games in machine code.
If you want to interchange basic variables and compiler variables, the compiler variables are held at 16514 low byte first, high byte next. A(low) is at 16514, B(low) is at 16515 and so on.
In the program you will see two sets of inverse AJGs this is so the author can identify any compiled program. (No program may be used personal gain which in any way connected with the compiler without the permission of the author.
Try to use POKE and PEEK, (deeks and dokes) more as they are very fast in the compiler. Things like PRINT, PRINT AT, PLOT, UNPLOT use basic routines to space so they will only be executed at about twice the speed as normal.
The RND function is not very random when displaying the results, but it is good enough for normal random decisions. (This is again due to the lack of space available). Compilers available for other computers may need 4K of code for one line of compiled program!!
MORE EXAMPLES
1) Add all the numbers 1-1000 together.
(returns the answer in s 165114+16515)
1 REM LETA=0
2 REM LETC=0
3 REM LETA=A+C
4 REM LETC=C+1
5 REM IFC 101 GOTO3
6 REM END
Type this in, then RUN it, to see the answer
PRINT PEEK 16514+256*PEEK 16515
try out he program in BASIC as well and see the difference in speed

Page 6

2)
1 REM LET P=0
2 REM MOVE23,P
3 REM PRINT34
4 REM GET A
5 REM IFA=33LETp=p-1 key 5
6 REM IFA=36LETp=P+1 key 8
7 REM IFP=65535LETP=0
8 REM IFP=31LETp=30
9 REM SCROLL
10 REM GOTO2



VB81 Project - ZX81 Emulator Download

http://zx81.vb81.free.fr/

Code: Select all

   
          
    10 LET H=34
    20 LET K=22
    30 PLOT (H),(K)
    40 LET R=20
    50 LET T=R
    60 LET U=R
    70 LET L=0
    80 LET L=L+1
    90 IF L=R THEN GOTO 150
   100 LET E=K+L
   110 LET F=K-L
   120 PLOT (H),(E)
   130 PLOT (H),(F)
   140 GOTO 80
   150 LET L=0
   160 LET L=L+1
   170 IF L=R THEN GOTO 230
   180 LET E=(H+L)
   190 LET F=(H-L)
   200 PLOT (E),(K)
   210 PLOT (F),(K)
   220 GOTO 160
   230 LET T=R
   240 LET X=T
   250 LET Y=0
   260 LET Y=Y+1
   270 IF Y=R THEN GOTO 420
   280 LET G=R*R
   290 LET J=Y*Y
   300 LET W=(G-J)
   310 LET T=X
   320 LET X=(W/T)
   330 LET A=(X+H)
   340 LET B=(H-X)
   350 LET C=(Y+K)
   360 LET D=(K-Y)
   370 PLOT (A),(C)
   380 PLOT (B),(C)
   390 PLOT (A),(D)
   400 PLOT (B),(D)
   410 GOTO 260
   420 LET Y=R
   430 LET X=0
   440 LET X=X+1
   450 IF X=R THEN GOTO 600
   460 LET M=R*R
   470 LET N=X*X
   480 LET Q=(M-N)
   490 LET U=Y
   500 LET Y=(Q/U)
   510 LET A=(X+H)
   520 LET B=(H-X)
   530 LET C=(K-Y)
   540 LET D=(Y+K)
   550 PLOT (B),(C)
   560 PLOT (A),(C)
   570 PLOT (B),(D)
   580 PLOT (A),(D)
   590 GOTO 440
   600 STOP 

Code: Select all

    10 REM LETH=34
    20 REM LETK=22
    30 REM PLOTH,K
    40 REM LETR=20
    50 REM LETT=R
    60 REM LETU=R
    70 REM LETL=0
    80 REM LETL=L+1
    90 REM IFL=RGOTO150
   100 REM LETE=K+L
   110 REM LETF=K-L
   120 REM PLOTH,E
   130 REM PLOTH,F
   140 REM GOTO80
   150 REM LETL=0
   160 REM LETL=L+1
   170 REM IFL=RGOTO230
   180 REM LETE=H+L
   190 REM LETF=H-L
   200 REM PLOTE,K
   210 REM PLOTF,K
   220 REM GOTO160
   230 REM LETT=R
   240 REM LETX=T
   250 REM LETY=0
   260 REM LETY=Y+1
   270 REM IFY=RGOTO420
   280 REM LETG=R*R
   290 REM LETJ=Y*Y
   300 REM LETW=G-J
   310 REM LETT=X
   320 REM LETX=W/T
   330 REM LETA=X+H
   340 REM LETB=H-X
   350 REM LETC=Y+K
   360 REM LETD=K-Y
   370 REM PLOTA,C
   380 REM PLOTB,C
   390 REM PLOTA,D
   400 REM PLOTB,D
   410 REM GOTO260
   420 REM LETY=R
   430 REM LETX=0
   440 REM LETX=X+1
   450 REM IFX=RGOTO600
   460 REM LETM=R*R
   470 REM LETN=X*X
   480 REM LETQ=M-N
   490 REM LETU=Y
   500 REM LETY=Q/U
   510 REM LETA=X+H
   520 REM LETB=H-X
   530 REM LETC=K-Y
   540 REM LETD=Y+K
   550 REM PLOTB,C
   560 REM PLOTA,C
   570 REM PLOTB,D
   580 REM PLOTA,D
   590 REM GOTO440
   600 REM RETURN

Code: Select all

# REM **COMPILER**
  1000  REM [HEX:\
17,17,28,34,32,35,2E,31,\
2A,37,17,17,76 ]

  1010 FAST 
  1011 LET Q=3950
  1012 LET Q1=2830
  1013 LET Q2=3320
  1014 LET Q3=3630
  1015 LET Q4=3970
  1016 LET Q5=1320
  1017 LET Q6=4
  1020 LET P=28858
  1030 LET P1=16514
  1040 GOSUB 2920
  1050 IF PEEK (P1-1)<>234 THEN GOTO Q1
  1060 IF PEEK P1=118 THEN GOTO Q1
  1070 GOSUB 2880
  1080 LET A$=""
  1090 LET A$=A$+CHR$ PEEK P1
  1100 LET P1=P1+1
  1110 IF PEEK (P1-1)<>118 THEN GOTO 1090
  1120 IF PEEK (P1+1)*256+PEEK (P1+2)=1010 THEN GOTO 3690
  1130 LET P1=P1-3
  1140 LET T$=A$( TO 2)
  1150 LET B$=A$+"      "
  1160 LET J=0
  1170 LET J=J+(T$="RE")*2170+(T$="SC")*1200+(T$="PR")*1360+(T$="GE")*1530+(T$="EN")*1620+(T$="PA")*1670+(T$="CL")*1720+(T$="MO")*1770+(T$="LE")*1890+(A$( TO 3)="GOT")*2060+(A$( TO 3)="GOS")*2130+(T$="IF")*2200+(T$="PO")*2430+(T$="UN")*2550+(T$="PL")*2580+(T$="DO")*2720
  1180 IF NOT J THEN LET J=Q1
  1190 GOTO J
  1201 IF B$(7)<>CHR$ 118 THEN GOTO Q1
  1202 LET U$="2A0C40112100EB1901F702EDB00620AF131210FC"
  1203 GOSUB Q3
  1204 GOTO Q5
  1320 LET P1=P1+8
  1330 GOTO 1050
  1360 LET B$=B$(6 TO )
  1370 IF B$(1)=CHR$ 11 THEN GOTO 1420
  1380 GOSUB Q2
  1390 LET U$="7DD7"
  1400 GOSUB Q3
  1410 GOTO Q5
  1420 GOSUB Q
  1430 LET U$="CDBA40"
  1440 GOSUB Q3
  1450 POKE P,CODE (B$(1))
  1460 GOSUB Q
  1470 IF B$(1)=CHR$ 11 THEN POKE P+1,255
  1480 LET P=P+1
  1490 IF B$(1)=CHR$ 11 THEN GOTO 1510
  1500 GOTO 1450
  1510 LET P=P+1
  1520 GOTO Q5
  1530 LET B$=B$(Q6 TO )
  1540 LET U$="CDBB02444D51142808CDBD077ECB7728023E8021004077233600"
  1550 GOSUB Q3
  1560 LET V=CODE B$(1)
  1570 IF CODE B$(2)<>118 THEN GOTO Q1
  1580 IF V<38 OR V>63 THEN GOTO Q1
  1590 LET V=(V-38)*2+130
  1600 POKE P-6,V
  1610 GOTO Q5
  1620 LET B$=B$(Q6 TO )
  1630 IF B$(1)<>CHR$ 118 THEN GOTO Q1
  1640 LET U$="CFFF"
  1650 GOSUB Q3
  1660 GOTO Q5
  1670 LET B$=B$(6 TO )
  1680 GOSUB Q2
  1690 LET U$="2B7CB520FB"
  1700 GOSUB Q3
  1710 GOTO Q5
  1720 LET B$=B$(Q6 TO )
  1730 IF B$(1)<>CHR$ 118 THEN GOTO Q1
  1740 LET U$="2A0C40161823062036002310FB1520F5010000CDF508"
  1750 GOSUB Q3
  1760 GOTO Q5
  1770 LET B$=B$(5 TO )
  1780 GOSUB Q2
  1790 GOSUB Q4
  1830 LET U$="45"
  1840 GOSUB Q3
  1850 GOSUB Q2
  1860 LET U$="4DCDF508"
  1870 GOSUB Q3
  1880 GOTO Q5
  1890 LET B$=B$(Q6 TO )
  1900 LET L=(CODE B$-38)*2+130
  1910 LET B$=B$(3 TO )
  1920 GOSUB Q2
  1930 GOSUB 3570
  1940 IF CODE B$=118 THEN GOTO 2020
  1950 LET U$="EB"
  1960 GOSUB Q3
  1970 LET S$=B$(1)
  1980 GOSUB Q
  1990 GOSUB Q2
  1991 LET N$="CD0913"
  1992 IF PEEK 4869=197 THEN LET N$="CD0513"
  2000 LET U$=(N$ AND S$="*")+("EBCDC440" AND S$="/")+("19" AND S$="+")+("EBA7ED52" AND S$="-")
  2010 GOSUB Q3
  2020 LET U$="220040"
  2030 GOSUB Q3
  2040 POKE P-2,L
  2050 GOTO Q5
  2060 LET B$=B$(5 TO )
  2070 GOSUB Q2
  2080 POKE P-3,195
  2090 LET G(N1,1)=PEEK (P-2)+PEEK (P-1)*256
  2100 LET G(N1,2)=P-2
  2110 LET N1=N1+1
  2120 GOTO Q5
  2130 LET B$=B$(6 TO )
  2140 GOSUB Q2
  2150 POKE P-3,205
  2160 GOTO 2090
  2170 LET U$="C9"
  2180 GOSUB Q3
  2190 GOTO Q5
  2200 LET B$=B$(3 TO )
  2210 GOSUB Q2
  2220 GOSUB 3570
  2230 LET U$="EB"
  2240 GOSUB Q3
  2250 LET S$=B$(1)
  2260 GOSUB Q
  2270 GOSUB Q2
  2280 IF CODE B$>37 THEN GOSUB Q
  2290 IF CODE B$<38 THEN GOSUB 3600
  2300 LET U$="A7ED52"
  2310 IF S$="<>" THEN LET U$=U$+"CA"
  2320 IF S$="=" THEN LET U$=U$+"C2"
  2330 IF S$="<" THEN LET U$=U$+"DA"
  2340 IF S$=">" THEN LET U$=U$+"D2"
  2350 LET U$=U$+"0000"
  2360 IF S$<>">" AND S$<>"=" AND S$<>"<" AND S$<>"<>" THEN GOTO Q1
  2370 GOSUB Q3
  2380 LET G(N1,2)=P-2
  2390 LET G(N1,1)=1000
  2400 LET N1=N1+1
  2410 LET A$=B$
  2420 GOTO 1140
  2430 LET B$=B$(5 TO )
  2440 GOSUB Q2
  2450 GOSUB Q4
  2490 LET U$="EB"
  2500 GOSUB Q3
  2510 GOSUB Q2
  2520 LET U$="EB73"
  2530 GOSUB Q3
  2540 GOTO Q5
  2550 LET B$=B$(3 TO )
  2560 LET U$="3EA0323040"
  2570 GOTO 2590
  2580 LET U$="3E9B323040"
  2590 GOSUB Q3
  2600 LET B$=B$(5 TO )
  2610 GOSUB Q2
  2620 LET U$="4D"
  2630 GOSUB Q3
  2640 GOSUB Q4
  2680 GOSUB Q2
  2690 LET U$="45CDB20B"
  2700 GOSUB Q3
  2710 GOTO Q5
  2720 LET B$=B$(5 TO )
  2730 GOSUB Q2
  2740 GOSUB Q4
  2771 LET U$="EB"
  2780 GOSUB Q3
  2790 GOSUB Q2
  2800 LET U$="EB732372"
  2810 GOSUB Q3
  2820 GOTO Q5
  2830 IF PEEK (P1-1)=118 THEN GOTO 3180
  2840 IF P1=16509 THEN GOTO 3180
  2850 LET P1=P1-1
  2860 GOTO 2830
  2870 SLOW 
  2880 LET L(N,1)=PEEK (P1-5)*256+PEEK (P1-4)
  2890 LET L(N,2)=P-12288
  2900 LET N=N+1
  2910 RETURN 
  2920 DIM L(100,2)
  2930 DIM G(70,2)
  2940 LET N=1
  2950 LET N1=N
  2960 LET U$="E17E23E5FEFFC8D718F601FFFFA7ED520330FAC5E1C9A6AFAC"
  2965 LET U$=U$+"FD3622002182403600237DFEBA20F8"
  2970 GOSUB Q3
  2980 RETURN 
  2990 IF N1=1 THEN RETURN 
  3000 FOR X=1 TO N1-1
  3010 LET PO=G(X,2)
  3020 LET L=G(X,1)
  3030 LET G=1
  3040 GOTO 3120
  3050 LET G=G+1
  3060 IF G=N THEN GOTO 3150
  3070 GOTO 3040
  3080 POKE PO,L(G,2)-256*INT (L(G,2)/256)
  3090 POKE PO+1,INT (L(G,2)/256)
  3100 NEXT X
  3110 RETURN 
  3120 IF L=1000 THEN IF PO-12288<=L(G,2) THEN GOTO 3080
  3130 IF L=L(G,1) THEN GOTO 3080
  3140 GOTO 3050
  3160 GOTO 3200
  3170 RETURN 
  3190 LET L=PEEK P1*256+PEEK (P1+1)
  3200 SLOW 
  3201 POKE 16418,0
  3202 PRINT AT 22,0;"*******ERROR IN ";L;"******";AT 0,0;
  3203 POKE 16418,2
  3204 LIST L
  3205 GOTO 3200
  3230 LET V=CODE B$
  3240 IF V<38 OR V>63 THEN GOTO Q1
  3250 LET V=(V-38)*2+16514
  3260 LET U$="2A"
  3270 GOSUB Q3
  3280 POKE P,V-16384
  3290 POKE P+1,64
  3300 LET P=P+2
  3310 RETURN 
  3320 LET V=1
  3330 IF CODE B$(V)>37 OR CODE B$(V)<28 THEN GOTO 3360
  3340 LET V=V+1
  3350 GOTO 3330
  3360 IF V=1 THEN GOTO 3420
  3370 LET V=VAL (B$( TO V-1))
  3380 IF V<>INT V OR V>65536 THEN GOTO Q1
  3390 GOSUB 3530
  3400 POKE P+1,INT (V/256)
  3405 LET P=P+2
  3410 RETURN 
  3420 LET U$=""
  3430 IF B$( TO 3)="TOP" THEN LET U$="2A0C4023"
  3440 GOSUB 3780
  3450 IF B$( TO 3)<>"USR" THEN GOTO 3850
  3460 LET B$=B$(Q6 TO )
  3470 GOSUB Q2
  3480 POKE P-3,205
  3490 RETURN 
  3500 IF U$="" THEN GOTO 3220
  3510 GOSUB Q3
  3520 RETURN 
  3530 LET U$="21"
  3540 GOSUB Q3
  3550 POKE P,V-256*INT (V/256)
  3560 RETURN 
  3570 IF CODE B$<28 OR CODE B$>63 THEN RETURN 
  3580 GOSUB Q
  3590 GOTO 3570
  3600 IF CODE B$<28 OR CODE B$>37 THEN RETURN 
  3610 GOSUB Q
  3620 GOTO 3600
  3630 POKE P,CODE U$*16+CODE U$(2)-476
  3640 LET U$=U$(3 TO )
  3650 LET P=P+1
  3660 IF P>=32700 THEN STOP 
  3670 IF U$="" THEN RETURN 
  3680 GOTO Q3
  3690 GOSUB 2990
  3700 LET J=P-12287
  3710 LET P=28672
  3720 LET U$="210000E5C103E52182401182701A7723137DB920F87CB820F4E136A62336AF2336AC233676E5118040A7ED52227F40E123C30304"
  3730 GOSUB Q3
  3740 LET P=J
  3750 POKE 28673,P-256*INT (P/256)
  3760 POKE 28674,INT (P/256)
  3770 RAND USR 28672
  3780 IF B$( TO 3)<>"RND" THEN RETURN 
  3790 LET U$="D92A3240545D29291929292919223240EB"
  3800 GOSUB Q3
  3810 LET B$=B$(Q6 TO )
  3820 GOSUB Q2
  3830 LET U$="EBA7ED5230FB19E5D9E1"
  3840 RETURN 
  3850 IF B$( TO Q6)<>"PEEK" THEN GOTO 3900
  3860 LET B$=B$(5 TO )
  3870 GOSUB Q2
  3880 LET U$="6E2600"
  3890 GOTO 3500
  3900 IF B$( TO Q6)<>"DEEK" THEN GOTO 3500
  3910 LET B$=B$(5 TO )
  3920 GOSUB Q2
  3930 LET U$="D55E2356EBD1"
  3940 GOTO 3500
  3950 LET B$=B$(2 TO )
  3960 RETURN 
  3970 IF B$(1)="," THEN GOTO 4000
  3980 GOSUB Q
  3990 GOTO Q4
  4000 GOSUB Q
  4010 RETURN 

There is the sensation
of a crippled and dying
nation
without god
and liberty or justice
a notion of greed
worship fame and wealth
wealth of fame
what is to blame
here and there
I don't like them anywhere
the rulers of America
America the free
losing more freedoms
all the time
government of autocracy
looking to kill
destroying humanity
at will
nuclear blast
the end of past
we are here
here and now
graveyard shift
leaching
bleaching
hiding the madness
mixed with gladness
gladness to be free
with leaders
not rulers
we are under rule
heavy on my chest
god has given
godless nation takes away
say hey
pleasant day
featuring
the blissfulness of a good day and say
hey hay what more is done
done my son
leave it here
want it there
what's the jest
have I gone too far
super star
wanting to be so afar
where the streams gleam
and the children sing

stand still
listen to the wind
it is here
it is real
real meal
piggy squeal
runt of the litter
raised to eat
kill and eat
tasty treat
eating flesh and bone
rattle tattle too
what is new
is it to be
head and knee
sitting free
not to heed
keep the need
alive and wild
sitting true
who is after you
who are you
who who
what is your need
feel free
count the colored rainbow
is it one bow or two
three and eight
all is great
sunshine
and daydreams
plitter platter
what really is the matter
people killing with machines
machine the dream
as we test the power
the power of grey scull
where is sheena
we need some heroes
which one are you
I am Tritanium man
Tristan with 3 titanium plates
now I suffer super might
make it right
freedom is in sight.

Indigo
summer snow
what now is to be risen
chamber choir
living long
having hope
is this the end
or just holy ghost
we love the most
despair
beware
animal crossing ahead
blunder
homing in
center square
not the lair
but instead plants growing
war war war
every where is war

Through this world the us to be blessed.
Living life to the fullest of wishes and wells .
There was a time there is a large but now it's so small .
Tenderness of Hope and real hopeful laughter .
Racing ruining always doing how's the garden grow .
Helping each other never let go .
There's hope and there is fear there's laughter awesome year.
How did love is often wondered just the distraction for all the unseen foreseeing and then doing and loving.
The madness amongst gladness but so much to take in take out Chinese dinner.
Place to Love is where I know well in this heart and many sorrow .
The greatest wind tosses the grass come we tumble tumble we tumbleweed
Hello my master hello my friend never wonder about the end my friend the end.
Bless it is he and never wonders what to do in the beyond others .
Sensibility hostility not getting along at all in the stall for the mall .