10 'RND.BA Tom Lewandowski & Rick Hanson version 1.0
20 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
30 CLS
40 PRINT"Tap any number key or (Q)uit...":PRINT
50 Z$=INKEY$:IFZ$=""THEN50
60 IFZ$="q"ORZ$="Q"THENMENU
70 FORL=1TO6
80 Z=VAL(Z$)
90 X=RND(Z)*100
100 IFX>49ORX<0THENGOTO90
110 PRINTINT(X);
120 NEXTL
130 PRINT
140 GOTO50