home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh38d.d64 / kaleidoskop (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.