vowels only and sometimes 'y'.
restore smallwords
read maxnum
dim word$(maxnum)
for a=1 to maxnum
read word$(a)
next a
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
row=0
col=0
a1=0
e1=0
i1=0
o1=0
u1=0
y1=0
for a=1 to maxnum
row=row+1
if row>31 then
col=col+39
row=1
endif
for b=1 to len(word$(a))
setrgb 1,256,256,256
a$=mid$(word$(a),b,1)
if a$="A" setrgb 1,256,0,0
if a$="A" a1=a1+1
if a$="Y" setrgb 1,256,96,0
if a$="Y" y1=y1+1
if a$="E" setrgb 1,256,256,0
if a$="E" e1=e1+1
if a$="I" setrgb 1,0,256,0
if a$="I" i1=i1+1
if a$="O" setrgb 1,0,0,256
if a$="O" o1=o1+1
if a$="U" setrgb 1,256,0,256
if a$="U" u1=u1+1
text b*10+col,row*16,mid$(word$(a),b,1)
next b
next a
setrgb 1,256,256,256
text 10,510,str$(a1)+" A's/"
text 90,510,str$(e1)+" E's/"
text 170,510,str$(i1)+" I's/"
text 250,510,str$(o1)+" O's/"
text 330,510,str$(u1)+" U's/"
text 410,510,str$(y1)+" Y's in this list"
until (1=0)
label smallwords
data 496
data "ACE","ACT","ADD","AGE","AGO","AID","AIL","AIM","AIR","ALE"
data "ALL","ALP","AMP","AND","ANT","ANY","APE","APT","ARC","ARE"
data "ARK","ARM","ART","ASH","ASK","ASP","ASS","ATE","AVE","AWE"
data "AWL","AWN","AXE","AYE","BAD","BAG","BAN","BAR","BAT","BAY"
data "BED","BEE","BEG","BET","BIB","BID","BIG","BIN","BIT","BOA"
data "BOB","BOG","BOO","BOP","BOW","BOX","BOY","BRA","BUD","BUG"
data "BUM","BUN","BUR","BUS","BUT","BUY","BYE","CAD","CAM","CAN"
data "CAP","CAR","CAT","COB","COD","COG","CON","COP","COT","COW"
data "COY","CRY","CUB","CUD","CUE","CUP","CUR","CUT","DAB","DAG"
data "DAM","DAY","DEW","DID","DIE","DIG","DIM","DIN","DIP","DOE"
data "DON","DOT","DRY","DUB","DUD","DUE","DUG","DUO","DUX","DYE"
data "EAR","EAT","EEK","EFT","EGG","EGO","EKE","ELF","ELK","ELM"
data "EMU","END","EON","ERA","ERR","EWE","EYE","FAB","FAD","FAG"
data "FAN","FAR","FAT","FED","FEE","FEW","FIB","FIG","FIN","FIR"
data "FIT","FIX","FLU","FLY","FOB","FOE","FOG","FOR","FOX","FRY"
data "FUN","FUR","GAG","GAL","GAP","GAS","GAY","GEE","GEL","GEM"
data "GET","GIG","GIN","GIT","GNU","GOB","GOD","GOO","GOT","GUM"
data "GUN","GUT","GUY","GYM","HAD","HAG","HAM","HAS","HAT","HAY"
data "HEM","HEN","HER","HEW","HEX","HEY","HID","HIM","HIP","HIS"
data "HIT","HOB","HOE","HOG","HOP","HOT","HOW","HUB","HUE","HUG"
data "HUH","HUM","HUT","ICE","ICY","IDE","IFS","ILK","INK","INN"
data "INS","ION","IRE","IRK","ITS","IVY","JAB","JAG","JAM","JAR"
data "JAW","JET","JEW","JIB","JIG","JOB","JOG","JOT","JOY","JUG"
data "JUT","KEA","KEF","KEG","KEY","KID","KIN","KIP","KIT","LAB"
data "LAD","LAG","LAP","LAW","LAY","LEA","LED","LEE","LEG","LEI"
data "LET","LEW","LID","LIE","LIP","LIT","LOB","LOG","LOO","LOP"
data "LOT","LOW","LUG","LUX","MAD","MAN","MAP","MAR","MAT","MAX"
data "MAY","MEN","MET","MID","MIX","MOA","MOB","MOM","MOO","MOP"
data "MOW","MUD","MUG","MUM","NAB","NAG","NAP","NAY","NET","NEW"
data "NIB","NIL","NIP","NIT","NOB","NOD","NOG","NON","NOR","NOT"
data "NOW","NUB","NUN","NUT","OAF","OAK","OAR","OAT","ODD","ODE"
data "OFF","OFT","OHM","OIL","OLD","ONE","OPT","ORB","ORE","OUR"
data "OUT","OWE","OWL","OWN","PAD","PAL","PAN","PAR","PAT","PAW"
data "PAY","PEA","PEE","PEG","PEN","PET","PEW","PIE","PIG","PIN"
data "PIP","PIT","PLY","POD","POP","POT","POX","PRY","PUB","PUD"
data "PUG","PUN","PUP","PUS","PUT","PYE","RAG","RAM","RAN","RAP"
data "RAT","RAW","RAY","RED","RIB","RID","RIG","RIM","RIP","ROB"
data "ROD","ROE","ROT","ROW","RUB","RUE","RUG","RUM","RUN","RUT"
data "RYE","SAC","SAD","SAG","SAM","SAN","SAP","SAT","SAW","SAY"
data "SEA","SEE","SET","SEW","SEX","SHE","SHY","SIN","SIP","SIR"
data "SIT","SIX","SKI","SKY","SLY","SOB","SOD","SON","SOW","SOY"
data "SPA","SPY","STY","SUB","SUD","SUE","SUM","SUN","TAB","TAD"
data "TAG","TAN","TAP","TAR","TAX","TEA","TEE","TEN","THE","THY"
data "TIC","TIE","TIN","TIP","TIT","TOE","TOG","TON","TOO","TOP"
data "TOT","TOW","TOY","TRY","TUB","TUG","TUI","TUM","TUP","TUT"
data "TUX","TWO","UPS","URE","USE","UTE","VAN","VAT","VEE","VET"
data "VEX","VIA","VIE","VIM","VOW","WAD","WAG","WAR","WAS","WAX"
data "WAY","WEB","WED","WEE","WET","WHO","WHY","WIG","WIN","WIT"
data "WOE","WOK","WON","WRY","YAK","YAM","YAP","YEN","YES","YET"
data "YOB","YOU","ZAP","ZIP","ZIT","ZOO"
