home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8601.d64 / life (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  70 lines
  1. 10 REM-------------------------
  2. 20 REM**   LIFE FUER C-64   **
  3. 25 REM-------------------------
  4. 30 REM** JUERGEN ENGBRING   **
  5. 40 REM** HENKELSHOF 5-7     **
  6. 50 REM** 5630 REMSCHEID-11  **
  7. 60 REM** TEL. 02191/65533   **
  8. 70 REM-------------------------
  9. 80 M=49152:FORI=0TO9:READA
  10. 85 IFA<>PEEK(M)THENLOAD"MASCHLIFE",8,1
  11. 90 M=M+100:NEXT
  12. 95 DATA169,88,87,206,2,152,0,192,45,0
  13. 100 PRINT"[147]"
  14. 110 SYS49971: REM INITIALISIERUNG
  15. 120 PL=50117: REM SYSPL,X,Y,0/1/2
  16. 130 :N=50167: REM NAECHSTE GENERATION
  17. 140 :S=50173: REM MAXIMALE GESCHW.
  18. 150 :G=50087: REM SYSG,X,Y ZELLE  LEBT
  19. 155 BA=6*4096:REM BASIS ZELLSPEICHER
  20. 160 QQ=50198: REM TESTBYTE SYSPL,X,Y,2
  21. 170 REM+++++++++++++++++++++++++++++++++
  22. 990 REM===  80 X 40 ZELLEDITOR  ========
  23. 1000 DIMG%(255):X=39:Y=24:Q=TI:CH=29
  24. 1005 FORI=0TO6:READA:READB:G%(A)=B:NEXT
  25. 1010 DATA17,1,29,2,145,3,157,4,20,5,32,6,76,7
  26. 1020 GETA$:IFTI-Q>15THENQ=TI:W=1-W
  27. 1030 SYSPL,X,Y,W
  28. 1040 IFA$=""THEN1020
  29. 1050 A=ASC(A$)
  30. 1060 ONG%(A)GOTO1100,1200,1300,1400,1500,1600,1700
  31. 1070 GOTO1020
  32. 1100 SYSPL,X,Y,Z:Y=Y+1:CH=17
  33. 1110 IFY>49THENY=0
  34. 1120 GOTO1450
  35. 1200 SYSPL,X,Y,Z:X=X+1:CH=29
  36. 1210 IFX>79THENX=0
  37. 1220 GOTO1450
  38. 1300 SYSPL,X,Y,Z:Y=Y-1:CH=145
  39. 1310 IFY<0THENY=49
  40. 1320 GOTO1450
  41. 1400 SYSPL,X,Y,Z:X=X-1:CH=157
  42. 1410 IFX<0THENX=79
  43. 1420 GOTO1450
  44. 1450 SYSPL,X,Y,2:Z=PEEK(QQ)
  45. 1460 GOTO1020
  46. 1500 Z=0:A=CH:POKEBA+3*X+Y*240,0
  47. 1510 GOTO1060
  48. 1600 Z=1:A=CH
  49. 1610 SYSG,X,Y:GOTO1060
  50. 1700 SYSPL,X,Y,Z
  51. 2000 T=9999:REM MINIMALE VERZOEGERUNG
  52. 2005 POKE50209,2:REM VOR ERSTEM SYSN
  53. 2010 GETA$:IFTI-Q>TTHENQ=TI:SYSN
  54. 2020 IFA$=""THEN2010
  55. 2030 IFA$=" "THENSYSN:T=9999:GOTO2010
  56. 2040 IFA$="S"THENT=99999
  57. 2050 IFA$="N"THENRUN
  58. 2055 IFA$="E"GOTO2300
  59. 2060 IFA$="Q"THEN:END
  60. 2065 IFA$="P"THENSYSS
  61. 2067 IFA$=CHR$(133)GOTO2200
  62. 2070 A=ASC(A$)
  63. 2080 IFA<134ORA>140GOTO2010
  64. 2090 T=2*2^(A-134)
  65. 2100 GOTO2010
  66. 2200 GETA$:IFA$=""THENSYSN:GOTO2200
  67. 2210 GOTO2020
  68. 2300 IFPEEK(50202)=1THENSYSN
  69. 2310 POKE50209,0:GOTO1020
  70.