\documentstyle{article}
\begin{document}


\setlength{\unitlength}{0.0062500in}%
%
\begingroup\makeatletter
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}%
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}%
\ifx\x\y   % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
  \ifnum #1<17\tiny\else \ifnum #1<20\small\else
  \ifnum #1<24\normalsize\else \ifnum #1<29\large\else
  \ifnum #1<34\Large\else \ifnum #1<41\LARGE\else
     \huge\fi\fi\fi\fi\fi\fi
  \csname #3\endcsname}%
\else
\gdef\SetFigFont#1#2#3{\begingroup
  \count@#1\relax \ifnum 25<\count@\count@25\fi
  \def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
  \expandafter\x
    \csname \romannumeral\the\count@ pt\expandafter\endcsname
    \csname @\romannumeral\the\count@ pt\endcsname
  \csname #3\endcsname}%
\fi
\endgroup
\begin{picture}(870,540)(100,280)
\thicklines
\put(160,820){\line( 0,-1){ 60}}
\put(160,760){\line( 3,-2){ 60}}
\put(220,720){\line(-3,-2){ 60}}
\put(160,680){\line(-3, 2){ 60}}
\put(100,720){\line( 3, 2){ 60}}
\put(160,680){\vector( 0,-1){ 80}}
\put(100,540){\framebox(120,60){}}
\put(160,540){\line( 0,-1){ 60}}
\put(160,480){\line( 3,-2){ 60}}
\put(220,440){\line(-3,-2){ 60}}
\put(160,400){\line(-3, 2){ 60}}
\put(100,440){\line( 3, 2){ 60}}
\put(220,440){\line( 1, 0){ 60}}
\put(280,440){\line( 0, 1){200}}
\put(280,640){\vector(-1, 0){120}}
\put(220,720){\line( 1, 0){100}}
\put(320,720){\line( 0,-1){360}}
\put(320,360){\vector(-1, 0){160}}
\put(160,400){\vector( 0,-1){ 80}}
\put(520,820){\line( 0,-1){ 60}}
\put(520,760){\line( 3,-2){ 60}}
\put(580,720){\line(-3,-2){ 60}}
\put(520,680){\line(-3, 2){ 60}}
\put(460,720){\line( 3, 2){ 60}}
\put(520,680){\line( 0,-1){ 80}}
\put(460,540){\framebox(120,60){}}
\put(520,540){\line( 0,-1){ 60}}
\put(520,480){\line( 3,-2){ 60}}
\put(580,440){\line(-3,-2){ 60}}
\put(520,400){\line(-3, 2){ 60}}
\put(460,440){\line( 3, 2){ 60}}
\put(520,400){\line( 0,-1){ 60}}
\put(520,340){\line(-1, 0){120}}
\put(400,340){\line( 0, 1){300}}
\put(400,640){\vector( 1, 0){120}}
\put(580,720){\line( 1, 0){ 80}}
\put(660,720){\vector( 0,-1){400}}
\put(580,440){\vector( 1, 0){ 80}}
\put(860,680){\line( 3,-2){ 60}}
\put(920,640){\line(-3,-2){ 60}}
\put(860,600){\line(-3, 2){ 60}}
\put(800,640){\line( 3, 2){ 60}}
\put(800,460){\framebox(120,60){}}
\put(860,600){\line( 0,-1){ 80}}
\put(860,460){\line( 0,-1){ 75}}
\put(860,385){\line(-1, 0){120}}
\put(740,385){\line( 0, 1){325}}
\put(740,710){\vector( 1, 0){120}}
\put(915,640){\line( 1, 0){ 55}}
\put(970,640){\vector( 0,-1){320}}
\put(860,820){\line( 0,-1){140}}
\put(155,720){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(145,435){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}not C}}}
\put(155,565){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(240,730){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(235,450){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(175,380){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(175,660){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(520,565){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(520,435){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(515,720){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(600,735){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(535,660){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(540,375){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(600,450){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(855,635){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(855,480){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(940,665){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(875,580){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(115,280){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}if C \{ repeat S until not C \}}}}
\put(830,300){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}While C do S}}}
\end{picture}


\setlength{\unitlength}{0.006500in}%
%
\begingroup\makeatletter
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}%
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}%
\ifx\x\y   % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
  \ifnum #1<17\tiny\else \ifnum #1<20\small\else
  \ifnum #1<24\normalsize\else \ifnum #1<29\large\else
  \ifnum #1<34\Large\else \ifnum #1<41\LARGE\else
     \huge\fi\fi\fi\fi\fi\fi
  \csname #3\endcsname}%
\else
\gdef\SetFigFont#1#2#3{\begingroup
  \count@#1\relax \ifnum 25<\count@\count@25\fi
  \def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
  \expandafter\x
    \csname \romannumeral\the\count@ pt\expandafter\endcsname
    \csname @\romannumeral\the\count@ pt\endcsname
  \csname #3\endcsname}%
\fi
\endgroup
\begin{picture}(860,550)(40,270)
\thicklines
\put(160,820){\vector( 0,-1){ 60}}
\put(100,700){\framebox(120,60){}}
\put(160,700){\vector( 0,-1){ 80}}
\put(100,420){\framebox(120,60){}}
\put(160,540){\vector( 0,-1){ 60}}
\put(160,420){\line( 0,-1){ 60}}
\put(160,360){\line(-1, 0){120}}
\put( 40,360){\line( 0, 1){300}}
\put( 40,660){\vector( 1, 0){120}}
\put(220,580){\line( 1, 0){ 40}}
\put(260,580){\vector( 0,-1){260}}
\put(420,820){\vector( 0,-1){ 60}}
\put(360,700){\framebox(120,60){}}
\put(160,620){\line( 3,-2){ 60}}
\put(220,580){\line(-3,-2){ 60}}
\put(160,540){\line(-3, 2){ 60}}
\put(100,580){\line( 3, 2){ 60}}
\put(420,620){\line( 3,-2){ 60}}
\put(480,580){\line(-3,-2){ 60}}
\put(420,540){\line(-3, 2){ 60}}
\put(360,580){\line( 3, 2){ 60}}
\put(480,440){\framebox(120,60){}}
\put(480,580){\line( 1, 0){ 60}}
\put(540,580){\vector( 0,-1){ 80}}
\put(420,700){\vector( 0,-1){ 80}}
\put(420,540){\vector( 0,-1){220}}
\put(540,440){\line( 0,-1){ 80}}
\put(540,360){\line( 1, 0){100}}
\put(640,360){\line( 0, 1){300}}
\put(640,660){\vector(-1, 0){220}}
\put(780,540){\line( 3,-2){ 60}}
\put(840,500){\line(-3,-2){ 60}}
\put(780,460){\line(-3, 2){ 60}}
\put(720,500){\line( 3, 2){ 60}}
\put(780,620){\vector( 0,-1){ 80}}
\put(780,820){\vector( 0,-1){140}}
\put(780,460){\vector( 0,-1){140}}
\put(720,620){\framebox(120,60){}}
\put(840,500){\line( 1, 0){ 60}}
\put(900,500){\line( 0, 1){245}}
\put(900,745){\vector(-1, 0){120}}
\put(145,580){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}not C}}}
\put(155,445){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(415,725){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(155,725){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(240,585){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(175,510){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(100,270){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S ; while not C do S ;}}}
\put(415,575){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(535,465){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(500,590){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(440,515){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(775,500){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}C}}}
\put(780,650){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}S}}}
\put(860,515){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}F}}}
\put(795,420){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}T}}}
\put(730,270){\makebox(0,0)[lb]{\smash{\SetFigFont{12}{14.4}{rm}Repeat S until C}}}
\end{picture}
\end{document}
