home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / lotto.ba < prev    next >
Text File  |  2006-10-19  |  425b  |  7 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 10 CLS:CALL17001:PRINT@6," Generating 6 Random Numbers ":CALL17006
  3. 12 FORN=1TO6:HS=VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
  4. 14 FORI=1TOHS:DUM=RND(1):NEXT:RN=INT(DUM*49):PRINTTAB(15)N;:PRINT"-"RN:NEXT
  5. 16 CALL17001:PRINT@5," Hit ENTER to Generate 6 More ":CALL17006:
  6. 18 Q$=INKEY$:IFQ$=CHR$(13)GOTO10ELSEZ=PEEK(65451):IFZ=7THENMENUELSEGOTO18
  7.