efNjEEALLO1ALLO2WPHRAPHRASTORLINEPLINABWORDWORD2LINPHONPFLAFLAFLAGCOUNTALKTALK@  B<<;AP,;AP,;A,;A,;A,##@@K:"9@&,"AR@2 #B@!-@@&%".68,-2 6-B K (}-@@)( ,(K( by John ShanafeltR()( A SPEECH EDITOR FOR THER($ ή̮ϮǮǠР  J#( Š&(J( (from Issue 29, April 1985) 11;@,;@,;A,;A, 16-AP B--@A1   6.6.6.6. A 6-@(}-@@/(Ԡź| |AASK @)W6-@^6.p-@@z(-@@(p-@@*(=SPEAK WORDL(=ADD WORD TO DICTIONARYf(=OPTION SCREENp @)V-@@&( Ԡ5B:, @8G-@@L(V @"dB:, @u$-@@:(7@<@7,L-@@Z(7@8,d @"s-@@+(7@<@7,=-@@S(7@8<@t,e-@@s(7@u,S-@@#( Ԡ2B:, @8D-@@I(S @%dB:, @u$-@@:(7@<@7,L-@@Z(7@8,d @%s-@@+(7@<@7,=-@@S(7@8<@t,e-@@s(7@u,]-@@ :( ̭ȠҠԠƠL-@@"]( Š J-@@##(I:,8I:, AJA@PC-@%@9F:B2y,"@*B:,!C B0 F:B2y,"@A  9%F:B2y,"@*B:,!/ A#9 @" F:AS,"@($0)@"AU& B0 @F&)"@ A(}) @(E"A&*!@!(>:,-67<,.;6-&@E @(*_1+!@H* @X,)+!@d* @,9(>:,G67<,.>:,U6-%@_ @(,d B(( BAD INPUT!+6-A016.; BA6.H6.T6-@Z(}d @. A067<,.>:,6-%@2 B07 @ #B+ 46.6.6.!'+ @ AP " 6-B:,P 4 B$67%@,.:67B:,%@,. A6.M6-@P$ A : (} ((%(NO SUCH ALLOPHONE:(PLEASE TRY AGAIN%6-A 6. B%6. 0( ( (0( TO RETURN TO OPTION MENU$ ' B(} @"@6-$L (} (/( ҠȠ2(L( ( A. CONSTRUCT WORDS( B. CONSTRUCT PHRASES++(# C. SEARCH FOR WORD IN DICTIONARY&&( D. LIST WORDS IN VOCABULARY""( E. PRINT DATA ON SCREEN##( F. PRINT DATA ON PRINTER//(& G. SAVE PROGRAM TO DISK OR CASSETTE>>(6 H. SAVE AND/OR REINITIALIZE VOCABULARY( I. RENAME A WORD ( J. EXIT PROGRAMm($( WHAT IS YOUR CHOICE?'(*(-(L( to hear current wordm( to save current wordAS/%F:B2y,"@*B:,!/ B09%F:B2y,"@*B:,!/ A#9 A  F:AS,"A A B A $)@. BA"@:F,A!"@:E,A!P"@:C,A""@:B,B"@:A,(} @"@:G,A `"@:I,A"@:D,A%)"@:J, AR&(})"@:H,Ap A  B A  ;(>:A%,()(ASSETTE OR ISK?;AdAU F:Ad,"AUA r%)@"@:D,% A @:C,A rN (} ((POSITION TAPE,9(PRESS AND N(AND PRESS   A 3!b (} (@(/PLEASE TURN OFF YOUR PRINTER AND TRY AGAINT-@AX b A x" BC: A *- (} (-(INSERT DISK AND PRESS RETURN+AdAU A%,N A 9@@D:WORDMAKE.BASC BN@-b( (3(%WORDMAKE.BAS is already on this disk!N(Okay to write over it?Q(b( to proceed.(Any other key to abort/$ A )@$ B0@:Y,A 2G B@+D:WORDMAKE.BAS=AdAUG A 4 A!R##@@P:W@Y (} (( ( Ǡf"(}(((gTB:,"((ϠĠΠ46-A`:6.D BJ6.T A h( Bi?-@B:,&@26-@:7<,,&@d;(,? j#6-@:7B:,:A%,"A AH R( DATA ,4-@B:,&@B6-@:7<,,N(>:,R  % 6-B:,6-@:7<,,%(>:, ( ((CONT 3"368&@d,-8&@d,%@ - AB@& "(>:A%,"A AH F( 14000 DATA )-@@5(8,,9 F(8@, ( ((CONT - AB@& 4AB@"(>:A%,4A AH F( 14010 DATA )-@@%5(8,,9 F(8@&, ( ((CONT - AB@& @AB@"(>:A%,4A A@6- $ h @e)!@<(ĠԠΠȠB6.N6-AX B^6.h A# 06-$A08&@d,"A# B#$-%8&@d,&@*"04<6-@B6-   " A# F($( IS ALREADY IN MY FILE.F(DO YOU WANT TO REPLACE ?" 0)@"@:N,'6--(}0$$ @:Y, A#8&  6- A#. g (} (O(+SORRY, NO MORE ROOM FOR WORDS STARTINGWITH 7@<@,c-@Ag 2 $ S (} (,( ٠/(2(S( creen or rinter? $ A%)@$ B ."@:P,6-@$ A%P. A% @:S,A% 1( (1(#Input first letter ( for all) $ A%)@$ B ++ @:A,)+!@:Z,*AU,A% 3"@!A8Af3A9A8 AU A%0 "6-@""(} "  4* A%` ?(6-%@+"*"@"5 A%? A% A% #$A6- "6-@""(} C ""8&@d,C($------------------------------------ %%@:7@<@,,A%` #(6-%@#6-%@ -"*"@"# A%- A%1 A%2 E A%U-@@P:7 BB@E$ U B(3(ˠҭԠ?6-ApE6.O BU6. '@'6-' A  :"7(#-----------------------------------:( " A% ?"@6--A8Ac?A9AF A  %(%(Ӡ٠٠Ϡ AdAU 44:LINE=9011:STOR$=PHON$:GOSUB 11000:PHON$=STOR$" F:Ad,"AUA%# AdAU$X (}b(((( A. RE-INITIALIZE VOCABULARYl$$( B. CANCEL REINITIALIZATIONv;;(3 C. SAVE VOCABULARY TO DISK OR CASSETTE ( ( (=OPTION MENUAS"F:B2y,"@" A  F:AS,"ApR. B ApV$)@. B""@:A, Aq" Ap""@:B, Ar" Ap""@:C, At" Ap ApRi (} (((i(HONCE DATA HAS BEEN REINITIALIZED, NEW WORDS WILL BE WRITTEN OVER THE OLD( VOCABULARY2(( TO PROCEED2(ANY OTHER KEY TO ABORT7 Aq)@$ B7@:Y,ApV(V(KWOULD YOU LIKE TO LIST CURRENT VOCABULARY TO DISK BEFORE PROCEEDING?( es OR o$ Aq)@$ B"@:N, Aq@:Y,Aq At*-@@&&68,-* -"(>:A%,"A AHF( 19496 DATA )-@@5(8,,9 F(8@,( ((CONT-AB@& 4AB@"(>:A%,4A AHF( 19497 DATA )-@@%5(8,,9 F(8@&,( ((CONT-AB@&7AB@"(>:A%,4A A7$ ( ((!=-@@&%6-%@d1#$A=6-"; "#@:7@<@,,"16-%@; Ar$ 68,- *->"(>:A%,"A AHHF( 19496 DATA )-@@5(8,,9 F(8@,R( ((CONT\-fAB@&p4AB@"(>:A%,4A AHzF( 19497 DATA )-@@%5(8,,9 F(8@&,|( ((CONT~-AB@&7AB@"(>:A%,4A A7$ AtP4 (} ("(ASSETTE OR ISK?4AdAU F:Ad,"AUAt%)@"@:D,% At0@:C,AtN (} ((POSITION TAPE,9(PRESS AND N(AND PRESS  At 3b (} (@(/PLEASE TURN OFF YOUR PRINTER AND TRY AGAINT-@AX b At1 (} ((((1(Please wait...C:B@Bs((<(!(Data is listed on tape5-@A9 <$L (} ((((1(Please wait...@6.D:VOCAB.L6-@67@ ,.=:,* AtF*@@ 0 B@&6-%@0 At16 B AtP"@6B@Bs((@(%(Data is listed as VOCAB.9-@A= @$Q B(6(ERROR F:A, ENCOUNTEREDJ-@AN Q$@ AJ5 (}5@@D:WORDMAKE.HLPT@(^ 4  A(}h A 7(ŠҠ TO CONTINUE7(Π TO CANCELLAdAU F:Ad,"AUAEF:Ad,"@'-AdAU8@B BE$-F:Ad,"@3*AdAU-$AdAU A% B@" A%$ < (} (($(What word do you8(want to rename< 4A  6-@:7@<@,, 06-$A08&@d,"A B#$-%8&@d,&@*"04<6-@B6-   " A  6- #" 9( (+(What is the new name for this5(word9 4A t@:7@<@,, (#(T(,ĠĠנӠԠԠȠ`6-Aj Bt A   6.6.  A#6. A b >( ($(SORRY, I CAN'T FIND >(PLEASE CHECK SPELLINGg %-@A % A (#((THAT.WORD.IS.NOT.IN.MY.DICTIONARY.)#00RZMBntAU@BLL@k@BxXMBLL@K@BPFBaLiAeO@KGoASB2# PRESS.ANY.KEY.TO.CONTINUE.3# IgGGwBG@KSBjSBM_BjOKMLKqVB<#,,NO.SUCH.ALLOPHONE.,,,PLEASE.TRY.AGAIN.=#++xOuBwOOrBZZmuhuKBDDDI@mSkBMgFBOOdLLKBF#BAD.INPUT.G#ZZAU@BLKI^MBP#NO.PHRASES.STORED.Q#xOuBhgTkGkBwMz@U@BZ#WELCOME.TO.WORD.MAKER.[#nGmjOPBM_BntAU@BPTjsBd#NO.WORD.IN.MEMORY.e#xOuBntAU@BLL@K@BPGGPtSBn#&&CHECK.PRINTER.,,NOT.OPERATIONAL.o#""rGGBiBINLKMsBDDxXMBXIsTeOK~Bx#$$WORD.MUST.BEGIN.WITH.A.LETTER.y#&&ntAU@BPOwMBSdLKBnL]BTBmGGMsBDDD' PA1,64' PA2,65' PA3,66' PA4,67' PA5,68' OY,69' AY,70' EH,71' KK3,72' PP,73' JH,74' NN1,75' IH,76' TT2,77' RR1,78' AX,79 ' MM,80!' TT1,81"' DH1,82#' IY,83$' EY,84%' DD1,85&' UW1,86'' AO,87(' AA,88)' YY2,89*' AE,90+' HH1,91,' BB1,92-' TH,93.' UH,94/' UW2,950' AW,961' DD2,972' GG3,983' VV,994' GG1,1005' SH,1016' ZH,1027' RR2,1038' FF,1049' KK2,105:' KK1,106;' ZZ,107<' NG,108=' LL,109>' WW,110?' XR,111@' WH,112A' YY1,113B' CH,114C' ER1,115D' ER2,116E' OW,117F' DH2,118G' SS,119H' NN2,120I' HH2,121J' OR,122K' AR,123L' YR,124M' GG2,125N' EL,126O' BB2,127P' END,0)- (} (-( ŠҠ)"("( A. ADD WORD TO PHRASE)( B. BEGIN A NEW PHRASE")))(! C. SPEAK CURRENT STORED PHRASES,),,($ D. WRITE PHRASE SUBROUTINE TO DISK6)$($( WHAT IS YOUR CHOICE?@)#( ( (#(=OPTION MENUJ)ASK) F:B2y,"@A L).F:B2y,"@$6-@. BBN) F:AS,"BqT). B B$)@. BU)"@:A,BV)&"@:B,6.6.& BW)"@:C,BX)"@:D,B Y)"@:E,6. A Z) Bg) B Bh)J (} (#(ԠŠ2B:,"J(NO PHRASE IN MEMORYi)(l)D-@@ %( Š2(I:,D-@@m)*I:, A*A@Pn)bB:,!@)B:,!@"(J(#ǠԠƠ͠ҠӠb(ŠŠp)PB:,!@)B:,!@7(ŠϠJ(ҠM(P(r)L(-("WHAT WORD DO YOU WANT ME TO ADD TO9(PHRASE=L4B`t)H 4.!67B:,%@,..>67B:,%@,.>:@f,H Bv)H 4,!67B:,%@,.,>67B:,%@,.>:@h,H Bx)6-@ A"z) 4 B|)-67B:,%@,.-67B:,%@,..)467B:,%@,.467B:,%@,.>:@f,)( )-@B:,)6-@:7<,,&@d)F:,!A'BD)%@d )/6-@#@#@d/)"@6-$) B)B:, @ B)+(+( Do you want to save this phrase?)$ Bb)@$ B)"@:N,B)"@:Y,B) Bb)i"B (}'-@@=(ϠӠI6-A@O6.Y B_6.i B)< (}-@@<( ǠӠ) 6.)G"B 6-B % B9-@@ = G B%)!!-B &@@)% B!-@@ % ) ) 6.) B0*"(>:A%,"A AH:*( REM <*( ((CONT>*-@*AB@&B*"AB@"(>:A%,D*H(%@ DATA 6-@B:,&@D(7<,H E*(7B:, H B*X B(6(ERROR F:A, ENCOUNTEREDJ-@AN X B* # "+-@B:, +6-@:7<,,&@d*+F:,!A'BP4+%@d 9+/6-@#@#@d/H+$,6-B@6-B@,H 6-F:,&@&A',86-@E;A,H$D:WORDMAKE.BAS