1300 words can be made with the letters I'm using.
Each combination has 2 to 4 words in a line.
Using about 350 different words in 150 lines.
Up or down D-pad to scroll through the list.
Or right D-pad to randomize.
dim n(1800)
for a=1 to 1800
read n(a)
next a
a$="ACEILNOPRTWY"
num=len(a$)
dim xs(num)
dim xm(num)
for a=1 to num
xs(a)=a
xm(a)=a
next a
keys=16
dim go(keys)
dim g(keys)
space=25
cen=(640-(len(a$))*space)/2-space
off=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
c=peek("port1")
for a=1 to keys
if and(c,2^(a-1))<>0 go(a)=1
if go(a)=1 g(a)=g(a)+1
if g(a)>2 g(a)=2
if g(a)=2 go(a)=0
if and(c,2^(a-1))=0 g(a)=0
next a
for a=1 to num
if xm(a)>xs(a) xm(a)=xm(a)-0.1
if xm(a)<xs(a) xm(a)=xm(a)+0.1
next a
if go(5)=1 sel=sel-12
if sel<0 sel=1788
if go(7)=1 sel=sel+12
if sel>1788 sel=0
if go(6)=1 sel=int(ran(150)+1)*12
if off=1 text 470,124,str$((sel/12)+1,"###")
if go(8)=1 off=off+1
if off>2 off=1
for a=1+sel to num+sel
xs(a-sel)=n(a)
next a
for a=1 to num
if off=2 text xm(a)*space+cen,100,str$(xs(a))
text xm(a)*space+cen,124,mid$(a$,a,1)
if off=2 text xm(a)*space+cen,148,str$(n(a))
next a
if off=1 text 10,12,"key pad left for info"
if off=2 then
text 10,12,"line "+str$((sel/12)+1,"###")
text 10,24," up list-key pad up"
text 10,36,"down list-key pad down"
text 10,48," random-key pad right"
text 10,60," info off-key pad left"
endif
until (1=0)
data 1,2,3,4,5,6,7,8,9,10,11,12 rem aceilnoprtwy
data 5,1,2,6,8,7,11,10,3,4,12,9 rem certainlypow
data 8,10,4,1,7,2,11,6,5,3,12,9 rem interplaycow
data 7,4,5,8,6,9,2,1,3,11,10,12 rem porcelainwty
data 6,1,5,10,7,3,2,11,9,8,4,12 rem conwealtripy 5
data 2,8,7,3,11,4,10,1,6,5,9,12 rem paintrecwoly
data 7,10,4,8,1,9,2,6,5,11,3,12 rem lowerpaincty
data 1,10,4,3,2,5,7,6,8,9,11,12 rem alienportcwy
data 11,7,8,6,5,12,3,10,2,1,4,9 rem trowliceypan
data 5,9,7,2,3,1,10,11,8,6,4,12 rem nilwatercopy 10
data 7,1,4,11,9,3,2,12,6,5,8,10 rem conetrawlyip
data 2,8,9,7,11,4,5,10,3,6,1,12 rem warnoticeply
data 3,7,8,6,2,5,12,1,9,10,11,4 rem playnicertwo
data 10,7,12,5,9,6,2,8,1,11,3,4 rem rowyincplate
data 2,1,8,6,10,3,11,9,5,7,4,12 rem canwriteploy 15
data 2,12,5,11,1,7,9,10,6,8,3,4 rem lawyerntopic
data 9,1,6,12,10,7,2,11,5,8,3,4 rem cowyrentalpi
data 6,9,11,7,8,3,2,5,10,1,12,4 rem tonypailcrew
data 9,2,7,1,10,8,4,6,3,11,5,12 rem icrowpenalty
data 7,10,2,8,9,1,11,12,6,5,3,4 rem newytrailcop 20
data 8,6,1,10,7,2,4,5,9,11,3,12 rem enwopclarity
data 8,1,7,10,6,4,2,5,3,11,9,12 rem cornpleawity
data 4,3,12,10,1,5,6,7,11,8,9,2 rem lycanoptwire
data 10,7,8,6,12,1,2,4,5,3,11,9 rem notpriceyawl
data 6,7,8,10,5,4,2,11,3,1,9,12 rem tornlacewipy 25
data 2,9,8,10,1,4,6,7,5,11,3,12 rem lawnropecity
data 7,9,2,11,12,6,10,4,1,3,8,5 rem reptynawcoil
data 2,3,4,6,5,11,9,7,1,8,10,12 rem raceliptowny
data 2,4,5,11,1,6,9,8,3,12,10,7 rem larcenypowit
data 3,1,8,10,9,12,11,7,2,5,4,6 rem crawtypelion 30
data 3,5,8,10,9,11,6,7,2,12,1,4 rem wraycopelint
data 6,4,12,1,8,3,2,11,5,9,7,10 rem ioncrawltype
data 6,5,8,10,9,4,2,7,3,11,1,12 rem worncapelity
data 11,5,10,4,9,3,2,12,7,1,6,8 rem tonicwryleap
data 11,9,4,6,10,7,2,12,3,5,1,8 rem woretinyclap 35
data 7,9,12,10,3,5,4,1,6,11,8,2 rem pylonrawcite
data 11,1,5,3,2,4,8,10,7,6,12,9 rem clinetroypaw
data 10,1,6,3,2,9,4,7,11,8,5,12 rem clioweptnary
data 2,9,6,11,7,12,10,8,3,4,1,5 rem wartyelpcoin
data 10,4,9,2,11,3,7,6,8,12,1,5 rem wincyporealt 40
data 2,3,12,10,11,8,6,9,1,5,7,4 rem racytownpile
data 2,9,11,8,3,7,6,1,5,4,12,10 rem paltronicyew
data 10,7,8,6,3,11,1,9,5,12,2,4 rem owlyricepant
data 1,8,9,7,10,3,11,5,6,12,2,4 rem awnypricelot
data 3,11,12,10,5,7,8,1,2,9,4,6 rem prawlynotice 45
data 2,11,12,9,6,10,5,1,4,3,8,7 rem patrolywince
data 9,5,6,4,3,11,2,1,8,7,10,12 rem policetrawny
data 10,8,12,6,5,7,2,1,9,11,3,4 rem powylincrate
data 10,3,4,11,12,8,6,5,7,9,1,2 rem wyceporntail
data 10,11,12,4,2,5,8,1,9,6,7,3 rem plyintworace 50
data 6,9,12,2,11,8,10,1,7,3,5,4 rem pitywarncole
data 7,1,12,10,9,11,2,8,6,3,5,4 rem cotywrapline
data 6,5,4,2,11,10,9,3,7,8,1,12 rem wipecartonly
data 7,5,4,2,10,3,11,9,6,12,1,8 rem winecrayplot
data 3,11,12,10,1,4,2,5,6,8,9,7 rem loanprytwice 55
data 6,7,8,10,2,5,3,1,11,9,4,12 rem plownacetiry
data 5,9,7,1,10,6,11,12,3,2,8,4 rem itryanewclop
data 2,8,4,7,1,12,11,5,6,3,10,9 rem latepricywon
data 6,11,12,10,5,3,2,8,9,4,1,7 rem wontlayprice
data 9,3,11,2,12,10,6,8,1,5,7,4 rem ricytowpanel 60
data 1,4,11,6,5,2,9,8,12,7,10,3 rem anyclitpower
data 2,4,5,11,6,12,8,1,3,7,10,9 rem parceltoywin
data 3,6,2,11,7,12,8,10,4,9,1,5 rem wearyclotpin
data 11,1,4,2,5,8,6,10,7,3,12,9 rem citelornypaw
data 7,10,2,8,9,6,11,1,3,4,12,5 rem pertynailcow 65
data 2,9,8,11,10,5,6,12,3,7,1,4 rem warynoteclip
data 6,1,12,10,3,11,2,8,7,5,9,4 rem colytarpwine
data 7,3,6,2,9,8,11,5,10,12,1,4 rem wicypenalrot
data 9,1,11,5,8,6,2,4,12,7,3,10 rem cowpintlayer
data 6,2,9,1,8,10,4,7,3,11,5,12 rem icrowaplenty 70
data 8,3,4,2,12,1,10,5,6,9,11,7 rem nicepryatowl
data 6,11,12,10,9,3,2,1,7,8,5,4 rem ponywartlice
data 10,9,12,2,4,3,7,1,6,11,8,5 rem pinlyrowcate
data 6,11,12,9,1,10,2,8,5,4,3,7 rem lowtraypince
data 2,9,12,7,1,4,10,8,6,11,3,5 rem lawnyripcote 75
data 2,9,8,11,10,4,6,12,5,7,3,1 rem tawnroteclip
data 6,7,11,9,5,3,2,10,12,1,8,4 rem tonylacwiper
data 2,7,12,6,11,4,10,9,3,5,1,8 rem warnticypole
data 2,3,4,10,9,11,6,1,7,8,5,12 rem pacewortliny
data 11,8,5,7,10,6,3,12,2,4,1,9 rem wrotenicylap 80
data 7,1,9,11,8,4,2,6,3,12,10,5 rem cornypalewit
data 7,5,2,10,6,11,12,1,3,4,9,8 rem pertclaywino
data 7,6,2,11,4,8,5,12,10,9,3,1 rem yewlocantrip
data 6,3,4,10,11,2,1,5,7,8,9,12 rem oncepartwily
data 3,4,5,7,9,8,10,6,2,1,11,12 rem tracepinlowy 85
data 9,8,7,5,1,6,2,4,10,11,3,12 rem lowpinecarty
data 3,11,5,10,9,8,6,4,2,1,7,12 rem trapeownlicy
data 7,8,5,1,11,4,2,10,6,9,3,12 rem iowneractply
data 6,7,8,2,3,12,11,5,9,4,1,10 rem wiltpaceryon
data 11,4,5,3,10,12,7,9,2,1,8,6 rem triceyowplan 90
data 7,1,12,10,4,9,2,5,6,11,3,8 rem cowlpraynite
data 8,9,3,6,11,7,10,1,2,12,5,4 rem preywinacolt
data 11,5,4,2,6,3,7,9,10,8,1,12 rem wineclotpray
data 5,1,2,6,9,7,10,8,3,4,11,12 rem certainplowy
data 9,4,11,2,8,3,5,7,12,6,1,10 rem wincotplayer 95
data 2,4,5,6,7,11,9,3,10,1,8,12 rem tapceilworny
data 7,9,5,11,10,1,2,6,3,12,4,8 rem norwepayclit
data 11,4,3,2,1,8,6,10,5,12,7,9 rem liecrownypat
data 3,2,11,1,9,12,7,5,6,4,8,10 rem icatprowlyen
data 11,5,6,4,12,7,8,10,2,1,9,3 rem tryicenowpal 100
data 2,6,8,5,7,9,10,1,3,4,11,12 rem particlenowy
data 7,5,10,3,2,11,4,1,9,12,6,8 rem pliocwayrent
data 5,8,4,2,6,3,10,7,9,1,11,12 rem tinealpcrowy
data 10,3,6,5,4,7,2,12,11,8,9,1 rem yoclientwarp
data 7,9,3,1,6,4,11,12,10,5,2,8 rem iwentlaycrop 105
data 5,4,9,2,8,10,3,7,1,11,6,12 rem riocawplenty
data 6,5,4,2,1,7,11,9,10,3,12,8 rem litecanyprow
data 8,9,6,2,3,7,11,5,12,10,1,4 rem wilypenactor
data 3,10,8,11,12,9,1,7,4,5,2,6 rem owartypencil
data 8,4,5,2,12,3,11,7,10,9,1,6 rem winceypatrol 110
data 5,2,8,1,12,6,11,7,10,9,4,3 rem icywanpetrol
data 3,1,10,11,2,12,8,6,7,9,4,5 rem clawyprotein
data 8,6,1,5,11,10,3,7,2,4,9,12 rem eroticpawnly
data 2,9,8,6,7,3,10,11,1,4,5,12 rem rantwilecopy
data 6,7,11,10,9,1,2,5,12,4,3,8 rem nowtpacylier 115
data 1,2,9,4,11,6,5,10,8,3,7,12 rem actionwreply
data 10,3,9,2,5,12,6,1,11,4,7,8 rem pictlowyearn
data 11,1,7,3,2,8,4,12,10,9,5,6 rem cliowyentrap
data 7,6,2,5,4,8,11,3,1,9,12,10 rem replicantyow
data 1,6,7,4,8,5,11,2,3,10,12,9 rem aprincelytow 120
data 11,10,7,9,8,12,2,6,3,4,1,5 rem wortypelican
data 4,5,3,11,6,12,8,10,2,1,9,7 rem treaclyowpin
data 3,7,2,11,5,1,8,10,4,12,9,6 rem nearlycowpit
data 11,10,2,8,9,7,5,1,12,4,3,6 rem pewtoynilcar
data 5,1,9,11,12,6,2,8,10,7,4,3 rem coywantperil 125
data 10,2,1,5,9,11,3,8,6,12,4,7 rem ecowiryplant
data 9,12,2,11,3,10,6,8,7,4,1,5 rem weltyorpanic
data 2,3,4,10,9,11,6,1,7,8,5,12 rem pacewortliny
data 11,10,4,2,12,3,6,5,7,8,1,9 rem wineportycal
data 11,9,2,3,4,5,6,12,10,7,1,8 rem weilnotycrap 130
data 7,11,12,2,3,10,9,8,6,4,1,5 rem wiltyraponce
data 3,1,9,10,2,4,7,8,6,5,11,12 rem clantropeiwy
data 10,11,8,2,1,3,6,4,5,9,7,12 rem linprowetacy
data 5,9,3,11,4,6,7,12,8,10,1,2 rem wyelanorctip
data 11,9,8,6,3,12,2,7,5,4,1,10 rem woltripecyan 135
data 2,8,9,6,12,7,11,4,5,10,3,1 rem yawprincetol
data 2,12,7,5,1,6,11,10,8,3,4,9 rem latwinerypoc
data 2,1,4,12,11,7,6,5,3,8,9,10 rem carepontwyli
data 7,8,3,11,5,4,1,2,10,12,9,6 rem openlyacwrit
data 6,9,3,10,7,4,1,2,11,8,5,12 rem openwaltciry 140
data 7,10,4,8,9,1,2,3,11,5,6,12 rem nopetwailcry
data 7,4,9,2,6,8,11,12,3,10,1,5 rem wircylanetop
data 11,1,9,7,2,4,3,12,8,10,6,5 rem clonywiretap
data 5,8,12,3,9,11,10,7,2,1,6,4 rem triyawpclone
data 2,10,11,9,8,4,7,6,12,1,3,5 rem tawnypolicer 145
data 2,11,12,10,9,4,8,7,5,1,3,6 rem tawnrypolice
data 8,11,6,4,3,10,2,1,9,5,7,12 rem politewarncy
data 5,11,2,10,9,3,8,7,6,4,1,12 rem wentarpolicy
data 11,5,8,3,10,4,6,9,7,1,2,12 rem twincoreplay
data 11,6,8,5,10,4,1,9,7,3,2,12 rem owtnicreplay 150
