home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mis / fifty.ba < prev    next >
Text File  |  2006-10-19  |  634b  |  8 lines
  1. 0 'FIFTY.100 - Bill Templeton - 8/5/86
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:OPEN"fifty"FOROUTPUTAS1:CALL17001:PRINT@85," Generating 50 Random Numbers ":CALL17006:PRINT@173,"Working...
  4. 4 PRINT#1,"*** 50 Random Numbers ***  "DAY$" "DATE$:FORN=1TO50:PRINT@183,N:HS=VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
  5. 6 FORI=1TOHS:DUM=RND(1):NEXT:RN=INT(DUM*100000):PRINT#1,USING"  ##";N;:PRINT#1," -"RN
  6. 8 NEXT:CLS:PRINT@123,"Look in FIFTY.DO for Random Numbers":CALL17001:PRINT@210," Press Enter for Menu ":Q$=INPUT$(1):MENU
  7. 9 'Generates 50 random numbers from 0 to 100,000 on a 100/102/200.
  8.