home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
misc
/
6_49.zip
/
6-49.BAS
(
.txt
)
next >
Wrap
QuickBASIC Tokenized Source
|
1993-10-31
|
4KB
|
43 lines
QPICK
STARTPIC
EXCLUDE
EXNUM
PRIN{
START
BOXDISP*
MIDSPACE
SEPARATE>
BOTTOM
SPACE
LABEL
DISPLAY
LISTEN
6/49 QUICK-PICK PROGRAM WITH SELECTIVE NUMBER EXCLUSION
201,205,203,187,186,32,186,186,204,205,206,185,186,32,186,186
204,205,206,185,186,32,186,186,204,205,206,185,186,32,186,186
204,205,206,185,186,32,186,186,204,205,206,185,186,32,186,186
204,205,206,185,186,32,186,186,200,205,202,188
*****************"
6/49 QUICK-PICK"
*****************"
DO YOU WANT TO EXCLUDE SOME NUMBERS? (Y/N)
HOW MANY NUMBERS? "
GET REAL!
NUMBERS TO BE EXCLUDED
PICK AGAIN WITH SAME NUMBERS? (Yes/No/Quit)"
QPICK
STARTPIC
EXCLUDE
ENTER
1 ST
2 ND
3 RD
NUMBER - "
"
<TOO HIGH"
< MORE THAN 0"
< ALREADY PICKED
BOXDISP