REM A Powerball drawing program by Martin VandenHurk. CLS PRINT "5 white balls balls (1 to 69)" PRINT "1 red ball (1 to 26)" number = TIMER + 6926 a$ = TIME$ PRINT "Now drawing Powerball numbers..." RANDOMIZE TIMER FOR l = 1 TO 69 POKE 5000 + l, l NEXT SLEEP 3 FOR l = 1 TO 69 PRINT PEEK(5000 + l); NEXT PRINT "Now drawing powerball numbers..." ct = 1 here: x = INT(RND * 69) + 1 IF PEEK(5000 + x) <> 0 THEN r(ct) = x: POKE 5000 + x, 0: GOTO there GOTO here there: ct = ct + 1 IF ct = 6 THEN GOTO done ELSE GOTO here done: CLS PRINT "...a small nap ..." SLEEP 2 PRINT "The odd factor is: "; number PRINT "Here are your 5 Powerball numbers:" FOR ct = 1 TO 5 PRINT r(ct); NEXT PRINT PRINT "The red Powerball number is:"; PRINT INT(RND * 26) + 1 b$ = TIME$ x$ = RIGHT$(a$, 2) y$ = RIGHT$(b$, 2) x = VAL(x$) y = VAL(y$) PRINT PRINT "Program completed in: "; y - x; " seconds."