The Amateur

Computerist

Spring 1990 Volume 3 No. 2

Table of Contents

THE LABORER, YES. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 1

FLOYD HOKE-MILLER (1898-1990). . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 2

The Picket.. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 4

THE SOWER OF THE SEEDS. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 5

COMPUTER EDUCATION. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 8

Letter from Superintendent. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 9

OPEN LETTER TO SUPERINTENDENT. . . . . . . . . . . . . . . . . . . . . . . . . . Page 10

Letter to Governor. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 12

COMMODORE COUNTY U.S.A.. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 16

C64 Music Digitizer. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 17

IBM Label Program. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 20

CoCo CORNER. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 27

Bulletin Board Numbers. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Page 28

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

Webpage: http://www.ais.org/~jrh/acn/

Page 1

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.

Floyd was very excited by the Amateur Computerist. He had for

many years predicted that the next revolution of importance for the

whole of human society would be the cybernetic revolution, the

successful marriage of workers, computers and the machinery 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 techno-

logical 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 technol-

ogy.

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

Page 2

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 representa-

tion 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 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 condi-

tions of the Common Man and Woman and the otherwise

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 better because

of it. It will be harder without him. But he leaves as footprints

a vast gift of poems and articles 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 champion

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

Laborer, Yes.” Floyd particularly favored this poem lately because he

saw the labor movement turning away from the laborer and toward the

disaster of “partnership” or “jointness.”

Page 3

Besides contributing to the Amateur 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.

Page 4

IN HONOR OF LABOR’S POET

LAUREATE:

THE SOWER OF THE SEEDS

How does one write a poem

To commemorate a life

When the dead man was the poet

Who sang of labor’s strife?

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”

For Ashley Pennegar you wrote

“We that know you bow our head”

And for Jimmy Kiger you said:

“Your footprints will point ahead”

For Pop Hill and Howard Foster,

Jack Palmer and Steve Hodges too

You wrote the epitaph

That bid to them adieu.

Page 5

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.”

VIII

“The world is now the richer”

Your poetry proclaimed

For the deeds the warriors had done

Though they may go unnoticed or unsung.

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.

You have captured in your poetry

Labor’s often hidden plight

And your songs record the wisdom

From this never ending fight.

“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.

Page 6

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

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 admiration.

Ronda Hauben

Page 7

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 programming 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 unlawful, 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 education funds since there

are no mandatory penalties for the misuse of these funds.

Just like the deregulation of the airlines and the banks, so the

current efforts to loosen even more the laws requiring accountability of

public education funds can only result in a disastrous fiasco.

Currently, in the upcoming Congressional and State elections in

Michigan, there are a myriad of proposals 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 either public officials, union or

company officials, or whoever has the political clout to receive the

funds.

Thus the legislature has passed delusive laws that allow for the

plentiful spending of public education funds, but provide only weak

mechanisms of oversight regarding the actual use of the funds, or of

recovery when the funds are misused. In fact, public officials who

Page 8

misuse the funds are rewarded rather than penalized, 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 increase 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 impossible. And instead of

tightening the current regulations and making harsher 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 deregulation 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 programming classes originally offered at the

Dearborn Engine Plant. Deregulation of public education, whether it is

called the Job Training Partnership 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

obvious 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

Page 9

numerous hours on the part of staff of the Legislature, the Department

of Education and Office of the Attorney General. You have participated

in several meetings and have been informed of the conclusions that were

reached. A number of issues you raised have been addressed and

appropriate corrective actions have been taken. Some of the remaining

issues are outside of the purview of the Department of Education.

You have made very serious allegations against numerous public

officials, including staff of their Department. I, for one, stand by the

actions and recommendations of my staff, who are highly regarded

professionals with extensive experience in overseeing very complex

programs.

As you previous have been informed on several occasions, your

appeals within the Department have been exhausted. 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 programs 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 situation.

Your response of May 1, 1990 is only a continuation of the coverup:

1)Your letter mentions many “responses,” “time and effort” spent

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

Page 10

of the department, interviewing the complainant and then issuing a

formal report listing each of the allegations and the conclusions of the

investigation regarding the allegations, has never been followed by the

department. Instead I have only received this evasive letter denying that

there is a problem.

2) You mention meetings I have attended and that I have been

informed of your conclusions at those meetings. Yet there has been only

one meeting with you, and one with someone 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 “wonderful” and that there was “nothing

to investigate.”

3) Your letter states that the remaining issues are outside the

purview of the Department of Education, 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

department. Does that mean that there is illegal activity that you know

they have been involved in and that you have agreed to cover up?

Otherwise 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 statutes and regulations have been met.

What statutes and regulations are you referring to? Why is there no

statement of what these statutes and regulations are, despite the fact that

they were specifically referred to in the complaint filed with the

Department 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

Page 11

supposed to be in charge of oversight of public education and adult

education in the State of Michigan.

Thus I have written the attached letter to Governor Blanchard

regarding 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 program-

ming 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 regulations 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

clothed with the cover of “public education.” For the past four or five

years I have been trying to have this illegal 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 recovery of misused public and

federal education funds on the part of the State Department of Educa-

tion, 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

Page 12

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 attorney 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 appropriate action with regard to the mandatory recovery of

misspent public and federal education funds and to penalize the public

officials responsible.

This illegal activity was originally brought to the attention of the

Attorney General’s office in December, 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 showing 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 Circuit Court 86-634695CZ. The Prosecutor’s

office advised that this situation had to be dealt with by the Attorney

General’s office. And the Asst. Attorney General in charge of Education

insisted that it was necessary to make a complaint to the State Depart-

ment of Education to get rectification. 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

Michigan 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

Education by talking with the Consultant at the Wayne County Interme-

diate School District about the problem. A formal written complaint was

submitted in 1988. Thus far there has been no report written detailing the

allegations 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 admitting 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.

Page 13

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 support 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 located on public property at Henry Ford Commu-

nity College in Dearborn, Michigan.

Such activities have been acknowledged by the Prosecutor of

Wayne County and the Michigan Attorney General to be an unconstitu-

tional 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 illegally expended or

collected and not accounted for, also for the recovery of any public

property disclosed to have been converted and misappropriated.”

In addition, MCLA 14.143 requires that public officials involved in

the misappropriation of public funds be prosecuted. “The Prosecutor (or

Attorney General) prosecutes all public officials suspected of misman-

agement 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

activities by the inaction of the prosecutor 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 obligation to remove these officials from

Page 14

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 Employ-

ment Relations Commission in 1986, case no’s #86 K-291 and C86 294,

CU86 K-68 and C87 D-94 through 99. Under the Whistleblower

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 misappropriation of public education

funds. On researching the law, I found that the appropriate public

entities to retrieve misappropriated public funds are the attorney

general’s office and the prosecutor’s office, and if they failed to comply

with their obligations, your office was obligated to take steps to remove

them.

I have been sent on a run around by various public officials for over

four 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 mechanism for dealing with such a

situation seems to leave the final authority with your office. Thus I am

asking for immediate action by your office in this matter. Please

acknowledge 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 prosecution of the public officials responsible for the misappropria-

tion of the funds and for the coverup, and a public investigation into the

situation whereby this problem has developed and has been continued

despite repeated efforts to request rectification.

Page 15

Ronda Hauben

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 however.

You might notice in line 160 of the program that there is a clover

leaf symbol. To get this type {Commodore key and #3 key together}.

The clover leaf symbol will not be displayed however! In the multicolor,

only the colors that are activated by the Commodore key will have any

effect on the texts color.

The program will deactivate itself with certain SYNTAX ERRORS

however. The program can also be stopped completely 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!

Page 16

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 ACTIVATED!"

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

device, and software to boot. The infamous 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

Page 17

disk. Included is, (plans only) of how to build the 20 component devices,

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

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

programs 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

addressed stamped envelope to the above address. I have 6 disks full of

sampled 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

Page 18

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)

Page 19

] 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 music! 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 ALPHABETIZED 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

Page 20

75 LOCATE 13, 10

80 PRINT"(5) USE PRINTER": REM 600

85 LOCATE 14, 10

90 PRINT "(6) ADD TO LIST": REM 700

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 SUBROUTINE

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

Page 21

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,

Page 22

Q) = T$(Q)

452 NEXT Q

460 NEXT I

470 NEXT T

475 ALPHA = 1: REM FLAG FOR ALPHABETIZING

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

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:

Page 23

GOTO 647

655 PRINT "MAKE SURE PRINTER IS TURNED 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 INFORMATION IN THE

FOLLOWING FORM:"

715 LN = 1140: REM LAST DATA STATEMENT

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 CONTINUE THE PROGRAM"

780 END

900 REM QUIT

920 CLS

930 LOCATE 15, 18: PRINT "GOODBYE FOR TODAY. "

940 GOSUB 4000

970 CLS

980 END

Page 24

1100 REM DATA FIRST, LAST, ADDR, CITY, STATE, ZIP, TEL,

CODE

1105 DATA William, Rohler, 998 Telegraph, 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 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

Page 25

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

Page 26

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 cholesterol 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 (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 requirements are "; W; "

calories."

Page 27

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.

The opinions expressed in articles are those of their

authors and not necessarily the opinions of the

Amateur Computerist newsletter. We welcome sub-

missions from a spectrum of viewpoints.

Page 28

EDITORIAL STAFF

Ronda Hauben

William Rohler

Norman O. Thompson

Michael Hauben (1973-2001)

Jay Hauben

The Amateur Computerist invites submissions.

Articles can be submitted via e-mail:

[email protected]

Permission is given to reprint articles from this issue in a

non profit publication provided credit is given, with name

of author and source of article cited.

ELECTRONIC EDITION

ACN Webpage:

http://www.ais.org/~jrh/acn/

All issues of the Amateur Computerist are on-line.

Back issues of the Amateur Computerist are available at:

http://www.ais.org/~jrh/acn/Back_Issues/

All issues can be accessed from the Index at:

http://www.ais.org/~jrh/acn/NewIndex.pdf

Page 29