I believe John Bohner was the originator of this little toy
program, back in... well, don't remember the year, but I
first saw it running at 1200 baud. It actually is more fun
to watch at slower speeds. Written for uniData BASIC, but
pretty generic code that should compile on other platforms.

--
frosty

w = INT((SYSTEM(2)+2)/24)
h = INT((SYSTEM(3)+1)/12)
spots = "*+X#\/-| "
LOOP UNTIL SYSTEM(14) DO
x = 14 + 24 * (RND(w)); y = 5 + 12 * (RND(h))
zone1 = RND(5); zone2 = RND(6)
IF zone1 = zone2 THEN zone1 = 0; zone2 = 5
IF zone1 < zone2 THEN dir = 1 ELSE dir = -1
spot = spots[RND(LEN(spots))+1,1]; spot2 = spot:spot
FOR zone = zone1 TO zone2 STEP dir
t = y-zone; b = y+zone; l = x-zone*2; r = x+zone*2
IF zone1 = 0 AND zone2 = 5 THEN
CRT @(x-zone*2,y-zone):spot2: @(x+zone*2,y-zone):spot2:
CRT @(x-zone*2,y+zone):spot2: @(x+zone*2,y+zone):spot2:
END ELSE
CRT @(l,t):STR(spot,zone*4): @(l,b):STR(spot,zone*4):
FOR i = t TO b STEP 1; CRT @(l,i):spot2:; NEXT i
FOR i = b TO t STEP -1; CRT @(r,i):spot2:; NEXT i
END
NEXT zone
REPEAT
END

I don't remember that one. But I think I have the old GAMES account saved
somewhere. I'll try to dig it up and post it.

"frosty" <frostyj (AT) bogus (DOT) tld> wrote

It compiled and run fine in QM. It should have a clear screen command
to start with, but ran nevertheless. QM doesn't support the typeahead
buffer (SYSTEM(14)), but the break key worked.

Same deal in UV - I added CRT @(-1) to clear the screen at the beginning and
end, and had to write a few lines of code to check for a key press rather
than SYSTEM(14), but after that it looked great. Probably made a cool
screensaver in its day....


"Tracy Raines" <liveblues (AT) gmail (DOT) com> wrote

Goo'day, Tracy,

On 25 May 2006 22:08:09 -0700, "Tracy Raines" <liveblues (AT) gmail (DOT) com>
wrote:

A better solution might be X = INPUT S,-1; UNTIL X DO... - check the
HELP docs...

and,IMHO, the original program "looks" better running slower... I
tried it with NAPs of 10, 20 and 30.....emulating 1200 baud....
Regards,

Bruce Nichol
Talon Computer Services
ALBURY NSW Australia

http://www.taloncs.com.au

If it ain't broke, fix it until it is....

Sorry! Mental aberration.....

On Fri, 26 May 2006 15:49:50 +1000, Bruce Nichol
<reverse_ecurb (AT) taloncs (DOT) com.au> wrote:


INPUT S,-1
UNTIL Ss DO...

Apologies.
Regards,

Bruce Nichol
Talon Computer Services
ALBURY NSW Australia

http://www.taloncs.com.au

If it ain't broke, fix it until it is....

Bruce,

Please check again! 8>)

Did you really mean UNTIL Ss DO...

Thanks,

Larry Hazel

"Bruce Nichol" <reverse_ecurb (AT) taloncs (DOT) com.au> wrote

Looks cool, even more so on accuterm running a screen size of 132x44.
And it works as is on Cache.

frosty wrote:

Goo'day, Larry,On Fri, 26 May 2006 06:46:10 -0700, "Homer L. Hazel"
<hNoOmerlhANTI (AT) SPAMcox (DOT) net> wrote:

Bloody hell! Slippery fingers. All done in a rush...late getting
to the pub, again...

Thaks for noticing. Does this mean that people actually read what I
send? Marvellous!

No, "UNTIL S DO" will DO fine.... Sorry

Regards,

Bruce Nichol
Talon Computer Services
ALBURY NSW Australia

http://www.taloncs.com.au

If it ain't broke, fix it until it is....

If anyone has access to the following games, I'd greatly appreciate them
posting the code. I have them, I think on an account on 8mm tape or
something, but of course it's not urgent enough for me to find a system:

1- LIFE (game of life, non-interactive, BASIC version Required a seed
string to start and totally fascinating to watch. At curent computer speeds,
the life cycle frequence would probably be almost too fast (I actually
rewrote it in Pick Assembler eventually for speed).
2- The screen version of STARTREK (mostly written by me) which, unlike
the origina, scrolling Simms version, displayed a static universe and
refreshed only the sections needed. I actually modfied the original in, say
'78 when a friend of mine was desperatley looking for work while staying
with us, and he got hooked on Startrek. At 300 baud, the new version was
enough to satisfy his obession.

Chandru

"Ed Clark" <edclark (AT) cris (DOT) com> wrote