Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : RANDNUMB.ZIP
Filename : RANDOM.PRG

* Generate a random number from 0 - 32,767 using Rand() function
* Random.prg - Utilizing a function written in MicroSoft C V 5.1
* Uses the clock function of the machine rather than the RAND()
* Function of 'C'. To use this function you call the function with
* the maximum number you want it to return, so if the biggest number
* you want back is 1000 you would call it with :
*
* x=Rand(1000)
*
* If you have any questions or want the 'C' source code for the
* function call:
*
* Auto Exec BBS (508) 833-0505
* 8-N-1, 1200/2400/9600, HST 9600 on all Nodes
* Only Registration required to DL 450,000 Bytes/day
* 3 Nodes, 750 Meg On-Line, Novell 2.11 SFT Network
*
*
* Source Code Filename is: RANDSRC.ZIP
***********************************************************************
*
* Link with: LINK /NOE /STACK:0x4000 +rand,,clipper+extend
*
* Whenever I try to link with: PLINK86 FI ,rand lib clipper,extend
* I experience duplicate errors.
*
* If you experience any problems or have any recommendation please leave
* a message on Auto Exec BBS to the SYSOP. Thanks

row=6
do randdisp
set color to w+/b,r/w,b
do while .t.
@6,2 clear to 19,78
x=1
do while x<=12
rnum=Rand(10000)
@row+x,30 say "Random Number is: "+str(rnum,7)
x=x+1
enddo
again="Y"
@20,25 say "Generate More Random Numbers (y/n) " get again picture "!"
read
if upper(left(again,1))="Y"
loop
else
exit
endif
enddo


***
*** RANDDISP : format file
*** Generated May 7, 1989
***
PROCEDURE RANDDISP
SET COLOR TO +W/B
CLEAR
SET COLOR TO +GR/R
@ 01,00,04,19 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,03 SAY "Auto Exec BBS"
@ 03,02 SAY "(508) 833-0508"
SET COLOR TO +W/G
@ 01,20,04,63 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,30 SAY "Clipper Function Rand()"
@ 03,30 SAY "Random Number Generator"
SET COLOR TO +GR/R
@ 01,64,04,79 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,69 SAY "8-N-1"
@ 03,65 SAY "1200/2400/9600"
SET COLOR TO +BG/B
@ 05,00,21,79 BOX "ÚÄ¿³ÙÄÀ³"
SET COLOR TO +W/B
@ 06,01,20,78 BOX " "
SET COLOR TO +GR/R
@ 22,00,24,79 BOX "ÚÄ¿³ÙÄÀ³ "
@ 23,11 SAY "Call Auto Exec BBS for 'C' source code for this function."