-SET &X = -1;
-REPEAT X 20 TIMES
-SET &X = &X + 1;
-SET &X2 = 12 - INT( 0.5 * &X );
-SET &X3 = 15 - &X/2;
-SET &Y = DECODE &X(9 '|' 12 'S' 5 'R' 4 'R' 11 'A' 8 'X' 6 'Y' 2 'M' 10 'M' 3 'E' ELSE '·') | '·';
-REPEAT Y1 &X2 TIMES
-SET &Y = &Y | '·';
-Y1
-SET &Y = &Y | '/';
-REPEAT Y2 &X TIMES
-SET &R = 100.00 * RDUNIF('D5.2');
-SET &Y = IF &R LE 20 THEN &Y | 'O' ELSE IF &R LE 40 THEN &Y | '*' ELSE IF &R LE 70 THEN &Y | '/' ELSE &Y | '\';
-Y2
-SET &Y = &Y | '\';
-REPEAT Y4 &X3 TIMES
-SET &Y = &Y | '·';
-Y4
-TYPE &Y
-X
-REPEAT Y3 3 TIMES
-TYPE ·············|---|·············
-Y3
-TYPE ···········#########···········