18 lines
524 B
Plaintext
18 lines
524 B
Plaintext
NORMAL MODE IS INTEGER
|
|
BOOLEAN NUGGET
|
|
DIMENSION NUGGET(101)
|
|
|
|
THROUGH CLEAR, FOR I=0, 1, I.G.100
|
|
CLEAR NUGGET(I) = 0B
|
|
|
|
THROUGH MARK, FOR A=0, 6, A.G.100
|
|
THROUGH MARK, FOR B=A, 9, B.G.100
|
|
THROUGH MARK, FOR C=B, 20, C.G.100
|
|
MARK NUGGET(C) = 1B
|
|
|
|
SEARCH THROUGH SEARCH, FOR I=100, -1, .NOT.NUGGET(I)
|
|
|
|
PRINT FORMAT F, I
|
|
VECTOR VALUES F = $29HMAXIMUM NON-MCNUGGET NUMBER: ,I2*$
|
|
END OF PROGRAM
|