home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / LOTTO-PICKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  70 lines
  1. 0 PRINT"[147]";
  2. 10 PRINT"FOR INSTRUCTIONS, SEE 'REM' STATEMENTS  AT END OF PROGRAM."
  3. 15 PRINT"HOW MANY RANDOM NUMBERS SHALL I PICK (2-MINIMUM[195]8-MAXIMUM) "
  4. 17 INPUT Z
  5. 20 IFZ<2ORZ>8THENPRINT"PLEASE ENTER A NUMBER FROM 2 TO 8."
  6. 21 IFZ<2ORZ>8THEN15
  7. 30 A=INT(RND(0)*41)
  8. 40 B=INT(RND(0)*41)
  9. 50 IFA=BTHEN30
  10. 55 Y=2:IFZ=YTHEN 240
  11. 60 C=INT(RND(0)*41)
  12. 80 IFA=CORB=CTHEN60
  13. 90 Y=3:IFZ=YTHEN250
  14. 100 D=INT(RND(0)*41)
  15. 110 IFA=DORB=DORC=DTHEN100
  16. 120 Y=4:IFZ=YTHEN260
  17. 130 E=INT(RND(0)*41)
  18. 140 IFA=EORB=EORC=EORD=ETHEN130
  19. 150 Y=5:IFZ=YTHEN270
  20. 160 Q=INT(RND(0)*41)
  21. 170 IFA=QORB=QORC=QORD=QORE=QTHEN160
  22. 180 Y=6:IFZ=YTHEN280
  23. 190 R=INT(RND(0)*41)
  24. 200 IFA=RORB=RORC=RORD=RORE=RORQ=RTHEN190
  25. 210 Y=7:IFZ=YTHEN290
  26. 220 H=INT(RND(0)*41)
  27. 230 IFA=HORB=HORC=HORD=HORE=HORQ=HORR=HTHEN220
  28. 235 GOTO300
  29. 240 PRINT"[147]";
  30. 242 PRINT A,B
  31. 244 GOTO310
  32. 250 PRINT"[147]";
  33. 252 PRINTA,B,C
  34. 254 GOTO310
  35. 260 PRINT"[147]";
  36. 262 PRINTA,B,C,D
  37. 264 GOTO310
  38. 270 PRINT"[147]";
  39. 272 PRINTA,B,C,D
  40. 273 PRINTE
  41. 274 GOTO310
  42. 280 PRINT"[147]";
  43. 282 PRINTA,B,C,D
  44. 283 PRINTE,Q
  45. 284 GOTO310
  46. 290 PRINT"[147]";
  47. 292 PRINTA,B,C,D
  48. 293 PRINTE,Q,R
  49. 294 GOTO310
  50. 300 PRINT"[147]";
  51. 302 PRINTA,B,C,D
  52. 303 PRINTE,Q,R,H
  53. 310 PRINT"WOULD YOU LIKE ANOTHER SET OF NUMBERS    (Y/N)"
  54. 320 INPUT A$
  55. 330 IF A$="Y"THEN 15
  56. 340 IFA$="N"THEN END
  57. 350 GOTO310
  58. 355 REM  INSTRUCTIONS
  59. 360 REM THIS PROGRAM WILL PICK RANDOM NUMBERS FROM 0 TO 40.  THIS PROGRAM CAN
  60. 370 REM BE USED TO PICK LOTTO NUMBERS.  THE NUMBERS W    
  61. 19521 WAYS BE DIFFERENT IN
  62. 380 REM EACH SET.
  63. 390 REM  MODIFICATIONS, ETC.
  64. 400 REM IF YOU WISH, YOU CAN MODIFY THE PROGRAM TO PICK MORE NUMBERS, OR CHANGE
  65. 410 REM THE LIMIT THE NUMBER CAN BE.
  66. 420 REM TO PICK MORE NUMBERS, OR TO CHANGE THE LIMIT THE SIZE OF THE NUMBER CAN
  67. 430 REM BE, OR TO HAVE IT PRINT ON A PRINTER, SEND ME SOME E-MAIL, AND I'LL GET
  68. 440 REM BACK TO YOU AS SOON AS POSSIBLE.
  69. 450 REM MY E-MAIL ADDRESS IS 'S.F.T.'.  HOPE YOU ENJOY THE PROGRAM!
  70.