Il programma è scritto in linguaggio macchina con la routine di allocazione in memoria in Basic.
20 fori=0to48:reada:poke7552+i,a:next
30 fori=0to47:reada:poke7632+i,a:next
40 poke36878,15:poke176,19:poke177,1
45 poke643,128:poke644,29:sys7552:sys58232
50 rem ON con peek(175) diverso da 0 mentre OFF con peek(175) uguale a 0
100 data 120,169,144,141,20,3,169,29,141,21,3,169,255,133,175,96,165,,175,240,26
110 data 198,176,208,22,169,19,133,176,164,177,230,177,192,48,208,4,169,1,133,177
120 data 185,207,29,141,10,144,76,191,234
200 data 207,217,223,227,228,227,223,217,207,217,223,227,228,227,227,223,217,183,199
210 data 207,212,215,212,207,199,207,217,223,227,228,227,223,217,191,203,212,203
220 data 183,199,207,199,207,217,219,221,223,191,223,191