Alpha_Beta.f90

I suggest you either typed  this as it appears into the compiler, or as an easier way, just copy and paste it!

Note: I do not claim the program will 100% work, but I give it my best. If it doesn't, try tweaking it yourself, or email me about it, and I'll modify and post the improved version later. Good luck!

PROGRAM alpha_beta
IMPLICIT NONE

CHARACTER(LEN=1), DIMENSION(1:26) :: alphabeta
CHARACTER(LEN=1), DIMENSION(1:26) :: atebahpla
INTEGER :: i, j, k

PRINT*, "Welcome ro ADCY AlphaBeta Program"
PRINT*, "This is a demo program to demonstrate the principles of programming."
PRINT*, "Please be adviced."
PRINT*
PRINT*, "Character number:"
PRINT*, "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26"
PRINT*, "----------------------------------------------------------------------------"
DO i=1,26
alphabeta(i)=ACHAR(64+i)
END DO
WRITE (UNIT=*, FMT=10) alphabeta
PRINT*

DO j=1,26
atebahpla(j)=alphabeta(27-j)
END DO
WRITE (UNIT=*, FMT=10) atebahpla
PRINT*

10 FORMAT (A2, 26A3)

END PROGRAM alpha_beta