0 'Club 100 Library - 415/939-1246 BBS, 937-5039 Newsletter, 932-8856 Voice 10 CLS:CALL17001:PRINT@6," Generating 6 Random Numbers ":CALL17006 12 FORN=1TO6:HS=VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2)) 14 FORI=1TOHS:DUM=RND(1):NEXT:RN=INT(DUM*49):PRINTTAB(15)N;:PRINT"-"RN:NEXT 16 CALL17001:PRINT@5," Hit ENTER to Generate 6 More ":CALL17006: 18 Q$=INKEY$:IFQ$=CHR$(13)GOTO10ELSEZ=PEEK(65451):IFZ=7THENMENUELSEGOTO18