home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.B.po
/
GAMES:BASIC.4
/
LOTTO.PICK.bas
next >
Wrap
BASIC Source File
|
2010-05-14
|
3KB
|
76 lines
10 REM ************************************************
20 REM *** RANDOM LOTTO 6/40 - 6/44 REVISED 2/19/86 ***
30 REM *********** FOR THE APPLE // COMPUTER **********
40 REM **** BY JIM DENIKE LSJ- ACCESS 482-8144 *****
50 REM ************************************************
60 REM
70 CLEAR : DIM C(50):D$ = CHR$(4)
80 POKE -16368,0:X1 = PEEK( -16384):R1 = PEEK(78):R2 = PEEK(79): POKE 204,R1: POKE 205,R2
85 DD$ = "": HOME : VTAB 4: HTAB 4: PRINT "LOTTO 6/44 ( Y or N ) ";
86 GET DD$: IF DD$ < >"N" OR DD$ < >"n" THEN OP = 44
87 IF DD$ = "N" OR DD$ = "n" THEN OP = 40
88 IF OP = 40 THEN FL$ = "LOTTO 6/40"
89 IF OP = 44 THEN FL$ = "LOTTO 6/44"
90 HOME : VTAB 4: PRINT "DO YOU WANT A PRINTOUT ? ": GET PR$: IF PR$ = "Y" OR PR$ = "y" THEN PR = 1
95 IF PR = 1 THEN PRINT D$;"PR#1": PRINT : PRINT FL$: PRINT : PRINT D$;"PR#3"
100 HOME
105 PRINT : HTAB 22: PRINT FL$
110 FOR X = 1 TO 6: FOR T = 1 TO 6
120 C(T) = INT( RND(X) *(OP +1))
130 IF C(T) > = 1 THEN 150
140 T = T -1: GOTO 190
150 IF C(T) < = OP THEN 180
160 T = T -1: GOTO 190
180 GOSUB 210
190 NEXT
200 PRINT : NEXT : GOTO 530
210 IF T = 1 THEN RETURN
220 IF T = 2 THEN 380
230 IF T = 3 THEN 410
240 IF T = 4 THEN 440
250 IF T = 5 THEN 470
260 IF T = 6 THEN 500
270 IF X = 1 THEN RETURN
280 IF PR = 1 THEN PRINT D$;"PR#1"
290 PRINT CHR$(X +63);" :";
300 R = 5
310 FOR XC = 1 TO 6
320 HTAB R
330 PRINT C(XC);: IF XC = 6 THEN PRINT
340 R = R +5
350 NEXT
360 IF PR = 1 THEN PRINT D$;"PR#3"
370 RETURN
380 IF C(2) = C(1) THEN T = T -1
390 IF C(2) = C(1) THEN RETURN
400 RETURN
410 IF C(3) = C(2) OR C(3) = C(1) THEN T = T -1
420 IF C(3) = C(2) OR C(3) = C(1) THEN RETURN
430 RETURN
440 IF C(4) = C(3) OR C(4) = C(2) OR C(4) = C(1) THEN T = T -1
450 IF C(4) = C(3) OR C(4) = C(2) OR C(4) = C(1) THEN RETURN
460 RETURN
470 IF C(5) = C(4) OR C(5) = C(3) OR C(5) = C(2) OR C(5) = C(1) THEN T = T -1
480 IF C(5) = C(4) OR C(5) = C(3) OR C(5) = C(2) OR C(5) = C(1) THEN RETURN
490 RETURN
500 IF C(6) = C(5) OR C(6) = C(4) OR C(6) = C(3) OR C(6) = C(2) OR C(6) = C(1) THEN T = T -1
510 IF C(6) = C(5) OR C(6) = C(4) OR C(6) = C(3) OR C(6) = C(2) OR C(6) = C(1) THEN RETURN
520 GOTO 570
530 VTAB 22: HTAB 9
537 VTAB 22: HTAB 9
540 INVERSE : PRINT " RUN RND.LOTTO AGAIN? ";: NORMAL
550 GET Q$: IF Q$ = "Y" OR Q$ = "y" THEN RUN
560 PRINT : GOTO 680
570 REM ****** SORT ******
580 FOR I = 1 TO T -1
590 FOR J = I +1 TO 6
600 IF C(I) < = C(J) THEN 640
610 ST = C(I)
620 C(I) = C(J)
630 C(J) = ST
640 NEXT J
650 NEXT I
660 REM ****** END OF SORT ******
670 GOTO 270
680 VTAB 22: HTAB 9: PRINT " "
690 END