PRINT
FOR i=33 TO 128
   PRINT CHR$(i);" ";     ! キャラクターコードに対応する文字を表示
   IF INT((i-2)/30)=(i-2)/30 THEN
      PRINT
   END IF
NEXT i
PRINT
PRINT
FOR i=160 TO 223
   PRINT CHR$(i);" ";
   IF INT((i-2)/30)=(i-2)/30 THEN
      PRINT
   END IF
NEXT i
PRINT
PRINT

DIM a$(26),b$(26),c$(26),d$(26),e$(26),f(26),g(26)
FOR i=1 TO 26
   READ a$(i)
NEXT i
DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z

FOR i=1 TO 26
   LET b$(i)=LCASE$(a$(i))   ! 小文字化
   LET c$(i)=UCASE$(b$(i))   ! 大文字化
   LET f(i)=ORD(a$(i))       ! キャラクターコードを得る
   LET g(i)=ORD(b$(i))
   LET d$(i)=CHR$(f(i)+32)   ! 小文字化
NEXT i
FOR i=1 TO 26
   PRINT c$(i);" ";
NEXT i
PRINT
FOR i=1 TO 26
   PRINT b$(i);" ";
NEXT i
PRINT
FOR i=1 TO 26
   PRINT f(i);
NEXT i
PRINT
FOR i=1 TO 26
   PRINT g(i);
NEXT i
PRINT
FOR i=1 TO 26
   PRINT d$(i);" ";
NEXT i
PRINT
FOR i=1 TO 26
   PRINT a$(i);" ";
NEXT i
PRINT
END