69 lines
2.2 KiB
Fortran
69 lines
2.2 KiB
Fortran
PROGRAM BRAINFORT
|
|
Code: ++++++++[>++++[>++>+++>+++>+<<<<-] >+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++.
|
|
CHARACTER*1 STORE(30000)
|
|
INTEGER D
|
|
STORE = CHAR(0)
|
|
D = 1
|
|
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 8)
|
|
1 IF (ICHAR(STORE(D)).EQ.0) GO TO 2
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 4)
|
|
3 IF (ICHAR(STORE(D)).EQ.0) GO TO 4
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 2)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 3)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 3)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 1)
|
|
D = D - 4
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 1)
|
|
4 IF (ICHAR(STORE(D)).NE.0) GO TO 3
|
|
CONTINUE
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 1)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 1)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 1)
|
|
D = D + 2
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 1)
|
|
5 IF (ICHAR(STORE(D)).EQ.0) GO TO 6
|
|
D = D - 1
|
|
6 IF (ICHAR(STORE(D)).NE.0) GO TO 5
|
|
D = D - 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 1)
|
|
2 IF (ICHAR(STORE(D)).NE.0) GO TO 1
|
|
D = D + 2
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 3)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 7)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 3)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D + 2
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D - 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 1)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D - 1
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 3)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 6)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) - 8)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D + 2
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 1)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
D = D + 1
|
|
STORE(D) = CHAR(ICHAR(STORE(D)) + 2)
|
|
WRITE (6,'(A1,$)') STORE(D)
|
|
END
|