10 DEFINT B
20 DATA d,&O8
30 READ A :SCREEN 8 :CLS:CIRCLE(148,128),136,3:
31 PLAY"N0a"
32 PAINT (148,128),2,3
35 PLAY"N0n1n0" :PAINT (22,22),5,3:PLAY"n1"
38 LINE (32,43) - (76,77),9,B :PLAY "n0n1"
39 PAINT (55,55),14,9
40 CIRCLE (326,166),35,13
41 PLAY"n0n1"
42 PAINT (326,166),6,13
48 PAINT (22,22),0,13
49 SCREEN 0,0,0
50 READ T