To avoid these ads, REGISTER NOW!

Test icode format option

Shadowdog500

Well-known member
Joined
Dec 7, 2009
Messages
9,872
Location
Down the shore
With ICODE:

05 HOME : TEXT : REM Fibonacci numbers 10 LET MAX = 5000 20 LET X = 1 : LET Y = 1 30 IF (X > MAX) GOTO 100 40 PRINT X 50 X = X + Y 60 IF (Y > MAX) GOTO 100 70 PRINT Y 80 Y = X + Y 90 GOTO 30 100 END

Without ICODE:

05 HOME : TEXT : REM Fibonacci numbers
10 LET MAX = 5000
20 LET X = 1 : LET Y = 1
30 IF (X > MAX) GOTO 100
40 PRINT X
50 X = X + Y
60 IF (Y > MAX) GOTO 100
70 PRINT Y
80 Y = X + Y
90 GOTO 30
100 END
 
To avoid these ads, REGISTER NOW!
OP
S

Shadowdog500

Well-known member
Joined
Dec 7, 2009
Messages
9,872
Location
Down the shore
With ICODE:

module module1 integer:: n contains recursive subroutine sub1(x) integer,intent(inout):: x if (x < n) then x = x + 1 print *, 'x = ', x call sub1(x) end if end subroutine sub1 end module module1 program main use module1 integer:: x = 0 print *, 'Enter number of repeats' read (*,*) n call sub1(x) end program main

Without ICODE:

module module1
integer:: n
contains

recursive subroutine sub1(x)
integer,intent(inout):: x
if (x < n) then
x = x + 1
print *, 'x = ', x
call sub1(x)
end if
end subroutine sub1

end module module1

program main
use module1
integer:: x = 0
print *, 'Enter number of repeats'
read (*,*) n
call sub1(x)
end program main
 
OP
S

Shadowdog500

Well-known member
Joined
Dec 7, 2009
Messages
9,872
Location
Down the shore
With underline

With strikeout

Georgia Font
New Times Roman Font
Aerial Font
Book Antiqua Font
Tahoma Font
Trebuchet MS Font
Verdana Font
 
OP
S

Shadowdog500

Well-known member
Joined
Dec 7, 2009
Messages
9,872
Location
Down the shore
Red and yellow and pink and green
orange and purple and blue
I can sing a rainbow
sing a rainbow
sing a rainbow too.

What Children’s show is that from!

Answer! Click below

Captain Noah
IMG-4554.jpg
 
OP
S

Shadowdog500

Well-known member
Joined
Dec 7, 2009
Messages
9,872
Location
Down the shore
With code </>

Code:
05 HOME : TEXT : REM Fibonacci numbers
10 LET MAX = 5000
20 LET X = 1 : LET Y = 1
30 IF (X > MAX) GOTO 100
40 PRINT X
50 X = X + Y
60 IF (Y > MAX) GOTO 100
70 PRINT Y
80 Y = X + Y
90 GOTO 30
100 END
 
To avoid these ads, REGISTER NOW!

Tom Graham

Well-known member
Joined
Apr 14, 2025
Messages
126
Location
Oklahoma
Test to attach PDF natively to a post using the “Attach files” functionality (as requested by Jim.)

edit: and it works …this large file example is 5.4MB.
 

Attachments

  • Craftsman Bench Grinder 397.19590.pdf
    5.4 MB · Views: 4
To avoid these ads, REGISTER NOW!
Top Bottom