home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / misc / 6_49.zip / 6-49.BAS (.txt) next >
QuickBASIC Tokenized Source  |  1993-10-31  |  4KB  |  43 lines
  1. QPICK
  2. STARTPIC
  3. EXCLUDE
  4. EXNUM
  5. PRIN{
  6. START
  7. BOXDISP*
  8. MIDSPACE
  9. SEPARATE>
  10. BOTTOM
  11. SPACE
  12. LABEL
  13. DISPLAY
  14. LISTEN
  15.  6/49 QUICK-PICK PROGRAM WITH SELECTIVE NUMBER EXCLUSION
  16.  201,205,203,187,186,32,186,186,204,205,206,185,186,32,186,186
  17.  204,205,206,185,186,32,186,186,204,205,206,185,186,32,186,186
  18.  204,205,206,185,186,32,186,186,204,205,206,185,186,32,186,186
  19.  204,205,206,185,186,32,186,186,200,205,202,188
  20. *****************"
  21. 6/49 QUICK-PICK"
  22. *****************"
  23. DO YOU WANT TO EXCLUDE SOME NUMBERS? (Y/N)
  24.                                           
  25. HOW MANY NUMBERS?  "
  26. GET REAL!             
  27. NUMBERS TO BE EXCLUDED
  28.                                           
  29. PICK AGAIN WITH SAME NUMBERS? (Yes/No/Quit)"
  30. QPICK
  31. STARTPIC
  32. EXCLUDE
  33. ENTER 
  34.  1 ST 
  35.  2 ND 
  36.  3 RD 
  37. NUMBER - "
  38.                    "
  39. <TOO HIGH"
  40. < MORE THAN 0"
  41. < ALREADY PICKED
  42. BOXDISP
  43.