home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol244 / life.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-11  |  17.3 KB  |  94 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. Pseudo TeleVideo 910P
  3. C0000
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. w###6
  16. ##N#F*
  17. Nw#Fw
  18. q#p#6
  19. #w#w#w
  20. TRUEFALSE
  21.     N#F#s#r
  22. N#F#^#V
  23. " C}=(
  24. F+N+++V+^
  25. q#p##
  26. User break
  27. Run-time
  28.  error 
  29. , PC=
  30. Program aborted
  31. 6 N#--type an N and then any positive integer; the next
  32. .     # generations are computed and displayed.
  33. 6 S#--type an S and then any positive integer; the next
  34. 7     # generations are computed and the last displayed.
  35. : Q#--type a Q and any integer in order to QUIT the current
  36. 5     grid.  You will then be able to start a new one.
  37.  You may have a maximum of !i
  38.  rows in your grid.
  39. 3 How many rows do you want for your grid (remember,
  40. 8 no creatures are allowed in the first or last row)?    
  41.  You may have a maximum of !\
  42.  columns in your grid.
  43. 6 How many columns do you want for your grid (remember,
  44. ; no creatures are allowed in the first or last column)?    
  45. ? Type the character you want to represent a creature ------->  
  46. ? Type the character you want to represent a NONcreature ---->  
  47. @ While the terminal display will have no spaces between the grid
  48. C characters, you may have a blank space between the grid characters
  49. C on the printout.  Do you want a blank separating characters?      
  50. 9 WARNING:  Your grid will have too many columns to fit on
  51. <           one line of the printout.  You will therefore get
  52. 8           wrap-arounds, but your grid will still print.
  53. A Do you want a random first generation (type r) or do you want to
  54. . make your own first generation (type s)?     
  55. > Do you want BOTH the number and the placement of creatures to
  56. < be random (type b) or only the placement of creatures to be
  57.  random (type p)?     
  58. < What fraction (between 0 & 1) of your first generation grid
  59. 8 do you want to be occupied (i.e., have creatures)?     
  60.    GENERATION *
  61.    Frac. Occ. = *
  62.    GENERATION *
  63.    Frac. Occ. = *
  64. C O L U M N
  65.  row*A
  66. 5 This is your first generation grid as it now stands:
  67. C O L U M N
  68.  row*A
  69.  row*?
  70.    GENERATION 1
  71.  row*?
  72. !   Fraction Nonborder Occupied = 
  73.  row*A
  74. ) Do you want to make any corrections?    
  75.  Row of mistake ----->   
  76.  Column of mistake -->   
  77. + Desired creature or non-creature character
  78.  for this location ---->   
  79.  Any more corrections?   
  80. s#r*5
  81. > This program is the game of life.  It has a great many extra 
  82. ? features that will become apparent as the program is executed.
  83. ? The rules of life are that a creature will survive in the next
  84. C generation only if there are exactly 2 or 3 neighboring creatures.
  85. A A creature is born in the next generation if there are exactly 3
  86. A creatures surrounding the non-creature grid space.  NO CREATURES
  87. ) ARE PERMITTED IN THE BORDER OF THE GRID.
  88. B Turn the printer off.  Turn the knob on the printer to set a page
  89. 5 so it's at the top of a sheet.  Turn the printer ON.
  90. $ Did you follow the instructions?   
  91. ( Type N# S# Q# or H4(for help) ---->    
  92. : Do you want to start over with a new first generation?   
  93.  Do you want to star
  94.