Cullen and Woodall numbers: Difference between revisions

==={{Header|Tiny BASIC}}===

<syntaxhighlight lang="qbasic">REM Rosetta Code problem: https://rosettacode.org/wiki/Cullen_and_Woodall_numbers

REM by Jjuanhdez, 03/2023

REM TinyBasic does not support values greater than 32767

PRINT "First 11 Cullen numbers:"

LET N = 0

LET I = 1

10 IF I = 12 THEN GOTO 20

GOSUB 50

LET N = (I*R) +1

PRINT N, " "

LET I = I+1

GOTO 10

20 PRINT ""

PRINT "First 11 Woodall numbers:"

LET I = 1

30 IF I = 12 THEN GOTO 40

GOSUB 50

LET N = (I*R) -1

PRINT N, " "

LET I = I+1

GOTO 30

40 END

50 REM Exponent calculation

LET A = 2

LET B = I

LET X = 1

LET R = 2

60 IF X >= B THEN RETURN

LET T = R

IF R < A THEN LET R = A*A

IF T < A THEN GOTO 70

IF R >= A THEN LET R = R*A

70 LET X = X+1

GOTO 60</syntaxhighlight>

{{out}}

<pre>First 11 Cullen numbers:

3

9

25

65

161

385

897

2049

4609

10241

22529

First 11 Woodall numbers:

1

7

23

63

159

383

895

2047

4607

10239

22527</pre>

<pre>Igual que la entrada de FreeBASIC.</pre>