home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / kaleidoskop (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  413b  |  23 lines
  1. 1 rem   kaleidoskop
  2. 2 rem  -------------
  3. 3 rem
  4. 5 print"[147]";chr$(142); :z=160
  5. 6 poke53280,0:poke53281,0
  6. 10 c=int(rnd(0)*15)
  7. 20 x=int(rnd(0)*40)
  8. 30 y=int(rnd(0)*25)
  9. 40 :
  10. 50 e1=1024:e2=1063:e3=1984:e4=2023
  11. 60 f1=55296:f2=55335:f3=56256:f4=56295
  12. 70 :
  13. 80 poke e1+x+40*y,z
  14. 85 poke f1+x+40*y,c
  15. 90 poke e2-x+40*y,z
  16. 95 poke f2-x+40*y,c
  17. 100 poke e3+x-40*y,z
  18. 105 poke f3+x-40*y,c
  19. 110 poke e4-x-40*y,z
  20. 115 poke f4-x-40*y,c
  21. 130 if peek(203)=60 then print"[147]";
  22. 140 goto 10
  23.