!*************************** 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)
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)
