1 REM   KALEIDOSKOP
2 REM  -------------
3 REM
5 PRINT"[147]";CHR$(142); :Z=160
6 POKE53280,0:POKE53281,0
10 C=INT(RND(0)*15)
20 X=INT(RND(0)*40)
30 Y=INT(RND(0)*25)
40 :
50 E1=1024:E2=1063:E3=1984:E4=2023
60 F1=55296:F2=55335:F3=56256:F4=56295
70 :
80 POKE E1+X+40*Y,Z
85 POKE F1+X+40*Y,C
90 POKE E2-X+40*Y,Z
95 POKE F2-X+40*Y,C
100 POKE E3+X-40*Y,Z
105 POKE F3+X-40*Y,C
110 POKE E4-X-40*Y,Z
115 POKE F4-X-40*Y,C
130 IF PEEK(203)=60 THEN PRINT"[147]";
140 GOTO 10