RANDOM NUMBER TESTER

This program actually generates random numbers (based on re-seeding the random number generator with date-second values).

At some point I learned that random number generation in computer was not actually truly random, and I decided to write something which would be. I learned about how to re-seed the random number generator and decided that if it could be re-seeded every second, that it might provide a more random result.

This program re-seeds the random number generator every second and then draws a path according to how the numbers come up. The program was intended to run 100 times and then display the results. It would actually pick thousands of random numbers and re-start every time the path hit the edge of the screen.

The generator I created in this program actually proved to work very well for its intended use and I used it in many other programs later on.

lt=0
rt=0
tp=0
bm=0
x=100
y=100
z=10
FOR v=1 TO 100
10 REM start
IF x<=0 THEN 500
IF x>=200 THEN 500
IF y<=0 THEN 500
IF y >=200 THEN 500
GOSUB 9999
IF l<25 THEN 100
IF l>= 25 AND l<50 THEN 200
IF l>=50 AND l<75 THEN 300
IF l>=75 AND l<=100 THEN 400
100 LINE (x,y)-(x-z,y)
110 x=x-z
130 GOTO 10
200 LINE (x,y)-(x+z,y)
210 x=x+z
230 GOTO 10
300 LINE (x,y)-(x,y+z)
320 y=y+z
330 GOTO 10
400 LINE (x,y)-(x,y-z)
420 y=y-z
430 GOTO 10
500 REM
510 IF x<=0 THEN LET lt=lt+1
520 IF x>=200 THEN LET rt=rt+1
530 IF y<=0 THEN LET tp=tp+1
540 IF y>=200 THEN LET bm=bm+1
550 CLS
551 x=100
552 y=100
560 NEXT v
570 CLS
575 BEEP:BEEP
580 PRINT "left : ";lt
590 PRINT "right : ";rt
600 PRINT "top : ";tp
610 PRINT "bottom : ";bm
620 END
9999 REM random number generator
a=0
b=0
C=0
D=0
E=0
F=0
G=0
H=0
I=0
J=0
K=0
l=0
a$=RIGHT$(TIME$,2)
b$=MID$(TIME$,4,2)
C$=LEFT$(TIME$,2)
D$=MID$(DATE$,4,2)
E$=LEFT$(DATE$,2)

a=VAL(a$)
IF a=0 THEN LET a=60
b=VAL(b$)
IF b=0 THEN LET b=60
C=VAL(C$)
IF C=0 THEN LET C=24
D=VAL(D$)
E=VAL(E$)
F=(a*b*C*D*E)
G=INT(RND(1)*F+1)

IF G <= 9999 THEN 10000
IF G > 9999 THEN 10001
IF G > 99999! THEN 10002

10000 H=G/10
I=FIX(H)
J=H-I
K=J*100
l=FIX(K)
GOTO 10003

10001 H=G/100
I=FIX(H)
J=H-I
K=J*100
l=FIX(K)
GOTO 10003

10002 H=G/1000
I=FIX(H)
J=H-I
K=J*100
l=FIX(K)

10003 RETURN