!*************************** AMUS Program Label ******************************
! Filename: LOTTO.BAS                                       Date: 10/20/89
! Category: GAME         Hash Code: 013-534-334-132      Version: 1.0(100)
! Initials: ????/AM      Name: The Mystery Programmer
! Company: Mysterious Programming                  Telephone #: (???)???-????
! Related Files:None
! Min. Op. Sys.: AMOSL 1.3                     Expertise Level: BEG
! Special: You will make lots of money !
! Description: Lottery auto lotto picker using the Alpha Micro to choose
! your lottery numbers.
!
!*****************************************************************************
!
!If you need to change this to your states lottery requirements,
!you can modify by changing the number specified at the [#] symbol to meet
!your states number of possible choices.
Program LOTTO,1.0(100)

MAP1 DIRECTION,F
MAP1 NUMBER1,B,1
MAP1 NUMBER2,B,1
MAP1 NUMBER3,B,1
MAP1 NUMBER4,B,1
MAP1 NUMBER5,B,1
MAP1 NUMBER6,B,1

ON ERROR GOTO FINISHED

RANDOMIZE
PRINT TAB(-1,0)
PRINT TAB(-1,29)
PRINT TAB(12,25);

PRINT TAB(-1,21);
PRINT "HIT 'CTRL C' WHEN YOU FEEL LUCKY";
PRINT TAB(-1,22)

SHOW'ME:

	FOR X = 1 TO 6
 	         DIRECTION = INT(47 * RND(X) + 1)	![#]
	NEXT X
TEST:


GOTO SHOW'ME

FINISHED:
PRINT TAB(-1,28)
PRINT TAB(-1,0)
PRINT "THESE ARE YOUR LUCKY NUMBER'S FOR TODAY"
PRINT
PRINT
	FOR X = 1 TO 6
GET'ANOTHER:
 	         DIRECTION = INT(47 * RND(X) + 1)	![#]
IF X = 1 THEN NUMBER1 = DIRECTION

IF X = 2 THEN &
 IF NUMBER1 = DIRECTION GOTO GET'ANOTHER

IF X = 3 THEN &
 IF (NUMBER1 = DIRECTION) OR (NUMBER2 = DIRECTION) GOTO GET'ANOTHER

IF X = 4 THEN &
 IF (NUMBER1 = DIRECTION) OR (NUMBER2 = DIRECTION) OR (NUMBER3 = DIRECTION) GOTO GET'ANOTHER

IF X = 5 THEN &
 IF (NUMBER1 = DIRECTION) OR (NUMBER2 = DIRECTION) OR (NUMBER3 = DIRECTION) OR (NUMBER4 = DIRECTION) GOTO GET'ANOTHER

IF X = 6 THEN &
 IF (NUMBER1 = DIRECTION) OR (NUMBER2 = DIRECTION) OR (NUMBER3 = DIRECTION) OR (NUMBER4 = DIRECTION) OR (NUMBER5 = DIRECTION) THEN GOTO GET'ANOTHER

	IF X = 2 THEN NUMBER2 = DIRECTION
	IF X = 3 THEN NUMBER3 = DIRECTION
	IF X = 4 THEN NUMBER4 = DIRECTION
	IF X = 5 THEN NUMBER5 = DIRECTION
	IF X = 6 THEN NUMBER6 = DIRECTION


	NEXT X

		 PRINT "YOUR FIRST  NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER1;
		 PRINT TAB(-1,22)
		 PRINT "YOUR SECOND NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER2;
		 PRINT TAB(-1,22)
		 PRINT "YOUR THIRD  NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER3;
		 PRINT TAB(-1,22)
		 PRINT "YOUR FOURTH NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER4;
		 PRINT TAB(-1,22)
		 PRINT "YOUR FIFTH  NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER5;
		 PRINT TAB(-1,22)
		 PRINT "YOUR SIXTH  NUMBER IS :";
		 PRINT TAB(-1,21);
		 PRINT NUMBER6;
		 PRINT TAB(-1,22)

END