10 clear 32767
11 let ad=23388:let ao=32765:let a2=49152
12 poke 23739,111
20 poke ad,16:out ao,16:load""code a2
21 poke ad,17:out ao,17:load""code a2
22 poke ad,19:out ao,19:load""code a2
23 poke ad,20:out ao,20:load""code a2
24 poke ad,22:out ao,22:load""code a2
25 poke ad,23:out ao,23:load""code a2

30 load""code
31 randomize usr 32768


