home *** CD-ROM | disk | FTP | other *** search
- 0 PRINT"[147]";
- 10 PRINT"FOR INSTRUCTIONS, SEE 'REM' STATEMENTS AT END OF PROGRAM."
- 15 PRINT"HOW MANY RANDOM NUMBERS SHALL I PICK (2-MINIMUM[195]8-MAXIMUM) "
- 17 INPUT Z
- 20 IFZ<2ORZ>8THENPRINT"PLEASE ENTER A NUMBER FROM 2 TO 8."
- 21 IFZ<2ORZ>8THEN15
- 30 A=INT(RND(0)*41)
- 40 B=INT(RND(0)*41)
- 50 IFA=BTHEN30
- 55 Y=2:IFZ=YTHEN 240
- 60 C=INT(RND(0)*41)
- 80 IFA=CORB=CTHEN60
- 90 Y=3:IFZ=YTHEN250
- 100 D=INT(RND(0)*41)
- 110 IFA=DORB=DORC=DTHEN100
- 120 Y=4:IFZ=YTHEN260
- 130 E=INT(RND(0)*41)
- 140 IFA=EORB=EORC=EORD=ETHEN130
- 150 Y=5:IFZ=YTHEN270
- 160 Q=INT(RND(0)*41)
- 170 IFA=QORB=QORC=QORD=QORE=QTHEN160
- 180 Y=6:IFZ=YTHEN280
- 190 R=INT(RND(0)*41)
- 200 IFA=RORB=RORC=RORD=RORE=RORQ=RTHEN190
- 210 Y=7:IFZ=YTHEN290
- 220 H=INT(RND(0)*41)
- 230 IFA=HORB=HORC=HORD=HORE=HORQ=HORR=HTHEN220
- 235 GOTO300
- 240 PRINT"[147]";
- 242 PRINT A,B
- 244 GOTO310
- 250 PRINT"[147]";
- 252 PRINTA,B,C
- 254 GOTO310
- 260 PRINT"[147]";
- 262 PRINTA,B,C,D
- 264 GOTO310
- 270 PRINT"[147]";
- 272 PRINTA,B,C,D
- 273 PRINTE
- 274 GOTO310
- 280 PRINT"[147]";
- 282 PRINTA,B,C,D
- 283 PRINTE,Q
- 284 GOTO310
- 290 PRINT"[147]";
- 292 PRINTA,B,C,D
- 293 PRINTE,Q,R
- 294 GOTO310
- 300 PRINT"[147]";
- 302 PRINTA,B,C,D
- 303 PRINTE,Q,R,H
- 310 PRINT"WOULD YOU LIKE ANOTHER SET OF NUMBERS (Y/N)"
- 320 INPUT A$
- 330 IF A$="Y"THEN 15
- 340 IFA$="N"THEN END
- 350 GOTO310
- 355 REM INSTRUCTIONS
- 360 REM THIS PROGRAM WILL PICK RANDOM NUMBERS FROM 0 TO 40. THIS PROGRAM CAN
- 370 REM BE USED TO PICK LOTTO NUMBERS. THE NUMBERS W
- 19521 WAYS BE DIFFERENT IN
- 380 REM EACH SET.
- 390 REM MODIFICATIONS, ETC.
- 400 REM IF YOU WISH, YOU CAN MODIFY THE PROGRAM TO PICK MORE NUMBERS, OR CHANGE
- 410 REM THE LIMIT THE NUMBER CAN BE.
- 420 REM TO PICK MORE NUMBERS, OR TO CHANGE THE LIMIT THE SIZE OF THE NUMBER CAN
- 430 REM BE, OR TO HAVE IT PRINT ON A PRINTER, SEND ME SOME E-MAIL, AND I'LL GET
- 440 REM BACK TO YOU AS SOON AS POSSIBLE.
- 450 REM MY E-MAIL ADDRESS IS 'S.F.T.'. HOPE YOU ENJOY THE PROGRAM!
-