300 "Z" CLEAR : CLS : RESTORE 301: FOR I=0 TO 24: READ A: POKE &F9D8+I,A: NEXT I:B=&F9D0: WAIT 0
  301 DATA 2,1,16,52,0,82,2,0,3,0,0,4,144,53,144,16,40,0,25,35,16,52,0,82,55
  302 FOR I=&4218 TO &4619 STEP 5: POKE &F9DF,I- INT (I/256)*256,3, INT (I/256): CALL &F9D8: GPRINT 
  303 IF  INKEY$ ="" THEN 303
  304 NEXT I: END