10 '"Акробаты"
20 CLS:INPUT"Введите 0,1,2 или 3";T:IF T<>0 AND T<>1 AND T<>2 AND T<>3 THEN 20
40 IF T=0 THEN X=10:O=100 ELSE IF T=1 THEN X=90:O=200
50 IF T=2 THEN X=50:O=180 ELSE IF T=3 THEN X=10:O=150
60 COLOR 1,15,8:SCREEN 2
80 PSET(X,100):DRAW"c1s4a=t;r8u20e10r15f10d20r8u2l3u18h15u25f15u30l5d18h8l3g8e1f1h8f7e7l2u3h2l6h3u10e3r8f3d5c15l2c1l3c15l4c1l3r3c15r3d1c1d3c15d1c1r2l5c15e3r6u2c1d5g3l8g2d3l5g8u18l5d30e15d25r15l15g15d18l3d2"
90 IF X<O THEN X=X+73:GOTO 80 ELSE W$=INPUT$(1):GOTO 20