＜ACHAR Example Program＞

Program achar_example
  !
  ! Display the ASCII printing characters (excluding space).
  !
  Implicit None
  Integer i,j
  Do i=33,126,8
    Print 1,i,(Achar(j),j=i,Min(i+7,126))
1   Format(1X,I3,': ',99(A,:,' '))
  End Do
End Program

---

■ Execution Results

  33: ! " # $ % & ' (
  41: ) * + , - . / 0
  49: 1 2 3 4 5 6 7 8
  57: 9 : ; < = > ? @
  65: A B C D E F G H
  73: I J K L M N O P
  81: Q R S T U V W X
  89: Y Z [ \ ] ^ _ `
  97: a b c d e f g h
 105: i j k l m n o p
 113: q r s t u v w x
 121: y z { | } ~