Commit | Line | Data |
---|---|---|
1 | SCREEN 0\r | |
2 | CLS\r | |
3 | COLOR 4,15\r | |
4 | S=0\r | |
5 | Z=0\r | |
6 | \r | |
7 | LOCATE 4,23\r | |
8 | PRINT "PROGRAM PRO ZKOUSENI SCITANI"\r | |
9 | PRINT " "\r | |
10 | \r | |
11 | V=TIMER\r | |
12 | V=INT(((V-INT(V)+.2)*100))\r | |
13 | \r | |
14 | FOR I=1 TO 15\r | |
15 | \r | |
16 | A(I)=INT(RND*V+1)\r | |
17 | A(I)=A(I)+1\r | |
18 | B(I)=INT(RND*V+1)\r | |
19 | B(I)=B(I)+1\r | |
20 | \r | |
21 | VYP:\r | |
22 | IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r | |
23 |