: LOTTO.BAS for the Tandy 600 - from an NEC model by Walter O'Brien: Copyright by David Dunn Thomas - All rights reserved\ AZ: I :D$D$():: S$(X)((X),): ((,)) : ,: :" PICK LOTTERY NUMBERS "::(,)(+,),,BF:: )"1) Lotto to 39";7)"3) Pick three":: )"2) Lotto to 44";7)"4) Pick four":: #)"X) Exit"! N$$():N(N$)< N$"X" N$"x" V  N ,,,`   o L': ~ L,:  S$(")"Pick ": N S$S$"3"(") : N S$S$"4"(") ::: )"Four selected "S$" for you!"/  I :A:B(A) :C(A) :D(A) j  N ,((I) ): S$(B);S$(C);S$(D): y E(A)  ,((I) ): S$(B);S$(C);S$(D);S$(E) :  ,<: :"Press any key ->";::" "; A$$():  (  L' S$"1 to 39" : L, S$"1 to 44"m ::: )"Four fine selections of numbers "S$" just for you!"{  I  AL B(A)L: AB  C(A)L: CA CB  !D(A)L: DA DB DC ! "E(A)L: EA EB EC ED "P #F(A)L: FA FB FC FD FE # $ (I),: A;)B;#)C;()D;-)E;2)F % );D$ &: '