🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: ont.micro.mac
Article #367

Blinking Apple

#367
From: info-mac
Date: Wed, 04 Jul 1984 05:29
28 lines
1733 bytes
Date:     Tue, 3 Jul 84 16:15 PST
From: John Palevich <uw-beaver!palevich%atari.csnet@csnet-relay.arpa>
To: info-mac%sumex-aim@csnet-relay.arpa
Subject:  Blinking Apple

The blinking apple means that the alarm clock has gone off.  Open up the
clock and disable the alarm to stop the blinking.

I converted my MacPaint picture enlarger into MacForth; If anybody wants a
copy of either the Basic or the Forth version, send me a Macintosh diskette.
My address is:  (Please include a stamped, self-addressed envelope.)
John Howard Palevich
175 Calvert Drive #F211
Cupertino, CA  95014

It took me about eight hours to write the Basic version, and about twenty
hours to write the Forth version.  The Basic version takes about 35 minutes
to process a file, while the MacForth version takes about 5 minutes.

One misfeature of both MacBasic and MacForth is that neither support the
choose-a-file dialog box, which means that, in order to open a file on a disk
other than the one the application booted from, you have to:
1.) Eject the application diskette
2.) Insert the disk you want to use
3.) Type RUN, or a Forth phrase.
4.) When asked for a file name, type <name-of-application>:<name-of-file>.

				Jack Palevich
Technical Details
Message-ID: <4754@utcsrgv.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!utcsrgv!info-mac

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site utcsrgv.UUCP
Path: arc1-ca.pugleaf.net!utzoo!utcsrgv!info-mac
From: info-mac@utcsrgv.UUCP (info-mac)
Newsgroups: ont.micro.mac
Subject: Blinking Apple
Message-ID: <4754@utcsrgv.UUCP>
Date: Wed, 4-Jul-84 01:29:49 EDT
Article-I.D.: utcsrgv.4754
Posted: Wed Jul  4 01:29:49 1984
Date-Received: Wed, 4-Jul-84 02:33:33 EDT
Sender: peterr@utcsrgv.UUCP
Organization: CSRI, University of Toronto
Lines: 30