... / ...
Commit | Line | Data |
| 1 | SECT PCT\r |
| 2 | / PCT(N)=RND(100).LT.N\r |
| 3 | EXTERN RND\r |
| 4 | JA #ST\r |
| 5 | #XR, ORG .+10\r |
| 6 | TEXT +PCT +\r |
| 7 | #RET, SETX #XR\r |
| 8 | SETB #BASE\r |
| 9 | JA .+3\r |
| 10 | #BASE, ORG .+6\r |
| 11 | N, ORG .+3\r |
| 12 | HUND, F 100.0\r |
| 13 | ORG #BASE+30\r |
| 14 | FNOP\r |
| 15 | JA #RET\r |
| 16 | FNOP\r |
| 17 | #GOBAK, 0;0\r |
| 18 | #RTN, BASE #BASE\r |
| 19 | JA #GOBAK\r |
| 20 | #ST, STARTD\r |
| 21 | 0210\r |
| 22 | FSTA #GOBAK,0\r |
| 23 | 0200\r |
| 24 | SETX #XR\r |
| 25 | SETB #BASE\r |
| 26 | LDX 0,1\r |
| 27 | FSTA #BASE\r |
| 28 | FLDA% #BASE,1+\r |
| 29 | FSTA N\r |
| 30 | STARTF\r |
| 31 | / RND(100)\r |
| 32 | JSR RND\r |
| 33 | JA .+0004\r |
| 34 | JA HUND\r |
| 35 | / .LT. N\r |
| 36 | FSUB% N\r |
| 37 | EXTERN #LT\r |
| 38 | JSA #LT\r |
| 39 | JA #RTN\r |
| 40 | END\r |