10REM Random Word Generator
20REM (C) 1996 Jon Ripley
30REM This program is PD
40REM Please DO NOT ALTER this progra
m
50DEFFNS="WordGen"
60MODE 7
70FORX=1TO2:PRINTTAB(0,X)CHR$141;CHR$
(127+2*X)"Random Word Generator (C) Jon
Ripley":NEXT
80VDU28,0,24,39,4
90PRINT"If you have Superior Software
's Speech! Loaded I can attempt to say t
he words I make."''"If Speech! is not lo
aded enter 'N'."'"Say words (Y/N):";
100REPEATA$=GET$:UNTILINSTR("YyNn",A$)
110IF INSTR("Yy",A$) say=TRUE ELSE say
=FALSE
120CLS
130ONERRORIF ERR=254 say=FALSE ELSE MO
DE7:END
140VDU14
150A=RND(-TIME)
160v$="aeiou"
170c$="bcdfghjklmpqrstvwxyzn"
180x$=""
190REPEAT
200REPEAT
210w$=""
220c=RND(21)
230w$=w$+CHR$(ASC(MID$(c$,c,1))-32)
240IFc=12w$=w$+"u"
250IFc=15ANDRND(5)=1w$=w$+"h"
260w$=w$+FNv
270UNTILRND(15)<2
280REPEAT
290c=RND(21)
300w$=w$+MID$(c$,c,1)
310IFRND(15)=1w$=w$+MID$(c$,c,1)
320IFc=12w$=w$+"u"
330IFc=15ANDRND(9)=1w$=w$+"h"
340IFc=2ANDRND(2)=1w$=w$+"k"
350IFc<>12ANDRND(15)=1w$=w$+"r"
360UNTILRND(5)<4
370IFRND(9)<5w$=w$+FNv
380IFINSTR(v$,RIGHT$(w$,1))w$=w$+x$
390PRINTw$
400IF say OSCLI"*Say "+w$
410UNTIL.
420DEFFNv
430y$=x$
440REPEAT
450v=RND(5)
460x$=MID$(v$,v,1)
470UNTILx$<>y$
480=x$