d:n:Best of DOWN TO BASIC Menu Program;x:by Randy Hawkins (for ONE THOUSAND Magazine)C:j T$( ),F$( ),S$(^): j : P: ,,: :  A  : T$(A),F$(A): A " A Collection of One Line Programs ..................... 6/86 ",onelineK " A Computerized Backgammon Opponent .................... 7/86 ",newgamon " GAMBLER! A Game for 1 to 4 Players ................... 8/86 ",gambler " Use Movement to Jazz Up Display Screens ............... 9/86 ",display8 " Use Soundex Codes to Find 'Almost' Matches ........... 10/86 ",soundex " SHOW AND TELL -- A Memory Game ....................... 10/86 ",showtell " Use PEEK and POKE to Make BASIC Smarter .............. 11/86 ",peekpoke& " Display Messages on Screen with BIG Letters .......... 12/86 ",biglett " How to Use AND and OR Functions ....................... 1/87 ",and_or " A Program to Print Big Letter BANNERS ................. 4/87 ",banner " SIMON -- A Simple XMODEM Terminal Program ............. 6/87 ",simon] " TRIVIA MASTER -- A Game for 2 to 4 Players ............ 6/87 ",trivia" " None of These Programs ....................... Return to DOS ",SYSTEM, ,,: ,: (B,);6 ,: ,: " ONE THOUSAND Magazine";(@ );"Best of DOWN TO BASIC ";: ,tJ " Use  and  to Select One of the Topics Below Then Press ENTER ";T ,: ,: (B,);^ ,: ,: (B, );h A : A,: (B, );: Ar ,: ,: T$();: ,*| A  : A,: T$(A);: A: KBI$: I$"" x I$()(P) : KK (K ):  I$()(H) : KK (K):  I$( )  :  ,: K,: T$(K);:  ,: K,: T$(K);: 5 K  : ,: F$F$(K)g A  : A,: (>(AK), );: A~ ,: (>, ); ,: ,: " F1 ";: ,: " Read ";: ,: " Text ";& ,: ,: " F2 ";: ,: " Print ";: ,: " Text ";| ,: ,": " F3 ";: ,": " Run ";: ,": " Program "; ,: ,/: " F4 ";: ,/: " LLIST ";: ,/: " Program ";' ,: ,<: " F5 ";: ,<: " Change ";: ,<: "Selection ";B () : () ] () : () x& () : () 0 () : () : () : () ND DNX () b () l () v ()  () 0 ,: :  ,: "One moment please..."e "R",,F$".dat",<: ,< AS A$: LF()< RN LF: ,RN: S$(RN)A$: RN: LFLF:  X: : P:  A : A,: (B,): A ,: , : "ONE THOUSAND Magazine";9 ,1: "Best of DOWN TO BASIC"; , : "Press , , PG UP, PG DN, HOME, and END Keys to View Article"; ,: "ESC=Exit to Menu, PRINT=Send to Printer, ENTER=Execute Program"; ,: ,: (>,);: ,: (>,);: B SEG: , ():I$()(G): \K I$_ I$() u  I$() * I$( ) 4 I$()(H) RNRN: RN RN: z : z> I$()(P) RNRN: RNLF RNLF: z : z?H I$()(I) RNRN: RN RN: z : z}R I$()(Q) RNRN: RNLF RNLF: z : z\ I$()(G) RN: zf I$()(O) RNLF: zp  z A : A,: " ";S$(RNA);" ";: A:   X: @ ,: :  , : "Printing Text"b ,: "Check to See That" ,: "Printer is On Line" A : " ": A A LF:  ); S$(A) (A6)6 A B  : " ": B A: ,: 0 ,: :  , : "Loading Program"S  ,: "One Moment Please"  ,: "Remember -- You Can Return" ,: "To The Menu Program at Any" ,: "Time by Pressing the ESC Key" RH: RH: F$#  X: ,: :  ,: "Printing Listing"F  ,: "Check to See That"j $ ,: "Printer is On Line" . A : " ": A 8 "I",,F$".BAS": RN B #, A$: A ((A$))P L (A$,AP,P): RNRN!V (RN6)6 RN B  : " ": B:!` A: () :  : BU!j  : p!t . : .!~:  ,: "Error #";;"in line";! : !:  , : "Printer Fault"!  ,: "Prepare Printer, Then""  ,: "Press ENTER to Continue";1" ( ): : ": ,: ,: " If you enjoyed the programs and/or articles in this collection "" ,: " and you own a Tandy 1000 computer, you should subscribe to ": ,5# ,: " ͻ . ͻ ͻ . . "# ,: " \ ͹ ͻ ͹ \ "# ,: " ͼ ` ͼ ͼ ͼ ` ' ".$ ,: " The Monthly Magazine Especially for Tandy 1000 Personal Computers "$ ,: ,: " OTM is a monthly magazine FOR Tandy 1000 users written BY Tandy "$  ,: " 1000 users. Although intended for Grandy owners [Grand (slang "0%  ,: " for 1000) + Tandy = Grandy], much of the information in each "%   ,: " issue would be of interest to every MS-DOS computer owner. "%  ,: " Monthly features include BEGINNER'S LUCK (for the never before ",& ,: " user), DOWN TO BASIC (this collection is an example), EXPLORING "&( ,: " MS-DOS (all about your operating system), GRIPES AND GRUMBLES "&2 ,: " (air your complaints), WRIGHT ANGLES (learn how your Grandy "('< ,: " works), KIDBITS (Tandy 1000 tidbits), TELCOM (all about tele- "|'F ,: " communications), and much more! For more information write to: "'P ,: ,: " Thursak Publishing, Inc. "'Z ,: " 2153-A Muren Boulevard "(d ,: " Belleville, IL 62221 ")(n ,: ,: "Press ";H(x : "";: |( " to return to DOS";: SEG: , ()( "": : :