Re: IIc Demo and screensaver

[datajerk <datajerk@gmail.com>]

On Jun 1, 4:16 pm, "Michael J. Mahon" <mjma...@aol.com> wrote:
> oz390gta wrote:
> > On Jun 1, 3:45 pm, "Michael J. Mahon" <mjma...@aol.com> wrote:
> >> oz390gta wrote:
> >>> I have a IIc in my office that I would like to have running most of
> >>> the time as a bit of a conversation piece, it is a bit boring with the
> >>> screen turned off. What would be a good running demo that would also
> >>> double as a screensaver so I can leave it on all the time?
> >> Is it a green screen or color?
>
> >> -michael
>
> >> NadaNet 3.1 for Apple II parallel computing!
> >> Home page:  http://home.comcast.net/~mjmahon/
>
> >> "The wastebasket is our most important design
> >> tool--and it's seriously underused."
>
> > 9 inch green screen.
>
> Although this looks best in color, it is simple and intriguing.
> I forget where I found it, but it's called JEWEL:
>
>   5  PRINT  CHR$ (21): REM 40-column mode
>   8  HCOLOR= 0
>   10  FOR X = 7676 TO 7689: READ A: POKE X,A: NEXT X: DATA
> 1,0,4,0,18,63,32,100,45,21,54,30,7,0: POKE 232,252: POKE 233,29: HGR2 :
> HPLOT 0,0: CALL 62454
>   20  HCOLOR=  INT ( RND (1) * 7) + 1: FOR R = 1 TO 99: ROT= 24: SCALE=
> R + 12: DRAW 1 AT 140,96: NEXT R
>   30  IF  PEEK (49152) < 128 GOTO 20
>   40  PRINT  CHR$ (4)"bye"
>
> Note that lines 30 & 40 is just cause it to quit when any key is
> pressed.  You can replace them with 30 GOTO 20 if you want it to
> ignore the keyboard.
>
> This is for ProDOS, but you can run it under DOS if you want by
> just deleting line 40.
>
> -michael
>
> NadaNet 3.1 for Apple II parallel computing!
> Home page:  http://home.comcast.net/~mjmahon/
>
> "The wastebasket is our most important design
> tool--and it's seriously underused."

Very cool.  When did computers stop being cool?