C64 Software  <  SCA: The C64 Software Collection / G4 FARBDEMO

  Run
1 REM POKE 53265,11:SAVE"",8:POKE 53265,27
5 POKE 53280,0:POKE 53281,0:PRINT""
10 BS=1024:FS=55304
15 FOR I=BS TO BS+1000:POKE I,160:NEXT
20 FOR W=0 TO 50
30 FOR I=0 TO 12
40 FOR J=0 TO 12
50 K=I+J
60 CO=INT(J*5/(I+3)+I*W/12)
70 POKE FS+I+K*40,CO:                      POKE FS+K+I*40,CO
80 POKE FS+24−I+(24−K)*40,CO:              POKE FS+24−K+(24−I)*40,CO
90 POKE FS+K+(24−I)*40,CO:                 POKE FS+24−I+K*40,CO
95 POKE FS+I+(24−K)*40,CO:                 POKE FS+24−K+I*40,CO
100 NEXT J,I,W
110 GOTO20
READY.