0 'FIFTY.100 - Bill Templeton - 8/5/86
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:OPEN"fifty"FOROUTPUTAS1:CALL17001:PRINT@85," Generating 50 Random Numbers ":CALL17006:PRINT@173,"Working...
4 PRINT#1,"*** 50 Random Numbers ***  "DAY$" "DATE$:FORN=1TO50:PRINT@183,N:HS=VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
6 FORI=1TOHS:DUM=RND(1):NEXT:RN=INT(DUM*100000):PRINT#1,USING"  ##";N;:PRINT#1," -"RN
8 NEXT:CLS:PRINT@123,"Look in FIFTY.DO for Random Numbers":CALL17001:PRINT@210," Press Enter for Menu ":Q$=INPUT$(1):MENU
9 'Generates 50 random numbers from 0 to 100,000 on a 100/102/200.