1. Forum
  2. FidoNet
  3. CBM

  • PET Colonies, based upon Conway's Game of Life

    From Shaun Bebbington@3:770/3 to All on Thu Apr 26 00:16:14 2018
    I made this for the unexpanded VIC-20:

    0 def fn l(i)=a%(y-i,x-i)+a%(y-i,x)+a%(y-i,x+i)+a%(y,x-i)+a%(y,x+i)+a%(y+i,x-i)+a%(y+i,x)+a%(y+o,x+o):poke36879,8:tr%=20:tc%=21:dim a%(tr%,tc%),b%(tr%,tc%):h=.22:o=1:sr%=3:er%=18:ec%=19:c=.:g%=.:c1=2:c2=3:gosub 1000
    1 for y=.to tr%:for x=.to tc%:a%(y,x)=b%(y,x):if a%(y,x)=.then print" ";:goto 3 2 print"*";
    3 next x,y:print "generation:";g%;"{home}";:g%=g%+o:for y=o to tr%-o:for x=o to
    tc%-o:c=.:c=fn l(o):if a%(y,x)=o and c<>c1and c<>c2then b%(y,x)=.:goto 5
    4 if a%(y,x)=.and c=c2then b%(y,x)=o
    5 next x,y:if g%<32768 then goto 1
    6 goto6:donkeysoft
    1000 print"{clear}{green}pet colonies, based upon space colony by tim hartnell circa 1983 in turn based upon conway's game of life{home}";:for y=sr% to er%:for x=sr% to ec%:b%(y,x)=rnd(.)+h:next x,y:return

    Programmed with CBM PRG Studio.

    The Commodore C64/128 version is here -> https://github.com/sbebbers/PET-Colonies#pet-colonies-64-for-the-commodore-64128-and-compatibles

    Obviously, with it being BASIC, it's quite slow. Although with an accelerator and BLITZ BASIC it's pretty quick.

    Regards,

    Shaun

    --- SoupGate-Win32 v1.05
    * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)
  • From ArcadeAge@3:770/3 to Shaun Bebbington on Fri Apr 27 13:09:56 2018
    On Thursday, April 26, 2018 at 9:16:16 AM UTC+2, Shaun Bebbington wrote:
    I made this for the unexpanded VIC-20:

    0 def fn l(i)=a%(y-i,x-i)+a%(y-i,x)+a%(y-i,x+i)+a%(y,x-i)+a%(y,x+i)+a%(y+i,x-i)+a%(y+i,x)+a%(y+o,x+o):poke36879,8:tr%=20:tc%=21:dim a%(tr%,tc%),b%(tr%,tc%):h=.22:o=1:sr%=3:er%=18:ec%=19:c=.:g%=.:c1=2:c2=3:gosub 1000
    1 for y=.to tr%:for x=.to tc%:a%(y,x)=b%(y,x):if a%(y,x)=.then print" ";:goto
    3
    2 print"*";
    3 next x,y:print "generation:";g%;"{home}";:g%=g%+o:for y=o to tr%-o:for x=o
    to tc%-o:c=.:c=fn l(o):if a%(y,x)=o and c<>c1and c<>c2then b%(y,x)=.:goto 5
    4 if a%(y,x)=.and c=c2then b%(y,x)=o
    5 next x,y:if g%<32768 then goto 1
    6 goto6:donkeysoft
    1000 print"{clear}{green}pet colonies, based upon space colony by tim
    hartnell circa 1983 in turn based upon conway's game of life{home}";:for y=sr% to er%:for x=sr% to ec%:b%(y,x)=rnd(.)+h:next x,y:return

    Programmed with CBM PRG Studio.

    The Commodore C64/128 version is here ->
    https://github.com/sbebbers/PET-Colonies#pet-colonies-64-for-the-commodore-64128-and-compatibles

    Obviously, with it being BASIC, it's quite slow. Although with an accelerator
    and BLITZ BASIC it's pretty quick.

    Regards,

    Shaun

    Do you have any additional information on Space Colony?
    I found a program by Tim Hartnell called Evolution, published in his "Symphony for a Melancholy Computer", and -- according to Hartnell -- plagiarized by someone called R W Moore in Vic Computing 04/1982.

    I wrote a Game of Life BASIC program for the Commodore 64 a few years ago, but it was painfully slow. I developed some ideas for reducing the number of memory
    accesses and did plan to rewrite it in assembly language, but that never materialized. I assume
    that entire volumes on Game of Life implementations were published at the time when it was new.

    Chris

    --- SoupGate-Win32 v1.05
    * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)
  • From Shaun Bebbington@3:770/3 to ArcadeAge on Mon Apr 30 01:38:04 2018
    On Friday, 27 April 2018 21:09:57 UTC+1, ArcadeAge wrote:
    Do you have any additional information on Space Colony?

    Yes.

    I found a program by Tim Hartnell called Evolution, published in his
    "Symphony for a Melancholy Computer", and -- according to Hartnell -- plagiarized by someone called R W Moore in Vic Computing 04/1982.

    I wrote a Game of Life BASIC program for the Commodore 64 a few years ago,
    but it was painfully slow. I developed some ideas for reducing the number of memory accesses and did plan to rewrite it in assembly language, but that never
    materialized. I
    assume that entire volumes on Game of Life implementations were published at the time when it was new.

    Chris

    Regards,

    Shaun.

    --- SoupGate-Win32 v1.05
    * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)