home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / LIFE-GENERATOR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  42 lines
  1. 10 POKE52,32:POKE56,32:CLR
  2. 20 FORI=16400TO16714:READI1:POKEI,I1:NEXTI
  3. 30 G1=53265:G2=53272:G3=53280:G4=53269:G5=53287
  4. 40 G6=53276:G7=53248:G8=53249:G9=53264:G0=56320
  5. 50 SYS16400
  6. 60 POKEG1,PEEK(G1)OR32:POKEG2,PEEK(G2)OR8:POKEG3,9
  7. 80 FORI=1024TO2023:POKEI,16:NEXTI
  8. 90 POKE2040,13:POKE832,128:FORI=833TO894:POKEI,0:NEXTI
  9. 100 POKEG4,1:POKEG5,5:POKEG6,0
  10. 105 XF=317:YF=197:XS=24:YS=50:A0=256:A5=255:A8=8192
  11. 110 X=1:Y=197:POKEG7,25:POKEG8,247:POKEG9,0
  12. 120 M=0
  13. 130 J=(PEEK(G0)AND31)-20:IFJ<1THEN260
  14. 140 ONJGOTO120,120,150,120,120,120,170,120,190,210,120
  15. 150 IFX<XFTHENX=X+2
  16. 160 GOTO220
  17. 170 IFX>1THENX=X-2
  18. 180 GOTO220
  19. 190 IFY<YFTHENY=Y+2
  20. 200 GOTO220
  21. 210 IFY>3THENY=Y-2
  22. 220 X1=X+XS:X2=0:IFX1>A5THENX2=1:X1=X1-A0
  23. 230 POKEG7,X1:POKEG8,Y+YS:POKEG9,X2
  24. 240 IFM=1THEN130
  25. 250 FORW=1TO100:NEXTW:M=1:GOTO130
  26. 260 IFJ<>-5THEN120
  27. 270 IFX=1THEN320
  28. 280 N1=XAND7:Y1=Y-1:N2=Y1AND7:N3=2^(7-N1)
  29. 290 N=A8+40*(Y1-N2)+X-N1+N2:P=PEEK(N)
  30. 300 POKEN,(PORN3)ANDNOT(PANDN3)
  31. 310 FORW=1TO300:NEXTW:GOTO120
  32. 320 IFY>193THEN325
  33. 322 SYS16400
  34. 323 FORW=1TO500:NEXTW:GOTO110
  35. 325 POKEG4,0
  36. 330 SYS16421:IF(PEEK(G0)AND31)<>15THEN330
  37. 340 POKEG4,1:FORW=1TO500:NEXTW:GOTO120
  38. 350 DATA169,32,170,133,106,169,0,133,105,168,145,105,200,208,251
  39. 351 DATA230,106,202,208,246,96
  40. 352 DATA169,198,133,103,169,30,133,104,169,0,133,111,162,0,160,2,181,103
  41. 353 DATA24,105,2,149,105,181,104,149,106,165,111,41,3,208,13,181,105,24
  42.