DATA D,A
 CLS
  DIM Alf(2) AS STRING * 1

  FOR i = 1 TO 2
   READ Alf(i): PRINT Alf(i);
  NEXT: PRINT CHR$(13) + "Result:"

   FOR iy = 1 TO 1 STEP -1: FOR ix = iy TO 1
     IF Alf(ix + 1) < Alf(ix) THEN SWAP Alf(ix), Alf(ix + 1)
   NEXT ix, iy

  FOR i = 1 TO 2
   PRINT Alf(i);
  NEXT