'FACTOR2 (c) 2008 Zoom
'Puts all primes in columns to fit a 209x166 page
'using Lucinda Console font size 4.
'Set to collating 20 pages at a time
'Program does not print the pages by itself

DEFSTR A-E
DEFLNG F-Q
DEFINT R-Z
DIM d(83)'print data (half page)
DIM w(166)'width of each line (even if not printed)

SCREEN 0
WIDTH 80, 50
CLS
COLOR 7
PRINT FRE(-1)
PRINT "Print to file [y/n]"
DO
a = INKEY$
LOOP UNTIL UCASE$(a) = "Y" OR UCASE$(a) = "N"
z2 = (UCASE$(a) = "Y")'yes(-1)=print to file
INPUT "Enter the number to begin the next page :"; p
IF z2 THEN
x0 = 209'cols
y0 = 166'rows
z3 = 20'pages
b = CHR$(183)
OPEN "factors.txt" FOR OUTPUT AS 1
ELSE 'instead, do page limits for screen
x0 = 79
y0 = 50
z3 = 1
b = "ú"
END IF
z4 = 0'page#
p2 = p
r = 0'0=top of page, 83= middle of page

nxpg:
p = p2
z4 = z4 + 1
IF z4 > z3 THEN GOTO zz
r = -83

nxhf:
r = r + 83
IF r > 83 THEN GOTO nxpg
IF r = 83 THEN p2 = p
z5 = 0'next row to put data in
FOR t = 0 TO 165
w(t) = 0
IF t < 84 THEN d(t) = ""
NEXT t
IF p = 1 THEN
FOR t = 0 TO 2
w(t) = 8
NEXT t
z5 = 3
p2 = 4
IF r = 0 THEN
d(0) = "1=unit  "
d(1) = "2=prime "
d(2) = "3=prime "
END IF
END IF

calc:
e0 = ""'e0,e1=2-line data for number
e1 = ""
v = 0'flag- (-1)yes use 2 lines (0)no use 1 line
v0 = 0'flag - yes= factor already shown, put "ú"
before next factor
z0 = LEN(STR$(p2)) - 1
e1 = LTRIM$(RTRIM$(STR$(p2))) + "="
e0 = SPACE$(LEN(e1))
p0 = p2
s = 0

c0:
IF p0 MOD 2 = 0 THEN p0 = p0 / 2: s = s + 1: GOTO c0
IF s > 0 THEN
e0 = e0 + " "
e1 = e1 + "2"
IF s > 1 THEN
e2 = LTRIM$(RTRIM$(STR$(s)))
e0 = e0 + e2
e1 = e1 + SPACE$(LEN(e2))
v = -1
END IF
v0 = -1
END IF
FOR q = 3 TO INT(SQR(p0) + 1) STEP 2
s = 0

c1:
IF p0 MOD q = 0 THEN p0 = p0 / q: s = s + 1: GOTO c1
IF s > 0 THEN
IF v0 THEN
e0 = e0 + " "
e1 = e1 + b
END IF
e2 = LTRIM$(RTRIM$(STR$(q)))
e0 = e0 + SPACE$(LEN(e2))
e1 = e1 + e2
IF s > 1 THEN
e2 = LTRIM$(RTRIM$(STR$(s)))
e0 = e0 + e2
e1 = e1 + SPACE$(LEN(e2))
v = -1
END IF
v0 = -1
END IF
NEXT q
IF v0 = 0 THEN
e0 = e0 + "     "
e1 = e1 + "prime"
ELSE
IF p0 > 1 THEN
e2 = LTRIM$(RTRIM$(STR$(p0)))
e0 = e0 + SPACE$(LEN(e2) + 1)
e1 = e1 + b + e2
END IF
END IF
IF z5 - v > y0 - 1 THEN z5 = 0: GOSUB align
IF w(z5) + LEN(e0) > x0 OR (v AND w(z5 + 1) +
LEN(e1) > x0) THEN GOTO pri
IF v = 0 THEN e0 = e1

c2:
w(z5) = w(z5) + LEN(e0)
IF z2 THEN
IF (r = 0 AND z5 < 83) OR (r = 83 AND z5 > 82) THEN
z8 = z5 - r
d(z8) = d(z8) + e0
END IF
ELSE
d(z5) = d(z5) + e0
END IF
z5 = z5 + 1
IF v THEN e0 = e1: v = 0: GOTO c2
IF z5 > y0 - 1 THEN z5 = 0: GOSUB align

c9:
p2 = p2 + 1
GOTO calc

zz:
IF z2 THEN
CLOSE
END
END IF
z4 = 0
GOTO nxhf

align: 'column finished, align what we have so far
u = 0
FOR t = 0 TO 165
IF w(t) > u THEN u = w(t)
NEXT t
u = u + 1
FOR t = 0 TO 165
IF w(t) < u THEN w(t) = u
NEXT t
FOR t = 0 TO 82
IF LEN(d(t)) < u THEN d(t) = d(t) + SPACE$(u -
LEN(d(t)))
NEXT t
RETURN

pri: 'get ready to print
IF z2 THEN GOTO p0
CLS
FOR t = 0 TO 49
LOCATE t + 1, 1
PRINT d(t);
NEXT t
WHILE INKEY$ = ""
WEND
GOTO nxpg

p0:
FOR t = 0 TO 82
PRINT #1, d(t)
NEXT t
GOTO nxhf

'Do not exceed 2.1 billion