DIM A$(5)
PRINT
PRINT "アルファベット順に並べます。"
PRINT "５つの英語を入力してください。"
PRINT
INPUT PROMPT "１番目の英語？ ":A$(1)
INPUT PROMPT "２番目の英語？ ":A$(2)
INPUT PROMPT "３番目の英語？ ":A$(3)
INPUT PROMPT "４番目の英語？ ":A$(4)
INPUT PROMPT "５番目の英語？ ":A$(5)
PRINT
PRINT "ABC順："
FOR i=1 TO 5
   FOR j=i+1 TO 5
      IF A$(i) < A$(j) THEN  GOTO 10
      LET B$=A$(i)
      LET A$(i)=A$(j)
      LET A$(j)=B$
10    NEXT j
   NEXT i
   FOR i=1 TO 5
      PRINT "   ";A$(i)
   NEXT i
   PRINT
END