home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_July_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / life (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 0 rem *****    game of life       ****
  2. 5 rem ***** (c) s.j.walters 1991  ****
  3. 7 rem
  4. 8 rem
  5. 9 rem *****   main   ******
  6. 10 fori=49152to49445     :reada:pokei,a:next
  7. 15 data169,0,133,249,133,250
  8. 20 data169,128,133,251,133,253,169,3,133,252,169,199,133,254,162,0
  9. 25 data165,249,201,0,240,15,165,250,201,0,240,9
  10. 30 data160,87,177,251,201,32,240,1,232
  11. 35 data165,250,201,0,240,9
  12. 40 data160,88,177,251,201,32,240,1,232
  13. 45 data165,249,201,39,240,15,165,250,201,0,240,9
  14. 50 data160,89,177,251,201,32,240,1,232
  15. 55 data165,249,201,0,240,9
  16. 60 data160,127,177,251,201,32,240,1,232
  17. 65 data165,249,201,39,240,9
  18. 70 data160,129,177,251,201,32,240,1,232
  19. 75 data165,249,201,0,240,15,165,250,201,24,240,9
  20. 80 data160,167,177,251,201,32,240,1,232
  21. 85 data165,250,201,24,240,9
  22. 90 data160,168,177,251,201,32,240,1,232
  23. 95 data165,249,201,39,240,15,165,250,201,24,240,9
  24. 100 data160,169,177,251,201,32,240,1,232
  25. 105 data160,128,138,145,253,230,249,165,249,201,40,208,6 ,230,250,169,0,133,249
  26. 110 data230,251,230,253,208,4 ,230,252,230,254,165,252,201
  27. 120 data7,208,9 ,165,251,201,104,208,3 ,24,144,3  ,76,20 ,192
  28. 130 data169,200,133,254,169,0,133,253,169,4,133,252,169,0,133,251,160,0
  29. 140 data177,253,201,2,240,11,162,81,201,3,240,2 ,162,32,138,145,251,200,208,4
  30. 150 data230,252,230,254,165,252,201,7,208,226,192,232,208,222
  31. 155 data169,0,133,198
  32. 157 data165,203,201,4,208,3,32,92,193
  33. 160 data165,203,201,60,240,250
  34. 170 data 165,203,201,63,240,3,76,0,192,96
  35. 190 rem *****  start  ******
  36. 200 for i=49450to49473 :reada:pokei,a:next
  37. 205 data32,92,193,32,0,192,162,0,160,0,24,32,240,255
  38. 210 data32,207,255,201,13,208,249
  39. 215 data76,45,193
  40. 300 rem ******   random   *******
  41. 310 fori=49500to49551:reada:pokei,a:next
  42. 315 data169,5,32,210,255,169,147,32,210,255,169,0,141,33,208
  43. 320 data169,255,141,15,212,169,128,141,18,212
  44. 330 data162,0,169,32,172,27,212,16,2,169,81
  45. 340 data157,0,4,157,0,5,157,0,6,157,0,7,232,208,232,96
  46. 1000 sys49450
  47.