10 POKE53280,0:POKE53281,0:PRINT"[155][147]"
12 FORI=0TO255:POKE1024+I,I:NEXT
14 POKE53270,PEEK(53270)OR16
16 POKE53281,INT(RND(0)*16):POKE53282,INT(RND(0)*16)
18 POKE53283,INT(RND(0)*16)
20 FORZ=55296TO55575:POKEZ,INT(RND(0)*16):NEXT
22 GETK$:IFK$=""THEN16
24 POKE53270,PEEK(53270)AND239:PRINT"[147]"