[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: IIc Demo and screensaver
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."