home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / MODERN-ART (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  45 lines
  1. 10 Z=RND(-TI)
  2. 11 T=1000
  3. 15 PRINT"[147]"
  4. 17 POKE53280,0:POKE53281,0
  5. 20 P=1024+INT(RND(1)*999)+1:G=P+54272
  6. 30 Z=INT(5*RND(1))+1
  7. 40 IFZ=1THENS=81
  8. 41 IFZ=2THENS=64
  9. 42 IFZ=3THENS=84
  10. 43 IFZ=4THENS=102
  11. 44 IFZ=5THENS=160
  12. 45 K=INT(8*RND(1))+1
  13. 50 IFK=1THENC=9
  14. 51 IFK=2THENC=1
  15. 52 IFK=3THENC=2
  16. 53 IFK=4THENC=3
  17. 54 IFK=5THENC=4
  18. 55 IFK=6THENC=5
  19. 56 IFK=7THENC=6
  20. 57 IFK=8THENC=7
  21. 80 D=INT(8*RND(1))+1
  22. 81 IFD=1THENR=-39
  23. 82 IFD=2THENR=-40
  24. 83 IFD=3THENR=-41
  25. 84 IFD=4THENR=-1
  26. 85 IFD=5THENR=1
  27. 86 IFD=6THENR=39
  28. 87 IFD=7THENR=40
  29. 88 IFD=8THENR=41
  30. 89 M=INT(40*RND(1))+1
  31. 90 FORZ=1TOM:POKEP,S:POKEG,C:P=P+R
  32. 95 IFP<1024THENP=P-R
  33. 96 IFP>2023 THENP=P-R
  34. 97 G=P+54272
  35. 99 T=T-1
  36. 100 IFT=0THENGOTO10
  37. 105 T$=STR$(T)+" "
  38. 110 PRINT"TIME:";T$
  39. 120 PRINT"[145][145][145]"
  40. 125 GET A$:IF A$<>"" THEN GOSUB 200
  41. 130 NEXTZ
  42. 140 GOTO30
  43. 200 GET A$:IF A$="" THEN 200
  44. 210 RETURN
  45.