--- /dev/null
+ SECT PCT\r
+/ PCT(N)=RND(100).LT.N\r
+ EXTERN RND\r
+ JA #ST\r
+#XR, ORG .+10\r
+ TEXT +PCT +\r
+#RET, SETX #XR\r
+ SETB #BASE\r
+ JA .+3\r
+#BASE, ORG .+6\r
+N, ORG .+3\r
+HUND, F 100.0\r
+ ORG #BASE+30\r
+ FNOP\r
+ JA #RET\r
+ FNOP\r
+#GOBAK, 0;0\r
+#RTN, BASE #BASE\r
+ JA #GOBAK\r
+#ST, STARTD\r
+ 0210\r
+ FSTA #GOBAK,0\r
+ 0200\r
+ SETX #XR\r
+ SETB #BASE\r
+ LDX 0,1\r
+ FSTA #BASE\r
+ FLDA% #BASE,1+\r
+ FSTA N\r
+ STARTF\r
+/ RND(100)\r
+ JSR RND\r
+ JA .+0004\r
+ JA HUND\r
+/ .LT. N\r
+ FSUB% N\r
+ EXTERN #LT\r
+ JSA #LT\r
+ JA #RTN\r
+ END\r