10 GOSUB 100
20 F=94:D=100:GOSUB 140
90 END
100 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L: RETURN
120 DATA 173,48,192,136,208,5,206,1,3,240,9
130 DATA 202,208,245,174,0,3,76,2,3,96
140 POKE 768,F: POKE 769,D: CALL 770: RETURN