10 CLS : SCREEN 1 : COLOR 0,0
12 X=200 : Y=0
15 LINE (X+12,Y+70)-(X+52,Y+82),1,BF
20 LINE (X+53,Y+70)-(X+53,Y+99),2
30 LINE (X+54,Y+70)-(X+54,Y+99),2
40 CIRCLE (X+53,Y+68),2,2
50 PAINT (X+53,Y+68),2,2
70 LOCATE 10,28 : PRINT "swap";
80 CIRCLE (X+54,Y+99),4,3,,,5/18
90 PAINT (X+54,Y+99),4,3
8),2,2
50 PAINT (X+53,Y+68),2,2
70 LOCATE 10,28 : PRINT "swap";
80 CIRCLE (X+54