Spring 1990 Volume 3 No 2
THE LABORER, YES
by Floyd Hoke-Miller
You ask me why I praise his kind
And why I seek to rouse his mind
To thoughts beyond his daily
task,
Wherein the chains that daily bind
Are shrouded lies to keep him blind--
And those are the things you
ask
About the man the Gods don't
bless,
The Laborer, Yes!
I'll tell you why I take this stand
To praise the one with hardened hand;
With daily drudge and sweaty
smell,
He's the greatest one in all the land
But yet, the least one in command
Of all the goods the traders
sell
And take the more and give the
less
The Laborer, Yes!
FLOYD HOKE-MILLER (1898-1990)
Floyd Hoke-Miller, who contributed
regularly to the Amateur Computerist
from its first issue, will make no
new contributions. On April 29, 1990,
at age 91, he died.
Table of Contents
THE LABORER, YES. . . . . . . . 1
FLOYD HOKE-MILLER (1898-1990).. 1
The Picket. . . . . . . . . . . 2
THE SOWER OF THE SEEDS. . . . . 2
COMPUTER EDUCATION. . . . . . . 3
Letter from Superintendent. . . 4
OPEN LETTER TO SUPERINTENDENT.. . 4
Letter to Governor. . . . . . . . 5
COMMODORE COUNTY U.S.A... . . . 8
C64 Music Digitizer.. . . . . . . 8
IBM Label Program.. . . . . . . 9
COCO CORNER.. . . . . . . . . . 12
Bulletin Board Numbers. . . . . 13
Floyd was very excited by the
Amateur Computerist. He had for many
years predicted that the next revo-
lution of importance for the whole of
human society would be the cybernetic
revolution, the successful marriage
of workers, computers and the machin-
ery of production. Floyd said such a
revolution would make possible the
shortening of the required work time
for each worker. Floyd was a loyal
contributor to every issue of the
Amateur Computerist because he saw it
as the harbinger of the fight of
workers for their share of the tech-
nological kitty that computers make
possible. He also was convinced that
only those true to the appreciation
of the crucial role of the "amateur"
could make any important contribution
to the advance of this technology.
Floyd's funeral was held on May 2,
1990. A number of his Pioneer friends
could not attend because of their own
ill health. But to its shame, the
Union for which he fought so long and
so hard sent not one representative,
not from the UAW International, not
from Region 1C, not even from his own
Local 659. It is a sad comment on the
state of today's UAW.
The following eulogy was read at
the service before the funeral:
Floyd's friend and fellow sit-down
pioneer Ken Malone said that each
century produces only one or two
truly great men. And that Floyd was
one such rare person. Floyd, our dear
Floyd Hoke-Miller, personified the
best, the truest representation of
working people. People he called
respectfully the Common Man. Because
of his principled and prodigious
contribution, Floyd ranks in stature
and resolute purpose with Thomas
1
Paine and Eugene V. Debs.
Floyd was prolific with his help,
his advice, his poetry, and his
insightful commentary. Yet he is as
unknown as the least of us.
He didn't seek fame. He certainly
didn't expect it. But he surely,
richly deserved it. And he did what
for other classes would have brought
fame.
He saw more deeply, understood
more clearly the conditions of the
Common Man and Woman and the other-
wise unsung greatness of the Common
People. And so he sang out with his
wonderful poetry for these people.
Floyd gave direction and purpose
to those fighting for a better world
for the working class.
Sad we are that he died last
Sunday. But we who knew and worked
with Floyd are grateful for his long
and productive life. And the cause of
the working class is infinitely bett-
er because of it. It will be harder
without him. But he leaves as foot-
prints a vast gift of poems and arti-
cles and stories. Now others must
pick up the pieces and carry on the
work and legacy of Floyd Hoke-Miller,
the Common Man's most uncommon cham-
pion and treasure.
Floyd, we will miss you. But we
won't let you down.
The eulogy was followed by the
reading of Floyd's poem, "The La-
borer, Yes". Floyd particularly fa-
vored this poem lately because he saw
the labor movement turning away from
the laborer and toward the disaster
of "partnership" or "jointness".
Besides contributing to the Ama-
teur Computerist, Floyd Hoke-Miller
was a long time member and best
friend of UAW Local 659. His fondest
wish would be that his Local and its
newspaper, The Searchlight, could be
brought back into the struggle for
the Shorter Work Day.
Finally, if for any one thing,
Floyd would want it said, he fought
to the end for Shorter Hours of work
for the Common Man and Woman.
Jay Hauben, 5/4/90
The Picket
by Floyd Hoke-Miller
I am the guy with nerve and guts;
The soldier of all your labor fights
My road through battle has many ruts
But never too rough to guard your
rights.
Through rain and snow, along I tried,
To show my protest of oppression;
To win more money for meat and bread
Or gain some other fair concession.
I've lost my blood that you might
share
In shorter hours and higher wages--
The biggest burden of labor, I bear
Is breaking the shackles of the ages.
IN HONOR OF LABOR'S POET LAUREATE:
THE SOWER OF THE SEEDS
I
How does one write a poem
To commemorate a life
When the dead man was the poet
Who sang of labor's strife?
II
How does one mourn the death
Of one who was the prince of song?
Floyd I want to ask you for a poem As
Kenny Malone has so often done.
III
You honored Bert Boone when he passed
on,
Saying "au revoir but I won't
forget."
And for George Carroll, the lament
"The world is now the loser
For much you rendered here
To free the sweating worker
From want and war and fear"
IV
For Ashley Pennegar you wrote
"We that know you bow our head"
And for Jimmy Kiger you said:
"Your footprints will point ahead"
V
For Pop Hill and Howard Foster,
Jack Palmer and Steve Hodges too
You wrote the epitaph
That bid to them adieu.
VI
And for Tom Kelley, Kermit Johnson,
his father Carl,
Fay McKnight and Ernest Le Vior
You penned the words that said
The wage slave's battle is not o'er
VII
Though they had fallen from the ranks
You wrote of their passing
"To the fallen warrior,
A thousand thanks."
2
VIII
"The world is now the richer"
Your poetry proclaimed
For the deeds the warriors had done
Though they may go unnoticed or
unsung.
IX
But Floyd when you have passed it's
different
Your voice has filled the air.
With the deeds and dreams of workers
With the voice we so rarely hear.
X
You have captured in your poetry
Labor's often hidden plight
And your songs record the wisdom
From this never ending fight.
XI
"The boss is not your buddy"
Your poetry proclaims
To those who gave no quarter to the
enemy
Your poems declare immortal fame.
XII
You warned me to keep in mind
The seeds that one must sow
Only seeds will bring the harvest
From little acorns the mighty oak
will grow.
XIII
You stressed that it is in the Spring
Wherein true hope resides,
Though autumn may bring the harvest
After that the leaves will die.
XIV
So when I said good bye on May Day
With your body lain in State
I said thank you for a life
The working class will celebrate
XV
For May Day is the Day
For the working class warrior to rest
In honor of our class tradition
On this day you passed on your
bequest
XVI
So Floyd it wouldn't do to grieve
For the sower of the seed
In spring there is a legacy
For us to study and to heed.
XVII
The words of Oscar Ameringer and Joe
Hill
You taught us to keep in mind
That the worst scab is the union scab
And "don't mourn, organize!"
XVIII
You held so high the torch of '37
While it was in your hand
So now it passes proudly
And on the spirit of '37 we shall
stand.
With the greatest respect and admira-
tion.
Ronda Hauben
COMPUTER EDUCATION AND
GOVERNMENT REGULATION
The Amateur Computerist newsletter
was started because of the problems
that workers at the Ford Rouge Plant
had trying to have computer program-
ming education. State, federal, and
contractual funds were available to
pay for the computer education, but
the classes were discontinued and the
money diverted to other illegitimate
sources now acknowledged by the
school officials to have been unlaw-
ful, and by the Prosecutor of Wayne
County and the Attorney General of
Michigan to be unconstitutional.(See
vol 2, no 4)
Throughout the publication of the
Amateur Computerist, there has been
an effort to continue to sort out
what the problem was that prevented
this public and contractual funding
from providing the kind of technical
education it was intended for.
For the past few years, there has
been a loud public relations campaign
claiming that there is federal,
state, company and union support for
needed worker education. Yet all this
hoopla has proven to be a smoke
screen for the misuse of public edu-
cation funds since there are no man-
datory penalties for the misuse of
these funds.
Just like the deregulation of the
airlines and the banks, so the cur-
rent efforts to loosen even more the
laws requiring accountability of
public education funds can only re-
sult in a disastrous fiasco.
Currently, in the upcoming Con-
gressional and State elections in
Michigan, there are a myriad of pro-
posals claiming to improve the
schools and to make more public funds
available for education.
But what has become evident is
that the regulations regarding the
spending of public education moneys
are so lax, that the money is easy
prey for unscrupulous misuse by ei-
ther public officials, union or com-
pany officials, or whoever has the
3
political clout to receive the funds.
Thus the legislature has passed
delusive laws that allow for the
plentiful spending of public educa-
tion funds, but provide only weak
mechanisms of oversight regarding the
actual use of the funds, or of recov-
ery when the funds are misused. In
fact, public officials who misuse the
funds are rewarded rather than penal-
ized, thus ensuring that the funds
can only be misused.
Consequently, until there are much
stronger laws governing the misuse
and penalty for that misuse of public
education funds, any effort to in-
crease the funds available only add
more wine to a pitcher with a hole in
the bottom.
Thus the problems experienced in
continuing computer education classes
at the Ford Rouge Plant had to do
with state legislators and federal
congressmen who were willing to pass
delusive laws which in fact make
legitimate computer education impos-
sible. And instead of tightening the
current regulations and making harsh-
er penalties for those who violate
them, current state legislators and
U. S. Congressmen are obediently
following the siren's call of big
corporations to deregulate public
education funds. The development of
the computer requires increased and
tightened regulations, not deregula-
tion of education funding. Without
strong and vigorously enforced public
laws guarding the misuse of public
education funds, fraud and abuse make
impossible the kind of computer pro-
gramming classes originally offered
at the Dearborn Engine Plant. Deregu-
lation of public education, whether
it is called the Job Training Part-
nership Act, at the federal level, or
credit card adult education at the
state level, can only result in
fraudulent use of public education
funds and the constant deterioration
of public education.
Letter from Superintendent
May 3, 1990
Dear Ms. Hauben
This responds to your letter dated
March 1, 1990. It is reasonably obvi-
ous given our many responses to you
and your husband, that much time and
effort has been devoted to the many
charges and concerns regarding the
Dearborn Public Schools and their
educational program with the Ford
Motor Company. Compilation of this
data has necessitated numerous hours
on the part of staff of the Legisla-
ture, the Department of Education and
Office of the Attorney General. You
have participated in several meetings
and have been informed of the conclu-
sions that were reached. A number of
issues you raised have been addressed
and appropriate corrective actions
have been taken. Some of the remain-
ing issues are outside of the purview
of the Department of Education.
You have made very serious allega-
tions against numerous public offi-
cials, including staff of their De-
partment. I, for one, stand by the
actions and recommendations of my
staff, who are highly regarded pro-
fessionals with extensive experience
in overseeing very complex programs.
As you previous have been informed
on several occasions, your appeals
within the Department have been ex-
hausted. My conclusion is that the
statutes and regulations surrounding
the program have been met. Therefore,
further action will not be taken by
the Michigan Department of Education.
Sincerely,
Donald L. Bemis
OPEN LETTER TO SUPERINTENDENT BEMIS
Your response to my letter of
March 1, 1990 shows that there is an
official coverup going on of the
illegal use of public funds in adult
education and worker education pro-
grams like the one at the Ford Rouge
Complex in Dearborn Michigan. It is
further clear that until the public
is informed of the illegal activities
involved in these situations, no way
can be found to correct the situa-
tion.
Your response of May 1, 1990 is
only a continuation of the coverup:
1)Your letter mentions many "re-
sponses", "time and effort" spent
4
regarding the illegal expenditure of
funds, yet I have received only this
May 1, 1990 response from you and
have no evidence of any time nor
effort spent by your department on
this issue. The normal procedure the
department previously followed, of
assigning a complaint to a member of
the department, interviewing the
complainant and then issuing a formal
report listing each of the allega-
tions and the conclusions of the
investigation regarding the allega-
tions, has never been followed by the
department. Instead I have only re-
ceived this evasive letter denying
that there is a problem.
2) You mention meetings I have
attended and that I have been in-
formed of your conclusions at those
meetings. Yet there has been only 1
meeting with you, and one with some-
one else on your staff, and the only
conclusion I have been informed of is
that there is no problem, that your
view is that the program is "wonder-
ful" and that there was "nothing to
investigate."
3) Your letter states that the
remaining issues are outside the
purview of the Department of Educa-
tion, yet you do not say what the
remaining issues are, nor who has
authority to deal with them.
4) Your letter states that you
will stand by officials of your de-
partment. Does that mean that there
is illegal activity that you know
they have been involved in and that
you have agreed to cover up? Other-
wise why would you need to stand by
them rather than having a thorough
investigation into what has happened
to prevent the illegal expenditures
of public education funds from being
frankly admitted and rectification
provided.
5) Your letter states that stat-
utes and regulations have been met.
What statutes and regulations are you
referring to? Why is there no state-
ment of what these statutes and regu-
lations are, despite the fact that
they were specifically referred to in
the complaint filed with the Depart-
ment of Education.
6) There is now an effort by the
Governor and some representatives in
the State Legislature to get rid of
the State Board of Education. Yet it
seems from the current coverup by the
State Department of Education that
the problem is not that the State
Board has too much power, but that in
fact the laws are too weak regarding
recovery and punishment of illegal
use of public education funds and
that the State Board of Education
needs additional laws to provide them
with the ability to oversee the State
Department of Education. The current
laws give only the Governor the right
to deal with this problem, despite
the fact that the State Board of
Education, according to the State
Constitution, is supposed to be in
charge of oversight of public educa-
tion and adult education in the State
of Michigan.
Thus I have written the attached
letter to Governor Blanchard regard-
ing the misuse of public funds as the
power to oversee the misuse of public
funds resides in his office. But the
necessary investigation into the
coverup of the illegal expenditure of
funds at the Ford Rouge Complex is
still needed to be able to find how
to stop the diversion of education
funds from the K-12 program into the
hands of private companies and other
illegal uses.
Sincerely,
Ronda Hauben
Letter to Governor
June 23, 1990
Dear Governor Blanchard,
In September 1984, I was hired as
a teacher of computer programming
classes intended for hourly workers
at the Ford Rouge Plant. I worked at
the Dearborn Engine Plant for 2-1/2
years. But the illegal use of public
and federal funds and the documented
violations of state and federal regu-
lations governing these funds made
such classes impossible and resulted
in the cancellation of these computer
classes.
State and federal education funds
have been used and are still being
used in forbidden ways to pay for a
private labor relations scheme
5
clothed with the cover of "public
education." For the past 4 or 5 years
I have been trying to have this ille-
gal and unconstitutional situation
rectified. But I've gotten no where.
I am writing to you with regard to
this run around. I have uncovered the
refusal to undertake mandatory recov-
ery of misused public and federal
education funds on the part of the
State Department of Education, the
Attorney General and the Wayne County
Prosecutor's Office.
Under MCLA 21.47, you have the
power to remove public officials from
office who refuse to comply with the
obligation to recover misspent public
funds and to prosecute the public
officials involved. MCLA 21.47 says:
"Refusal or neglect to comply with
the requirements of this section on
the part of the attorney general, or
on the part of the prosecuting attor-
ney of any county in the state shall
be sufficient cause for his removal
from office by the governor." I am
requesting that your office begin an
immediate investigation into this
matter and take the necessary appro-
priate action with regard to the
mandatory recovery of misspent public
and federal education funds and to
penalize the public officials respon-
sible.
This illegal activity was origi-
nally brought to the attention of the
Attorney General's office in Decem-
ber, 1986, and to the attention of
the Wayne County Prosecutor's Office
on February 19, 1987. Subsequently,
these public officials were presented
with documentary evidence of the
admitted illegal payment of over
$20,000 of state aid and federal
funds to a union via the bills show-
ing the illegal payoff, as well as
the admission of the payoff in a
court suit filed by the Garden City
Public Schools in Wayne County Cir-
cuit Court 86-634695CZ. The Prosecu-
tor's office advised that this situa-
tion had to be dealt with by the
Attorney General's office. And the
Asst. Attorney General in charge of
Education insisted that it was neces-
sary to make a complaint to the State
Department of Education to get recti-
fication. He wrote: "If your claim is
that a school district improperly
expended public funds, you should
make that complaint in writing to the
Michigan Department of Education in
Lansing, Michigan, providing as much
documentation as possible. The Michi-
gan Department of Education will
inquire into your complaint, to the
extent it deems appropriate, and
share its review with this office."
(Letter from Gerald Young dated April
17, 1987)
In 1986, a complaint was initiated
with the State Department of Educa-
tion by talking with the Consultant
at the Wayne County Intermediate
School District about the problem. A
formal written complaint was submit-
ted in 1988. Thus far there has been
no report written detailing the alle-
gations nor showing any investigation
into them. In addition, there is now
over 800 pages of public testimony at
the Michigan Employment Relations
Commission in Case No. 86 K-291 ad-
mitting to the illegal use of public
funds. Both the Prosecutor of Wayne
County and the Attorney General of
Michigan have been informed of this
additional evidence. State Senator
Daniel DeGrow has written that he is
awaiting the report of the Attorney
General's office to take action in
the matter. In a letter dated March
1, 1990, he wrote, "As indicated in
my letter to you dated February 16,
1990, I am awaiting the outcome of
the investigation being conducted by
the Attorney General's Office. When
their report is complete, I will be
so advised and the appropriate action
will be taken at that time." (Letter
from Daniel DeGrow dated March 1,
1990)
In addition to the documented
illegal use of $20,000 of public
money, the Prosecutor of Wayne County
has acknowledged that approximately
$200,000 of public state aid and
federal funds have been used to sup-
port a nonpublic school at the Ford
Rouge Plant. Also, substantial public
funds are being used to subsidize
nonpublic schools at the Ford Motor
Company via the UAW-Ford National
Development and Training Center lo-
cated on public property at Henry
Ford Community College in Dearborn,
6
Michigan.
Such activities have been acknowl-
edged by the Prosecutor of Wayne
County and the Michigan Attorney
General to be an unconstitutional and
hence a forbidden use of public
funds. Yet no effort has been made by
any of the public officials involved
to retrieve the misspent monies,
despite the fact that there are laws
that require the recovery of any
illegally spent public moneys. MCLA
14.431 requires that "The Attorney
General or the prosecuting attorney
shall institute civil action in any
court of competent jurisdiction for
the recovery of any moneys, disclosed
by any examination to have been ille-
gally expended or collected and not
accounted for, also for the recovery
of any public property disclosed to
have been converted and misappropri-
ated."
In addition, MCLA 14.143 requires
that public officials involved in the
misappropriation of public funds be
prosecuted. "The Prosecutor (or At-
torney General) prosecutes all public
officials suspected of mismanagement
of public funds."
Yet the officials involved in both
the misappropriation of these funds
and then in the coverup, have been
encouraged in their illegal activi-
ties by the inaction of the prosecu-
tor and the attorney general.
Where there is a failure on the
part of the Prosecutor or Attorney
General's office to retrieve public
funds or to prosecute the officials
involved, the Governor has the obli-
gation to remove these officials from
office.
Consequently, I am requesting that
pursuant to MCLA 14.431, 14.143 and
27.47 you investigate the situation
and provide the necessary action so
that the public money involved is
recovered and the public officials
responsible are prosecuted. This
request is in continuation of the
whistleblowing that is documented in
my whistleblower lawsuit #87-712733-
CZ in Wayne County Circuit Court
regarding this situation and of the
labor department complaint filed with
the Michigan Employment Relations
Commission in 1986, case no's #86
K-291 and C86 294, CU86 K-68 and C87
D-94 through 99. Under the Whistle-
blower Protection Act and under the
PERA, an employee is supposed to be
protected from retaliation while he
or she makes an effort to have an
illegal situation corrected by the
appropriate public officials.
A letter dated May 1, 1990 that I
received from Superintendent Bemis
demonstrates that the Department of
Education believes that it has no
ability to deal with the misappropri-
ation of public education funds. On
researching the law, I found that the
appropriate public entities to re-
trieve misappropriated public funds
are the attorney general's office and
the prosecutor's office, and if they
failed to comply with their obliga-
tions, your office was obligated to
take steps to remove them.
I have been sent on a run around
by various public officials for over
4 years now. In the meantime, the
public officials involved have been
given to understand that they will be
rewarded for the misappropriation of
public education funds. Clearly there
is a problem with the law if public
moneys can be spent illegally with
only encouragement by the public
officials involved. The weak mecha-
nism for dealing with such a situa-
tion seems to leave the final author-
ity with your office. Thus I am ask-
ing for immediate action by your
office in this matter. Please ac-
knowledge receipt of this letter and
inform me in writing of the procedure
by which your office will undertake
to require the necessary corrective
action, namely, the recovery of the
public funds and property, the prose-
cution of the public officials re-
sponsible for the misappropriation of
the funds and for the coverup, and a
public investigation into the situa-
tion whereby this problem has devel-
oped and has been continued despite
repeated efforts to request rectifi-
cation.
Ronda Hauben
7
COMMODORE COUNTY U.S.A.
Here is a small 'Utility' to use
with your BASIC programs. It is quite
simple to use, and will work with
almost any BASIC program.
The program is written in machine
language but has a BASIC loader. All
you have to do is carefully type in
the BASIC program shown below. Then
save a copy to disk. (For those of
you using a cassette this program
will not work, because I designed the
program to run from the cassette
buffer at location 832 in memory.
The program uses a simple IRQ
routine to interrupt your normal
BASIC program and will change the two
multicolors of the text. The feature
can be toggled on and off by poking
the following:
POKE 890, 77 (turns color 1 on to
flash.)
POKE 891, 77 (turns color 2 on to
flash.)
Poking these two locations with any
other number causes the routine to
stop flashing. The last color it
flashed will still be displayed how-
ever.
You might notice in line 160 of
the program that there is a clover
leaf symbol. To get this type {Commo-
dore key and #3 key together}. The
clover leaf symbol will not be dis-
played however! In the multicolor,
only the colors that are activated by
the Commodore key will have any ef-
fect on the texts color.
The program will deactivate itself
with certain SYNTAX ERRORS however.
The program can also be stopped com-
pletely by hitting RUN STOP/RESTORE.
Hope you have fun with this little
utility. Next time, I hope to have a
utility to display a line of text at
the top of the screen all the time. I
call it: 'The Title'. But so far it's
just a feeble attempt. So it's back
to the Commodore County Labs with me!
See you next time in Commodore
County!
10 REM SHIMMERING TEXT
20 POKE 890, 77
30 POKE 891, 77
50 REM
100 T = 832
110 READ A: IF A = -01 THEN 150
120 CK = CK + A
130 POKE T, A
140 T = T + 1: GOTO 110
150 IF CK <> 6306 THEN PRINT "DATA
ERROR! CHECK DATA STATEMENTS!": STOP
160 SYS 832: PRINT "ÊSHIMMER ACTI-
VATED!"
170 REM
180 REM DATA STATEMENTS
190 REM
200 DATA 169, 000, 141, 024, 212,
141, 032
210 DATA 208, 141, 033, 208, 141,
034, 208
220 DATA 173, 022, 208, 009, 016,
141, 022
230 DATA 208, 120, 169, 098, 141,
020, 003
240 DATA 169, 003, 141, 021, 003,
096, 173
250 DATA 122, 003, 201, 077, 208,
003, 206
260 DATA 034, 208, 173, 123, 003,
201, 077
270 DATA 208, 003, 206, 035, 208,
076, 049
280 DATA 234, -01
290 END
The Cheeze of Commodore County
J. Gritzmacher Jr.
C64 Music Digitizer
DIGITAL VISIONS
From the back labs of Commodore
County has come an interesting de-
vice, and software to boot. The infa-
mous Dr J Backwash, and C. Whiplash
of DIGITAL VISIONS, have whipped up
an audio digitizer that is really
easy to use.
The project took these inspiring
young scientists a total of about two
months to conjure up. The software to
digitize music is included on the
disk. Included is, (plans only) of
how to build the 20 component de-
vices, instructions on how to use it,
and several software programs. The
only additional requirements are a
machine language MONITOR that can be
easily found, and the components that
are available through electronic
suppliers.
THE PROGRAMS THAT ARE INCLUDED ON THE
DISK ARE:
1 ] Digital sample 3 seconds
2 ] Digital sample 11 seconds
3 ] Reverse playback
8
4 ] Chatter player
5 ] Sight 'n Sound
6 ] Samplers 1-2
Check or money order only!
To get your packet of materials, send
$9.99 to:
DIGITAL VISIONS
c/o Commodore County
J. Gritzmacher Jr
1542 N Sunny Crest Dr.
Stevens Point WI 54481
The price includes return postage,
disk and all instructions, and pro-
grams to use the digitizer.
For those that would just like to
hear how the digitizer works, send a
double sided, double density floppy
5.25 inch diskette, and a self ad-
dressed stamped envelope to the above
address. I have 6 disks full of sam-
pled music to be copied. When sending
your disk, indicate which titles you
would like from the listing below.
Only 8 per diskette please! (Only
eight will fit!) SEND NO MONEY for
these Please!
DISK ONE:
] Long cool woman
] Runnin' down a Dream
] For All we know
] China Girl
] Blame it on the rain
DISK TWO:
] Church Lady #1
] Star Trek III
] Headgerow
] Revers Headgerow
] 3 second Bangles
] Sweet Child 'o Mine
] Scarborough fair
] Even in the quietest moments
DISK THREE:
] Phantom of the Opera
] Sail away (Orinoco Flow)
] Sail away II
] Dragnet
DISK FOUR:
] Church Lady II
] Leave me Alone
] Flight of Valkyries
] You see me Crying
] Sound of Silence
] We're the Boingers!
] L'Amour est Bleu
] Its Inevitable
DISK FIVE:
] Dream on
] Schools Out
] Betty Davis eyes
] Stairway to Heaven (Rock 'n not to
roll)
] Digital Drums
] Kung Fu Fighting
] Mr Roboto
DISK SIX:
] Argent (Hold your head up)
] Mr Fulton
] Cantina Band
] Kraftwork (Robots)
] Tribbles (Star Trek)
] Always Poke my Eye
] Vanna Pick me a letter
] Hazy shade of winter
DISK SEVEN:
] Never ending story
] Foreboding sound effect
] Ship
] Battle of evermore
] Flash sample of Led Zeppelin
] Misty Roses
Remember; SEND NO MONEY for the mu-
sic! This is copyrighted material.
The Cheeze of Commodore County,
John Gritzmacher Jr.
(J . Backwash)
IBM Label Program
10 REM "LABEL",A
20 REM MENU
22 FLAG = 0 : REM FLAG FOR LOADING
ARRAY
23 ALPA = 0: REM FLAG FOR ALPHABET-
IZED LIST
24 PI = 0: REM FLAG FOR SEARCHING
LIST
25 CLS: KEY OFF
26 RESTORE
27 LOCATE 8, 10
30 PRINT "WHICH DO YOU WANT? :"
35 LOCATE 9, 10
40 PRINT "(1) VIEW NAMES ON SCREEN":
REM 200
45 LOCATE 10, 10
50 PRINT "(2) VIEW LABELS ON SCREEN":
REM 300
55 LOCATE 11, 10
60 PRINT "(3) ALPHABETIZED LIST": REM
400
65 LOCATE 12, 10
70 PRINT "(4) SEARCH FOR ENTRY": REM
500
75 LOCATE 13, 10
80 PRINT"(5) USE PRINTER": REM 600
85 LOCATE 14, 10
90 PRINT "(6) ADD TO LIST": REM 700
9
91 LOCATE 15, 10
92 PRINT "(7) QUIT": REM 900
93 LOCATE 16, 10
94 INPUT "CHOOSE NUMBER "; Q
96 IF Q < 1 OR Q > 7 THEN LOCATE 16,
5: PRINT "OUT OF RANGE. CHOOSE # 1-7
": LOCATE 17, 10: GOTO 94
99 ON Q GOSUB 200, 300, 400, 500,
600, 700, 900
100 GOTO 25: RETURN TO MENU
110 REM NAMES IN SUBROUTINE
112 REM TRAP OUT OF DATA ERROR
113 ON ERROR GOTO 145
115 N = 100: REM NUMBER OF NAMES IN
LIST
117 IF N > 10 THEN DIM A$(N, 8)
118 CLS
130 LOCATE 15, 5: PRINT "NAMES ARE
BEING LOADED INTO COMPUTER"
140 T = 0: FOR Y = 1 TO N: FOR X = 1
TO 8: READ A$(Y, X): NEXT X: T = T +
1: NEXT Y
142 GOTO 150
145 IF ERR = 4 THEN N = T ELSE PRINT
ERR: END
146 PRINT "NUMBER OF NAMES YOU HAVE
IN ADDRESS LIST IS NOW "; N
150 GOSUB 4000: FLAG = 1
180 RETURN
200 REM VIEW NAMES ON SCREEN SUBROU-
TINE
210 CLS
212 IF FLAG = 1 THEN 220
215 GOSUB 110
217 CLS
220 PRINT TAB(15); "Address List"
222 PRINT
225 PRINT "FIRST"; TAB(12); "LAST";
TAB(22); "ADDR";
226 PRINT TAB(40); "CITY, STATE";
TAB(59); "ZIP"; TAB(66); "PHONE NO."
230 FOR L = 1 TO 80: PRINT "-";: NEXT
240 PRINT
260 FOR Y = 1 TO N: FOR X = 1 TO 7
262 IF X = 1 THEN W = 1
263 IF X = 2 THEN W = 12
264 IF X = 3 THEN W = 22
265 IF X = 4 THEN W = 40
266 IF X = 5 THEN PRINT ","; A$(Y,
X);: COUNT = COUNT + 1: GOTO 290
267 IF X = 6 THEN W = 59
268 IF X = 7 THEN W = 66
270 PRINT TAB(W); A$(Y, X);
280 COUNT = COUNT + 1
290 NEXT X : PRINT: NEXT Y
292 PRINT: PRINT: PRINT: PRINT
294 LOCATE 18
298 GOSUB 4000
299 RETURN
300 REM LABELS SUBROUTINE
310 IF FLAG = 0 THEN CLS: GOSUB 110
315 FOR X = 1 TO N
320 CLS
321 LOCATE 15, 15
324 IF A$(X,8) = "1" THEN PRINT "MR.
";: GOTO 330
325 IF A$(X, 8) = "2" THEN PRINT "MR.
& MRS. ";: GOTO 330
326 IF A$(X, 8) = "3" THEN PRINT "MR.
& MRS. "A$(X, 1);" "A$(X, 2); " &
FAMILY": GOTO 332
327 IF A$(X, 8) = "5" THEN PRINT "MR.
& MRS. "; A$(X, 2); " & FAMILY": GOTO
332
328 IF A$(X, 8) = "6" THEN PRINT
"MRS. ";: GOTO 330
329 IF A$(X, 8) = "7" THEN PRINT "MS.
";: GOTO 330
330 PRINT A$(X, 1); " "A$(X, 2)
332 LOCATE 16, 15: PRINT A$(X, 3)
334 LOCATE 17, 15: PRINT A$(X, 4);
"," ; A$(X, 5); " "; A$(X, 6)
336 PRINT
339 GOSUB 4000
342 NEXT X
344 LOCATE 20, 20: PRINT "THOSE ARE
ALL THE LABELS IN LIST"
350 GOSUB 4000
399 RETURN
400 REM ALPHABETIZED LIST
410 IF FLAG = 1 THEN 430
420 GOSUB 110
430 FOR T = 1 TO N -1
440 FOR I = N TO T + 1 STEP -1
445 IF A$(I, 2) > A$(I - 1, 2) THEN
460
450 FOR Q = 1 TO 8
451 T$(Q) = A$(I, Q): A$(I, Q) = A$(I
- 1, Q): A$(I - 1, Q) = T$(Q)
452 NEXT Q
460 NEXT I
470 NEXT T
475 ALPHA = 1: REM FLAG FOR ALPHABET-
IZING
476 IF PI = 1 THEN RETURN
480 CLS: PRINT "ALPHABETIZING IS
DONE."
481 PRINT "DO YOU WANT TO SEE LIST ON
SCREEN? "
482 INPUT "TYPE IN Y FOR YES AND N
FOR NO "; W$
484 IF W$ = "Y" OR W$ = "y" THEN
GOSUB 200
498 RETURN
500 REM SEARCH FOR ENTRY
505 REM THIS IS A BINARY SEARCH
10
510 PI = 1
525 IF ALPA = 1 THEN 530
527 GOSUB 400
528 CLS
530 INPUT "LAST NAME"; N$
540 L = 1
550 H = N : REM NUMBER OF ITEMS IN
LIST
560 M = INT ((L + H) / 2): REM FIND
MIDDLE OF HALF CURRENTLY BEING
SEARCHED
570 IF N$ = A$(M, 2) THEN PRINT A$(M,
1); " "; A$(M, 2): PRINT A$(M, 3):
PRINT A$(M, 4)" "A$(M, 5)" "A$(M, 6):
PRINT A$(M, 7): GOTO 596
580 IF N$ > A$(M, 2) THEN L = M + 1:
GOTO 595
585 H = M - 1: REM SEARCH IN LOWER
HALF
595 IF L > H THEN PRINT N$; " IS NOT
IN THE LIST " ELSE 560
596 GOSUB 4100
597 RETURN
600 REM USE PRINTER
605 CLS
607 LOCATE 10, 18
610 PRINT "DO YOU WANT TO PRINT :"
617 LOCATE 11, 18
620 PRINT "(L)ABELS ": REM 3000
627 LOCATE 12, 18
630 PRINT "(C)OMPLETE LIST": REM 3100
647 LOCATE 16, 18
650 INPUT "ENTER LETTER L, C "; P$
651 IF ASC (P$) > 96 AND ASC (P$) <
122 THEN LOCATE 17, 20: PRINT "USE
CAPITAL LETTERS.": GOTO 647
652 FOR Q = 1 TO 5: IF P$ <> MID$
("LC",Q,1) THEN NEXT: GOTO 647
655 PRINT "MAKE SURE PRINTER IS TURN-
ED ON AND PAPER IS READY "
657 IF FLAG = 1 THEN 660
658 GOSUB 110
660 ON Q GOSUB 3000, 3100
663 CLS
665 PRINT "TURN OFF PRINTER"
670 GOSUB 4000
672 RETURN
700 REM ADD TO LIST SUBROUTINE
705 CLS
706 FLAG = 0
707 ALPHA = 0
708 PI = 0
710 PRINT "TYPE LINE NUMBER AND IN-
FORMATION IN THE FOLLOWING FORM:"
715 LN = 1140: REM LAST DATA STATE-
MENT
720 PRINT CHR$(34); LN + 5; "DATA
FIRST, LAST, ADDR, TOWN, STATE, ZIP,
TELE, CODE"; CHR$(34)
721 PRINT
722 PRINT "CODE 1 = MR.; 2 = MR. &
MRS. FIRST LAST; ";
723 PRINT "3 = MR. & MRS. FIRST LAST
& FAMILY; 4 = NO BEGINING; ";
724 PRINT "5 = MR. & MRS. LAST &
FAMILY ; 6 = MRS.; 7 = MS."
740 PRINT: PRINT "TYPE LINE NUMBER ";
LN+5;" THEN NUMBER BY FIVES"
745 PRINT
750 PRINT "WHEN FINISHED, TYPE: ";
CHR$(34);"715 LN = {LAST DATA LINE
NUMBER}: REM LAST DATA STATEMENT";
CHR$(34)
755 PRINT
760 PRINT "WHEN FINISHED TYPE:"
770 PRINT "SAVE"; CHR$(34);
"LABEL.BAS"; CHR$(34); ",A"
775 PRINT: PRINT "THEN TYPE ";
CHR$(34); "RUN"; CHR$(34); " TO CON-
TINUE THE PROGRAM"
780 END
900 REM QUIT
920 CLS
930 LOCATE 15, 18: PRINT "GOODBYE FOR
TODAY. "
940 GOSUB 4000
970 CLS
980 END
1100 REM DATA FIRST, LAST, ADDR,
CITY, STATE, ZIP, TEL, CODE
1105 DATA William, Rohler, 998 Tele-
graph, Dearborn, Mi, 48124,
313/222-4444, 1
1110 DATA NORMAN, THOMPSON, 3342
MICHIGAN, DETROIT, MI, 48225,
313/555-4444, 2
1115 DATA RONDA, HAUBEN, ,DEARBORN,
MI, 48126, 313---------, "4"
1120 DATA JOHN, DOE, 1234 ANYSTREET,
ANYTOWN, MI, 48000, 313/123-4567, 3
1125 DATA MARY, SMITH, 98765 OAK,
DETROIT, MI, 48224, 313/432-7654, 6
1130 DATA JIM, BROWN, 4432 PINE AVE.,
DEARBORN, MI, 48124, 313/789-3210, 1
1135 DATA Judy, Jones, 9876 Maple
St., Wayne, Mi., 48342, 313/888-4321,
7
1140 DATA Barbara, Sybex, 765 Scott,
Dearborn Hgts., Mi, 48125,
313/890-4356, 6
3000 REM PRINT LABELS SUBR
3010 CLS
3015 PRINT "MAKE SURE PRINTER IS
TURNED ON AND LABELS ARE READY TO
PRINT"
3020 PRINT "PRESS ANY KEY TO GO TO
11
NEXT LABEL"
3025 GOSUB 4000
3030 FOR X = 1 TO N
3035 CLS
3040 LPRINT
3042 PRINT "PRINTING LABEL FOR ";
A$(X, 2)
3044 IF A$(X, 8) = "1" THEN LPRINT
"MR. ";: GOTO 3050
3045 IF A$(X, 8) = "2" THEN LPRINT
"MR. & MRS. ";: GOTO 3050
3046 IF A$(X, 8) = "3" THEN LPRINT
"MR. & MRS. "; A$(X, 1); " "; A$(X,
2); " & FAMILY": GOTO 3060
3047 IF A$(X, 8) = "5" THEN LPRINT
"MR. & MRS. "; A$(X, 2); " & FAMILY":
GOTO 3060
3048 IF A$(X, 8) = "6" THEN LPRINT
"MRS. ";: GOTO 3050
3049 IF A$(X, 8) = "7" THEN LPRINT
"MS. ";: GOTO 3050
3050 LPRINT A$(X, 1); " "; A$(X, 2)
3060 LPRINT A$(X, 3)
3070 LPRINT A$(X, 4); ","; A$(X, 5);
" "; A$(X, 6)
3075 LPRINT
3076 LPRINT
3080 GOSUB 4000
3081 NEXT X
3082 CLS
3083 PRINT "ALL LABELS IN LIST HAVE
BEEN PRINTED"
3084 PRINT "PRESS ANY KEY TO GO BACK
TO PRINT MENU"
3085 GOSUB 4000
3099 CLS: RETURN
3100 REM PRINTOUT ADDRESS LIST
3110 CLS
3120 LOCATE 15, 10: PRINT "MAKE SURE
PRINTER IS TURNED ON"
3125 GOSUB 4000
3127 LPRINT: LPRINT
3130 LPRINT TAB(15); "Address List"
3140 LPRINT
3141 LPRINT "FIRST"; TAB(12); "LAST";
TAB(22); "ADDR";
3150 LPRINT TAB(40); "CITY, STATE";
TAB(59); "ZIP"; TAB(66); "PHONE NO."
3165 FOR L = 1 TO 80: LPRINT "-";:
NEXT
3167 LPRINT
3168 FOR Y = 1 TO N: FOR X = 1 TO 7
3169 IF X = 1 THEN W = 1
3170 IF X = 2 THEN W = 12
3171 IF X = 3 THEN W = 22
3172 IF X = 4 THEN W = 40
3173 IF X = 5 THEN LPRINT ","; A$(Y,
X);: COUNT = COUNT + 1: GOTO 3178
3174 IF X = 6 THEN W = 59
3175 IF X = 7 THEN W = 66
3176 LPRINT TAB(W); A$(Y, X);
3177 COUNT = COUNT + 1
3178 NEXT X : LPRINT: NEXT Y
3179 LPRINT: LPRINT: LPRINT
3180 GOSUB 4000
3181 RETURN
3200 CLS
3999 END
4000 REM CONTINUE SUBROUTINE
4010 LOCATE 23, 25: PRINT "PRESS ANY
KEY TO CONTINUE"
4020 V$ = INKEY$
4030 IF V$ = "" THEN 4000
4040 RETURN
4100 REM YES OR NO SUBROUTINE
4110 INPUT "SEARCH ANOTHER? Y/N"; Q$:
IF Q$ = "Y" OR Q$ = "y" THEN 530 ELSE
RETURN
9999 END
COCO CORNER
CALORIE COUNTER
0 ' CALORIE
1 ' by Scott McMahan
2 ' on 7-21-88
3 '
4 ' *****************
5 '
6 ' For people who are not mathematic
geniuses; yet want to watch the cho-
lesterol and calories.
7 '
8 ' ******************
9 CLS
10 INPUT "What is your personal
weight goal or ideal weight (in
pounds) "; W
20 PRINT :INPUT "What is your age"; A
25 PRINT :INPUT "Are you (M)ale or
(F)emale "; S$
30 IF A = > 45 THEN B = 1 ELSE B = 0
40 IF B = 0 AND S$ = "F" THEN W = W *
10
50 IF B = 0 AND S$ = "M" THEN W = W *
11
60 IF B = 1 AND S$ = "F" THEN W = W *
9
70 IF B = 1 AND S$ = "M" THEN W = W *
10
80 CR = (A - 25) * 10
90 W = W - CR
95 CLS
100 PRINT "Which of these applies to
you? 1) SEDENTARY (OFFICE WORK)"
101 PRINT "2) MODERATELY SEDENTARY
12
EDITORIAL STAFF
Ronda Hauben
William Rohler
Norman O. Thompson
Technical Editor
Michael Hauben
The Amateur Computerist invites
contribution of articles,
programs etc. Send submissions
to: R. Hauben P.O. Box 4344,
Dearborn, MI. 48126. Articles can
be submitted on paper or disk in
ASCII format, (IBM or Commodore.)
One year subscription (4 issues)
costs $5.00(US). Add $2.50 for
foreign postage. Permission is
granted to reprint any article
herein, provided credit is given.
(OCCASIONAL EXERCISE) 3) MODERATELY
ACTIVE (REGULAR EXERCISE) 4) VERY
ACTIVE (INTENSIVE EXERCISE)"
105 INPUT "Choose one ( 1-4 ) "; PA
110 IF PA = 1 THEN W = W + (W * .3)
120 IF PA = 2 THEN W = W + (W * .4)
130 IF PA = 3 THEN W = W + (W * .5)
140 IF PA = 4 THEN W = W + (W * 1)
150 CLS
160 PRINT " THE RESULTS: "
170 PRINT" Your daily caloric re-
quirements are "; W; " calories."
180 END
190 ' ********************
Bulletin Board Numbers
All BBS's are in the 313 area code
The Audio/Video Room ----884-4501
Genesis II --------------291-2520
Ballroom ----------------295-7279
Crimp/John Galt----------582-2528
Surfboard II ------------777-7873
M-Net -------------------994-6333190
NOTE: In the next issue we plan to
devote a few articles to using a
modem and the problems and advantages
in using it. Also we will include
some of the purposes for bulletin
boards. The discussion from MNET that
was promised in vol 3,no 1 will be in
the next issue.
Also, we invite readers to submit
questions, articles, etc. about their
experiences on BBS's.
13